Bitacora SAP

Ver datos inaccesibles desde otro programa en el mismo hilo de ejecución. TYPES: BEGIN OF xvbap. INCLUDE STRUCTURE vbapvb. TYPES: END OF xvbap. TYPES: t_vbap TYPE STANDARD TABLE OF xvbap. **-- Field Symbols Declarations FIELD-SYMBOLS : TYPE ANY, TYPE ANY, TYPE t_vbap. **-- Structure Declaration for field symbols DATA : str_vbap TYPE vbap, str_vbak TYPE vbak. *Table for XVBAP DATA: lit_xvbap TYPE t_vbap. *Work area DATA: lst_xvbap TYPE xvbap. DATA: l_cepok LIKE vbap-cepok. **--- Field Symbol Declarations DATA : l_vbak(20) VALUE '(SAPMV45A)VBAK', l_vbap(20) VALUE '(SAPMV45A)VBAP', l_xvbap(20) VALUE '(SAPMV45A)XVBAP'. **---Logic to get the Sales Order Header data ASSIGN (l_vbak) TO . IF sy-subrc EQ 0. IF NOT IS INITIAL. MOVE TO str_vbak. ENDIF. ENDIF. **---Logic to get the Sales Order Item data ASSIGN (l_vbap) TO . IF sy-subrc EQ 0. IF NOT IS INITIAL. MOVE TO str_vb

data: it_hd like bapiobdlvhdrcon, it_hc like bapiobdlvhdrctrlcon, it_hds like /spe/bapiobdlvhdrconf, it_hcs like /spe/bapiobdlvhdrctrlcon, it_ret like bapiret2 occurs 0 with header line. it_hd-deliv_numb = entrega. it_hc-deliv_numb = entrega. it_hc-post_gi_flg = 'X'. it_hds-deliv_numb = entrega. it_hcs-deliv_numb = entrega. call function 'BAPI_OUTB_DELIVERY_CONFIRM_DEC' exporting header_data = it_hd header_control = it_hc delivery = entrega header_data_spl = it_hds header_control_spl = it_hcs tables return = it_ret. call function 'BAPI_TRANSACTION_COMMIT' exporting wait = 'X'.