Comparación de páginas

FUNCTION zfm_var_tabla3.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  IMPORTING
*"     REFERENCE(I_KEY_DOC) TYPE  /IG4SEFOL/ST_412 OPTIONAL
*"     REFERENCE(I_TMPLT) TYPE  /IG4SEFOL/DE_TMPLT OPTIONAL
*"     REFERENCE(I_IDIOMA) TYPE  /IG4SEFOL/DE_SPRAS OPTIONAL
*"     REFERENCE(IT_FIELDS) TYPE  /IG4SEFOL/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.