Carga por Batch Input

[tabi.rivero]

Hola a todos.
Estoy haciendo un programita por Call Transaction, pero me queda la duda en cuanto si lo estoy haciendo bien. He leido manuales y me dice que puedo verificar si ha hecho la carga tanto en la misma transacción como desde la Se11.
He intentado ambos, pero me dice que ya esta creado el acreedor.

Esto es lo que tengo:

REPORT ybatch04 NO STANDARD PAGE HEADING LINE-SIZE 255.

*INCLUDE bdcrecx1.

* Batchinputdata of single transaction
DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
* Messages of call transaction
DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

* Declaración de tipos.
TYPES: BEGIN OF ty_datos,
name1 LIKE lfa1-name1,
sortl LIKE lfa1-sortl,
land1 LIKE lfa1-land1,
spras LIKE lfa1-spras,
END OF ty_datos.


* Declaración de tabla interna.
DATA: lt_datos TYPE STANDARD TABLE OF ty_datos WITH HEADER LINE.


* Declaración de variable.
DATA: lv_filename TYPE string.


* Pantalla de selección.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: pa_file LIKE ibipparms-path.
SELECTION-SCREEN: END OF BLOCK b1.


* Pedir ruta y archivo.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = pa_file.

START-OF-SELECTION.

lv_filename = pa_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = lv_filename
filetype = 'ASC'
has_field_separator = 'X'
TABLES
data_tab = lt_datos
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


LOOP AT lt_datos.
CLEAR: bdcdata.
REFRESH: bdcdata, messtab.

* Dynpro 1.
PERFORM bdc_dynpro USING 'SAPMF02K' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF02K-KTOKK'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RF02K-LIFNR'
* record-lifnr_001.
'10393'.
PERFORM bdc_field USING 'RF02K-KTOKK'
* record-ktokk_002.
'0001'.


* Dynpro 2.
PERFORM bdc_dynpro USING 'SAPMF02K' '0110'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFA1-SPRAS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=UPDA'.
PERFORM bdc_field USING 'LFA1-NAME1'
* record-name1_003.
lt_datos-name1.
PERFORM bdc_field USING 'LFA1-SORTL'
* record-sortl_004.
lt_datos-sortl.
PERFORM bdc_field USING 'LFA1-LAND1'
* record-land1_005.
lt_datos-land1.
PERFORM bdc_field USING 'LFA1-SPRAS'
* record-spras_006.
lt_datos-spras.


* Llamar de Transacción.
CALL TRANSACTION 'XK01' USING bdcdata
MODE 'A'
UPDATE 'P'
MESSAGES INTO messtab.


* Mensajes de Resultado.
READ TABLE messtab WITH KEY msgtyp = 'E'.
IF sy-subrc EQ 0.
* Caso Error.
WRITE: / 'Error'.
ELSE.
READ TABLE messtab WITH KEY msgtyp = 'S'.
IF sy-subrc EQ 0.
* Caso correcto.
WRITE: / 'Hola', messtab-msgv1.
ENDIF.
ENDIF.
ENDLOOP.


*&---------------------------------------------------------------------*
*& Form bdc_dynpro
*&---------------------------------------------------------------------*
* Start new screen
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM. "BDC_DYNPRO


*&---------------------------------------------------------------------*
*& Form bdc_field
*&---------------------------------------------------------------------*
* Insert field
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
IF fval IS NOT INITIAL.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDIF.
ENDFORM. "BDC_FIELD


Alguien que me pueda ayudar??
Se los agradeceré


saluditos

[ABellamy]

te voy a dar unas pistas, así como me hacían a mí los Senior

que onda con estas líneas??
PERFORM bdc_field USING 'RF02K-LIFNR'
* record-lifnr_001.
'10393'.
PERFORM bdc_field USING 'RF02K-KTOKK'
* record-ktokk_002.
'0001'.

y además, que pex con tu tabla interna? cuántos campos tienes en tu excel??
checa eso. además, pon un break en el parameters, en tu variable lv_filename (después del start-of-selection) y uno en tu LOOP

nos comentas que paso