Ver Mensaje Individual
  #5  
Viejo 14/05/10, 23:05:17
lilisarment lilisarment is offline
Junior Member
 
Fecha de Ingreso: abr 2009
Mensajes: 12
Smile Alv

Ufff no pense que contestaran tan rapido.

Agradezco su ayuda. si me survio!!!!!!

les pongo el codigo para que vean como lo realice:


*&---------------------------------------------------------------------*
*& Form GUARDAR_DATOS
*&---------------------------------------------------------------------*
FORM GUARDAR_DATOS.
data: it_alv_zcdoctlacc_temp type zop3acciones OCCURS 0 WITH HEADER LINE,
wa_alv_zcdoctlacc_temp LIKE zop3acciones,
it_alv_zcdoctlacc1_temp like zop3dndp OCCURS 0 WITH HEADER LINE,
wa_alv_zcdoctlacc1_temp TYPE zop3dndp,
it_alv_zcdoctlacc2_temp like zop3ndp OCCURS 0 WITH HEADER LINE,
wa_alv_zcdoctlacc2_temp TYPE zop3ndp,
it_alv_zcdoctlacc3_temp like zPRO OCCURS 0 WITH HEADER LINE,
wa_alv_zcdoctlacc3_temp TYPE zPRO,
it_alv_zcdoctlacc4_temp like ZCTOCOSTOS OCCURS 0 WITH HEADER LINE,
wa_alv_zcdoctlacc4_temp TYPE ZCTOCOSTOS.

try.
clear: it_alv_zcdoctlacc_temp.
clear: it_alv_zcdoctlacc1_temp.
clear: it_alv_zcdoctlacc2_temp.
clear: it_alv_zcdoctlacc3_temp.
clear: wa_alv_zcdoctlacc3_temp.
clear: wa_alv_zcdoctlacc4_temp.
** datos anteriores = a nuevos
it_alv_zcdoctlacc_old[] = it_alv_zcdoctlacc[].

LOOP AT it_alv_zcdoctlacc INTO wa_alv_zcdoctlacc.

READ TABLE it_alv_zcdoctlacc INTO wa_alv_zcdoctlacc
WITH TABLE KEY folioref = it_alv_zcdoctlacc-folioref
numerok = it_alv_zcdoctlacc-numerok
numeroz = it_alv_zcdoctlacc-numeroz
ff = it_alv_zcdoctlacc-ff
cp = it_alv_zcdoctlacc-cp
depend = it_alv_zcdoctlacc-depend
prog = it_alv_zcdoctlacc-prog
descaccion = it_alv_zcdoctlacc-descaccion
munic = it_alv_zcdoctlacc-munic
localida = it_alv_zcdoctlacc-localida
idcompo = it_alv_zcdoctlacc-idcompo.
MOVE-CORRESPONDING:
wa_alv_zcdoctlacc TO wa_alv_zcdoctlacc_temp,
wa_alv_zcdoctlacc TO wa_alv_zcdoctlacc1_temp,
wa_alv_zcdoctlacc TO wa_alv_zcdoctlacc2_temp,
wa_alv_zcdoctlacc TO wa_alv_zcdoctlacc3_temp,
wa_alv_zcdoctlacc TO wa_alv_zcdoctlacc4_temp.
IF NOT wa_alv_zcdoctlacc_temp IS INITIAL.
APPEND wa_alv_zcdoctlacc_temp TO it_alv_zcdoctlacc_temp.
APPEND wa_alv_zcdoctlacc1_temp TO it_alv_zcdoctlacc1_temp.
APPEND wa_alv_zcdoctlacc2_temp TO it_alv_zcdoctlacc2_temp.
APPEND wa_alv_zcdoctlacc3_temp TO it_alv_zcdoctlacc3_temp.
APPEND wa_alv_zcdoctlacc4_temp TO it_alv_zcdoctlacc4_temp.
clear: wa_alv_zcdoctlacc_temp.
clear: wa_alv_zcdoctlacc1_temp.
clear: wa_alv_zcdoctlacc2_temp.
clear: wa_alv_zcdoctlacc3_temp.
clear: wa_alv_zcdoctlacc4_temp.
ENDIF.
ENDLOOP.
MODIFY zop3acciones from table it_alv_zcdoctlacc_temp.
MODIFY zop3dndp FROM TABLE it_alv_zcdoctlacc1_temp.
MODIFY zop3ndp FROM TABLE it_alv_zcdoctlacc2_temp.
MODIFY zPRO FROM TABLE it_alv_zcdoctlacc3_temp.
MODIFY ZCTOCOSTOS FROM TABLE it_alv_zcdoctlacc4_temp.

clear: it_alv_zcdoctlacc.
clear: it_alv_zcdoctlacc_temp.
clear: it_alv_zcdoctlacc1_temp.
clear: it_alv_zcdoctlacc2_temp.
clear: it_alv_zcdoctlacc3_temp.
clear: it_alv_zcdoctlacc4_temp.

ENDTRY.
ENDFORM.


Muchas gracias!!!!!!!
Responder Con Cita