• Viernes 8 de Noviembre de 2024, 17:51

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - kroatonthejoker

Páginas: [1]
1
ABAP / Problemas en Batch Input con el Scroll
« en: Miércoles 23 de Julio de 2008, 17:13 »
Buenas,

Estoy programando un Batch Input para la transacción 9KE0,  y tengo que meter un número elevado de registros en la tabla de la transacción.

El problema lo tengo porque soy incapaz de avanzar registros mediante el scroll. Si hago una grabación el código que me devuelve es '/00', el mismo que dándole al intro... sin embargo con este código lo único que se consigue es sobreescribir de nuevo la primera línea, en el caso en el que escribo de línea en línea. Si realizo la copia de 15 registros de golpe pues se sobreescriben los 15 registros, pero sigo sin avanzar la página.


Os muestro el trozo de código donde lo realizo línea a línea:
Código: Text
  1.  
  2.   PERFORM inserta USING :   'X' 'SAPLPCPP   '      '1000',
  3.                             ' ' 'RKB1S-FORM'    '8A-001',
  4.                             ' ' 'RPCAP-PLDAT'   l_fecha,
  5.                             ' ' 'RPCAP-DOCTY'   'A0',
  6.                             ' ' 'RPCAA-BUDAT'   l_fecha,
  7.                             ' ' 'BDC_OKCODE'    '=SPLN'.
  8.  
  9.   PERFORM inserta USING :   'X' 'SAPLKPP0'      '1000',
  10. *                            ' ' 'BDC_SUBSCR'    c_subscreen,
  11.                             ' ' 'KPP0B-VALUE(01)' '1000',
  12.                             ' ' 'BDC_OKCODE'    '=CSUB'.
  13.  
  14.   PERFORM inserta USING :   'X' 'SAPLKPP2'      '0103',
  15.                             ' ' 'BDC_CURSOR'    'Z-BDC02(01)',
  16.                             ' ' 'BDC_OKCODE'    '/00'.
  17.  
  18. * Introducir cada dato de la tabla en el Scroll de pantalla.
  19.   CLEAR: l_numero.
  20.   LOOP AT t_file.
  21.     PERFORM inserta USING :   'X' 'SAPLKPP2'      '0103'.
  22.     CLEAR: l_cadena.
  23.  
  24.     PERFORM inserta USING :   ' ' 'Z-BDC02(01)'   t_file-cebe.
  25.  
  26.     PERFORM inserta USING :   ' ' 'Z-BDC03(01)'   t_file-col1.
  27.  
  28.     PERFORM inserta USING :   ' ' 'Z-BDC04(01)'   t_file-col2.
  29.  
  30.     PERFORM inserta USING :   ' ' 'BDC_OKCODE'    '/00'.
  31.   ENDLOOP.
  32.  
  33.   PERFORM inserta USING :   'X' 'SAPLKPP2'      '0103'.
  34.   PERFORM inserta USING :   ' ' 'BDC_OKCODE'    '=CBUC'.
  35.  
  36.   data: itab type BDCMSGCOLL occurs 0 with header line.
  37.   CALL TRANSACTION '9KE0' USING i_bdc_tab MODE 'A'
  38.                           MESSAGES INTO itab.
  39.  
  40.  
  41. *----------------------------------------------------------------------
  42. *   FORM inserta
  43. *----------------------------------------------------------------------
  44. *   Introduce una entrada en la tabla I_BDC_TAB
  45. *----------------------------------------------------------------------
  46. FORM inserta  USING dynbegin name value.
  47.   IF dynbegin = 'X'.
  48.     CLEAR i_bdc_tab.
  49.     i_bdc_tab-program = name.
  50.     i_bdc_tab-dynpro = value.
  51.     CONDENSE i_bdc_tab-dynpro NO-GAPS.
  52.     i_bdc_tab-dynbegin = 'X'.
  53.     APPEND i_bdc_tab.
  54.   ELSE.
  55.     CLEAR i_bdc_tab.
  56.     i_bdc_tab-fnam = name.
  57.     i_bdc_tab-fval = value.
  58.     CONDENSE i_bdc_tab-fval NO-GAPS.
  59.     APPEND i_bdc_tab.
  60.   ENDIF.
  61. ENDFORM.                    "inserta
  62.  
  63.  

¿Qué solución le daríais?

Un saludo.
PD: También he probado con P+ y nada :(

Páginas: [1]