batch input sobreescribe lineas

[kelaya]

Hola a todos!, quería pedir ayuda con un batch input. Al ejecutar el mismo sobre la transacción FB60 tengo que ingresarle 18 lineas, pero la dynpro me muestra sólo 10, cuando llega a tener que grabar el campo 11 me sobreescribe la primer linea, borrando lo que se había cargado primero. Podrían ayudarme que hacer??. Ya estuve indagando en el tema y probé creando un texto estándar, tb reinicializando el contador, pasar como parametro visualizacon con errores y quitar tamaño estándar de la dynpro, pero no hay cambios. Alguien me puede ayudar??? Muchas gracias!!!

[Jarpi]

Buen día Kelaya.

Mira, a mi me pasaba lo mismo, y lo resolví poniendo un "/00" al final de cada ingreso, que sería un enter. Entonces al llegar a la línea 10, cuando da el enter, automáticamente te genera una nueva linea en blanco para completar.

Eso si, lo que vas a tener que hacer es dejar el mismo número de renglón cuando llegues a esa instancia, por ejemplo ACGL_ITEM-HKONT(10), porque siempre va a ser el 10 por más que le des enter.

Espero haber sido claro y que te sirva.

Saludos.

[kelaya]

hola, acabo de probar lo que me indicas pero aun no funciona. Te dejo el codigo a ver si tu puedes ver el error. Es en el perform "tomar_ceco_orden" donde necesito añadir más campos. Mil gracias!

*Grabacion para carga automatica de valores.
PERFORM bdc_dynpro USING 'SAPLACHD' '1000'.
PERFORM bdc_field USING 'BDC_CURSOR'
'BKPF-BUKRS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field USING 'BKPF-BUKRS'
gs_file-bukrs. "'LB01'.
PERFORM bdc_dynpro USING 'SAPMF05A' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=PAYM'.
PERFORM bdc_field USING 'RF05A-BUSCS'
'R'.
PERFORM bdc_field USING 'INVFO-ACCNT'
gs_file-accnt. "'400002'.
PERFORM bdc_field USING 'INVFO-BLDAT'
gs_file-bldat."'29.07.2013'.
PERFORM bdc_field USING 'INVFO-XBLNR'
gs_file-xblnr."'Test Indicador'.
PERFORM bdc_field USING 'INVFO-BUDAT'
gs_file-budat."'31.07.2013'.
PERFORM bdc_field USING 'INVFO-WRBTR'
gs_file-wrbtr. "'1000'.
PERFORM bdc_field USING 'INVFO-WAERS'
gs_file-waers."'BRL'.

PERFORM tomar_ceco_orden USING cont
gs_file-bktxt
gs_file-xblnr

"gv_cont
CHANGING "cont1
band.
PERFORM bdc_field USING 'ACGL_ITEM-AUFNR(01)'
gs_file-aufnr."'650000084'.
PERFORM bdc_dynpro USING 'SAPMF05A' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'INVFO-ZLSCH'.
PERFORM bdc_field USING 'INVFO-ZFBDT'
gs_file-zfbdt."'29.07.2013'.
PERFORM bdc_field USING 'INVFO-ZTERM'
gs_file-zterm. "'BR01'.
* PERFORM bdc_field USING 'INVFO-ZBD1T'
* '45'.
PERFORM bdc_field USING 'INVFO-ZLSCH'
gs_file-zlsch."'D'.
PERFORM bdc_dynpro USING 'SAPMF05A' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=MORE'.
PERFORM bdc_field USING 'BDC_CURSOR'
'INVFO-ZLSCH'.
PERFORM bdc_field USING 'INVFO-ZFBDT'
gs_file-zfbdt."'31.07.2013'.
PERFORM bdc_field USING 'INVFO-ZTERM'
gs_file-zterm. "'BR01'.
PERFORM bdc_field USING 'INVFO-ZLSCH'
gs_file-zlsch."'D'.
PERFORM bdc_field USING 'INVFO-ZLSPR'
gs_file-zlspr."'G'.
PERFORM bdc_dynpro USING 'SAPMF05A' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'INVFO-BKTXT'.
PERFORM bdc_field USING 'INVFO-BKTXT'
gv_cont.
"gs_file-bktxt."'FAT_LB_0000000023'.
PERFORM bdc_dynpro USING 'SAPMF05A' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BS'.
PERFORM bdc_field USING 'BDC_CURSOR'
'INVFO-BKTXT'.
PERFORM bdc_field USING 'INVFO-BKTXT'
* INI - INDRA065 - 06.08.2013 16:58:21

PERFORM bdc_dynpro USING 'SAPMSSY0' '0120'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BU'.
PERFORM f_z_bdc_transaction USING 'FB60' gv_mode 'S' cont1
gs_file-bukrs
lv_year
gv_cont
gt_opt-dismode
gt_opt-defsize
CHANGING p_ban.
ENDIF.
ENDLOOP.


FORM tomar_ceco_orden USING p_cont
p_bktxt
p_xblnr

CHANGING "p_cont1
p_band.

FIELD-SYMBOLS: <fs_punt1> LIKE LINE OF gt_file,
<fs_file> LIKE LINE OF gt_file.
DATA lv_par TYPE string VALUE '(0'.
DATA lv_par1 TYPE string VALUE ')'.
DATA gs_file2 TYPE t_file.
DATA: lv_hkont TYPE string, "VALUE 'ACGL_ITEM-HKONT',
cont TYPE i VALUE 1,
cont1(2) TYPE c VALUE '01', "modificado carotanus indra065
band6 TYPE i VALUE 0, "modificado carotanus indra065
lv_wrbtr TYPE string," VALUE 'ACGL_ITEM-WRBTR',
lv_sgtxt TYPE string," VALUE 'ACGL_ITEM-SGTXT',
lv_kostl TYPE string," VALUE 'ACGL_ITEM-KOSTL',
lv_aufnr TYPE string," value 'ACGL_ITEM-AUFNR'.
band5 TYPE string VALUE 'FALSE'.

LOOP AT gt_file ASSIGNING <fs_file>.
* nombre de los campos que se setearan
lv_hkont = 'ACGL_ITEM-HKONT'.
lv_wrbtr = 'ACGL_ITEM-WRBTR'.
lv_sgtxt = 'ACGL_ITEM-SGTXT'.
lv_kostl = 'ACGL_ITEM-KOSTL'.
lv_aufnr = 'ACGL_ITEM-AUFNR'.

IF <fs_file> IS ASSIGNED.
*si la cabecera del texto coincide con el informado en la estructura
*se toman los datos faltantes
IF <fs_file>-bktxt EQ p_bktxt AND <fs_file>-band NE 'True'
AND ( <fs_file>-xblnr EQ p_xblnr OR <fs_file>-xblnr EQ ' ').
READ TABLE gt_file ASSIGNING <fs_punt1>"<fs_file>
INDEX p_cont.
IF <fs_punt1> IS ASSIGNED. "<fs_file>

*se forman los nombres de los campos que van a ser utilizados
CONCATENATE lv_hkont lv_par cont1 lv_par1 INTO lv_hkont.
CONCATENATE lv_wrbtr lv_par cont1 lv_par1 INTO lv_wrbtr.
CONCATENATE lv_sgtxt lv_par cont1 lv_par1 INTO lv_sgtxt.
CONCATENATE lv_kostl lv_par cont1 lv_par1 INTO lv_kostl.
CONCATENATE lv_aufnr lv_par cont1 lv_par1 INTO lv_aufnr.
*se pasan los campos que seran cargados por la fb60

IF band5 = 'TRUE'.
band6 = '1'.

PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.



ENDIF.

PERFORM bdc_field USING lv_hkont
* <fs_file>
<fs_punt1>-hkont."'615011101P'.
PERFORM bdc_field USING lv_wrbtr
* <fs_file>
<fs_punt1>-wrbtr_item."'800'.
PERFORM bdc_field USING lv_sgtxt
* <fs_file>
<fs_punt1>-sgtxt.
* Si la orden no es vacia
IF NOT <fs_punt1>-aufnr IS INITIAL.
PERFORM bdc_field USING lv_aufnr
* <fs_file>
<fs_punt1>-aufnr.
ELSE.
IF NOT <fs_punt1>-kostl IS INITIAL.
PERFORM bdc_field USING lv_kostl
* <fs_file>
<fs_punt1>-kostl.
"'1010601'.
ENDIF.
ENDIF.

* se limpian las variables usadas.
CLEAR: lv_hkont, lv_wrbtr, lv_sgtxt, lv_kostl, lv_aufnr.
p_cont = p_cont + 1.
cont1 = cont1 + 1.

IF p_cont = '11'.
band5 = 'TRUE'.
band6 = 1.

ENDIF.

IF band6 EQ '1'.
cont1 = '11'.
band6 = '0'.
CLEAR band6.
ENDIF.

ENDIF.
ELSE.
*en caso de que el doc tenga mas de un ceco para imputar y la cabecera
* de texto no sea igual se setea una bandera que controla que este dato
* sea cargado y se informe.
IF <fs_file>-bukrs EQ ' ' AND <fs_file>-bktxt NE p_bktxt.
<fs_file>-band = 'T032'.
MODIFY gt_file FROM <fs_file>.
CONTINUE.
ELSE.
IF <fs_file>-bktxt EQ p_bktxt AND
( <fs_file>-xblnr NE p_xblnr OR <fs_file>-xblnr NE ' ' ).
<fs_file>-band = 'T031'.
MODIFY gt_file FROM <fs_file>.
CONTINUE.
ENDIF.
ENDIF.
* en caso de que no sea la misma cabecera se continua
* lupeando hasta encontrar la misma.
CONTINUE.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM. " TOMAR_CECO_ORDEN

[Jarpi]

La verdad me resulta dificil darme cuenta donde está el problema sin debuggear tu programa.

Primero te diría que lo corras y le pongas A en el mode del call asi ves que es lo que está haciendo y donde puede estar el error.

A simple vista me parece que estas reiniciando el contador del renglon al llegar a 11, y la idea es que lo dejes en 10 en ese momento, ya que tu último renglón es ese.

Te pego mi código para que veas cómo lo hago yo en esa parte de la grilla, capaz te sirva.

iitem = '01'.
LOOP AT t_bi_det.

* [BEGIN] ---- Datos de Cabecera de Segunda Solapa
PERFORM dynpro USING 'X' 'SAPMF05A' '1100'.

PERFORM dynpro USING ' ' 'BDC_OKCODE' '/00'. CADA NUEVO RENGLON HAGO ESTO
PERFORM dynpro USING ' ' 'BDC_SUBSCR'
'SAPLFDCB 0020PAGE'.
* PERFORM dynpro USING ' ' 'INVFO-ZLSCH' 'Z001'.
PERFORM dynpro USING ' ' 'BDC_SUBSCR'
'SAPLFDCB 0070ADR'.
PERFORM dynpro USING ' ' 'BDC_SUBSCR'
'SAPLFSKB 0100ITEMS'.
* [ END ] ---- Datos de Cabecera de Segunda Solapa

* [BEGIN] ---- Datos de Detalle en Grilla
CONCATENATE 'ACGL_ITEM-KOSTL(' iitem ')' INTO citem.
PERFORM dynpro USING ' ' 'BDC_CURSOR' citem.

CONCATENATE 'ACGL_ITEM-HKONT(' iitem ')' INTO citem.
PERFORM dynpro USING ' ' citem t_bi_det-hkont.

IF usr01-dcpfm EQ space OR usr01-dcpfm EQ 'Y'.
REPLACE '.' WITH ',' INTO t_bi_det-dmbtr.
ENDIF.

CONCATENATE 'ACGL_ITEM-WRBTR(' iitem ')' INTO citem.
PERFORM dynpro USING ' ' citem t_bi_det-dmbtr.

CONCATENATE 'ACGL_ITEM-MWSKZ(' iitem ')' INTO citem.
PERFORM dynpro USING ' ' citem 'C0'.

CONCATENATE 'ACGL_ITEM-ZUONR(' iitem ')' INTO citem.
PERFORM dynpro USING ' ' citem t_bi_det-zuonr.

CONCATENATE 'ACGL_ITEM-SGTXT(' iitem ')' INTO citem.
PERFORM dynpro USING ' ' citem t_bi_det-sgtxt.

CONCATENATE 'ACGL_ITEM-KOSTL(' iitem ')' INTO citem.
PERFORM dynpro USING ' ' citem t_bi_det-kostl.
* [ END ] ---- Datos de Detalle en Grilla

IF iitem < 4. EN MI CASO SON 4 RENGLONES, VOS TENDRIAS QUE PONER EL VALOR 10
ADD 1 TO iitem.
ENDIF.

ENDLOOP.

[jvctaz23]

Que tal kelaya,
por que no pruebas en ves del enter "/00" colocarle el avance de pagina "=P+" cuando se llegue al limite de registros, es decir cuando llegue a insertar la posicion 9 o 10 indicarle que de un avance de pagina reiniciando el contador.

P/e:
PERFORM dynpro USING 'X' 'SAPMF05A' '1100'.

if vl_cont >= 10.

vl_cont = 1.


PERFORM dynpro USING ' ' 'BDC_OKCODE' '=P+'. " avance de página
PERFORM dynpro USING ' ' 'BDC_SUBSCR'
'SAPLFDCB 0020PAGE'.
* PERFORM dynpro USING ' ' 'INVFO-ZLSCH' 'Z001'.
PERFORM dynpro USING ' ' 'BDC_SUBSCR'
'SAPLFDCB 0070ADR'.

else.
.
.
.
endif.

[kelaya]

ya lo resolvi. Tuve que hacer lo del contador en 10 manteniendolo ahi, pero tb tuve que agregar un bdc_ok code =PAYM, que actua como si refrescara la pantalla y luego si el bdc_code = /00. Muchas gracias por sus aportes!! saludos!!

[kelaya]

Perdon era hacer un do no el bdc_okcode =PAYM. Saludos

if cont1 = 11 or cont = 11.
cont = cont + 1.
if cont = 11.
band5 = 'TRUE'.
endif.


do 3 times.
perform bdc_dynpro using 'SAPMF05A' '1100'.
perform bdc_field using 'BDC_OKCODE' '/00'.
* PERFORM bdc_field USING 'RF054A-BUSCS' 'R'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFDCB 0010PAGE'.
* PERFORM bdc_field USING 'invfo-acctn' gs_file-accnt.
* PERFORM bdc_field USING 'infvo-bldat' gs_file-bldat.
* PERFORM bdc_field USING 'invfo-xblnr' gs_file-xblnr.
* PERFORM bdc_field USING 'invfo-budat' gs_file-budat.
* PERFORM bdc_field USING 'invfo-wrbtr' gs_file-wrbtr.
perform bdc_field using 'BDC_SUBSCR' 'SAPLF0KI 0100SUBBAS01'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFMPY_E 5002SUBBAS02'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLSEXM 0200SUBBAS03'.

perform bdc_field using 'BDC_SUBSCR' 'SAPLSEXM 0200SUBBAS04'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLSEXM 0200SUBBAS05'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFDCB 0070ADR'.
perform bdc_field using 'BDC_SUBSCR' 'SAPLFSKB 0100ITEMS'.
perform bdc_field using 'BDC_CURSOR' 'ACGL_ITEM-KOSTL(10)'.
enddo.
cont1 = '10'.
endif.

[yoabapyupi]

Hola foro:

Retomo el tema...

Yo tengo aplicada la solución que se expone más arriba, es decir, cuando el tablecontrol está lleno paso el código de función que hace scroll para abrir una línea y voy insertando en la última posición del tablecontrol. Esto me funciona perfectamente con la resolución de pantalla de mi ordenador (1024* 768) pero si lo pruebo con otra resolución da error, dice que en la línea donde estoy poniendo los datos no se permiten entradas (aunque los campos están en edición). Os adjunto un hardcopy.

¿Alguien sabe como puede solucionarse esto?