57 lines
2.1 KiB
ABAP
57 lines
2.1 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& 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.
|