Ver Mensaje Individual
  #7  
Viejo 17/07/08, 20:07:58
2terry1 2terry1 is offline
Junior Member
 
Fecha de Ingreso: abr 2008
Mensajes: 8
BUENO MUCHACHOS ESTA FUE LA FORMA ES LA QUE PUDE RESOLVER EL PROBLEMA ANTES PLANTEADO....
muchas gracias a las personas que me ofrecieron sus consejos... fueron de mucha ayuda.
aca les dejo el codigo! quizas les sirva de ejemplo a las personas que comienzan en este mundo como yo...

data: zvbup like table of vbup with header line.
zvbup[] = xvbup[].

Loop at XVBFA where VBELN = XLIKP-VBELN and
VBTYP_N = 'J'.
READ TABLE XVBUP WITH KEY VBELN = XVBFA-VBELN
POSNR = XVBFA-POSNN
WBSTA = 'C'.
if sy-subrc eq 0 and XVBFA-VBTYP_V = 'C'.
read table ZVBUP with key VBELN = XVBFA-VBELV
POSNR = XVBFA-POSNV.
if sy-subrc eq 0 and ZVBUP-FKSAA NE 'C'.
MESSAGE 'La entrega posee posiciones sin facturar.' TYPE 'E'.
endif.
endif.
endloop.
Responder Con Cita