Guardar Registros De Alv Editable En Tablas

[lilisarment]

Hola a todos,

Ojala puedan ayudarme.

he creado un alv editable, no tengo problema con eso pero a la hora de guardar mis datos es donde tengo el problema,

Cuando quiero actualizar los nuevos registros a las 4 tablas que uso me duplica el registro y me crea uno nuevo con los datos modificados en las tablas. Lo que necesito es que me actualice solo los registros que yo modifique sobre los registros que me muestra y no quiero que me agregue un registro nuevo con los datos.

les muestro el codigo que uso para guardar:

*&---------------------------------------------------------------------*
*& Form GUARDAR_DATOS
*&---------------------------------------------------------------------*
FORM GUARDAR_DATOS.
***Estas son las 4 tablas que actualizare .
data: it_alv_zcdoctlacc_temp l ike zop3acciones OCCURS 0 WITH HEADER LINE,
wa_alv_zcdoctlacc_temp TYPE 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.

** datos anteriores = a nuevos

it_alv_zcdoctlacc_old[] = it_alv_zcdoctlacc[].


LOOP AT it_alv_zcdoctlacc INTO wa_alv_zcdoctlacc.
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.

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.
ENDIF.
ENDLOOP.
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.
*----------
Ojala puedan ayudarme.

Saludos

[jarabas]

Pon clave en la tabla, que no sea editable en el alv, si cambias cualquier cosa en el registro y no tienes clave te lo va a poner como nuevo, vamos como dices te lo duplica( cosa que no hace) ya que son distintos.

Saludos.

[lilisarment]

y en donde puedo poner la clave en la tabla o en mi alv?

podrias ponerme un ejemplo de como hacerlo?

no se si es en mi codigo o donde tendria que ponerla?


Gracias.

[luis999]

Define los campos clave de tu tabla interna y haz que estos no sean editables, luego al actualizar tu tabla z verifica mediante los campos claves si el registro existe, si existe aplicale un update y si no existe pues insertalo en tu tabla Z.

[lilisarment]

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!!!!!!!

[jhoansebastian]

Hola a todos:

Estoy intentando guardar los datos como señalan en este post, pero mi experiencia es poca. Me podrian por favor ayudar indicando en que momento del programa debo llamar el perform guardar_programa que está arriba.

Gracias.