Permite definir una variable que alimentará una tabla en word.
Para esto se definirá un código programa con una interfaz del tipo:
FUNCTION zfm_var_tabla3.
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" REFERENCE(I_KEY_DOC) TYPE /EFOL/ST_412 OPTIONAL
*" REFERENCE(I_TMPLT) TYPE /EFOL/DE_TMPLT OPTIONAL
*" REFERENCE(I_IDIOMA) TYPE /EFOL/DE_SPRAS OPTIONAL
*" REFERENCE(IT_FIELDS) TYPE /EFOL/TT_032_8A OPTIONAL
*" EXPORTING
*" VALUE(E_LINEAS) TYPE NUM03
*" VALUE(E_COLUMNAS) TYPE NUM03 *" CHANGING
*" REFERENCE(TABLE) TYPE REF TO DATA
*"----------------------------------------------------------------------
FIELD-SYMBOLS <lt_importe> TYPE data.
DATA lr_table TYPE REF TO data.
DATA lt_zdatos_cli TYPE TABLE OF zdatos_cli.
DATA le_zdatos_cli TYPE zdatos_cli.
SELECT * UP TO 100 ROWS INTO CORRESPONDING FIELDS OF TABLE lt_zdatos_cli FROM zdatos_cli.
DESCRIBE TABLE lt_zdatos_cli LINES e_lineas.
e_columnas = 7.
******** assign lt_key_exp to <lt_100>.
******** get reference of <lt_100> into lr_table.
******** table = lr_table.
TYPES: BEGIN OF ty_tabla_out,
nombre TYPE string,
apellido1 TYPE string,
apellido2 TYPE string,
lugarnacimiento TYPE string,
residencia TYPE string,
nif TYPE string,
profesion TYPE string,
END OF ty_tabla_out.
TYPES: ty_tabla_out_t TYPE TABLE OF ty_tabla_out.
DATA: lt_tabla_out TYPE ty_tabla_out_t.
FIELD-SYMBOLS: <lw_cli> TYPE zdatos_cli,
<lw_table_out> TYPE ty_tabla_out,
<fs1> TYPE data,
<fs2> TYPE data.
LOOP AT lt_zdatos_cli ASSIGNING <lw_cli>.
APPEND INITIAL LINE TO lt_tabla_out ASSIGNING <lw_table_out>.
<lw_table_out>-nombre = <lw_cli>-nombr.
<lw_table_out>-apellido1 = <lw_cli>-apll1.
<lw_table_out>-apellido2 = <lw_cli>-apll2.
<lw_table_out>-lugarnacimiento = <lw_cli>-lugna.
<lw_table_out>-residencia = <lw_cli>-resid.
<lw_table_out>-nif = <lw_cli>-nif.
<lw_table_out>-profesion = <lw_cli>-profe.
ENDLOOP.
ASSIGN table->* TO <fs1>.
ASSIGN lt_tabla_out TO <fs2>.
<fs1> = <fs2>.
ENDFUNCTION. |
|---|
En el apartado tabla de la definición de la variable se pondrán los campo a definir.
