|
mas o menos esta asi el show, espero me puedas ayudar
SELECTION-SCREEN BEGIN OF BLOCK file WITH FRAME TITLE text-002.
PARAMETER: filews LIKE rlgrap-filename DEFAULT 'C:\material_numserie.xls',
test AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK file.
START-OF-SELECTION.
INCLUDE zexcelatablanue.
LOOP AT data_tab INTO wa_datatab.
IF sy-tabix GE 2.
PERFORM asignacion_campos.
PERFORM bapi.
ENDIF.
ENDLOOP.
PERFORM muestra_log.
*&---------------------------------------------------------------------*
*& Form asignacion_campos
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM asignacion_campos .
REFRESH i_bdctab.
CLEAR i_bdctab.
* Rellenado del apartado Programa
i_bdctab-program = 'SAPMIEQ0'.
i_bdctab-dynpro = '0100'.
i_bdctab-dynbegin = 'X'.
APPEND i_bdctab.
* Rellenado de los campos y pulsado del boton Alta
CLEAR i_bdctab.
i_bdctab-fnam = 'RM63E-EQUNR'.
i_bdctab-fval = wa_datatab-value_0001.
APPEND i_bdctab.
CLEAR i_bdctab.
i_bdctab-fnam = 'BDC_OKCODE'.
i_bdctab-fval = '/00'.
APPEND i_bdctab.
CLEAR i_bdctab.
* Rellenado del apartado Programa
i_bdctab-program = 'SAPMIEQ0'.
i_bdctab-dynpro = '01010'.
i_bdctab-dynbegin = 'X'.
APPEND i_bdctab.
* Rellenado de los campos y pulsado del boton Alta
CLEAR i_bdctab.
* i_bdctab-fnam = 'RM63E-EQUNR'.
* i_bdctab-fval = wa_datatab-value_0001.
* APPEND i_bdctab.
* CLEAR i_bdctab.
i_bdctab-fnam = 'itob-matnr'.
i_bdctab-fval = wa_datatab-value_0002.
APPEND i_bdctab.
CLEAR i_bdctab.
* i_bdctab-fnam = 'ITOB-SERNR'.
* i_bdctab-fval = wa_datatab-value_0003.
* APPEND i_bdctab.
* CLEAR i_bdctab.
i_bdctab-fnam = 'BDC_OKCODE'.
i_bdctab-fval = '=BU'.
APPEND i_bdctab.
ENDFORM. " asignacion_campos
*&---------------------------------------------------------------------*
*& Form bapi
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM bapi .
CALL TRANSACTION 'IE02' USING i_bdctab .
COMMIT WORK.
* PERFORM log.
ENDFORM. " bapi
*&----------------------------------------------
|