Dlanor20777
05/05/14, 20:12:33
Hola amigos he creado un programa desde una grabación, se me presenta un problema ya que el programa no continua, se queda en una pantalla, si hago el proceso manual todo correo perfecto, pero al realizarlo automático se queda en la ultima pantalla y no guarda, este es el código:
LOOP AT TI_AUFK.
perform open_group.
perform bdc_dynpro using 'SAPLCOIH' '0101'.
perform bdc_field using 'BDC_CURSOR'
'CAUFVD-AUFNR'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'CAUFVD-AUFNR'
TI_AUFK-AUFNR.
perform bdc_dynpro using 'SAPLCOIH' '3000'.
perform bdc_field using 'BDC_OKCODE'
'=VERF'.
perform bdc_field using 'BDC_CURSOR'
'RESBD-MATNR(02)'.
**Selecciono todos los registros de la tabla del maestro de reserva**
select AUFNR RSNUM RSPOS
into corresponding fields of RESB
from RESB
where AUFNR eq TI_AUFK-AUFNR.
perform bdc_dynpro using 'SAPLATP4' '0500'.
perform bdc_field using 'BDC_CURSOR'
'RV03V-POSNR'.
perform bdc_field using 'BDC_OKCODE'
'=WEIT'.
endselect.
******************************************************
perform bdc_dynpro using 'SAPLCOIH' '3000'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'BDC_CURSOR'
'RESBD-MATNR(02)'.
perform bdc_transaction using 'IW3K'.
perform close_group.
ENDLOOP.
Al crear la grabación no active el check de Continuar luego de un Commit, sabrán como puedo agregarlo a este programa, no utilice el call.
Saludos.
LOOP AT TI_AUFK.
perform open_group.
perform bdc_dynpro using 'SAPLCOIH' '0101'.
perform bdc_field using 'BDC_CURSOR'
'CAUFVD-AUFNR'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'CAUFVD-AUFNR'
TI_AUFK-AUFNR.
perform bdc_dynpro using 'SAPLCOIH' '3000'.
perform bdc_field using 'BDC_OKCODE'
'=VERF'.
perform bdc_field using 'BDC_CURSOR'
'RESBD-MATNR(02)'.
**Selecciono todos los registros de la tabla del maestro de reserva**
select AUFNR RSNUM RSPOS
into corresponding fields of RESB
from RESB
where AUFNR eq TI_AUFK-AUFNR.
perform bdc_dynpro using 'SAPLATP4' '0500'.
perform bdc_field using 'BDC_CURSOR'
'RV03V-POSNR'.
perform bdc_field using 'BDC_OKCODE'
'=WEIT'.
endselect.
******************************************************
perform bdc_dynpro using 'SAPLCOIH' '3000'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'BDC_CURSOR'
'RESBD-MATNR(02)'.
perform bdc_transaction using 'IW3K'.
perform close_group.
ENDLOOP.
Al crear la grabación no active el check de Continuar luego de un Commit, sabrán como puedo agregarlo a este programa, no utilice el call.
Saludos.