Bitacora SAP

Al momento de llamar la función... Agregar i_callback_user_command = 'DOUBLE_CLIK' CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid i_callback_user_command = 'DOUBLE_CLIK' i_callback_top_of_page = 'F0020_TOP_OF_PAGE' i_save = 'A' is_variant = w_var is_layout = wa_layout it_sort = i_sort it_fieldcat = i_fieldcat TABLES t_outtab = i_output EXCEPTIONS program_error = 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. Luego agregar el metodo. FORM double_clik USING command LIKE sy-ucomm selfield TYPE slis_selfield. CASE command. WHEN '&IC1' . READ

RV80HGEN Este programa se corre para que genere los programas control de las formulas nuevas que se agregan a SAP.

http://enjoyops.de/interessantes/index/en/badis/badi_c_en.php5?reload=y&rf=http://www.google.com.do/url?sa=t!!rct=j!!q=badi%20modify%20material%20ledger%20documents!!source=web!!cd=3!!ved=0CC8QFjAC!!url=http%3A%2F%2Fenjoyops.de%2Finteressantes%2Findex%2Fen%2Fbadis%2Fbadi_c_en.php5!!ei=XOK7Toi5Hubm0QGKuMnYCQ!!usg=AFQjCNHrFmYFX7OkdQ2HcV8p0jTpQ2S8aQ!!sig2=O5SimEaDZI-4m4SdLWfgww!!cad=rja

AC_DOCUMENT

Implementación SE19 BADI [LE_SHP_DELIVERY_PROC] Métodos CHANGE_FCODE_ATTRIBUTES CHANGE_FIELD_ATTRIBUTES READ_DELIVERY INITIALIZE_DELIVERY CHECK_ITEM_DELETION ITEM_DELETION DELIVERY_DELETION DELIVERY_FINAL_CHECK SAVE_AND_PUBLISH_DOCUMENT SAVE_DOCUMENT_PREPARE DOCUMENT_NUMBER_PUBLISH FILL_DELIVERY_HEADER FILL_DELIVERY_ITEM CHANGE_DELIVERY_HEADER CHANGE_DELIVERY_ITEM PUBLISH_DELIVERY_ITEM SAVE_AND_PUBLISH_BEFORE_OUTPUT BADI [LE_SHP_GOODSMOVEMENT] Métodos CHANGE_INPUT_HEADER_AND_ITEMS

Creación de función SM37 function zsd_create_mov_merc. *"---------------------------------------------------------------------- *"*"Interfase local *" IMPORTING *" VALUE(FECHA_CONTAB) TYPE BUDAT *" VALUE(FECHA_CREACION) TYPE BLDAT *" VALUE(DOCUMENTO_REF) TYPE XBLNR *" VALUE(HACER_COMMIT) TYPE BOOLEAN OPTIONAL *" EXPORTING *" VALUE(GOODSMVT_HEADRET) LIKE BAPI2017_GM_HEAD_RET STRUCTURE *" BAPI2017_GM_HEAD_RET *" VALUE(MATERIALDOCUMENT) TYPE BAPI2017_GM_HEAD_RET-MAT_DOC *" VALUE(MATDOCUMENTYEAR) TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR *" TABLES *" ITEMS STRUCTURE BAPI2017_GM_ITEM_CREATE *" SERIAL STRUCTURE BAPI2017_GM_SERIALNUMBER OPTIONAL *" RETURN STRUCTURE BAPIRET2 *"---------------------------------------------------------------------- data: goodsmvt_header like bapi2017_gm_head_01, goodsmvt_code like bapi2017_gm_code. goodsmv

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'.

Implementar este fragmento de código para ajustar un progress bar a nuestro programa. DESCRIBE TABLE it_bkpf lines wtotal. ctotal1 = wtotal. if sy-tfill > 0. *&---------------------------------------------------------------------* *& En esta parte empieza lo del Reloj * *&---------------------------------------------------------------------* porcentaje1 = ( sy-tabix * 100 ) / wtotal. cindex1 = sy-tabix. concatenate text-m01 cindex1 ' de ' ctotal1 into msg. if sy-batch <> 'X'. call function 'SAPGUI_PROGRESS_INDICATOR' exporting percentage = porcentaje1 text = msg. endif. **&-------------------------------------- endif.