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 .
DATA: ls_excel_file TYPE alsmex_tabline,
lt_cab TYPE TABLE OF alsmex_tabline,
ls_cab TYPE alsmex_tabline,
DATA: ls_excel_file TYPE zy_alsmex_tabline,
lt_cab TYPE TABLE OF zy_alsmex_tabline,
ls_cab TYPE zy_alsmex_tabline,
lv_lin_tab TYPE kcd_ex_row_n VALUE '0001',
lv_lin_cab TYPE kcd_ex_row_n VALUE '0002',
lv_lin_dados TYPE kcd_ex_row_n VALUE '0003',
@@ -192,7 +192,7 @@ FORM transf_arquivo .
*
* 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'
low = to_upper( s_campo-value ) ) ).
@@ -329,7 +329,7 @@ ENDFORM.
*& --> p1 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.
.

17
src/zbos_update_tab_i01.prog.abap
View File

@@ -5,13 +5,22 @@
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
*----------------------------------------------------------------------*
DATA: gt_cab TYPE TABLE OF alsmex_tabline,
DATA: gt_cab TYPE TABLE OF zy_alsmex_tabline,
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_02 TYPE TABLE OF /vtin/_conv_un.
@@ -19,7 +28,7 @@ DATA: gt_cab TYPE TABLE OF alsmex_tabline,
*Estruturas
*----------------------------------------------------------------------*
DATA: gs_cab TYPE alsmex_tabline.
DATA: gs_cab TYPE zy_alsmex_tabline.
*----------------------------------------------------------------------*
* Field Symbols
@@ -32,7 +41,7 @@ FIELD-SYMBOLS: <fs_g_tabela> TYPE STANDARD TABLE,
* 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_cab TYPE kcd_ex_row_n VALUE '0002',
gv_lin_dados TYPE kcd_ex_row_n VALUE '0003',