LOOP AT total. " ASSIGNING <lw_line>.
lv_ind = sy-tabix.
lw_ziae = <vim_total_struc>.
IF <action> EQ 'U' OR
<action> EQ 'I'.
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.
<vim_total_struc> = lw_ziae.
MODIFY total INDEX lv_ind.
READ TABLE extract WITH KEY <vim_xtotal_key>.
IF sy-subrc = 0.
<vim_extract_struc> = <vim_total_struc>.
MODIFY extract INDEX sy-tabix.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM. "RECUPERAR_DATOS