b.santos/SAP-ZBOS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Upadate table program actived

Browse Source
This commit is contained in:
Bruno Santos
2026-05-18 21:17:17 +00:00
parent bae21a203b
commit 2eeeb3e611
2 changed files with 39 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/zbos_update_tab_f01.prog.abap
View File

@@ -99,9 +99,9 @@ ENDFORM.
FORM transf_arquivo . FORM transf_arquivo .
DATA: ls_excel_file TYPE alsmex_tabline, DATA: ls_excel_file TYPE zy_alsmex_tabline,
lt_cab TYPE TABLE OF alsmex_tabline, lt_cab TYPE TABLE OF zy_alsmex_tabline,
ls_cab TYPE alsmex_tabline, ls_cab TYPE zy_alsmex_tabline,
lv_lin_tab TYPE kcd_ex_row_n VALUE '0001', lv_lin_tab TYPE kcd_ex_row_n VALUE '0001',
lv_lin_cab TYPE kcd_ex_row_n VALUE '0002', lv_lin_cab TYPE kcd_ex_row_n VALUE '0002',
lv_lin_dados TYPE kcd_ex_row_n VALUE '0003', lv_lin_dados TYPE kcd_ex_row_n VALUE '0003',
@@ -192,7 +192,7 @@ FORM transf_arquivo .
* *
* ENDLOOP. * ENDLOOP.
DATA(lr_campo) = VALUE ace_generic_range_t( FOR s_campo IN lt_cab ( sign = 'I' DATA(lr_campo) = VALUE swf_spi_lang_code_range_t( FOR s_campo IN lt_cab ( sign = 'I'
option = 'EQ' option = 'EQ'
low = to_upper( s_campo-value ) ) ). low = to_upper( s_campo-value ) ) ).
@@ -329,7 +329,7 @@ ENDFORM.
*& --> p1 text *& --> p1 text
*& <-- p2 text *& <-- p2 text
*&---------------------------------------------------------------------* *&---------------------------------------------------------------------*
FORM select_request USING p_type TYPE C FORM select_request USING p_type TYPE c
CHANGING p_request TYPE e071k-trkorr. CHANGING p_request TYPE e071k-trkorr.
. .

17
src/zbos_update_tab_i01.prog.abap
View File

@@ -5,13 +5,22 @@
TYPE-POOLS: abap. TYPE-POOLS: abap.
TYPES: BEGIN OF zy_alsmex_tabline,
row TYPE kcd_ex_col_n,
col TYPE kcd_ex_row_n,
value TYPE char50,
END OF zy_alsmex_tabline.
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
* Tabelas Interna * Tabelas Interna
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
DATA: gt_cab TYPE TABLE OF alsmex_tabline, DATA: gt_cab TYPE TABLE OF zy_alsmex_tabline,
gt_tabela TYPE TABLE OF dd03l, gt_tabela TYPE TABLE OF dd03l,
t_excel_file TYPE TABLE OF alsmex_tabline WITH HEADER LINE. t_excel_file TYPE TABLE OF zy_alsmex_tabline WITH HEADER LINE.
* t_arquivo_excel_01 TYPE TABLE OF /vtin/_mat_forne, * t_arquivo_excel_01 TYPE TABLE OF /vtin/_mat_forne,
* t_arquivo_excel_02 TYPE TABLE OF /vtin/_conv_un. * t_arquivo_excel_02 TYPE TABLE OF /vtin/_conv_un.
@@ -19,7 +28,7 @@ DATA: gt_cab TYPE TABLE OF alsmex_tabline,
*Estruturas *Estruturas
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
DATA: gs_cab TYPE alsmex_tabline. DATA: gs_cab TYPE zy_alsmex_tabline.
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
* Field Symbols * Field Symbols
@@ -32,7 +41,7 @@ FIELD-SYMBOLS: <fs_g_tabela> TYPE STANDARD TABLE,
* Variaveis * Variaveis
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
DATA: gv_tabela TYPE se16n_tab, DATA: gv_tabela TYPE AD_TABTYPE,
gv_lin_tab TYPE kcd_ex_row_n VALUE '0001', gv_lin_tab TYPE kcd_ex_row_n VALUE '0001',
gv_lin_cab TYPE kcd_ex_row_n VALUE '0002', gv_lin_cab TYPE kcd_ex_row_n VALUE '0002',
gv_lin_dados TYPE kcd_ex_row_n VALUE '0003', gv_lin_dados TYPE kcd_ex_row_n VALUE '0003',