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 .
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,9 +192,9 @@ FORM transf_arquivo .
*
* ENDLOOP.
DATA(lr_campo) = VALUE ace_generic_range_t( FOR s_campo IN lt_cab ( sign = 'I'
option = 'EQ'
low = to_upper( s_campo-value ) ) ).
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 ) ) ).
* DATA lt_tabela TYPE TABLE OF dd03l.
DATA(lv_totcol) = lines( lt_cab ).
@@ -316,7 +316,7 @@ FORM carrega_dados .
ENDLOOP.
COMMIT WORK AND WAIT.
COMMIT WORK AND WAIT.
@@ -329,29 +329,29 @@ 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.
.
.
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'
EXPORTING
iv_request_types = p_type
IMPORTING
es_request = ls_request
EXCEPTIONS
invalid_request = 1
invalid_request_type = 2
user_not_owner = 3
no_objects_appended = 4
enqueue_error = 5
cancelled_by_user = 6
recursive_call = 7
OTHERS = 8.
CALL FUNCTION 'TR_REQUEST_CHOICE'
EXPORTING
iv_request_types = p_type
IMPORTING
es_request = ls_request
EXCEPTIONS
invalid_request = 1
invalid_request_type = 2
user_not_owner = 3
no_objects_appended = 4
enqueue_error = 5
cancelled_by_user = 6
recursive_call = 7
OTHERS = 8.
p_request = ls_request-trkorr.
p_request = ls_request-trkorr.
ENDFORM.

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