Programa de inicializaçao do VTIN

This commit is contained in:
2026-02-17 03:56:52 +00:00
parent 71ffc4926c
commit f228a1f901
28 changed files with 971 additions and 2 deletions

View File

@@ -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.

View File

@@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZBOS_INITI_VTIN</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Inicializaçao do VTIN</ENTRY>
<LENGTH>21</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -0,0 +1,3 @@
*&---------------------------------------------------------------------*
*& Include ZBOS_INITI_VTIN_F01
*&---------------------------------------------------------------------*

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZBOS_INITI_VTIN_F01</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZBOS_INITI_VTIN_F01</ENTRY>
<LENGTH>27</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -0,0 +1,3 @@
*&---------------------------------------------------------------------*
*& Include ZBOS_INITI_VTIN_I01
*&---------------------------------------------------------------------*

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZBOS_INITI_VTIN_I01</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZBOS_INITI_VTIN_I01</ENTRY>
<LENGTH>27</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -0,0 +1,3 @@
*&---------------------------------------------------------------------*
*& Include ZBOS_INITI_VTIN_SCR
*&---------------------------------------------------------------------*

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZBOS_INITI_VTIN_SCR</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZBOS_INITI_VTIN_SCR</ENTRY>
<LENGTH>27</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -0,0 +1,3 @@
*&---------------------------------------------------------------------*
*& Include ZBOS_INITI_VTIN_START
*&---------------------------------------------------------------------*

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZBOS_INITI_VTIN_START</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZBOS_INITI_VTIN_START</ENTRY>
<LENGTH>29</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -0,0 +1,3 @@
*&---------------------------------------------------------------------*
*& Include ZBOS_INITI_VTIN_TOP
*&---------------------------------------------------------------------*

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZBOS_INITI_VTIN_TOP</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZBOS_INITI_VTIN_TOP</ENTRY>
<LENGTH>27</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -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

View File

@@ -0,0 +1,6 @@
*---------------------------------------------------------------------*
* view related FORM routines
*---------------------------------------------------------------------*
* base table related FORM-routines.............
INCLUDE LSVIMFTX .

View File

@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZBOS_TESTEF00</NAME>
<SQLX>X</SQLX>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -0,0 +1,5 @@
*---------------------------------------------------------------------*
* view related PAI modules
*---------------------------------------------------------------------*
INCLUDE LSVIMITX . "base table related PAI modules

View File

@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZBOS_TESTEI00</NAME>
<SQLX>X</SQLX>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -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 .

View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZBOS_TESTET00</NAME>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -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.

View File

@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZBOS_TESTETOP</NAME>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -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

View File

@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>SAPLZBOS_TESTE</NAME>
<SQLX>X</SQLX>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>F</SUBC>
<APPL>S</APPL>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

View File

@@ -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.

View File

@@ -0,0 +1,8 @@
*---------------------------------------------------------------------*
* program for: TABLEPROC_ZBOS_TESTE
*---------------------------------------------------------------------*
FUNCTION TABLEPROC_ZBOS_TESTE .
PERFORM TABLEPROC.
ENDFUNCTION.

535
src/zbos_teste.fugr.xml Normal file
View File

@@ -0,0 +1,535 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_FUGR" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<AREAT>Extended Table Maintenance (Generated)</AREAT>
<INCLUDES>
<SOBJ_NAME>LZBOS_TESTEF00</SOBJ_NAME>
<SOBJ_NAME>LZBOS_TESTEI00</SOBJ_NAME>
<SOBJ_NAME>LZBOS_TESTET00</SOBJ_NAME>
<SOBJ_NAME>LZBOS_TESTETOP</SOBJ_NAME>
<SOBJ_NAME>SAPLZBOS_TESTE</SOBJ_NAME>
</INCLUDES>
<FUNCTIONS>
<item>
<FUNCNAME>TABLEFRAME_ZBOS_TESTE</FUNCNAME>
<SHORT_TEXT>Upper-level extended table maintenance</SHORT_TEXT>
<IMPORT>
<RSIMP>
<PARAMETER>VIEW_ACTION</PARAMETER>
<DEFAULT>&apos;S&apos;</DEFAULT>
</RSIMP>
<RSIMP>
<PARAMETER>VIEW_NAME</PARAMETER>
<DBFIELD>DD02V-TABNAME</DBFIELD>
</RSIMP>
<RSIMP>
<PARAMETER>CORR_NUMBER</PARAMETER>
<DBFIELD>E070-TRKORR</DBFIELD>
<DEFAULT>&apos; &apos;</DEFAULT>
</RSIMP>
</IMPORT>
<TABLES>
<RSTBL>
<PARAMETER>DBA_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>DPL_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<DBSTRUCT>VIMEXCLFUN</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>X_HEADER</PARAMETER>
<DBSTRUCT>VIMDESC</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>X_NAMTAB</PARAMETER>
<DBSTRUCT>VIMNAMTAB</DBSTRUCT>
</RSTBL>
</TABLES>
<EXCEPTION>
<RSEXC>
<EXCEPTION>MISSING_CORR_NUMBER</EXCEPTION>
</RSEXC>
</EXCEPTION>
<DOCUMENTATION>
<RSFDO>
<PARAMETER>VIEW_ACTION</PARAMETER>
<KIND>P</KIND>
<STEXT>Aktion mit Tabelle: anz./änd./transp. (S/U/T)</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>VIEW_NAME</PARAMETER>
<KIND>P</KIND>
<STEXT>Name der Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>CORR_NUMBER</PARAMETER>
<KIND>P</KIND>
<STEXT>Korrekturnummer für durchgeführte Änderungen</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DBA_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für den DB-Zugriff</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DPL_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für die Anzeige</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<KIND>P</KIND>
<STEXT>Tabelle mit dynam. zu deaktivierenden CUA-Funkt.</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_HEADER</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_NAMTAB</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabellen-Felder</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>MISSING_CORR_NUMBER</PARAMETER>
<KIND>X</KIND>
<STEXT>Korrekturnummer fehlt</STEXT>
</RSFDO>
</DOCUMENTATION>
</item>
<item>
<FUNCNAME>TABLEPROC_ZBOS_TESTE</FUNCNAME>
<GLOBAL_FLAG>X</GLOBAL_FLAG>
<SHORT_TEXT>Lower-level extended table maintenance</SHORT_TEXT>
<IMPORT>
<RSIMP>
<PARAMETER>FCODE</PARAMETER>
<DEFAULT>&apos;RDED&apos;</DEFAULT>
</RSIMP>
<RSIMP>
<PARAMETER>VIEW_ACTION</PARAMETER>
<DEFAULT>&apos;S&apos;</DEFAULT>
</RSIMP>
<RSIMP>
<PARAMETER>VIEW_NAME</PARAMETER>
<DBFIELD>DD02V-TABNAME</DBFIELD>
</RSIMP>
<RSIMP>
<PARAMETER>CORR_NUMBER</PARAMETER>
<DBFIELD>E070-TRKORR</DBFIELD>
<DEFAULT>&apos; &apos;</DEFAULT>
</RSIMP>
</IMPORT>
<EXPORT>
<RSEXP>
<PARAMETER>LAST_ACT_ENTRY</PARAMETER>
</RSEXP>
<RSEXP>
<PARAMETER>UCOMM</PARAMETER>
</RSEXP>
<RSEXP>
<PARAMETER>UPDATE_REQUIRED</PARAMETER>
</RSEXP>
</EXPORT>
<TABLES>
<RSTBL>
<PARAMETER>CORR_KEYTAB</PARAMETER>
<DBSTRUCT>E071K</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>DBA_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>DPL_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<DBSTRUCT>VIMEXCLFUN</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>EXTRACT</PARAMETER>
</RSTBL>
<RSTBL>
<PARAMETER>TOTAL</PARAMETER>
</RSTBL>
<RSTBL>
<PARAMETER>X_HEADER</PARAMETER>
<DBSTRUCT>VIMDESC</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>X_NAMTAB</PARAMETER>
<DBSTRUCT>VIMNAMTAB</DBSTRUCT>
</RSTBL>
</TABLES>
<EXCEPTION>
<RSEXC>
<EXCEPTION>MISSING_CORR_NUMBER</EXCEPTION>
</RSEXC>
<RSEXC>
<EXCEPTION>SAVING_CORRECTION_FAILED</EXCEPTION>
</RSEXC>
</EXCEPTION>
<DOCUMENTATION>
<RSFDO>
<PARAMETER>FCODE</PARAMETER>
<KIND>P</KIND>
<STEXT>gewünschte Funktion des Bausteins</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>VIEW_ACTION</PARAMETER>
<KIND>P</KIND>
<STEXT>Aktion mit Tabelle: anz./änd./transp. (S/U/T)</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>VIEW_NAME</PARAMETER>
<KIND>P</KIND>
<STEXT>Name der Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>CORR_NUMBER</PARAMETER>
<KIND>P</KIND>
<STEXT>Korrekturnummer für durchgeführte Änderungen</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>LAST_ACT_ENTRY</PARAMETER>
<KIND>P</KIND>
<STEXT>Index der Cursorposition in der Anzeigetabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>UCOMM</PARAMETER>
<KIND>P</KIND>
<STEXT>letztes User-command innerhalb der Viewpflege</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>UPDATE_REQUIRED</PARAMETER>
<KIND>P</KIND>
<STEXT>Flag: Einträge verändert, Sichern erforderlich</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>CORR_KEYTAB</PARAMETER>
<KIND>P</KIND>
<STEXT>Tabelle mit den Keys der zu transport. Einträge</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DBA_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für den DB-Zugriff</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DPL_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für die Anzeige</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<KIND>P</KIND>
<STEXT>Tab. der nicht zu aktivierenden CUA-Funktionen</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>EXTRACT</PARAMETER>
<KIND>P</KIND>
<STEXT>Tab. der gerade sichtbaren Daten (Anzeigetabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>TOTAL</PARAMETER>
<KIND>P</KIND>
<STEXT>Tabelle, mit allen von der DB gelesenen Daten</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_HEADER</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_NAMTAB</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabellen-Felder</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>MISSING_CORR_NUMBER</PARAMETER>
<KIND>X</KIND>
<STEXT>Korrekturnummer fehlt</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>SAVING_CORRECTION_FAILED</PARAMETER>
<KIND>X</KIND>
<STEXT>Fehler beim Sichern der Korrektureinträge</STEXT>
</RSFDO>
</DOCUMENTATION>
</item>
</FUNCTIONS>
<DYNPROS>
<item>
<HEADER>
<PROGRAM>SAPLZBOS_TESTE</PROGRAM>
<SCREEN>0001</SCREEN>
<LANGUAGE>E</LANGUAGE>
<DESCRIPT>View Maintenance: Overview Screen ZBOS_TESTE</DESCRIPT>
<TYPE>N</TYPE>
<NEXTSCREEN>0001</NEXTSCREEN>
<LINES>061</LINES>
<COLUMNS>255</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>TABLE_CTRL</TYPE>
<NAME>TCTRL_ZBOS_TESTE</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>255</LENGTH>
<HEIGHT>059</HEIGHT>
<C_RESIZE_V>X</C_RESIZE_V>
<C_RESIZE_H>X</C_RESIZE_H>
<C_SCROLL_V>X</C_SCROLL_V>
<C_SCROLL_H>X</C_SCROLL_H>
<TC_TABTYPE>ENTRY</TC_TABTYPE>
<TC_SEPAR_V>X</TC_SEPAR_V>
<TC_SEPAR_H>X</TC_SEPAR_H>
<TC_TITLE>X</TC_TITLE>
<TC_HEADER>X</TC_HEADER>
<TC_CONFIG>X</TC_CONFIG>
<TC_SEL_LNS>MULTIPLE</TC_SEL_LNS>
<TC_SEL_CLS>NONE</TC_SEL_CLS>
<TC_LSEL_CL>X</TC_LSEL_CL>
<TC_FIXCOL>001</TC_FIXCOL>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH_TMPL</TYPE>
<NAME>VIM_POSI_PUSH</NAME>
<TEXT>____________________</TEXT>
<LINE>061</LINE>
<COLUMN>019</COLUMN>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>POSI</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>VIM_POSITION_INFO</NAME>
<TEXT>______________________________</TEXT>
<LINE>061</LINE>
<COLUMN>040</COLUMN>
<LENGTH>030</LENGTH>
<VISLENGTH>030</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<UP_LOWER>X</UP_LOWER>
<OUTPUT_FLD>X</OUTPUT_FLD>
<OUTPUTONLY>X</OUTPUTONLY>
<REQU_ENTRY>N</REQU_ENTRY>
<_--32_DIMENS>X</_--32_DIMENS>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<NAME>OK_CODE</NAME>
<TEXT>____________________</TEXT>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZBOS_TESTE</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>VIM_FRAME_FIELD</NAME>
<TEXT>____________________________________________________________</TEXT>
<LINE>001</LINE>
<LENGTH>060</LENGTH>
<VISLENGTH>060</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<UP_LOWER>X</UP_LOWER>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_TITLE>X</TC_TITLE>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZBOS_TESTE</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>*ZBOS_TESTE-CARRID</NAME>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>003</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>V</MODIFIC>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_HEADING>X</TC_HEADING>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZBOS_TESTE</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>*ZBOS_TESTE-PLANETYPE</NAME>
<LINE>001</LINE>
<COLUMN>002</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>010</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>V</MODIFIC>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_HEADING>X</TC_HEADING>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZBOS_TESTE</CONT_NAME>
<TYPE>CHECK</TYPE>
<NAME>VIM_MARKED</NAME>
<LINE>001</LINE>
<LENGTH>001</LENGTH>
<VISLENGTH>001</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
<OUTPUT_FLD>X</OUTPUT_FLD>
<TC_SELCOL>X</TC_SELCOL>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZBOS_TESTE</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>ZBOS_TESTE-CARRID</NAME>
<TEXT>___</TEXT>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>003</LENGTH>
<VISLENGTH>003</VISLENGTH>
<HEIGHT>001</HEIGHT>
<GROUP1>KEY</GROUP1>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>X</MODIFIC>
<PARAM_ID>CAR</PARAM_ID>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZBOS_TESTE</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>ZBOS_TESTE-PLANETYPE</NAME>
<TEXT>__________</TEXT>
<LINE>001</LINE>
<COLUMN>002</COLUMN>
<LENGTH>010</LENGTH>
<VISLENGTH>010</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>X</MODIFIC>
<INPUT_FLD>X</INPUT_FLD>
<OUTPUT_FLD>X</OUTPUT_FLD>
</RPY_DYFATC>
</FIELDS>
<FLOW_LOGIC>
<RPY_DYFLOW>
<LINE>PROCESS BEFORE OUTPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_INITIALISIEREN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> LOOP AT EXTRACT WITH CONTROL</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> TCTRL_ZBOS_TESTE CURSOR NEXTLINE.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_SHOW_LISTE.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDLOOP.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>*</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>PROCESS AFTER INPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_BEFORE_LOOP.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> LOOP AT EXTRACT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_INIT_WORKAREA.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> CHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZBOS_TESTE-CARRID .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZBOS_TESTE-PLANETYPE .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDCHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> CHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZBOS_TESTE-CARRID .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_UPDATE_LISTE.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDCHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDLOOP.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_AFTER_LOOP.</LINE>
</RPY_DYFLOW>
</FLOW_LOGIC>
</item>
</DYNPROS>
</asx:values>
</asx:abap>
</abapGit>

55
src/zbos_teste.tabl.xml Normal file
View File

@@ -0,0 +1,55 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZBOS_TESTE</TABNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>teste</DDTEXT>
<CONTFLAG>C</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZBOS_TESTE</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>APPL0</TABART>
<PROTOKOLL>X</PROTOKOLL>
<BUFALLOW>N</BUFALLOW>
</DD09L>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>MANDT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MANDT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CARRID</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>S_CARR_ID</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<SHLPORIGIN>D</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>PLANETYPE</FIELDNAME>
<ROLLNAME>S_PLANETYE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>ZBOS_TESTE</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

43
src/zbos_testes.tobj.xml Normal file
View File

@@ -0,0 +1,43 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TOBJ" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<OBJH>
<OBJECTNAME>ZBOS_TESTE</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>CUST</OBJCATEG>
<OBJTRANSP>2</OBJTRANSP>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>E</LANGUAGE>
<OBJECTNAME>ZBOS_TESTE</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>teste</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>ZBOS_TESTE</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>ZBOS_TESTE</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>ZBOS_TESTE</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>ZBOS_TESTE</TABNAME>
<AREA>ZBOS_TESTE</AREA>
<TYPE>1</TYPE>
<LISTE>0001</LISTE>
<BASTAB>X</BASTAB>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>