Imprimir Datos en Tabla desde Vista Mantenimiento

[giral141]

Ola tengo una duda....
He creado una vista de mantenimiento para ir agragando entradas a la tabla personal, tengo que modificar esa vista creando un include desde la se54 para que me rellene automaticamente otro campo al seleccionar uno especifico. ...


*declaramos variables locales para lamacenar los datos
tables: t012k.
DATA: lw_zavales LIKE zavales,
lv_ind LIKE sy-tabix,
lw_t012k like t012k.

* BREAK-POINT.

*Seleccionamos los valores necesarios para asignarlos.


SELECT SINGLE hbkid bankn
FROM t012k INTO (lw_t012k-hbkid , lw_t012k-bankn)
WHERE hbkid EQ zavales-zzbancoprop.
IF sy-subrc EQ 0.

zavales-zznumecuenta = lw_t012k-bankn.


MOVE-CORRESPONDING lw_t012k TO zavales.
ENDIF.



En el debuging me lo inserta en ZAVALES....pero al ver los datos de la tabla estos no aparecen rellenados.....

Que tengo que hacer?¿?¿

[robert_milan]

te falta el insert a la tabla z.

MOVE-CORRESPONDING lw_t012k TO zavales.
insert zavales.
endif.


Saludos

[ibecerra]

o tambien puedes utilizar la sentencia
modify zavales
en el caso que quieras insertar y actualizar.

[giral141]

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

[ibecerra]

hola, si trabajas con punteros (ASSIGNING ) no necesitar actualizar la tabla extract. ya que cuando haces lo siguiente
<table2>-campoxx = 'hola'
lo modifica al instante.
mira esto
FIELD-SYMBOLS : <table2> LIKE LINE OF extract .
LOOP AT extract ASSIGNING <table2>.
*lv_ind = sy-tabix.
*lw_ziae = <table2>.

IF NOT<table2>-zzexpedient IS INITIAL.

SELECT SINGLE * FROM prps INTO lw_prps
WHERE posid EQ <table2>-zzexpedient.
IF sy-subrc EQ 0.

*Asignamos el valor de la PRPS a los valores ZIAE.
**lo valores del puntero se actualizan inmediatamente
<table2>-zzsubdireccion = lw_prps-zzsubd.
<table2>-zztecresponsabl = lw_prps-verna.
<table2>-zzdenomipep = lw_prps-post1.

move-corresponding <table2> to ziae .
modify ziae .


eso es todo.

[giral141]

Gracias Al Final Lo Ejecute Asi...

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