|
este es un codigo muy sencillo que puedes mirar:
REPORT zbicargadelubi
NO STANDARD PAGE HEADING LINE-SIZE 255.
INCLUDE bdcrecx1.
INITIALIZATION.
nodata = ' '.
* Tabla interna
DATA: BEGIN OF itabc OCCURS 0,
lgnum(003),
lgtyp(003),
lgpla(010),
END OF itabc.
START-OF-SELECTION.
CALL FUNCTION 'UPLOAD'
EXPORTING
filetype = 'DAT'
filetype_no_change = 'S'
TABLES
data_tab = itabc.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
PERFORM open_group.
LOOP AT itabc.
CLEAR bdcdata.
REFRESH bdcdata.
PERFORM crear.
ENDLOOP.
PERFORM close_group.
*---------------------------------------------------------------------*
* FORM CrearTrans *
*---------------------------------------------------------------------*
* Crear la Transaccion *
*---------------------------------------------------------------------*
FORM crear.
PERFORM bdc_dynpro USING 'SAPML01S' '0400'.
PERFORM bdc_field USING 'BDC_CURSOR' 'LAGP-LGPLA'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'LAGP-LGNUM' itabc-lgnum.
PERFORM bdc_field USING 'LAGP-LGTYP' itabc-lgtyp.
PERFORM bdc_field USING 'LAGP-LGPLA' itabc-lgpla.
PERFORM bdc_dynpro USING 'SAPML01S' '0400'.
PERFORM bdc_field USING 'BDC_OKCODE' '=LO'.
PERFORM bdc_transaction USING 'LS02N'.
ENDFORM.
espero te sirva
__________________
Un Huevon No Inútil 
Solo di lo que piensas, a la mejor tienes la mejor respuesta....
Si alguien ya lo hizo, copialo y cambiale las variables total es un codigo nuevo..... 
Si SAP lo hace se puede hacer, no me pidas hacer algo que SAP no ha hecho..... 
Consultor FI jr/ABAP Sr. 
|