ERPGenie.COM ABAP Tips and Tricks Database | Updating IDoc data in segments

Last 5 Contributions

5 Most Popular Contributions

Home

Sample Code

IDocs / BDocs

Updating IDoc data in segments

Written by Kevin Wilson

Tuesday, 13 February 2007

Step by step procedure on how to change Idoc data segments programmatically.

STEP 1 - Open document to edit
CALL FUNCTION 'EDI_DOCUMENT_OPEN_FOR_EDIT'
       EXPORTING
            document_number               = t_docnum
       IMPORTING
            idoc_control                  = itab_edidc
       TABLES
            idoc_data                     = itab_edidd
       EXCEPTIONS
            document_foreign_lock         = 1
            document_not_exist            = 2
            document_not_open             = 3
            status_is_unable_for_changing = 4
            OTHERS                        = 5.

STEP 2 - Loop at itab_edidd and change data
LOOP AT itab_edidd WHERE segnam = 'E1EDKA1'.
e1edka1 = itab_edidd-sdata.
IF e1edka1-parvw = 'LF'.
    e1edka1-partn = t_eikto.
    itab_edidd-sdata = e1edka1.
    MODIFY itab_edidd.
    EXIT.
ENDIF.
ENDLOOP.

STEP 3 - Change data segments
CALL FUNCTION 'EDI_CHANGE_DATA_SEGMENTS'
           TABLES
                idoc_changed_data_range = itab_edidd
           EXCEPTIONS
                idoc_not_open           = 1
                data_record_not_exist   = 2
                OTHERS                  = 3.

STEP 3a - Change control record
CALL FUNCTION 'EDI_CHANGE_CONTROL_RECORD'
       EXPORTING
            idoc_changed_control         = itab_edidc
       EXCEPTIONS
            idoc_not_open                = 1
            direction_change_not_allowed = 2
            OTHERS                       = 3.

STEP 4 - Close Idoc
* Update IDoc status
CLEAR t_itab_edids40.
t_itab_edids40-docnum      = t_docnum.
t_itab_edids40-status      = '51'.
t_itab_edids40-repid       = sy-repid.
t_itab_edids40-tabnam      = 'EDI_DS'.
t_itab_edids40-mandt       = sy-mandt.
t_itab_edids40-stamqu      = 'SAP'.
t_itab_edids40-stamid      = 'B1'.
t_itab_edids40-stamno      = '999'.
t_itab_edids40-stapa1      = 'Sold to changed to '.
t_itab_edids40-stapa2      = t_new_kunnr.
t_itab_edids40-logdat      = sy-datum.
t_itab_edids40-logtim      = sy-uzeit.
APPEND t_itab_edids40.

CALL FUNCTION 'EDI_DOCUMENT_CLOSE_EDIT'
       EXPORTING
            document_number = t_docnum
            do_commit        = 'X'
            do_update        = 'X'
            write_all_status = 'X'
       TABLES
            status_records   = t_itab_edids40
       EXCEPTIONS
            idoc_not_open    = 1
            db_error         = 2
            OTHERS           = 3.

Related Items:

< Prev		Next >

[ Back ]

Google Search

Latest Downloads

ABAP Tips - System Fields, Program Types, Screen Types, ...
(Tips and Tricks)
file icon

Developing a BAPI and Calling it with JCo
(Whitepapers)
file icon

Taking you through ALE
(Whitepapers)
file icon

SAP Order Status tables and Doc Flow table
(Tips and Tricks)
file icon

SAP Quick Viewer
(Tips and Tricks)

Popular Downloads

E-Book - ABAP Programs (1449)
file icon

ABAP Tips and Tricks (1146)
file icon

ABAP FAQ (961)
file icon

Using ALV Grid in Reports (710)
file icon

ALV Report Template (647)

Statistics

Contribution Activity
Utilities: 38
Tips and Tricks : 330
Sample Code: 164
Total Contributions: 545

Member Activity
Members: 6061 since 2/1/2007!
New: 0 since yesterday!
Visitors: 959642

Newest Members

Welcome our newest members:

ddamdoly (ddamdoly)
dnu (Doina NEAGU)
ursalien (Joe Carerra)
ppecka (Petr Pecka)
marianalarab (Mariana Lara Bottazzini)

Login

Main Menu

ABAP Resources

Registered Access

Poll