FUNCTION z_idoc_input_zyzso_mt.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(INPUT_METHOD) LIKE BDWFAP_PAR-INPUTMETHD
*" VALUE(MASS_PROCESSING) LIKE BDWFAP_PAR-MASS_PROC
*" VALUE(NO_APPLICATION_LOG) LIKE SY-DATAR OPTIONAL
*" VALUE(MASSAVEINFOS) LIKE MASSSAVINF STRUCTURE MASSSAVINF
*" OPTIONAL
*" EXPORTING
*" VALUE(WORKFLOW_RESULT) LIKE BDWF_PARAM-RESULT
*" VALUE(APPLICATION_VARIABLE) LIKE BDWF_PARAM-APPL_VAR
*" VALUE(IN_UPDATE_TASK) LIKE BDWFAP_PAR-UPDATETASK
*" VALUE(CALL_TRANSACTION_DONE) LIKE BDWFAP_PAR-CALLTRANS
*" TABLES
*" IDOC_CONTRL STRUCTURE EDIDC
*" IDOC_DATA STRUCTURE EDIDD
*" IDOC_STATUS STRUCTURE BDIDOCSTAT
*" RETURN_VARIABLES STRUCTURE BDWFRETVAR
*" SERIALIZATION_INFO STRUCTURE BDI_SER
*"----------------------------------------------------------------------
INCLUDE mbdconwf.
DATA : it_emp_data1 LIKE zcustomers OCCURS 0 WITH HEADER LINE,
it_emp_data2 LIKE zsoheaders OCCURS 0 WITH HEADER LINE,
it_emp_data3 LIKE zsoitems OCCURS 0 WITH HEADER LINE.
DATA : gen_data1 LIKE zcustomers,
gen_data2 LIKE zsoheaders,
gen_data3 LIKE zsoitems.
workflow_result = c_wf_result_ok.
DATA : counter TYPE int4.
* SELECT COUNT( * ) FROM zsach1 INTO counter.
* counter = counter + 1.
LOOP AT idoc_contrl.
IF idoc_contrl-mestyp NE 'ZYZSO_MT'.
* RAISE wrong_function_called.
ENDIF.
CLEAR gen_data1.
CLEAR gen_data2.
CLEAR gen_data3.
REFRESH it_emp_data1.
REFRESH it_emp_data2.
REFRESH it_emp_data3.
LOOP AT idoc_data WHERE docnum EQ idoc_contrl-docnum.
IF idoc_data-segnam = 'ZYZSEG1'.
CLEAR it_emp_data1.
gen_data1 = idoc_data-sdata.
MOVE-CORRESPONDING gen_data1 TO it_emp_data1.
APPEND it_emp_data1.
ELSEIF idoc_data-segnam = 'ZYZSEG2'.
CLEAR it_emp_data2.
gen_data2 = idoc_data-sdata.
MOVE-CORRESPONDING gen_data2 TO it_emp_data2.
APPEND it_emp_data2.
ELSEIF idoc_data-segnam = 'ZYZSEG3'.
CLEAR it_emp_data3.
gen_data3 = idoc_data-sdata.
MOVE-CORRESPONDING gen_data3 TO it_emp_data3.
APPEND it_emp_data3.
ELSE.
MESSAGE 'ERROR' TYPE 'I'.
ENDIF.
ENDLOOP.
ENDLOOP.
INSERT zcustomers FROM TABLE it_emp_data1.
INSERT zsoheaders FROM TABLE it_emp_data2.
INSERT zsoitems FROM TABLE it_emp_data3.
*****
CALL FUNCTION 'EDI_DOCUMENT_OPEN_FOR_EDIT'
EXPORTING
document_number = idoc_data-docnum
IMPORTING
idoc_control = idoc_contrl
TABLES
idoc_data = idoc_data
EXCEPTIONS
document_foreign_lock = 1
document_not_exist = 2
document_not_open = 3
status_is_unable_for_changing = 4
OTHERS = 5.
CALL FUNCTION 'EDI_CHANGE_DATA_SEGMENTS'
TABLES
idoc_changed_data_range = idoc_data
EXCEPTIONS
idoc_not_open = 1
data_record_not_exist = 2
OTHERS = 3.
DATA t_itab_edids40 LIKE edi_ds40 OCCURS 0 WITH HEADER LINE.
CLEAR t_itab_edids40.
t_itab_edids40-docnum = idoc_data-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 = idoc_data-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.
ENDFUNCTION.
|
