Imprimir Datos en Tabla desde Vista Mantenimiento
 

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?¿?¿

te falta el insert a la tabla z.

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


Saludos

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

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

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.

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