From f228a1f90164b725d05673b3f19b485a4ae2a081 Mon Sep 17 00:00:00 2001 From: Santos Bruno Date: Tue, 17 Feb 2026 03:56:52 +0000 Subject: [PATCH] =?UTF-8?q?Programa=20de=20inicializa=C3=A7ao=20do=20VTIN?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/zbos_initi_vtin.prog.abap | 34 ++ src/zbos_initi_vtin.prog.xml | 21 + src/zbos_initi_vtin_f01.prog.abap | 3 + src/zbos_initi_vtin_f01.prog.xml | 20 + src/zbos_initi_vtin_i01.prog.abap | 3 + src/zbos_initi_vtin_i01.prog.xml | 20 + src/zbos_initi_vtin_scr.prog.abap | 3 + src/zbos_initi_vtin_scr.prog.xml | 20 + src/zbos_initi_vtin_start.prog.abap | 3 + src/zbos_initi_vtin_start.prog.xml | 20 + src/zbos_initi_vtin_top.prog.abap | 3 + src/zbos_initi_vtin_top.prog.xml | 20 + src/zbos_menu_request_f01.prog.abap | 9 +- src/zbos_teste.fugr.lzbos_testef00.abap | 6 + src/zbos_teste.fugr.lzbos_testef00.xml | 19 + src/zbos_teste.fugr.lzbos_testei00.abap | 5 + src/zbos_teste.fugr.lzbos_testei00.xml | 19 + src/zbos_teste.fugr.lzbos_testet00.abap | 15 + src/zbos_teste.fugr.lzbos_testet00.xml | 18 + src/zbos_teste.fugr.lzbos_testetop.abap | 5 + src/zbos_teste.fugr.lzbos_testetop.xml | 17 + src/zbos_teste.fugr.saplzbos_teste.abap | 20 + src/zbos_teste.fugr.saplzbos_teste.xml | 19 + ...zbos_teste.fugr.tableframe_zbos_teste.abap | 10 + src/zbos_teste.fugr.tableproc_zbos_teste.abap | 8 + src/zbos_teste.fugr.xml | 535 ++++++++++++++++++ src/zbos_teste.tabl.xml | 55 ++ src/zbos_testes.tobj.xml | 43 ++ 28 files changed, 971 insertions(+), 2 deletions(-) create mode 100644 src/zbos_initi_vtin.prog.abap create mode 100644 src/zbos_initi_vtin.prog.xml create mode 100644 src/zbos_initi_vtin_f01.prog.abap create mode 100644 src/zbos_initi_vtin_f01.prog.xml create mode 100644 src/zbos_initi_vtin_i01.prog.abap create mode 100644 src/zbos_initi_vtin_i01.prog.xml create mode 100644 src/zbos_initi_vtin_scr.prog.abap create mode 100644 src/zbos_initi_vtin_scr.prog.xml create mode 100644 src/zbos_initi_vtin_start.prog.abap create mode 100644 src/zbos_initi_vtin_start.prog.xml create mode 100644 src/zbos_initi_vtin_top.prog.abap create mode 100644 src/zbos_initi_vtin_top.prog.xml create mode 100644 src/zbos_teste.fugr.lzbos_testef00.abap create mode 100644 src/zbos_teste.fugr.lzbos_testef00.xml create mode 100644 src/zbos_teste.fugr.lzbos_testei00.abap create mode 100644 src/zbos_teste.fugr.lzbos_testei00.xml create mode 100644 src/zbos_teste.fugr.lzbos_testet00.abap create mode 100644 src/zbos_teste.fugr.lzbos_testet00.xml create mode 100644 src/zbos_teste.fugr.lzbos_testetop.abap create mode 100644 src/zbos_teste.fugr.lzbos_testetop.xml create mode 100644 src/zbos_teste.fugr.saplzbos_teste.abap create mode 100644 src/zbos_teste.fugr.saplzbos_teste.xml create mode 100644 src/zbos_teste.fugr.tableframe_zbos_teste.abap create mode 100644 src/zbos_teste.fugr.tableproc_zbos_teste.abap create mode 100644 src/zbos_teste.fugr.xml create mode 100644 src/zbos_teste.tabl.xml create mode 100644 src/zbos_testes.tobj.xml diff --git a/src/zbos_initi_vtin.prog.abap b/src/zbos_initi_vtin.prog.abap new file mode 100644 index 0000000..0aea66c --- /dev/null +++ b/src/zbos_initi_vtin.prog.abap @@ -0,0 +1,34 @@ +*&---------------------------------------------------------------------* +*& Report ZBOS_INITI_VTIN +*&---------------------------------------------------------------------* +*& +*&---------------------------------------------------------------------* +REPORT zbos_initi_vtin. + + +*TR_INSERT_REQUEST_WITH_TASKS + +*---------------------------------------------------------------------- +* Declarações Globais +*---------------------------------------------------------------------- +INCLUDE zbos_initi_vtin_top. + +*---------------------------------------------------------------------- +* Selection Screen +*---------------------------------------------------------------------- +INCLUDE zbos_initi_vtin_scr. + +*---------------------------------------------------------------------- +* Classes locais +*---------------------------------------------------------------------- +INCLUDE zbos_initi_vtin_i01. + +*---------------------------------------------------------------------- +* Start of Selection +*---------------------------------------------------------------------- +INCLUDE zbos_initi_vtin_start. + +*---------------------------------------------------------------------- +* Perform +*---------------------------------------------------------------------- +INCLUDE zbos_initi_vtin_f01. diff --git a/src/zbos_initi_vtin.prog.xml b/src/zbos_initi_vtin.prog.xml new file mode 100644 index 0000000..80e6f9b --- /dev/null +++ b/src/zbos_initi_vtin.prog.xml @@ -0,0 +1,21 @@ + + + + + + ZBOS_INITI_VTIN + 1 + E + X + X + + + + R + Inicializaçao do VTIN + 21 + + + + + diff --git a/src/zbos_initi_vtin_f01.prog.abap b/src/zbos_initi_vtin_f01.prog.abap new file mode 100644 index 0000000..e7b010e --- /dev/null +++ b/src/zbos_initi_vtin_f01.prog.abap @@ -0,0 +1,3 @@ +*&---------------------------------------------------------------------* +*& Include ZBOS_INITI_VTIN_F01 +*&---------------------------------------------------------------------* diff --git a/src/zbos_initi_vtin_f01.prog.xml b/src/zbos_initi_vtin_f01.prog.xml new file mode 100644 index 0000000..0e2ccce --- /dev/null +++ b/src/zbos_initi_vtin_f01.prog.xml @@ -0,0 +1,20 @@ + + + + + + ZBOS_INITI_VTIN_F01 + I + E + X + + + + R + Include ZBOS_INITI_VTIN_F01 + 27 + + + + + diff --git a/src/zbos_initi_vtin_i01.prog.abap b/src/zbos_initi_vtin_i01.prog.abap new file mode 100644 index 0000000..fc8244c --- /dev/null +++ b/src/zbos_initi_vtin_i01.prog.abap @@ -0,0 +1,3 @@ +*&---------------------------------------------------------------------* +*& Include ZBOS_INITI_VTIN_I01 +*&---------------------------------------------------------------------* diff --git a/src/zbos_initi_vtin_i01.prog.xml b/src/zbos_initi_vtin_i01.prog.xml new file mode 100644 index 0000000..89fd4bc --- /dev/null +++ b/src/zbos_initi_vtin_i01.prog.xml @@ -0,0 +1,20 @@ + + + + + + ZBOS_INITI_VTIN_I01 + I + E + X + + + + R + Include ZBOS_INITI_VTIN_I01 + 27 + + + + + diff --git a/src/zbos_initi_vtin_scr.prog.abap b/src/zbos_initi_vtin_scr.prog.abap new file mode 100644 index 0000000..a0d0758 --- /dev/null +++ b/src/zbos_initi_vtin_scr.prog.abap @@ -0,0 +1,3 @@ +*&---------------------------------------------------------------------* +*& Include ZBOS_INITI_VTIN_SCR +*&---------------------------------------------------------------------* diff --git a/src/zbos_initi_vtin_scr.prog.xml b/src/zbos_initi_vtin_scr.prog.xml new file mode 100644 index 0000000..4527607 --- /dev/null +++ b/src/zbos_initi_vtin_scr.prog.xml @@ -0,0 +1,20 @@ + + + + + + ZBOS_INITI_VTIN_SCR + I + E + X + + + + R + Include ZBOS_INITI_VTIN_SCR + 27 + + + + + diff --git a/src/zbos_initi_vtin_start.prog.abap b/src/zbos_initi_vtin_start.prog.abap new file mode 100644 index 0000000..2d6e66c --- /dev/null +++ b/src/zbos_initi_vtin_start.prog.abap @@ -0,0 +1,3 @@ +*&---------------------------------------------------------------------* +*& Include ZBOS_INITI_VTIN_START +*&---------------------------------------------------------------------* diff --git a/src/zbos_initi_vtin_start.prog.xml b/src/zbos_initi_vtin_start.prog.xml new file mode 100644 index 0000000..c47d2cc --- /dev/null +++ b/src/zbos_initi_vtin_start.prog.xml @@ -0,0 +1,20 @@ + + + + + + ZBOS_INITI_VTIN_START + I + E + X + + + + R + Include ZBOS_INITI_VTIN_START + 29 + + + + + diff --git a/src/zbos_initi_vtin_top.prog.abap b/src/zbos_initi_vtin_top.prog.abap new file mode 100644 index 0000000..5a3b27d --- /dev/null +++ b/src/zbos_initi_vtin_top.prog.abap @@ -0,0 +1,3 @@ +*&---------------------------------------------------------------------* +*& Include ZBOS_INITI_VTIN_TOP +*&---------------------------------------------------------------------* diff --git a/src/zbos_initi_vtin_top.prog.xml b/src/zbos_initi_vtin_top.prog.xml new file mode 100644 index 0000000..ac8a718 --- /dev/null +++ b/src/zbos_initi_vtin_top.prog.xml @@ -0,0 +1,20 @@ + + + + + + ZBOS_INITI_VTIN_TOP + I + E + X + + + + R + Include ZBOS_INITI_VTIN_TOP + 27 + + + + + diff --git a/src/zbos_menu_request_f01.prog.abap b/src/zbos_menu_request_f01.prog.abap index 9e42447..a48b44b 100644 --- a/src/zbos_menu_request_f01.prog.abap +++ b/src/zbos_menu_request_f01.prog.abap @@ -18,8 +18,13 @@ FORM f_processo_principal . BREAK-POINT. * DATA: lt_dados TYPE TABLE OF e071. + DATA: lv_request TYPE trkorr. - + CALL FUNCTION 'TR_REQUEST_CHOICE' + EXPORTING + iv_category = 'SYST' + IMPORTING + ev_request = lv_request. SELECT * FROM e071 INTO TABLE @DATA(lt_dados) @@ -47,7 +52,7 @@ FORM f_processo_principal . SELECT * FROM e071 INTO TABLE lt_dados2 - WHERE trkorr = 'DESK968145'. + WHERE trkorr = 'A4HK900111'. SELECT * FROM e071 diff --git a/src/zbos_teste.fugr.lzbos_testef00.abap b/src/zbos_teste.fugr.lzbos_testef00.abap new file mode 100644 index 0000000..722fe1a --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testef00.abap @@ -0,0 +1,6 @@ +*---------------------------------------------------------------------* +* view related FORM routines +*---------------------------------------------------------------------* + +* base table related FORM-routines............. +INCLUDE LSVIMFTX . diff --git a/src/zbos_teste.fugr.lzbos_testef00.xml b/src/zbos_teste.fugr.lzbos_testef00.xml new file mode 100644 index 0000000..7c0e56d --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testef00.xml @@ -0,0 +1,19 @@ + + + + + + LZBOS_TESTEF00 + X + S + D$ + I + S + E + X + D$S + X + + + + diff --git a/src/zbos_teste.fugr.lzbos_testei00.abap b/src/zbos_teste.fugr.lzbos_testei00.abap new file mode 100644 index 0000000..c265046 --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testei00.abap @@ -0,0 +1,5 @@ +*---------------------------------------------------------------------* +* view related PAI modules +*---------------------------------------------------------------------* + +INCLUDE LSVIMITX . "base table related PAI modules diff --git a/src/zbos_teste.fugr.lzbos_testei00.xml b/src/zbos_teste.fugr.lzbos_testei00.xml new file mode 100644 index 0000000..818f7bf --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testei00.xml @@ -0,0 +1,19 @@ + + + + + + LZBOS_TESTEI00 + X + S + D$ + I + S + E + X + D$S + X + + + + diff --git a/src/zbos_teste.fugr.lzbos_testet00.abap b/src/zbos_teste.fugr.lzbos_testet00.abap new file mode 100644 index 0000000..1f85508 --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testet00.abap @@ -0,0 +1,15 @@ +*---------------------------------------------------------------------* +* view related data declarations +*---------------------------------------------------------------------* +*...processing: ZBOS_TESTE......................................* +DATA: BEGIN OF STATUS_ZBOS_TESTE . "state vector + INCLUDE STRUCTURE VIMSTATUS. +DATA: END OF STATUS_ZBOS_TESTE . +CONTROLS: TCTRL_ZBOS_TESTE + TYPE TABLEVIEW USING SCREEN '0001'. +*.........table declarations:.................................* +TABLES: *ZBOS_TESTE . +TABLES: ZBOS_TESTE . + +* general table data declarations.............. + INCLUDE LSVIMTDT . diff --git a/src/zbos_teste.fugr.lzbos_testet00.xml b/src/zbos_teste.fugr.lzbos_testet00.xml new file mode 100644 index 0000000..eef8657 --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testet00.xml @@ -0,0 +1,18 @@ + + + + + + LZBOS_TESTET00 + S + D$ + I + S + E + X + D$S + X + + + + diff --git a/src/zbos_teste.fugr.lzbos_testetop.abap b/src/zbos_teste.fugr.lzbos_testetop.abap new file mode 100644 index 0000000..ddfb74b --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testetop.abap @@ -0,0 +1,5 @@ +FUNCTION-POOL ZBOS_TESTE MESSAGE-ID SV. + +* INCLUDE LZBOS_TESTED... " Local class definition + INCLUDE LSVIMDAT . "general data decl. + INCLUDE LZBOS_TESTET00 . "view rel. data dcl. diff --git a/src/zbos_teste.fugr.lzbos_testetop.xml b/src/zbos_teste.fugr.lzbos_testetop.xml new file mode 100644 index 0000000..c1c74a4 --- /dev/null +++ b/src/zbos_teste.fugr.lzbos_testetop.xml @@ -0,0 +1,17 @@ + + + + + + LZBOS_TESTETOP + S + D$ + I + S + X + D$S + X + + + + diff --git a/src/zbos_teste.fugr.saplzbos_teste.abap b/src/zbos_teste.fugr.saplzbos_teste.abap new file mode 100644 index 0000000..67422ab --- /dev/null +++ b/src/zbos_teste.fugr.saplzbos_teste.abap @@ -0,0 +1,20 @@ +******************************************************************* +* System-defined Include-files. * +******************************************************************* + INCLUDE LZBOS_TESTETOP. " Global Declarations + INCLUDE LZBOS_TESTEUXX. " Function Modules + +******************************************************************* +* User-defined Include-files (if necessary). * +******************************************************************* +* INCLUDE LZBOS_TESTEF... " Subroutines +* INCLUDE LZBOS_TESTEO... " PBO-Modules +* INCLUDE LZBOS_TESTEI... " PAI-Modules +* INCLUDE LZBOS_TESTEE... " Events +* INCLUDE LZBOS_TESTEP... " Local class implement. +* INCLUDE LZBOS_TESTET99. " ABAP Unit tests + INCLUDE LZBOS_TESTEF00 . " subprograms + INCLUDE LZBOS_TESTEI00 . " PAI modules + INCLUDE LSVIMFXX . " subprograms + INCLUDE LSVIMOXX . " PBO modules + INCLUDE LSVIMIXX . " PAI modules diff --git a/src/zbos_teste.fugr.saplzbos_teste.xml b/src/zbos_teste.fugr.saplzbos_teste.xml new file mode 100644 index 0000000..a08291a --- /dev/null +++ b/src/zbos_teste.fugr.saplzbos_teste.xml @@ -0,0 +1,19 @@ + + + + + + SAPLZBOS_TESTE + X + S + D$ + F + S + E + X + D$S + X + + + + diff --git a/src/zbos_teste.fugr.tableframe_zbos_teste.abap b/src/zbos_teste.fugr.tableframe_zbos_teste.abap new file mode 100644 index 0000000..fef08e1 --- /dev/null +++ b/src/zbos_teste.fugr.tableframe_zbos_teste.abap @@ -0,0 +1,10 @@ +*---------------------------------------------------------------------* +* program for: TABLEFRAME_ZBOS_TESTE +*---------------------------------------------------------------------* +FUNCTION TABLEFRAME_ZBOS_TESTE . + + PERFORM TABLEFRAME TABLES X_HEADER X_NAMTAB DBA_SELLIST DPL_SELLIST + EXCL_CUA_FUNCT + USING CORR_NUMBER VIEW_ACTION VIEW_NAME. + +ENDFUNCTION. diff --git a/src/zbos_teste.fugr.tableproc_zbos_teste.abap b/src/zbos_teste.fugr.tableproc_zbos_teste.abap new file mode 100644 index 0000000..00feead --- /dev/null +++ b/src/zbos_teste.fugr.tableproc_zbos_teste.abap @@ -0,0 +1,8 @@ +*---------------------------------------------------------------------* +* program for: TABLEPROC_ZBOS_TESTE +*---------------------------------------------------------------------* +FUNCTION TABLEPROC_ZBOS_TESTE . + + PERFORM TABLEPROC. + +ENDFUNCTION. diff --git a/src/zbos_teste.fugr.xml b/src/zbos_teste.fugr.xml new file mode 100644 index 0000000..128ff50 --- /dev/null +++ b/src/zbos_teste.fugr.xml @@ -0,0 +1,535 @@ + + + + + Extended Table Maintenance (Generated) + + LZBOS_TESTEF00 + LZBOS_TESTEI00 + LZBOS_TESTET00 + LZBOS_TESTETOP + SAPLZBOS_TESTE + + + + TABLEFRAME_ZBOS_TESTE + Upper-level extended table maintenance + + + VIEW_ACTION + 'S' + + + VIEW_NAME + DD02V-TABNAME + + + CORR_NUMBER + E070-TRKORR + ' ' + + + + + DBA_SELLIST + VIMSELLIST + + + DPL_SELLIST + VIMSELLIST + + + EXCL_CUA_FUNCT + VIMEXCLFUN + + + X_HEADER + VIMDESC + + + X_NAMTAB + VIMNAMTAB + + + + + MISSING_CORR_NUMBER + + + + + VIEW_ACTION + P + Aktion mit Tabelle: anz./änd./transp. (S/U/T) + + + VIEW_NAME + P + Name der Tabelle + + + CORR_NUMBER + P + Korrekturnummer für durchgeführte Änderungen + + + DBA_SELLIST + P + Selektionsbedingungen für den DB-Zugriff + + + DPL_SELLIST + P + Selektionsbedingungen für die Anzeige + + + EXCL_CUA_FUNCT + P + Tabelle mit dynam. zu deaktivierenden CUA-Funkt. + + + X_HEADER + P + Kontrollblocktabelle für die Tabelle + + + X_NAMTAB + P + Kontrollblocktabelle für die Tabellen-Felder + + + MISSING_CORR_NUMBER + X + Korrekturnummer fehlt + + + + + TABLEPROC_ZBOS_TESTE + X + Lower-level extended table maintenance + + + FCODE + 'RDED' + + + VIEW_ACTION + 'S' + + + VIEW_NAME + DD02V-TABNAME + + + CORR_NUMBER + E070-TRKORR + ' ' + + + + + LAST_ACT_ENTRY + + + UCOMM + + + UPDATE_REQUIRED + + + + + CORR_KEYTAB + E071K + + + DBA_SELLIST + VIMSELLIST + + + DPL_SELLIST + VIMSELLIST + + + EXCL_CUA_FUNCT + VIMEXCLFUN + + + EXTRACT + + + TOTAL + + + X_HEADER + VIMDESC + + + X_NAMTAB + VIMNAMTAB + + + + + MISSING_CORR_NUMBER + + + SAVING_CORRECTION_FAILED + + + + + FCODE + P + gewünschte Funktion des Bausteins + + + VIEW_ACTION + P + Aktion mit Tabelle: anz./änd./transp. (S/U/T) + + + VIEW_NAME + P + Name der Tabelle + + + CORR_NUMBER + P + Korrekturnummer für durchgeführte Änderungen + + + LAST_ACT_ENTRY + P + Index der Cursorposition in der Anzeigetabelle + + + UCOMM + P + letztes User-command innerhalb der Viewpflege + + + UPDATE_REQUIRED + P + Flag: Einträge verändert, Sichern erforderlich + + + CORR_KEYTAB + P + Tabelle mit den Keys der zu transport. Einträge + + + DBA_SELLIST + P + Selektionsbedingungen für den DB-Zugriff + + + DPL_SELLIST + P + Selektionsbedingungen für die Anzeige + + + EXCL_CUA_FUNCT + P + Tab. der nicht zu aktivierenden CUA-Funktionen + + + EXTRACT + P + Tab. der gerade sichtbaren Daten (Anzeigetabelle + + + TOTAL + P + Tabelle, mit allen von der DB gelesenen Daten + + + X_HEADER + P + Kontrollblocktabelle für die Tabelle + + + X_NAMTAB + P + Kontrollblocktabelle für die Tabellen-Felder + + + MISSING_CORR_NUMBER + X + Korrekturnummer fehlt + + + SAVING_CORRECTION_FAILED + X + Fehler beim Sichern der Korrektureinträge + + + + + + +
+ SAPLZBOS_TESTE + 0001 + E + View Maintenance: Overview Screen ZBOS_TESTE + N + 0001 + 061 + 255 +
+ + + SCREEN + SCREEN + + + TABLE_CTRL + TCTRL_ZBOS_TESTE + SCREEN + 001 + 001 + 255 + 059 + X + X + X + X + ENTRY + X + X + X + X + X + MULTIPLE + NONE + X + 001 + + + + + SCREEN + SCREEN + PUSH_TMPL + VIM_POSI_PUSH + ____________________ + 061 + 019 + 020 + 020 + 001 + POSI + CHAR + X + N + + + SCREEN + SCREEN + TEMPLATE + VIM_POSITION_INFO + ______________________________ + 061 + 040 + 030 + 030 + 001 + CHAR + X + X + X + N + <_--32_DIMENS>X + + + SCREEN + SCREEN + OKCODE + OK_CODE + ____________________ + 020 + 020 + 001 + CHAR + X + + + TABLE_CTRL + TCTRL_ZBOS_TESTE + TEMPLATE + VIM_FRAME_FIELD + ____________________________________________________________ + 001 + 060 + 060 + 001 + CHAR + X + X + N + X + + + TABLE_CTRL + TCTRL_ZBOS_TESTE + TEXT + *ZBOS_TESTE-CARRID + 001 + 001 + 040 + 003 + 001 + CHAR + X + V + N + X + + + TABLE_CTRL + TCTRL_ZBOS_TESTE + TEXT + *ZBOS_TESTE-PLANETYPE + 001 + 002 + 040 + 010 + 001 + CHAR + X + V + N + X + + + TABLE_CTRL + TCTRL_ZBOS_TESTE + CHECK + VIM_MARKED + 001 + 001 + 001 + 001 + CHAR + X + X + X + + + TABLE_CTRL + TCTRL_ZBOS_TESTE + TEMPLATE + ZBOS_TESTE-CARRID + ___ + 001 + 001 + 003 + 003 + 001 + KEY + CHAR + X + X + CAR + X + N + + + TABLE_CTRL + TCTRL_ZBOS_TESTE + TEMPLATE + ZBOS_TESTE-PLANETYPE + __________ + 001 + 002 + 010 + 010 + 001 + CHAR + X + X + X + X + + + + + PROCESS BEFORE OUTPUT. + + + MODULE LISTE_INITIALISIEREN. + + + LOOP AT EXTRACT WITH CONTROL + + + TCTRL_ZBOS_TESTE CURSOR NEXTLINE. + + + MODULE LISTE_SHOW_LISTE. + + + ENDLOOP. + + + * + + + PROCESS AFTER INPUT. + + + MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND. + + + MODULE LISTE_BEFORE_LOOP. + + + LOOP AT EXTRACT. + + + MODULE LISTE_INIT_WORKAREA. + + + CHAIN. + + + FIELD ZBOS_TESTE-CARRID . + + + FIELD ZBOS_TESTE-PLANETYPE . + + + MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST. + + + ENDCHAIN. + + + FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX. + + + CHAIN. + + + FIELD ZBOS_TESTE-CARRID . + + + MODULE LISTE_UPDATE_LISTE. + + + ENDCHAIN. + + + ENDLOOP. + + + MODULE LISTE_AFTER_LOOP. + + + + + + + diff --git a/src/zbos_teste.tabl.xml b/src/zbos_teste.tabl.xml new file mode 100644 index 0000000..76ac907 --- /dev/null +++ b/src/zbos_teste.tabl.xml @@ -0,0 +1,55 @@ + + + + + + ZBOS_TESTE + E + TRANSP + X + teste + C + 1 + + + ZBOS_TESTE + A + 0 + APPL0 + X + N + + + + MANDT + X + MANDT + 0 + X + E + + + CARRID + X + S_CARR_ID + 0 + X + D + E + + + PLANETYPE + S_PLANETYE + 0 + E + + + + + ZBOS_TESTE + &NC& + + + + + diff --git a/src/zbos_testes.tobj.xml b/src/zbos_testes.tobj.xml new file mode 100644 index 0000000..c84043c --- /dev/null +++ b/src/zbos_testes.tobj.xml @@ -0,0 +1,43 @@ + + + + + + ZBOS_TESTE + S + X + CUST + 2 + 3 + + + E + ZBOS_TESTE + S + teste + + + + ZBOS_TESTE + S + ZBOS_TESTE + X + X + + + + + ZBOS_TESTE + &NC& + + + ZBOS_TESTE + ZBOS_TESTE + 1 + 0001 + X + + + + +