From 2eeeb3e6115be768a436bd719ad0bdaf85875160 Mon Sep 17 00:00:00 2001
From: Santos Bruno <b_santos@outlook.com>
Date: Mon, 18 May 2026 21:17:17 +0000
Subject: [PATCH] Upadate table program actived

---
 src/zbos_update_tab_f01.prog.abap | 52 +++++++++++++++----------------
 src/zbos_update_tab_i01.prog.abap | 17 +++++++---
 2 files changed, 39 insertions(+), 30 deletions(-)

diff --git a/src/zbos_update_tab_f01.prog.abap b/src/zbos_update_tab_f01.prog.abap
index 064b5c7..ec5bcb9 100644
--- a/src/zbos_update_tab_f01.prog.abap
+++ b/src/zbos_update_tab_f01.prog.abap
@@ -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.
diff --git a/src/zbos_update_tab_i01.prog.abap b/src/zbos_update_tab_i01.prog.abap
index 8781806..c4cd65b 100644
--- a/src/zbos_update_tab_i01.prog.abap
+++ b/src/zbos_update_tab_i01.prog.abap
@@ -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',