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

52
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,9 +192,9 @@ 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 ) ) ).
* DATA lt_tabela TYPE TABLE OF dd03l. * DATA lt_tabela TYPE TABLE OF dd03l.
DATA(lv_totcol) = lines( lt_cab ). DATA(lv_totcol) = lines( lt_cab ).
@@ -316,7 +316,7 @@ FORM carrega_dados .
ENDLOOP. ENDLOOP.
COMMIT WORK AND WAIT. COMMIT WORK AND WAIT.
@@ -329,29 +329,29 @@ 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.
. .
TYPE-POOLS: trwbo. TYPE-POOLS: trwbo.
DATA: ls_request TYPE trwbo_request_header. DATA: ls_request TYPE trwbo_request_header.
CALL FUNCTION 'TR_REQUEST_CHOICE' CALL FUNCTION 'TR_REQUEST_CHOICE'
EXPORTING EXPORTING
iv_request_types = p_type iv_request_types = p_type
IMPORTING IMPORTING
es_request = ls_request es_request = ls_request
EXCEPTIONS EXCEPTIONS
invalid_request = 1 invalid_request = 1
invalid_request_type = 2 invalid_request_type = 2
user_not_owner = 3 user_not_owner = 3
no_objects_appended = 4 no_objects_appended = 4
enqueue_error = 5 enqueue_error = 5
cancelled_by_user = 6 cancelled_by_user = 6
recursive_call = 7 recursive_call = 7
OTHERS = 8. OTHERS = 8.
p_request = ls_request-trkorr. p_request = ls_request-trkorr.
ENDFORM. ENDFORM.

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',