Problema con Batch Input... Para los que saben de esto

[ElmerRodriguez]

Hola a todos..

Hice un batch input que me graba una pantalla, hasta ahi estamos bien... el problema esta, en que hay un grid en la pantalla que captura datos, entonces tengo que hacer dropdown y me copia la misma pantalla.

SAPLMGMM 4000

BDC_OKCODE =PB09
BDC_SUBSCR SAPLMGMM
BDC_SUBSCR SAPLMGD1
BDC_CURSOR MAKT-MAKTX
BDC_SUBSCR SAPLMGD1

SAPLMGMM 4110

BDC_OKCODE /00
BDC_SUBSCR SAPLMGMM
BDC_SUBSCR SAPLMGD1
BDC_SUBSCR SAPLMGD1
BDC_CURSOR RM03M-KOVBW(11)
RM03M-KOVBW(01) KOVBW_01
RM03M-KOVBW(02) KOVBW_02
RM03M-KOVBW(03) KOVBW_03
RM03M-KOVBW(04) KOVBW_04
RM03M-KOVBW(05) KOVBW_05

SAPLMGMM 4110

BDC_OKCODE /00
BDC_SUBSCR SAPLMGMM
BDC_SUBSCR SAPLMGD1
BDC_SUBSCR SAPLMGD1
BDC_CURSOR RM03M-KOVBW(11)
RM03M-KOVBW(01) KOVBW_01
RM03M-KOVBW(02) KOVBW_02
RM03M-KOVBW(03) KOVBW_03
RM03M-KOVBW(04) KOVBW_04
RM03M-KOVBW(05) KOVBW_05

SAPLMGMM 4110

BDC_OKCODE =BU
BDC_SUBSCR SAPLMGMM
BDC_SUBSCR SAPLMGD1
BDC_CURSOR MAKT-MAKTX
BDC_SUBSCR SAPLMGD1

Me graba y todo, pero sobre escribe los datos que estaban porque es la mima pantalla 4110... como puedo hacer eso?

[ibecerra]

hola , un poco complicado pero no imposible
tienes asi .. ok
RM03M-KOVBW(01) KOVBW_01

creas una varianle
cont(3) type n.

SAPLMGMM 4110

BDC_OKCODE /00
BDC_SUBSCR SAPLMGMM
BDC_SUBSCR SAPLMGD1
BDC_SUBSCR SAPLMGD1
BDC_CURSOR RM03M-KOVBW(11)

loop at tu_tabla
add 1 to cont.
RM03M-KOVBW(cont) KOVBW_01
endloop.

[ElmerRodriguez]

re

Gracias por responder...

Pero esa plantilla, no se como editarla, para hacer el loop, osea yo la veo por la lsmw, no se si trae una vista que se pueda editar la plantilla...

Si lo hay por favor dime como llego, o si quieres me mandas, documentacion, te lo agradeceria enormemente.


Saludos,

[ibecerra]

ejemplo de crear un batch input
data_itab: bdcdata bdcdata, "Batch input data of transaction
osea q definitivamente tienes q hacer un programa.

messtab bdcmsgcoll. "Collecting message in SAP system

PERFORM BDC_DYNPRO TABLES BDCDATA USING 'SAPMMPKR' '0091'.
PERFORM BDC_FIELD TABLES BDCDATA USING
'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD TABLES BDCDATA USING
'RMPKR-MATNR'
TI_DATA-MATNR.
PERFORM BDC_FIELD TABLES BDCDATA USING
'RMPKR-WERKS'
TI_DATA-WERKS.

CALL TRANSACTION 'LPK1' USING bdcdata
MODE P_MODE1
UPDATE 'S'
MESSAGES INTO messtab.



Eject
*----------------------------------------------------------------------*
* FORM bdc_dynpro *
*----------------------------------------------------------------------*
FORM bdc_dynpro TABLES bdcdata STRUCTURE bdcdata
USING program LIKE bdcdata-program
dynpro LIKE bdcdata-dynpro.
CLEAR: bdcdata.
* Initialize fields
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
* Append new record in table
APPEND bdcdata.
ENDFORM. "bdc_dynpro.
* Eject
*----------------------------------------------------------------------*
* FORM bdc_field *
*----------------------------------------------------------------------*
FORM bdc_field TABLES bdcdata STRUCTURE bdcdata
USING fnam
fval.
DATA:
nodata TYPE c VALUE '/',
fvalue LIKE bdcdata-fval.
* Checking...
CHECK fval NE nodata.
* Clear headers
CLEAR: bdcdata.
* Initialize fields
bdcdata-fnam = fnam.
bdcdata-fval = fval.
* Append new record in table
APPEND bdcdata.
ENDFORM. "bdc_field.

[ElmerRodriguez]

re

Ok... Gracias voy a probar.