Ver Mensaje Individual
  #3  
Viejo 24/09/15, 18:26:23
Vanaleon Vanaleon is offline
Junior Member
 
Fecha de Ingreso: jul 2015
Mensajes: 6
Gracias!

Hola Muchas gracias al final utilice la idea que me diste del read table y sa que el select del loop.

Por si a alguien le sirve anexo el codigo final

*-> Select trae toda la tabla con las descripciones de los CC-nomina
SELECT *
FROM t512t
INTO TABLE tl_desc
WHERE sprsl = sy-langu
AND molga = vl_molga.
IF sy-subrc EQ 0.
SORT tl_desc BY lgart ASCENDING. "Ordena la tabla con las descripciones de los CC-nomina
ENDIF.

*-> Loop para separar Deducciones por cc-nomina
LOOP AT tl_t596jd INTO sl_t596jd.
LOOP AT tl_rt INTO sl_rt WHERE lgart = sl_t596jd-lgart.
*-> Read Table para obtener las descripciones de los CC-nomina
READ TABLE tl_desc INTO sl_desc
WITH KEY lgart = sl_rt-lgart BINARY SEARCH.
IF sy-subrc EQ 0.
sl_deduc-descrip = sl_desc-lgtxt.
ENDIF.
*-> Llena la tabla de deducciones
sl_deduc-tipo = sl_t596jd-sumlg(3).
sl_deduc-clave = sl_rt-lgart.
sl_deduc-exento = sl_rt-betrg.
APPEND sl_deduc TO tl_deduc.
ENDLOOP.
ENDLOOP.


Saludos.
Responder Con Cita