Ver Mensaje Individual
  #2  
Viejo 16/08/13, 08:50:15
manu_lolo27 manu_lolo27 is offline
Member
 
Fecha de Ingreso: mar 2008
Localización: Madrid -España
Mensajes: 90
Buenas de nuevo....

Sabia que no era dificil

Ya lo tengo, lo dejo por aqui, por si alguien algun dia tiene que hacerlo


refresh r_aufnr_aux[].
clear r_aufnr_aux.
LOOP AT object_tab WHERE selected = 'X'.
* Cargar las ordenes seleccionadas en el select-option del reporte
r_aufnr_aux-sign = 'I'.
r_aufnr_aux-option = 'EQ'.
r_aufnr_aux-low = object_tab-aufnr. "object_tab-aufnr. XIN1033 S-2008-02910
APPEND r_aufnr_aux.
CLEAR r_aufnr_aux.
endloop.

IF NOT r_aufnr_aux[] IS INITIAL.
SUBMIT ZILDR007 WITH so_AUFNR IN r_aufnr_aux AND RETURN.
ELSE.
* No se ha seleccionado ninguna orden válida.
MESSAGE s000(ih) WITH text-e04.
ENDIF.


Saludos
Manuel.
Responder Con Cita