De acuerdo...y si tengo que modificar el programa mediante esta secuencia...como lo tengo que realizar?¿
***----------------------------------------------------------------------*
*****INCLUDE LZIAEF01 .
***
***----------------------------------------------------------------------*
FORM recuperar_datos.
*declaramos variables locales para lamacenar los datos
DATA: lw_ziae LIKE ziae,
lv_ind LIKE sy-tabix,
lw_prps LIKE prps.
BREAK-POINT.
*Recorremos la tabla EXTRACT donde se almacena lso datos y la asignamos al a estructura
* tablles para ir cambiando.
LOOP AT extract ASSIGNING <table2>.
lv_ind = sy-tabix.
lw_ziae = <table2>.
IF NOT lw_ziae-zzexpedient IS INITIAL.
SELECT SINGLE * FROM prps INTO lw_prps
WHERE posid EQ lw_ziae-zzexpedient.
IF sy-subrc EQ 0.
*Asignamos el valor de la PRPS a los valores ZIAE.
lw_ziae-zzsubdireccion = lw_prps-zzsubd.
lw_ziae-zztecresponsabl = lw_prps-verna.
lw_ziae-zzdenomipep = lw_prps-post1.
MODIFY extract FROM <table2> .
move-corresponding lw_ziae to ziae .
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM. "RECUPERAR_DATOS
|