Hola a todos.
Estoy desarrollando un batch input para extender materiales de un centro a otro (Tx MM01). Hago la grabacion y genero el codigo del programa los cuales verifico no da ningun error.
Cuando se va a extender un material, el sistema abre un dynpro donde debo seleccionar las vistas que voy a considerar para la extensión del mismo (dynpro 'SAPLMGMM' '0070').
Ahora bien, para ciertos tipos de material dicho dynpro consta de hasta 25 vistas, pero éste sólo muestra 21, por lo que debo usar la flecha abajo tres veces para desplazarme hacia abajo en el dynpro y seleccionar las vistas adicionales que al principio no se mostraban.
Cuando ejecuto la grabacion finalmente me lleva a la pantalla donde me indica que todos los datos fueron transmitidos.
resultado bacth input.JPG
Sin embargo busco por la transaccion mm03 los materiales y no los encuentro en el almacen del centro que segun el batch input "Transmitio sastifactoriamente"
A continuacion el codigo.
PLEASE HELP ME!!!!! ESTO ME TIENE LOCA
_______________________________
Editado:
Titulo anterior: Batch Input POR FAVOR RESPONDES URGENTE!!!!
Estoy desarrollando un batch input para extender materiales de un centro a otro (Tx MM01). Hago la grabacion y genero el codigo del programa los cuales verifico no da ningun error.
Cuando se va a extender un material, el sistema abre un dynpro donde debo seleccionar las vistas que voy a considerar para la extensión del mismo (dynpro 'SAPLMGMM' '0070').
Ahora bien, para ciertos tipos de material dicho dynpro consta de hasta 25 vistas, pero éste sólo muestra 21, por lo que debo usar la flecha abajo tres veces para desplazarme hacia abajo en el dynpro y seleccionar las vistas adicionales que al principio no se mostraban.
Cuando ejecuto la grabacion finalmente me lleva a la pantalla donde me indica que todos los datos fueron transmitidos.
resultado bacth input.JPG
Sin embargo busco por la transaccion mm03 los materiales y no los encuentro en el almacen del centro que segun el batch input "Transmitio sastifactoriamente"
A continuacion el codigo.
PLEASE HELP ME!!!!! ESTO ME TIENE LOCA
Código:
report ZMM01_AMPLIACION
no standard page heading line-size 255.
include bdcrecx1.
****************************************************
* Parameters
****************************************************
PARAMETERS:
p_user LIKE apqi-userid OBLIGATORY DEFAULT sy-uname, "user
p_fich LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:\MM01.txt',
p_pais LIKE RMMG1-WERKS OBLIGATORY.
****************************************************
* Tabla Interna
****************************************************
DATA: begin of i_tabla occurs 0,
MATNR like RMMG1-MATNR,
LGORT like RMMG1-LGORT,
END OF i_tabla.
start-of-selection.
*/- Llamada a la funcion que obtiene el archivo
CALL FUNCTION 'UPLOAD'
EXPORTING
* filename = p_fich
filetype = 'DAT'
TABLES
data_tab = i_tabla
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5.
perform open_group.
LOOP AT i_tabla. "FROM 1.
PERFORM COLOCAR_CEROS CHANGING i_tabla-MATNR.
MODIFY i_tabla.
perform bdc_dynpro using 'SAPLMGMM' '0060'.
perform bdc_field using 'BDC_CURSOR'
'RMMG1-MTART'.
perform bdc_field using 'BDC_OKCODE'
'=AUSW'.
perform bdc_field using 'RMMG1-MATNR'
i_tabla-matnr.
perform bdc_field using 'RMMG1-MBRSH'
'P'.
perform bdc_field using 'RMMG1-MTART'
'FERT'.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(12)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'MSICHTAUSW-KZSEL(12)'
'X'.
perform bdc_dynpro using 'SAPLMGMM' '0080'.
perform bdc_field using 'BDC_CURSOR'
'RMMG1-LGORT'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'RMMG1-WERKS'
p_pais.
perform bdc_field using 'RMMG1-LGORT'
i_tabla-lgort.
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'BDC_CURSOR'
'MAKT-MAKTX'.
perform bdc_field using 'MAKT-MAKTX'
'FLUCONAZOL 200MG X 1 CAP MM R'.
perform bdc_field using 'MARA-IPRKZ'
'D'.
perform bdc_transaction using 'MM01'.
ENDLOOP.
perform close_group.
*&---------------------------------------------------------------------*
*& Form COLOCAR_CEROS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_I_TABLA_MATNR text
*----------------------------------------------------------------------*
FORM COLOCAR_CEROS CHANGING campo.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = campo
IMPORTING
output = campo.
ENDFORM. " COLOCAR_CEROS
Editado:
Titulo anterior: Batch Input POR FAVOR RESPONDES URGENTE!!!!
Comentario