Archive for the ‘Inbound IDOC’ Category
Useful Guide to ALE, IDOCs
Posted on: July 17, 2007
- In: ALE | IDOC | Inbound IDOC
- 42 Comments
ALE/IDOC
IDOC Programming
There are two processes in IDOC processing one is INBOUND PROCESS( IDOC coming to the system and its handling at various stages) and the other is OUTBOUND PROCESS( IDOC is send to other system . Separate ABAP programs are written for these 2 processes and different configuration settings are required for each one .Depending upon the trigeering mechanism different programming approaches are used.OUTBOUND PROGRAMS handle the IDOC creation and INBOUND PROGRAMS handle the inbound IDOC and the data trasfer from the IDOC to the database tables.
NEED FOR ABAP PROGRAMMING arises if
1)New IDOC was created
Depending upon the triggering mechanism i.e change pointer,message control
etc the programming technique changes and the type of process.
2)Existing IDOC was extended
User Exits are used to populate data in new segments added and to read them
back.
3)To enhance an exsiting process.
User Exits are used .
Basic structure of an OUTBOUND PROGRAM
The basic structure of all outbound programs is same. The CONTROL
record which is of TYPE EDIDC has to be filled. It contains important fields like
IDOCTP IDOC type
MESTYP Message Type
RCVPRN Recieving Partner (Destination)
RCVPRT Partner Type (it is LS i.e Logical System)
The DATA RECORD internal table which is of TYPE EDIDD has to be filled
in the same order as there are segments in the IDOC definition.
It has 2 important fields which are to be filled ,these are
SEGNAM Name of the segment
SEGDATA Data in the segment and can be upto 1000 bytes.This field
is corresponds to each data segment in the IDOC.
e.g.
DATA INT_EDIDD LIKE EDIDD OCCURS 0 WITH HEADER LINE.
DATA W_SEGDATA LIKE zsegment “custom segment zsegment
INT_EDIDD-SEGNAM = ‘ZSEGMENT’
W_SEGDATA-field1 = value “taken from some table
W_SEGDATA-field2 = value “taken from some table
INT_EDIDD-SEGDATA = W_SEGDATA
APPEND INT_EDIDD
This will fill the data record corresponding to the segment ZSEGMENT . For all
segments the sam steps will be repeated until all the data corresponding to all the
segments in the idoc is filled in the internal table of type EDIDD.
There is only one control record and can be multile data records in the idoc
structure.
Which data is to be extracted from the tables to be filled in EDIDD type internal table is determined in standalone programs from the objects which are specified in the selection screen and from the object key passed to the function module in case of message control and is taken from BDCP table in case of change pointers using function modules “CHANGE_POINTERS_READ”
In case of stand alone programs and function modules based on change pointers method the function module “MASTER_IDOC_DISTRIBUTE” is used to send the IDOC to ALE layer for distribution ,in case of message control it is handled automatically by the RSNASTED program invoked by the message control.
OUTBOUND PROCESS AND OUTBOUND PROGRAM.
Outbound programs are used in outbound process to genearte IDOCs . There
purpose is to extract the data from the tables and to fill the IDOC data records
and the control record in the IDOC and pass ito the ALE layer for distribution to the recieving system .
Depending upon the triggering mechanism (how and when the outbound program will be started different techniques and interface is used for outbound program.
1)Message control
Application like PO(purchase order) creation use this technique , where the output type is linked to the application(Message control is a configurable cross application component which can be set in IMG .Such programs are created in the form of function modules and linked to the output type which is linked to the apllication.These have predefined interfaces.
In outbound programs(function module) that use message control the key of the
application document is passed to the function module whcig will read the data from the table depending upon the key passed(NAST structure) and fill the IDOC segemnts with the application data.The control record is also passed to the function module but is not fully filled, the rmaining fields are filled and the control is passed back to the calling program which is RSNASTED and is invoked by the
message control to process ALE and EDI output types and this program on recieving the IDOC data will create the physical IDOC in the system.
The parameteers passed to the function module are
IMPORTING PARAMETERS
OBJECT LIKE NAST
It contains documents key.
CONTROL_RECORD_IN LIKE EDIDC
It contains the partailly filled control record
EXPORETING PARAMETER
OBJECT_TYPE
CONTROL_RECORD_OUT LIKE EDIDC
TABLES
INT_EDID LIKE EDIDD
The internal table used to fill the data records in the same order as they exists in the IDOC.
The important parameters that should be filled in the custom function module are
CONTROL_RECORD_OUT and INT_EDIDD .The OBJK field of the structue NAST contains the key of the apllication document.
2)Stand alone programs
Generally used for Master Data transfer and as such depending upon the requirement can have different interfaces.The programs have a selection screen which has select options to select the objects, and parameters for specifying the recipient Logical System and the Message Type.
Data is selected based on the specified objects from the tables . and control record of type EDIDC is created and filled with important values like DIRECTION ,IDOCTP,RCVPRT,RCVPRN and MESTYP .
Data is filled in an internal table of TYPE EDIDD according to segment definitions
and in same order and the function module MASTER_IDOC_DISTRIBUTE is called passing the control record and the internal table containg IDOC data and importing an internal table consisting of control records for each communication IDOCS created.
3)Change pointer
Change Pointer table is read and checked if changes were made to important fields , if so the outbound program will be triggered automatically , these have predefined interfaces
ALE/IDOC Transaction
SALE Area Menu for ALE configurations.It includes transactions for
Logical System definition and linking it to a client, Transactions for
RFC Destination and Port Definition Etc.
SM59 RFC Destination
Here we specify the login settings for the destination including
the I.P address or Application Server name and the User name and
password.The information entered here is used to run Remote Function
Calls(RFC ) on the destination server .We can create number of types
of RFC Destinations but 3 types are important .
R/3 (R/3 to R/3), LS(logical system) and TCP/IP.
The name of the RFC destination should be same as that of Logical
System as it helps in creation of automatic partner profiles.
WE21 Port Definition.
There are 6 types of ports but only 2 types File and Transactional RFC
types of ports are important.
We have to specify the RFC Destination before a port can be created.
WE57 This is used to assign the Inbound function module to the Message Type
and to the IDOC Type.
WE42 This is used to define the process Code for Inbound Processing.
BD95 Define Filter object type .We can specify the field and the table it belongs
to as a filter object .
BD59 Assignment of Filter object type to the Message Type .Here we create the
link between Filter object and the segment and the message type and the
segment Field.
BD50 Set message Type to reducible.
BD65 Define Mandatory Fields.
BD64 Distribution Model . Also known as Customer Distribution Model Used to
define all the messages that will be exchanged between remote systems
and the name of thes logical systems. Any filters can also be specified.
The model once created has to be distributed on every system which will
be communicating ,It can be maintained on only One system.
BD21 Creating IDOcs from change pointers.
This can be used to create IDOCs from change pointers for a particular
message LIKE MATMAS.
BD22 This can be used to delete change pointers.
BD87 Status Monitor. Idocs can be selected base on number of criteria and there
processing status can be seen in detail.
BD10 Material Master Data Distribution .
Based on Message MATMAS.
BD12 Customer Master Data Distribution .
Based on Message CREMAS.
BD14 Vendor Master Data Distribution
Based on Message DEBMAS .
BDFG Generate ALE Interface for BAPI.
Here we specify the Business Object and the BAPI Function module for
which the interface has to be created.
WE31 Segment Editor.
This is used to create segments. We create the segment type and
segment definition is automatically created by editor e.g. Z1DUMMY is
segment type and Z2DUMMY is the segment definition .We specify the
fields and the data elements these cp\orresponds to create segments.
WE30 IDOC Editor
It is used to create a new IDOC Type or IDOC Extension .We specify the
segments that will be addd to the IDOC type.
WE02/05 IDOC List.
Various selct options and parameters are provided to select IDOCs
depending on the date, direction , mesage type etc.
WE20 Partner Profile
Here we create partner profile for each and every partner from / to which
the messages will be exchanged.There are 6 types of PF generally only
profiles of type LS(Logical System) ,KU(Customer) ,LI(Vendor) is used.
We specify the partner number and partner type and the agent and
the agent type responsible for handling of errors .
For every message send to the partner we have a outbound record and for
evry message coming from the partner we have the inbound record .
We specify the message in the otbound/inbound records ,double
clicking will take us to the detailed screen where the IDOC Type ,Port
and whether the IDCO will be immediatelt processed or collected are
mentioned.
IDOC Status Code
Status Description
00 Not used, only R/2
01 IDoc generated
02 Error passing data to port
03 Data passed to port OK
04 Error within control information of EDI subsystem
05 Error during translation
06 Translation OK
07 Error during syntax check
08 Syntax check OK
09 Error during interchange handling
10 Interchange handling OK
11 Error during dispatch
12 Dispatch OK
13 Retransmission OK
14 Interchange Acknowledgement positive
15 Interchange Acknowledgement negative
16 Functional Acknowledgement positive
17 Functional Acknowledgement negative
18 Triggering EDI subsystem OK
19 Data transfer for test OK
20 Error triggering EDI subsystem
21 Error passing data for test
22 Dispatch OK, acknowledgement still due
23 Error during retransmission
24 Control information of EDI subsystem OK
25 Processing despite syntax error (outbound)
26 Error during syntax check of IDoc (outbound)
27 Error in dispatch level (ALE service)
28 Not used
29 Error in ALE service
30 IDoc ready for dispatch (ALE service)
31 Error – no further processing
32 IDoc was edited
33 Original of an IDoc which was edited
34 Error in control record of IDoc
35 IDoc reloaded from archive
36 Electronic signature not performed (timeout)
37 IDoc added incorrectly
38 IDoc archived
39 IDoc is in the target system (ALE service)
40 Application document not created in target system
41 Application document created in target system
42 IDoc was created by test transaction
50 IDoc added
51 Application document not posted
52 Application document not fully posted
53 Application document posted
54 Error during formal application check
55 Formal application check OK
56 IDoc with errors added
57 Test IDoc: Error during application check
58 IDoc copy from R/2 connection
59 Not used
60 Error during syntax check of IDoc (inbound)
61 Processing despite syntax error (inbound)
62 IDoc passed to application
63 Error passing IDoc to application
64 IDoc ready to be transferred to application
65 Error in ALE service
66 IDoc is waiting for predecessor IDoc (serialization)
67 Not used
68 Error – no further processing
69 IDoc was edited
70 Original of an IDoc which was edited
71 IDoc reloaded from archive
72 Not used, only R/2
73 IDoc archived
74 IDoc was created by test transaction
IDOC Function
CALL FUNCTION ‘MASTER_IDOC_DISTRIBUTE’
EXPORTING
VALUE(MASTER_IDOC_CONTROL) LIKE EDIDC STRUCTURE EDIDC
” Control record of master IDoc
VALUE(OBJ_TYPE) LIKE SERIAL-OBJ_TYPE DEFAULT ”
VALUE(CHNUM) LIKE SERIAL-CHNUM DEFAULT ”
TABLES
COMMUNICATION_IDOC_CONTROL STRUCTURE EDIDC
” Control records of created comm. IDocs
MASTER_IDOC_DATA STRUCTURE EDIDD
” Data records of master IDoc
EXCEPTIONS
ERROR_IN_IDOC_CONTROL
” Incorrect entry in IDoc control record
ERROR_WRITING_IDOC_STATUS
” Error when writing IDoc status records
ERROR_IN_IDOC_DATA
” Incorrect entry in IDoc data records
SENDING_LOGICAL_SYSTEM_UNKNOWN
” Own logical system unknown
CALL FUNCTION ‘CHANGE_POINTERS_READ’
EXPPORTING
VALUE(ACTIVATION_DATE_HIGH) LIKE SY-DATUM DEFAULT SPACE
VALUE(ACTIVATION_DATE_LOW) LIKE SY-DATUM DEFAULT SPACE
VALUE(ACTIVATION_TIME_HIGH) LIKE SY-UZEIT DEFAULT ‘000000’
VALUE(ACTIVATION_TIME_LOW) LIKE SY-UZEIT DEFAULT ‘000000’
VALUE(CHANGE_DOCUMENT_OBJECT_CLASS) LIKE CDPOS-OBJECTCLAS
DEFAULT SPACE
VALUE(CREATION_DATE_HIGH) LIKE SY-DATUM DEFAULT SPACE
VALUE(CREATION_DATE_LOW) LIKE SY-DATUM DEFAULT SPACE
VALUE(CREATION_TIME_HIGH) LIKE SY-UZEIT DEFAULT ‘000000’
VALUE(CREATION_TIME_LOW) LIKE SY-UZEIT DEFAULT ‘000000’
VALUE(MESSAGE_TYPE) LIKE BDCPS-MESTYPE
VALUE(READ_NOT_PROCESSED_POINTERS) LIKE BDCPS-PROCESS DEFAULT
‘X’
TABLES
CHANGE_POINTERS STRUCTURE BDCP
MESSAGE_TYPES STRUCTURE BDMSGTYP OPTIONAL
EXCEPTIONS
ERROR_IN_DATE_INTERVAL
ERROR_IN_TIME_INTERVAL
CALL FUNCTION change_pointers_status_write.
IMPORTING
VALUE(MESSAGE_TYPE) LIKE EDIDC-MESTYP
TABLES
CHANGE_POINTERS_IDENTS STRUCTURE BDICPIDENT
Examples of Inbound function modules are
IDOC_INPUT_BLAOCH IDoc inbound processing: change Ccontract
IDOC_INPUT_BLAORD IDoc inbound processing: Create Contract
IDOC_INPUT_MATMAS01 IDoc inbound processing: Material Master
Examples of Outbound function modules are
IDOC_OUTPUT_BLAOCH
IDOC_OUTPUT_BLAORD
Other USeful Links :
Download Goods Receipt Process for Inbound Deliveries pdf
*”———————————————————————-
*”*”Lokale Schnittstelle:
*” IMPORTING
*” VALUE(DCONTROL_RECORD_OUT) LIKE EDIDC STRUCTURE EDIDC
*” OPTIONAL
*” VALUE(DORDER_NUMBER) LIKE VBAK-VBELN OPTIONAL
*” VALUE(DXVBAK) LIKE VBAK STRUCTURE VBAK OPTIONAL
*” VALUE(DXHVBKD) LIKE VBKD STRUCTURE VBKD OPTIONAL
*” TABLES
*” DXVBKD STRUCTURE VBKD OPTIONAL
*” DXVBPA STRUCTURE VBPA OPTIONAL
*” DXVBAP STRUCTURE VBAP OPTIONAL
*” DXVBEP STRUCTURE VBEP OPTIONAL
*” DIKOMV STRUCTURE KOMV OPTIONAL
*” DIKOMVD STRUCTURE KOMVD OPTIONAL
*” DINT_EDIDD STRUCTURE EDIDD OPTIONAL
*” EXCEPTIONS
*” ERROR_MESSAGE_RECEIVED
*” DATA_NOT_RELEVANT_FOR_SENDING
*”———————————————————————-
*&———————————————————————*
*& Include ZXVEDU15
*&———————————————————————*
*DESCRIPTION: MODIFY STATUS SETTINGS IN IDOC, CHANGE LENGTH OF CONSTANT
* C_0, add l_unitpr and modify calculation of unitpr, change
* code on pos_jurisdiction_code, add c_origin_mc for mixed
* case entry in SAP instead of Upper Case. Change freight
* terms from field KDKG1 to SDABW. Add line item delivery
* block (VBEP-LIFSP).
*************************************************************************
*DESCRIPTION: CHANGE SALES ORDER LINE ITEM UOM FOR CONVERSION TO GAL
* USING FMOD ‘MD_CONVERT_MATERIAL_UNIT’. INPUT UOM WILL BE VBAP-VRKME
* THE SALES UNIT OF MEASURE.
*************************************************************************
*DESCRIPTION: ADD TO ZEDI TEXT DXVBEP-WADAT – GOODS ISSUE DATE; ZEDH
* TEXT ADD VBAK-IHREZ – YOUR REFERENCE FIELD FOR POPS INBOUND MISSING
* ORDERS.
*************************************************************************
*DESCRIPTION: Outbound Purchase Order line item text is not always being
* generated. for documentation. Correction was to remove EXIT command
* after reading table for condition ZPRV.
*************************************************************************
DATA:BEGIN OF t_komv OCCURS 0,
knumh LIKE konv-knumh,
END OF t_komv.
DATA:BEGIN OF t_days OCCURS 0,
days TYPE i,
days1 TYPE i,
datab LIKE konh-datab,
datbi LIKE konh-datbi,
END OF t_days.
*Data declaration
DATA : l_tabix LIKE sy-tabix,
l_cmgst LIKE vbuk-cmgst , “Overall status of credit checks
l_gbstk LIKE vbuk-gbstk , “Overall processing status of document
l_bismt LIKE mara-bismt, “Old material number
l_outmeng LIKE ekpo-menge,
l_c_meng(13),
l_unitpr TYPE p DECIMALS 4, “vbap-netwr,
* l_up,
l_up(23),
l_menge LIKE ekpo-menge,
l_found TYPE c,
l_meins TYPE mara-meins,
l_kdkg1 LIKE vbkd-kdkg1,
l_gbsta LIKE vbup-gbsta,
l_lfsta LIKE vbup-lfsta,
l_kondm LIKE vbap-kondm,
l_oidrc LIKE vbap-oidrc,
l_tragr LIKE mara-tragr,
l_abstk LIKE vbuk-abstk,
l_lfstk LIKE vbuk-lfstk,
l_spstg LIKE vbuk-spstg,
l_provi(1) TYPE c,
l_knumv TYPE vbak-knumv,
l_erdat TYPE vbak-erdat,
l_erzet TYPE vbak-erzet,
l_days TYPE i,
l_days1 TYPE i,
l_datab LIKE konh-datab,
l_datbi LIKE konh-datbi.
DATA : v_kunnr TYPE vbpa-kunnr,
v_txjcd1 TYPE t001w-txjcd,
v_txjcd2 TYPE t001w-txjcd,
v_scacd TYPE lfa1-scacd,
v_tdlnr TYPE tvro-tdlnr.
DATA : x_e1edkt1 LIKE e1edkt1, ” Segments structure
x_e1edkt2 LIKE e1edkt2,
x_e1edpt1 LIKE e1edpt1,
x_e1edpt2 LIKE e1edpt2,
x_edidd LIKE edidd,
x_e1edp01 LIKE e1edp01,
x_e1edk01 LIKE e1edk01.
DATA : t_clbatch LIKE clbatch OCCURS 0 WITH HEADER LINE.
* CONSTANTS
CONSTANTS : c_gal TYPE mara-meins VALUE ‘GLL’, ” Give constant value GAL
Required unit
c_zedh(5) TYPE c VALUE ‘ZEDH’,
c_zedi(5) TYPE c VALUE ‘ZEDI’,
* Fields for ZEDH
c_faksk(5) TYPE c VALUE ‘FAKSK’,
c_oidrc(16) TYPE c VALUE ‘DRC_CODE IS_OIL’,
c_erdat(5) TYPE c VALUE ‘ERDAT’,
c_erzet(5) TYPE c VALUE ‘ERZET’,
c_aedat(5) TYPE c VALUE ‘AEDAT’,
c_cmgst(5) TYPE c VALUE ‘CMGST’,
c_gbstk(5) TYPE c VALUE ‘GBSTK’,
c_traty(5) TYPE c VALUE ‘TRATY’,
c_ihrez(5) TYPE c VALUE ‘IHREZ’,
* Fields for ZEDI
c_mprok(5) TYPE c VALUE ‘MPROK’,
c_spart(5) TYPE c VALUE ‘SPART’,
c_topc(5) TYPE c VALUE ‘TOPC’,
c_unitpr(6) TYPE c VALUE ‘UnitPR’,
c_smat(5) TYPE c VALUE ‘SMAT’,
c_konda(5) TYPE c VALUE ‘KONDA’,
c_vehicle TYPE atnam VALUE ‘VEHICLE_ID’,
c_frt_terms(5) TYPE c VALUE ‘KDKG1’,
c_ov_stat(5) TYPE c VALUE ‘GBSTA’,
c_del_stat(5) TYPE c VALUE ‘LFSTA’,
c_wadat(5) TYPE c VALUE ‘WADAT’,
c_mat_pric(5) TYPE c VALUE ‘KONDM’,
c_pric_zon(5) TYPE c VALUE ‘OIDRC’,
c_trans_group(5) TYPE c VALUE ‘TRAGR’,
c_abstk(5) TYPE c VALUE ‘ABSTK’,
c_lfstk(5) TYPE c VALUE ‘LFSTK’,
c_spstg(5) TYPE c VALUE ‘SPSTG’,
c_provi(5) TYPE c VALUE ‘PROVI’,
c_valid_to(8) TYPE c VALUE ‘VALID_TO’,
c_valid_from(10) TYPE c VALUE ‘VALID_FROM’,
c_datetime(8) TYPE c VALUE ‘DATETIME’,
* Start Of change by amit khari on 23-06-06
c_dest(11) TYPE c VALUE ‘DESTINATION’,
c_origin(6) TYPE c VALUE ‘ORIGIN’,
c_pos_jur(21) TYPE c VALUE ‘POS_JURISDICTION_CODE’,
c_we(2) TYPE c VALUE ‘WE’,
*BEGIN OF CHANGE RDVK901578
* c_0(5) TYPE c VALUE ‘00000’,
c_0(6) TYPE c VALUE ‘000000’,
c_origin_mc(6) TYPE c VALUE ‘Origin’,
c_lifsp(5) TYPE c VALUE ‘LIFSP’,
*END OF CHANGE RDVK901578
c_ernam(5) TYPE c VALUE ‘ERNAM’,
c_tdlnr(5) TYPE c VALUE ‘TDLNR’.
* *—————————————————————————————-
*Processing segments
*—————————————————————————————-
LOOP AT dint_edidd FROM l_tabix.
IF dint_edidd-segnam = ‘E1EDKT1’.
l_tabix = sy-tabix .
EXIT.
ELSEIF
dint_edidd-segnam = ‘E1EDP01’ OR
dint_edidd-segnam = ‘E1EDL37’ OR
dint_edidd-segnam = ‘E1EDS01’.
l_tabix = sy-tabix .
EXIT.
ENDIF. “dint_edidd-segnam =
‘E1EDKT1’
ENDLOOP. “dint_edidd FROM l_tabix
IF l_found ‘X’.
* Populate fields to modify the existing segment field value.
SELECT SINGLE cmgst
gbstk
abstk
lfstk
spstg
INTO (l_cmgst , l_gbstk ,
l_abstk , l_lfstk , l_spstg)
FROM vbuk
WHERE vbeln = dxvbak-vbeln.
x_edidd-segnam = ‘E1EDKT1’.
x_e1edkt1-tdid = c_zedh.
x_e1edkt1-tsspras = ‘E’.
x_e1edkt1-tsspras_iso = ‘EN’.
x_edidd-sdata = x_e1edkt1.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
l_tabix = l_tabix + 1.
x_edidd-segnam = ‘E1EDKT2’.
*BEGIN OF CHANGE RDVK901578
* For creator of document
CONCATENATE c_ernam
dxvbak-ernam
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*END OF CHANGE RDVK901578
*BEGIN OF CHANGE RDVK902758
* ADD VBAK ‘YOUR REFERENCE’ FIELD
CONCATENATE c_ihrez
dxvbak-ihrez
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*END OF CHANGE RDVK902758
* Concatenate field and field value in exiting segment field
CONCATENATE c_faksk
dxvbak-faksk
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_oidrc
dxvbak-oidrc
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_erdat
dxvbak-erdat
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_erzet
dxvbak-erzet
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_aedat
dxvbak-aedat
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_cmgst
l_cmgst
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_gbstk
l_gbstk
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_traty
dxvbkd-traty
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_abstk
l_abstk
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_lfstk
l_lfstk
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_spstg
l_spstg
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*ABIR + 08082006
l_knumv = dxvbak-knumv.
l_erdat = dxvbak-erdat.
l_erzet = dxvbak-erzet.
LOOP AT dikomv WHERE knumv = l_knumv.
IF NOT dikomv-knumh IS INITIAL.
t_komv-knumh = dikomv-knumh.
APPEND t_komv.
ELSE.
ENDIF.
ENDLOOP.
IF sy-subrc = 0.
LOOP AT t_komv.
CLEAR l_datab.
CLEAR l_datbi.
SELECT SINGLE datab
datbi
INTO (l_datab , l_datbi)
FROM konh
WHERE knumh = t_komv-knumh.
IF l_datab 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF NOT l_days IS INITIAL.
t_days-days = l_days.
t_days-datab = l_datab.
APPEND t_days.
ENDIF.
ELSEIF l_datab > sy-datum.
l_days = l_datab – sy-datum.
IF NOT l_days IS INITIAL.
t_days-days = l_days.
t_days-datab = l_datab.
APPEND t_days.
ENDIF.
ENDIF.
IF l_datbi 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF NOT l_days1 IS INITIAL.
t_days-days1 = l_days1.
t_days-datbi = l_datbi.
MODIFY t_days INDEX sy-tabix TRANSPORTING days1 datbi.
ENDIF.
ELSEIF l_datbi > sy-datum.
l_days1 = l_datbi – sy-datum.
IF NOT l_days1 IS INITIAL.
t_days-days1 = l_days1.
t_days-datbi = l_datbi.
MODIFY t_days INDEX sy-tabix TRANSPORTING days1 datbi.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
SORT t_days BY days days1.
READ TABLE t_days INDEX 1.
CONCATENATE c_valid_to
t_days-datab
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_valid_from
t_days-datbi
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
CONCATENATE c_datetime
l_erdat
l_erzet
INTO x_e1edkt2-tdline
SEPARATED BY space.
x_e1edkt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edkt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
ENDIF. “l_found ‘X’.
CLEAR : x_edidd ,
x_e1edkt2.
DO.
CLEAR: x_e1edp01 ,
l_found .
LOOP AT dint_edidd FROM l_tabix.
IF dint_edidd-segnam = ‘E1EDP01’.
x_e1edp01 = dint_edidd-sdata.
l_tabix = sy-tabix + 1.
l_found = ‘X’.
EXIT.
ENDIF. ” dint_edidd-segnam =
‘E1EDP01’
ENDLOOP. “at dint_edidd
IF l_found ‘X’.
EXIT.
ENDIF. “l_found ‘X’
LOOP AT dint_edidd FROM l_tabix .
CLEAR: l_found .
IF dint_edidd-segnam = ‘E1EDPT1’.
l_tabix = sy-tabix .
l_found = ‘X’.
EXIT.
ELSEIF dint_edidd-segnam = ‘E1EDC01’ OR
dint_edidd-segnam = ‘E1EDP01’ OR
dint_edidd-segnam = ‘E1CUCFG’ OR
dint_edidd-segnam = ‘E1EDL37’ OR
dint_edidd-segnam = ‘E1EDS01’.
l_tabix = sy-tabix .
EXIT.
ENDIF. “dint_edidd-segnam =
‘E1EDPT1’
ENDLOOP. “AT dint_edidd
x_edidd-segnam = ‘E1EDPT1’.
x_e1edpt1-tdid = c_zedi.
x_e1edpt1-tsspras = ‘E’.
x_e1edpt1-tsspras_iso = ‘EN’.
x_edidd-sdata = x_e1edpt1.
l_tabix = l_tabix.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
x_edidd-segnam = ‘E1EDPT2’.
l_tabix = l_tabix + 1.
READ TABLE dxvbap WITH KEY posnr = x_e1edp01-posex .
IF sy-subrc = 0.
l_kondm = dxvbap-kondm.
l_oidrc = dxvbap-oidrc.
ENDIF.
CONCATENATE c_mprok
dxvbap-mprok
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*BEGIN OF INSERT RDVK901577
*ADD SALES ORDER LINE ITEM DELIVERY BLOCK
READ TABLE dxvbep WITH KEY vbeln = dxvbap-vbeln
posnr = x_e1edp01-posex.
CONCATENATE c_lifsp
dxvbep-lifsp
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*END OF INSERT RDVK901577
*BEGIN OF CHANGE RDVK902758
* Sales Order Schedule Goods Issue Date
CONCATENATE c_wadat
dxvbep-wadat
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix.
*END OF CHANGE RDVK902758
CONCATENATE c_spart
dxvbap-spart
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
MOVE dxvbap-kwmeng TO l_menge .
** Conversion routine to get store value
CALL FUNCTION ‘CONVERSION_EXIT_CUNIT_INPUT’
EXPORTING
input = dxvbap-meins
language = sy-langu
IMPORTING
output = l_meins
EXCEPTIONS
unit_not_found = 1
* OTHERS = 2
.
IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
**
* Function for converting the unit and import quantity value after change
CALL FUNCTION ‘MD_CONVERT_MATERIAL_UNIT’
EXPORTING
i_matnr = dxvbap-matnr
* i_in_me = l_meins
i_in_me = dxvbap-vrkme
i_out_me = c_gal
i_menge = l_menge
IMPORTING
e_menge = l_outmeng
EXCEPTIONS
error_in_application = 1.
IF sy-subrc 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
WRITE l_outmeng TO l_c_meng NO-GROUPING.
CONCATENATE c_topc
l_c_meng
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
* calculate unit price
* Added IF condition to prevent shortdump for Contracts
IF dxvbap-netwr > 0 AND dxvbap-kwmeng > 0.
* l_up = dxvbap-netwr / dxvbap-kwmeng.
CLEAR : l_unitpr,
l_up.
l_unitpr = ( dxvbap-netwr / dxvbap-kwmeng ) / 100.
WRITE l_unitpr TO l_up NO-GROUPING DECIMALS 4. “Z29AXM ATUL
* write l_unitpr to l_up.
SHIFT l_up LEFT DELETING LEADING space.
ENDIF.
CONCATENATE c_unitpr
l_up
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
* Populate old material number
SELECT SINGLE bismt tragr
INTO (l_bismt , l_tragr)
FROM mara
WHERE matnr = dxvbap-matnr.
CONCATENATE c_smat
l_bismt
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*ENDLOOP.
* READ TABLE dxvbkd WITH KEY posnr = x_e1edp01-posex .
READ TABLE dxvbkd WITH KEY
vbeln = dxvbkd-vbeln
posnr = x_e1edp01-posex .
* l_kdkg1 = dxvbkd-kdkg1. “Freight Terms Code only
l_kdkg1 = dxvbkd-sdabw.
LOOP AT dxvbkd.
CONCATENATE c_konda “Price group code only
dxvbkd-konda
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
* Add Vehicle ID only is BATCH number is present
IF NOT dxvbap-charg IS INITIAL. ” For Batch number only
CALL FUNCTION ‘/SAPMP/CE1_BATCH_GET_DETAIL’
EXPORTING
matnr = dxvbap-matnr
charg = dxvbap-charg
werks = dxvbap-werks
get_classification = ‘X’
TABLES
* T_API_CH_ATT =
char_of_batch = t_clbatch
* EXCEPTIONS
* NO_MATERIAL = 1
* NO_BATCH = 2
* NO_PLANT = 3
* MATERIAL_NOT_FOUND = 4
* PLANT_NOT_FOUND = 5
* NO_AUTHORITY = 6
* BATCH_NOT_EXIST = 7
* OTHERS = 8
.
IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE t_clbatch WITH KEY atnam = ‘VEHICLE_ID’ .
WRITE t_clbatch-atwtb+4(8) TO
t_clbatch-atwtb+4(8) RIGHT-JUSTIFIED. “AS VEHICLE Field is 12
char.
IF sy-subrc = 0.
CONCATENATE c_vehicle “Vehicle ID
t_clbatch-atwtb
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
ENDIF.
ENDIF. “not DXVBAP-CHARG is intia
CLEAR : v_kunnr,
v_txjcd1,
v_txjcd2.
IF dxvbkd-inco2 = c_dest.
* READ TABLE dxvbpa WITH KEY posnr = x_e1edp01-posex
READ TABLE dxvbpa WITH KEY vbeln = dxvbkd-vbeln
posnr = x_e1edp01-posex
parvw = c_we.
IF sy-subrc NE 0.
* READ TABLE dxvbpa WITH KEY posnr = c_0
READ TABLE dxvbpa WITH KEY vbeln = dxvbkd-vbeln
posnr = c_0
parvw = c_we.
ENDIF.
SELECT SINGLE txjcd
INTO v_txjcd1
FROM kna1
WHERE kunnr EQ dxvbpa-kunnr.
CONCATENATE c_pos_jur
v_txjcd1
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
ELSEIF dxvbkd-inco2 = c_origin
OR dxvbkd-inco2 = c_origin_mc.
SELECT SINGLE txjcd
INTO v_txjcd2
FROM t001w
*
* WHERE werks = dxvbap-vbeln.
WHERE werks = dxvbap-werks.
CONCATENATE c_pos_jur
v_txjcd2
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
ENDIF.
*For freight terms code only
CONCATENATE c_frt_terms
l_kdkg1
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
SELECT SINGLE gbsta
lfsta
INTO (l_gbsta , l_lfsta)
FROM vbup
*
* where posnr = x_e1edp01-posex.
WHERE vbeln = dxvbap-vbeln
AND posnr = dxvbap-posnr.
IF sy-subrc = 0.
*For Overall Status code only
CONCATENATE c_ov_stat
l_gbsta
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*For delivery status code only
CONCATENATE c_del_stat
l_lfsta
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
ENDIF.
*For Material Pricing Group code only
CONCATENATE c_mat_pric
l_kondm
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*For Pricing Zone code only
CONCATENATE c_pric_zon
l_oidrc
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*For Transportation Group code only
CONCATENATE c_trans_group
l_tragr
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
*For Provisional Indicator code only
READ TABLE dikomv WITH KEY knumv = dxvbak-knumv
kposn = dxvbap-posnr
kschl = ‘ZPRV’.
IF sy-subrc = 0.
l_provi = ‘Y’.
* EXIT.
ELSE.
l_provi = ‘N’.
ENDIF.
CONCATENATE c_provi
l_provi
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
* For creator of document
CONCATENATE c_ernam
dxvbak-ernam
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
SELECT SINGLE tdlnr
INTO v_tdlnr
FROM tvro
WHERE route = dxvbap-route.
IF sy-subrc = 0.
SELECT SINGLE scacd
INTO v_scacd
FROM lfa1
WHERE lifnr = v_tdlnr.
CONCATENATE c_tdlnr
v_scacd
INTO x_e1edpt2-tdline
SEPARATED BY space.
x_e1edpt2-tdformat = ‘*’.
x_edidd-sdata = x_e1edpt2.
INSERT x_edidd INTO dint_edidd INDEX l_tabix .
ENDIF.
ENDDO.

Recent Comments