*&---------------------------------------------------------------------*
*& Include          ZBOS_UPDATE_TAB_I01
*&---------------------------------------------------------------------*


TYPE-POOLS: abap.

*----------------------------------------------------------------------*
* Tabelas Interna
*----------------------------------------------------------------------*

DATA: gt_cab       TYPE TABLE OF alsmex_tabline,
      gt_tabela    TYPE TABLE OF dd03l,
      t_excel_file TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
*      t_arquivo_excel_01 TYPE TABLE OF /vtin/_mat_forne,
*      t_arquivo_excel_02 TYPE TABLE OF /vtin/_conv_un.

*----------------------------------------------------------------------*
*Estruturas
*----------------------------------------------------------------------*

DATA:     gs_cab        TYPE alsmex_tabline.

*----------------------------------------------------------------------*
* Field Symbols
*----------------------------------------------------------------------*

FIELD-SYMBOLS: <fs_g_tabela> TYPE STANDARD TABLE,
               <fs_g_linha>  TYPE any.

*----------------------------------------------------------------------*
* Variaveis
*----------------------------------------------------------------------*

DATA: gv_tabela    TYPE se16n_tab,
      gv_lin_tab   TYPE kcd_ex_row_n VALUE '0001',
      gv_lin_cab   TYPE kcd_ex_row_n VALUE '0002',
      gv_lin_dados TYPE kcd_ex_row_n VALUE '0003',

      v_arqui      TYPE string,
      v_coluna(18) TYPE c,
      v_percentual TYPE f,
      v_texto(50)  TYPE c.

*----------------------------------------------------------------------*
* Constants
*----------------------------------------------------------------------*

CONSTANTS: c_col_1    TYPE i VALUE 17,      "Num de Colunas do xls TABELA 1
           c_col_2    TYPE i VALUE 20,      "Num de Colunas do xls TABELA 2
           c_lin      TYPE i VALUE 11000,   "Num de Linhas do xls
           c_path(3)  TYPE c VALUE 'C:\',
           c_mask(11) TYPE c VALUE ',*.xls,*.*.',
           c_o        TYPE c VALUE 'O',
           c_ecol     TYPE i VALUE 1,
           c_erow     TYPE i VALUE 1.