Marcel/DATA-Hawk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v1.5

Browse Source
This commit is contained in:
Marcel Dechange
2025-11-27 13:16:56 +00:00
parent 788e4994a4
commit c7fbf7ae3d
118 changed files with 10841 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
.abapgit.xml Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DATA>
<MASTER_LANGUAGE>D</MASTER_LANGUAGE>
<STARTING_FOLDER>/src/</STARTING_FOLDER>
<FOLDER_LOGIC>FULL</FOLDER_LOGIC>
</DATA>
</asx:values>
</asx:abap>

16
src/#deso#.nspc.xml Normal file
View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_NSPC" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<NSPC>
<NAMESPACE>/DESO/</NAMESPACE>
<REPLICENSE>31120315153559132970</REPLICENSE>
</NSPC>
<NSPC_TEXT>
<SPRAS>D</SPRAS>
<DESCRIPTN>Namensraum für Dechange Solutions</DESCRIPTN>
<OWNER>DeMa</OWNER>
</NSPC_TEXT>
</asx:values>
</asx:abap>
</abapGit>

13
src/#deso#data_hawk rf.sush.xml Normal file
View File

@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_SUSH" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<HEAD>
<NAME>/DESO/DATA_HAWK</NAME>
<TYPE>RF</TYPE>
<DISPLAY_NAME>/DESO/DATA_HAWK</DISPLAY_NAME>
<STEXT>Datenprüfung</STEXT>
</HEAD>
</asx:values>
</asx:abap>
</abapGit>

21
src/#deso#data_hawk.tran.xml Normal file
View File

@@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TRAN" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<TSTC>
<TCODE>/DESO/DATA_HAWK</TCODE>
<PGMNA>/DESO/DH_HAWK</PGMNA>
<DYPNO>1000</DYPNO>
<CINFO>gA==</CINFO>
</TSTC>
<TSTCC>
<TCODE>/DESO/DATA_HAWK</TCODE>
</TSTCC>
<TSTCT>
<SPRSL>D</SPRSL>
<TCODE>/DESO/DATA_HAWK</TCODE>
<TTEXT>DeSo: Datenanalyse</TTEXT>
</TSTCT>
</asx:values>
</asx:abap>
</abapGit>

23
src/#deso#de_dh_lizenz.dtel.xml Normal file
View File

@@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>/DESO/DE_DH_LIZENZ</ROLLNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<DOMNAME>/DESO/DH_DO_LIZENZ</DOMNAME>
<HEADLEN>20</HEADLEN>
<SCRLEN1>06</SCRLEN1>
<SCRLEN2>10</SCRLEN2>
<SCRLEN3>15</SCRLEN3>
<DDTEXT>DeSo: Lizenzschlüssel</DDTEXT>
<REPTEXT>Lizenzschlüssel</REPTEXT>
<SCRTEXT_S>Lizenz</SCRTEXT_S>
<SCRTEXT_M>Lizenzsch.</SCRTEXT_M>
<SCRTEXT_L>Lizenzschlüssel</SCRTEXT_L>
<DTELMASTER>D</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

23
src/#deso#dh_activ.dtel.xml Normal file
View File

@@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>/DESO/DH_ACTIV</ROLLNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<DOMNAME>KENNZX</DOMNAME>
<HEADLEN>20</HEADLEN>
<SCRLEN1>05</SCRLEN1>
<SCRLEN2>10</SCRLEN2>
<SCRLEN3>15</SCRLEN3>
<DDTEXT>DATA Hawk: Kennzeichen Prüfung aktiv</DDTEXT>
<REPTEXT>Prüfung aktiv</REPTEXT>
<SCRTEXT_S>aktiv</SCRTEXT_S>
<SCRTEXT_M>aktiv</SCRTEXT_M>
<SCRTEXT_L>Prüfung aktiv</SCRTEXT_L>
<DTELMASTER>D</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

70
src/#deso#dh_c_cla.tabl.xml Normal file
View File

@@ -0,0 +1,70 @@
<?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>/DESO/DH_C_CLA</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Methoden zu Objekten</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_C_CLA</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CLASS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SEOCLSNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>/DESO/DH_C_CLA</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

43
src/#deso#dh_c_clas.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>/DESO/DH_C_CLA</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>APPL</OBJCATEG>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>D</LANGUAGE>
<OBJECTNAME>/DESO/DH_C_CLA</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>DATA Hawk: Methoden zu Objekten</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_C_CLA</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>/DESO/DH_C_CLA</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>/DESO/DH_C_CLA</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>/DESO/DH_C_CLA</TABNAME>
<AREA>/DESO/FG_DH_CUST</AREA>
<TYPE>1</TYPE>
<LISTE>0003</LISTE>
<BASTAB>X</BASTAB>
<FLAG>X</FLAG>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>

85
src/#deso#dh_c_ht.tabl.xml Normal file
View File

@@ -0,0 +1,85 @@
<?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>/DESO/DH_C_HT</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Customizing allgemein</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_C_HT</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>LIZENZ</FIELDNAME>
<ROLLNAME>/DESO/DE_DH_LIZENZ</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>BGRFC_DEST</FIELDNAME>
<ROLLNAME>RFCDEST</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>D</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>BGRFC_PACK</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>X</INTTYPE>
<INTLEN>000004</INTLEN>
<DATATYPE>INT4</DATATYPE>
<LENG>000010</LENG>
<MASK> INT4</MASK>
</DD03P>
<DD03P>
<FIELDNAME>BATCH_COUNT</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>X</INTTYPE>
<INTLEN>000004</INTLEN>
<DATATYPE>INT4</DATATYPE>
<LENG>000010</LENG>
<MASK> INT4</MASK>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>/DESO/DH_C_HT</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

43
src/#deso#dh_c_hts.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>/DESO/DH_C_HT</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>APPL</OBJCATEG>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>D</LANGUAGE>
<OBJECTNAME>/DESO/DH_C_HT</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>DATA Hawk: Customizing allgemein</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_C_HT</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>/DESO/DH_C_HT</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>/DESO/DH_C_HT</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>/DESO/DH_C_HT</TABNAME>
<AREA>/DESO/FG_DH_CUST</AREA>
<TYPE>1</TYPE>
<LISTE>0001</LISTE>
<BASTAB>X</BASTAB>
<FLAG>X</FLAG>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>

78
src/#deso#dh_c_met.tabl.xml Normal file
View File

@@ -0,0 +1,78 @@
<?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>/DESO/DH_C_MET</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Methoden zu Objekten</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_C_MET</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CLASS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SEOCLSNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>METHOD</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SEOCPDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>/DESO/DH_C_MET</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

43
src/#deso#dh_c_mets.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>/DESO/DH_C_MET</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>APPL</OBJCATEG>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>D</LANGUAGE>
<OBJECTNAME>/DESO/DH_C_MET</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>DATA Hawk: Methoden zu Objekten</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_C_MET</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>/DESO/DH_C_MET</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>/DESO/DH_C_MET</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>/DESO/DH_C_MET</TABNAME>
<AREA>/DESO/FG_DH_CUST</AREA>
<TYPE>1</TYPE>
<LISTE>0004</LISTE>
<BASTAB>X</BASTAB>
<FLAG>X</FLAG>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>

62
src/#deso#dh_c_obj.tabl.xml Normal file
View File

@@ -0,0 +1,62 @@
<?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>/DESO/DH_C_OBJ</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Prüfobjekte</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_C_OBJ</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>/DESO/DH_C_OBJ</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

43
src/#deso#dh_c_objs.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>/DESO/DH_C_OBJ</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>APPL</OBJCATEG>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>D</LANGUAGE>
<OBJECTNAME>/DESO/DH_C_OBJ</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>DATA Hawk: Prüfobjekte</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_C_OBJ</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>/DESO/DH_C_OBJ</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>/DESO/DH_C_OBJ</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>/DESO/DH_C_OBJ</TABNAME>
<AREA>/DESO/FG_DH_CUST</AREA>
<TYPE>1</TYPE>
<LISTE>0002</LISTE>
<BASTAB>X</BASTAB>
<FLAG>X</FLAG>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>

100
src/#deso#dh_c_rep.tabl.xml Normal file
View File

@@ -0,0 +1,100 @@
<?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>/DESO/DH_C_REP</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Methoden zu Objekten</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_C_REP</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGTY</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MSGTY</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGID</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MSGID</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGNO</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MSGNO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REP_CLASS</FIELDNAME>
<ROLLNAME>SEOCLSNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REP_METHOD</FIELDNAME>
<ROLLNAME>SEOCPDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>/DESO/DH_C_REP</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

43
src/#deso#dh_c_reps.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>/DESO/DH_C_REP</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>APPL</OBJCATEG>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>D</LANGUAGE>
<OBJECTNAME>/DESO/DH_C_REP</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>DATA Hawk: Methoden zu Objekten</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_C_REP</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>/DESO/DH_C_REP</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>/DESO/DH_C_REP</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>/DESO/DH_C_REP</TABNAME>
<AREA>/DESO/FG_DH_CUST</AREA>
<TYPE>1</TYPE>
<LISTE>0006</LISTE>
<BASTAB>X</BASTAB>
<FLAG>X</FLAG>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>

70
src/#deso#dh_c_tab.tabl.xml Normal file
View File

@@ -0,0 +1,70 @@
<?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>/DESO/DH_C_TAB</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Tabellen zu Objekten</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_C_TAB</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>TABNAME</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>TABNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>/DESO/DH_C_TAB</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

43
src/#deso#dh_c_tabs.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>/DESO/DH_C_TAB</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>APPL</OBJCATEG>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>D</LANGUAGE>
<OBJECTNAME>/DESO/DH_C_TAB</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>DATA Hawk: Tabellen zu Objekten</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_C_TAB</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>/DESO/DH_C_TAB</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>/DESO/DH_C_TAB</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>/DESO/DH_C_TAB</TABNAME>
<AREA>/DESO/FG_DH_CUST</AREA>
<TYPE>1</TYPE>
<LISTE>0005</LISTE>
<BASTAB>X</BASTAB>
<FLAG>X</FLAG>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>

1056
src/#deso#dh_checks.clas.abap Normal file
View File

File diff suppressed because it is too large Load Diff

286
src/#deso#dh_checks.clas.xml Normal file
View File

@@ -0,0 +1,286 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>/DESO/DH_CHECKS</CLSNAME>
<LANGU>D</LANGU>
<DESCRIPT>Klasse für Prüfungen</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
<DESCRIPTIONS>
<SEOCOMPOTX>
<CMPNAME>CHECK_ANLAGE_INVOICING_PARTNER</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>ANLAGE: Prüfung fakt. Serviceanbieter</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_HAUS_ADRESS</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>CONNOBJ: Prüfung Adressdaten</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_INIT</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Initiale Methode</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_INPUT_VS_CUST</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Prüfung auf Eingaben gegen Customizing</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_PARTNER_ADRESS</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>PARTNER: Prüfung Adressdaten</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_PARTNER_BANK</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>PARTNER: Prüfung Bankdaten</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_PARTNER_MANDATORY</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>PARTNER: Prüfung Pflichtfelder</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_PARTNER_RELATION</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>PARTNER: Prüfung Partnerbeziehung</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_VERTRAG_BIG_CHECK</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>VERTRAG: Prüfung Vertrag Serviceanbieter</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_VERTRAG_INVOICING_PART</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>VERTRAG: Prüfung Vertrag fakt. Serviceanbieter</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_VERTRAG_SERVICE_ID</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>VERTRAG: Prüfung Vertrag Serviceanbieter</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_VKONT_ADRESS</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>ACCOUNT: Prüfung Adressdaten</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_VKONT_AZAWE_EZAWE</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>ACCOUNT: Prüfung Adressdaten</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_VORLAGE</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Vorlage</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>CHECK_VS_SCENARIO</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>VSCEN: Prüfung Versorgungsszenario</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>GR_UTIL</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Werkzeuge</DESCRIPT>
</SEOCOMPOTX>
</DESCRIPTIONS>
<DESCRIPTIONS_SUB>
<SEOSUBCOTX>
<CMPNAME>CHECK_ANLAGE_INVOICING_PARTNER</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_ANLAGE_INVOICING_PARTNER</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_HAUS_ADRESS</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_HAUS_ADRESS</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_INIT</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_INIT</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_INPUT_VS_CUST</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_INPUT_VS_CUST</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_ADRESS</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_ADRESS</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_BANK</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_BANK</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_MANDATORY</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_MANDATORY</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_RELATION</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_PARTNER_RELATION</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VERTRAG_BIG_CHECK</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VERTRAG_BIG_CHECK</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VERTRAG_INVOICING_PART</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VERTRAG_INVOICING_PART</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VERTRAG_SERVICE_ID</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VERTRAG_SERVICE_ID</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VKONT_ADRESS</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VKONT_ADRESS</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VKONT_AZAWE_EZAWE</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Daten für die Verarbeitung</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VKONT_AZAWE_EZAWE</CMPNAME>
<SCONAME>IS_MESSAGE</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Message</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VKONT_AZAWE_EZAWE</CMPNAME>
<SCONAME>IV_VIEW</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Variante</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VORLAGE</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VORLAGE</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VS_SCENARIO</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>CHECK_VS_SCENARIO</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
</DESCRIPTIONS_SUB>
</asx:values>
</asx:abap>
</abapGit>

26
src/#deso#dh_cust.tran.xml Normal file
View File

@@ -0,0 +1,26 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TRAN" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<TSTC>
<TCODE>/DESO/DH_CUST</TCODE>
<CINFO>Ag==</CINFO>
</TSTC>
<TSTCC>
<TCODE>/DESO/DH_CUST</TCODE>
<S_WEBGUI>1</S_WEBGUI>
<S_WIN32>X</S_WIN32>
<S_PLATIN>X</S_PLATIN>
</TSTCC>
<TSTCT>
<SPRSL>D</SPRSL>
<TCODE>/DESO/DH_CUST</TCODE>
<TTEXT>DATA Hawk: Customizing</TTEXT>
</TSTCT>
<TSTCP>
<TCODE>/DESO/DH_CUST</TCODE>
<PARAM>/*SM34 VCLDIR-VCLNAME=/DESO/DH_CUST;UPDATE=x;</PARAM>
</TSTCP>
</asx:values>
</asx:abap>
</abapGit>

180
src/#deso#dh_cust.vcls.xml Normal file
View File

@@ -0,0 +1,180 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_VCLS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VCLDIR>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<TEXT>Customizing für DATA-Hawk</TEXT>
</VCLDIR>
<VLCSTRUC_TAB>
<V_VCLSTRUC>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_HT</OBJECT>
<OBJECTTEXT>Varianten</OBJECTTEXT>
<PREDOBJECT>/DESO/DH_C_HT</PREDOBJECT>
<DEPENDENCY>R</DEPENDENCY>
<OBJPOS>01</OBJPOS>
<OBJLEVEL>01</OBJLEVEL>
<STARTOBJ>X</STARTOBJ>
</V_VCLSTRUC>
<V_VCLSTRUC>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_OBJ</OBJECT>
<OBJECTTEXT>Objekte</OBJECTTEXT>
<PREDOBJECT>/DESO/DH_C_HT</PREDOBJECT>
<DEPENDENCY>S</DEPENDENCY>
<OBJPOS>02</OBJPOS>
<OBJLEVEL>02</OBJLEVEL>
</V_VCLSTRUC>
<V_VCLSTRUC>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_TAB</OBJECT>
<OBJECTTEXT>Tabellen</OBJECTTEXT>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<DEPENDENCY>S</DEPENDENCY>
<OBJPOS>03</OBJPOS>
<OBJLEVEL>03</OBJLEVEL>
</V_VCLSTRUC>
<V_VCLSTRUC>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_CLA</OBJECT>
<OBJECTTEXT>Prüfklasse</OBJECTTEXT>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<DEPENDENCY>S</DEPENDENCY>
<OBJPOS>04</OBJPOS>
<OBJLEVEL>03</OBJLEVEL>
</V_VCLSTRUC>
<V_VCLSTRUC>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_MET</OBJECT>
<OBJECTTEXT>Prüfmethoden</OBJECTTEXT>
<PREDOBJECT>/DESO/DH_C_CLA</PREDOBJECT>
<DEPENDENCY>S</DEPENDENCY>
<OBJPOS>05</OBJPOS>
<OBJLEVEL>04</OBJLEVEL>
</V_VCLSTRUC>
<V_VCLSTRUC>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_REP</OBJECT>
<OBJECTTEXT>Reparaturmethode</OBJECTTEXT>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<DEPENDENCY>S</DEPENDENCY>
<OBJPOS>06</OBJPOS>
<OBJLEVEL>03</OBJLEVEL>
</V_VCLSTRUC>
</VLCSTRUC_TAB>
<VCLSTRUDEP_TAB>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_CLA</OBJECT>
<OBJFIELD>CHECK_VIEW</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>CHECK_VIEW</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_CLA</OBJECT>
<OBJFIELD>MANDT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>MANDT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_CLA</OBJECT>
<OBJFIELD>OBJECT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>OBJECT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_HT</OBJECT>
<PREDOBJECT>/DESO/DH_C_HT</PREDOBJECT>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_MET</OBJECT>
<OBJFIELD>CHECK_VIEW</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_CLA</PREDOBJECT>
<PREDFIELD>CHECK_VIEW</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_MET</OBJECT>
<OBJFIELD>CLASS</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_CLA</PREDOBJECT>
<PREDFIELD>CLASS</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_MET</OBJECT>
<OBJFIELD>MANDT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_CLA</PREDOBJECT>
<PREDFIELD>MANDT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_MET</OBJECT>
<OBJFIELD>OBJECT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_CLA</PREDOBJECT>
<PREDFIELD>OBJECT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_OBJ</OBJECT>
<OBJFIELD>CHECK_VIEW</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_HT</PREDOBJECT>
<PREDFIELD>CHECK_VIEW</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_OBJ</OBJECT>
<OBJFIELD>MANDT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_HT</PREDOBJECT>
<PREDFIELD>MANDT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_REP</OBJECT>
<OBJFIELD>CHECK_VIEW</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>CHECK_VIEW</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_REP</OBJECT>
<OBJFIELD>MANDT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>MANDT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_REP</OBJECT>
<OBJFIELD>OBJECT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>OBJECT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_TAB</OBJECT>
<OBJFIELD>CHECK_VIEW</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>CHECK_VIEW</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_TAB</OBJECT>
<OBJFIELD>MANDT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>MANDT</PREDFIELD>
</V_VCLSTDEP>
<V_VCLSTDEP>
<VCLNAME>/DESO/DH_CUST</VCLNAME>
<OBJECT>/DESO/DH_C_TAB</OBJECT>
<OBJFIELD>OBJECT</OBJFIELD>
<PREDOBJECT>/DESO/DH_C_OBJ</PREDOBJECT>
<PREDFIELD>OBJECT</PREDFIELD>
</V_VCLSTDEP>
</VCLSTRUDEP_TAB>
</asx:values>
</asx:abap>
</abapGit>

58
src/#deso#dh_custc.tobj.xml Normal file
View File

@@ -0,0 +1,58 @@
<?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>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<OBJCATEG>APPL</OBJCATEG>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>D</LANGUAGE>
<OBJECTNAME>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<DDTEXT>Customizing für DATA-Hawk</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<TABNAME>/DESO/DH_C_CLA</TABNAME>
<DDIC>X</DDIC>
</OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<TABNAME>/DESO/DH_C_HT</TABNAME>
<DDIC>X</DDIC>
</OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<TABNAME>/DESO/DH_C_MET</TABNAME>
<DDIC>X</DDIC>
</OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<TABNAME>/DESO/DH_C_OBJ</TABNAME>
<DDIC>X</DDIC>
</OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<TABNAME>/DESO/DH_C_REP</TABNAME>
<DDIC>X</DDIC>
</OBJS>
<OBJS>
<OBJECTNAME>/DESO/DH_CUST</OBJECTNAME>
<OBJECTTYPE>C</OBJECTTYPE>
<TABNAME>/DESO/DH_C_TAB</TABNAME>
<DDIC>X</DDIC>
</OBJS>
</OBJS>
</asx:values>
</asx:abap>
</abapGit>

51
src/#deso#dh_do_active.doma.xml Normal file
View File

@@ -0,0 +1,51 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DOMA" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD01V>
<DOMNAME>/DESO/DH_DO_ACTIVE</DOMNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<OUTPUTLEN>000001</OUTPUTLEN>
<VALEXI>X</VALEXI>
<DDTEXT>DATA Hawk: Checkbox (Aktiv/Inaktiv)</DDTEXT>
</DD01V>
<DD07V_TAB>
<DD07V>
<VALPOS>0001</VALPOS>
<DDLANGUAGE>D</DDLANGUAGE>
<DOMVALUE_L>X</DOMVALUE_L>
<DDTEXT>Aktiv</DDTEXT>
</DD07V>
<DD07V>
<VALPOS>0002</VALPOS>
<DDLANGUAGE>D</DDLANGUAGE>
<DDTEXT>Inaktiv</DDTEXT>
</DD07V>
</DD07V_TAB>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD01_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>Checkbox (Active/Inactive)</DDTEXT>
</item>
</DD01_TEXTS>
<DD07_TEXTS>
<item>
<VALPOS>0001</VALPOS>
<DDLANGUAGE>E</DDLANGUAGE>
<DOMVALUE_L>X</DOMVALUE_L>
<DDTEXT>Active</DDTEXT>
</item>
<item>
<VALPOS>0002</VALPOS>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>Inactive</DDTEXT>
</item>
</DD07_TEXTS>
</asx:values>
</asx:abap>
</abapGit>

16
src/#deso#dh_do_lizenz.doma.xml Normal file
View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DOMA" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD01V>
<DOMNAME>/DESO/DH_DO_LIZENZ</DOMNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<OUTPUTLEN>000030</OUTPUTLEN>
<LOWERCASE>X</LOWERCASE>
<DDTEXT>DeSo: Lizenzschlüssel</DDTEXT>
</DD01V>
</asx:values>
</asx:abap>
</abapGit>

16
src/#deso#dh_do_object.doma.xml Normal file
View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DOMA" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD01V>
<DOMNAME>/DESO/DH_DO_OBJECT</DOMNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<DATATYPE>CHAR</DATATYPE>
<LENG>000010</LENG>
<OUTPUTLEN>000010</OUTPUTLEN>
<ENTITYTAB>TOJTB</ENTITYTAB>
<DDTEXT>DATA Hawk: Object</DDTEXT>
</DD01V>
</asx:values>
</asx:abap>
</abapGit>

19
src/#deso#dh_hawk.prog.abap Normal file
View File

@@ -0,0 +1,19 @@
*&---------------------------------------------------------------------*
*& Report /DESO/INCO_HAWK
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT /deso/dh_hawk.
INCLUDE /deso/dh_hawk_se .
INCLUDE /deso/dh_hawk_da .
INCLUDE /deso/dh_hawk_fo .
INCLUDE /deso/dh_hawk_me .
INCLUDE /deso/dh_hawk_mo .
START-OF-SELECTION.
CREATE OBJECT g_application.
mac_check_lizenz.
CALL SCREEN 9000.

20
src/#deso#dh_hawk.prog.screen_9000.abap Normal file
View File

@@ -0,0 +1,20 @@
PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABSTRIP 'TABSTRIP'
MODULE tabstrip_active_tab_set.
CALL SUBSCREEN:
9001_sca INCLUDING g_tabstrip-prog '9001',
9002_sca INCLUDING g_tabstrip-prog '9002',
9003_sca INCLUDING g_tabstrip-prog '9003'.
* 9004_sca INCLUDING g_tabstrip-prog '9004'.
MODULE cont0.
MODULE status_9000.
*
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABSTRIP 'TABSTRIP'
CALL SUBSCREEN:
9001_sca,
9002_sca,
9003_sca.
MODULE user_command_9000.
MODULE tabstrip_active_tab_get.

10
src/#deso#dh_hawk.prog.screen_9001.abap Normal file
View File

@@ -0,0 +1,10 @@
PROCESS BEFORE OUTPUT.
MODULE status_9001.
MODULE fill_variant.
PROCESS AFTER INPUT.
MODULE user_command_9001.
PROCESS ON VALUE-REQUEST.
FIELD gv_var MODULE create_dropbox_variant.

8
src/#deso#dh_hawk.prog.screen_9002.abap Normal file
View File

@@ -0,0 +1,8 @@
PROCESS BEFORE OUTPUT.
MODULE STATUS_9002.
CALL SUBSCREEN subscreen INCLUDING '/DESO/DH_HAWK' '0100'.
*
PROCESS AFTER INPUT.
CALL SUBSCREEN subscreen.
MODULE USER_COMMAND_9002.

5
src/#deso#dh_hawk.prog.screen_9003.abap Normal file
View File

@@ -0,0 +1,5 @@
PROCESS BEFORE OUTPUT.
MODULE status_9003.
*
PROCESS AFTER INPUT.
MODULE user_command_9003.

724
src/#deso#dh_hawk.prog.xml Normal file
View File

@@ -0,0 +1,724 @@
<?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>/DESO/DH_HAWK</NAME>
<SUBC>1</SUBC>
<RLOAD>D</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<DYNPROS>
<item>
<HEADER>
<PROGRAM>/DESO/DH_HAWK</PROGRAM>
<SCREEN>9000</SCREEN>
<LANGUAGE>D</LANGUAGE>
<DESCRIPT>Hauptbildschirm</DESCRIPT>
<TYPE>N</TYPE>
<NEXTSCREEN>9000</NEXTSCREEN>
<LINES>055</LINES>
<COLUMNS>255</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>CUST_CTRL</TYPE>
<NAME>CONT0</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>255</LENGTH>
<HEIGHT>007</HEIGHT>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>STRIP_CTRL</TYPE>
<NAME>TABSTRIP</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>010</LINE>
<COLUMN>001</COLUMN>
<LENGTH>255</LENGTH>
<HEIGHT>046</HEIGHT>
<C_RESIZE_V>X</C_RESIZE_V>
<C_RESIZE_H>X</C_RESIZE_H>
<C_LINE_MIN>006</C_LINE_MIN>
<C_COLN_MIN>015</C_COLN_MIN>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>SUBSCREEN</TYPE>
<NAME>9001_SCA</NAME>
<ELEMENT_OF>TABSTRIP</ELEMENT_OF>
<LINE>012</LINE>
<COLUMN>002</COLUMN>
<LENGTH>253</LENGTH>
<HEIGHT>043</HEIGHT>
<C_RESIZE_V>X</C_RESIZE_V>
<C_RESIZE_H>X</C_RESIZE_H>
<C_LINE_MIN>003</C_LINE_MIN>
<C_COLN_MIN>012</C_COLN_MIN>
<C_SCROLL_V>X</C_SCROLL_V>
<C_SCROLL_H>X</C_SCROLL_H>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>SUBSCREEN</TYPE>
<NAME>9002_SCA</NAME>
<ELEMENT_OF>TABSTRIP</ELEMENT_OF>
<LINE>012</LINE>
<COLUMN>002</COLUMN>
<LENGTH>253</LENGTH>
<HEIGHT>043</HEIGHT>
<C_RESIZE_V>X</C_RESIZE_V>
<C_RESIZE_H>X</C_RESIZE_H>
<C_LINE_MIN>003</C_LINE_MIN>
<C_COLN_MIN>012</C_COLN_MIN>
<C_SCROLL_V>X</C_SCROLL_V>
<C_SCROLL_H>X</C_SCROLL_H>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>SUBSCREEN</TYPE>
<NAME>9003_SCA</NAME>
<ELEMENT_OF>TABSTRIP</ELEMENT_OF>
<LINE>012</LINE>
<COLUMN>002</COLUMN>
<LENGTH>253</LENGTH>
<HEIGHT>043</HEIGHT>
<C_RESIZE_V>X</C_RESIZE_V>
<C_RESIZE_H>X</C_RESIZE_H>
<C_LINE_MIN>003</C_LINE_MIN>
<C_COLN_MIN>012</C_COLN_MIN>
<C_SCROLL_V>X</C_SCROLL_V>
<C_SCROLL_H>X</C_SCROLL_H>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_CUST</NAME>
<TEXT>Customizing_</TEXT>
<ICON_NAME>ICON_ALV_VARIANTS</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>009</LINE>
<COLUMN>241</COLUMN>
<LENGTH>017</LENGTH>
<VISLENGTH>015</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>CUST</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<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>STRIP_CTRL</CONT_TYPE>
<CONT_NAME>TABSTRIP</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>TABSTRIP_TAB1</NAME>
<TEXT>Varianten</TEXT>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>009</LENGTH>
<VISLENGTH>009</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>TABSTRIP_FC1</PUSH_FCODE>
<PUSH_FTYPE>P</PUSH_FTYPE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
<REF_FIELD>9001_SCA</REF_FIELD>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>STRIP_CTRL</CONT_TYPE>
<CONT_NAME>TABSTRIP</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>TABSTRIP_TAB2</NAME>
<TEXT>Verarbeitung</TEXT>
<LINE>001</LINE>
<COLUMN>002</COLUMN>
<LENGTH>012</LENGTH>
<VISLENGTH>012</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>TABSTRIP_FC2</PUSH_FCODE>
<PUSH_FTYPE>P</PUSH_FTYPE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
<REF_FIELD>9002_SCA</REF_FIELD>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>STRIP_CTRL</CONT_TYPE>
<CONT_NAME>TABSTRIP</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>TABSTRIP_TAB3</NAME>
<TEXT>Ergebnis</TEXT>
<LINE>001</LINE>
<COLUMN>003</COLUMN>
<LENGTH>008</LENGTH>
<VISLENGTH>008</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>TABSTRIP_FC3</PUSH_FCODE>
<PUSH_FTYPE>P</PUSH_FTYPE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
<REF_FIELD>9003_SCA</REF_FIELD>
</RPY_DYFATC>
</FIELDS>
</item>
<item>
<HEADER>
<PROGRAM>/DESO/DH_HAWK</PROGRAM>
<SCREEN>9001</SCREEN>
<LANGUAGE>D</LANGUAGE>
<DESCRIPT>Varianten</DESCRIPT>
<TYPE>I</TYPE>
<NEXTSCREEN>0000</NEXTSCREEN>
<LINES>024</LINES>
<COLUMNS>252</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>CUST_CTRL</TYPE>
<NAME>CONT1</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>003</LINE>
<COLUMN>001</COLUMN>
<LENGTH>251</LENGTH>
<HEIGHT>022</HEIGHT>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>TXT_VAR</NAME>
<TEXT>Variante:</TEXT>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>009</LENGTH>
<VISLENGTH>009</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
<LABELLEFT>X</LABELLEFT>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>GV_VAR</NAME>
<TEXT>__________</TEXT>
<DROPDOWN>K</DROPDOWN>
<LINE>001</LINE>
<COLUMN>011</COLUMN>
<LENGTH>010</LENGTH>
<VISLENGTH>012</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>SEL_VARI</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>R</REQU_ENTRY>
<POSS_ENTRY>1</POSS_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_CREATE</NAME>
<TEXT>anlegen__</TEXT>
<ICON_NAME>ICON_CREATE</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>001</LINE>
<COLUMN>025</COLUMN>
<LENGTH>014</LENGTH>
<VISLENGTH>012</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>NEW</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_SAVE</NAME>
<TEXT>sichern__</TEXT>
<ICON_NAME>ICON_SYSTEM_SAVE</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>001</LINE>
<COLUMN>039</COLUMN>
<LENGTH>014</LENGTH>
<VISLENGTH>012</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>SAVE</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_DELETE</NAME>
<TEXT>löschen__</TEXT>
<ICON_NAME>ICON_DELETE</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>001</LINE>
<COLUMN>053</COLUMN>
<LENGTH>014</LENGTH>
<VISLENGTH>012</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>DELETE</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<TEXT>____________________</TEXT>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
</RPY_DYFATC>
</FIELDS>
</item>
<item>
<HEADER>
<PROGRAM>/DESO/DH_HAWK</PROGRAM>
<SCREEN>9002</SCREEN>
<LANGUAGE>D</LANGUAGE>
<DESCRIPT>Verarbeitung</DESCRIPT>
<TYPE>I</TYPE>
<NEXTSCREEN>0000</NEXTSCREEN>
<LINES>044</LINES>
<COLUMNS>255</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>SUBSCREEN</TYPE>
<NAME>SUBSCREEN</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>003</LINE>
<COLUMN>001</COLUMN>
<LENGTH>250</LENGTH>
<HEIGHT>010</HEIGHT>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>TXT_SEL</NAME>
<TEXT>Selektionskriterien</TEXT>
<LINE>001</LINE>
<COLUMN>002</COLUMN>
<LENGTH>019</LENGTH>
<VISLENGTH>019</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
<BRIGHT>X</BRIGHT>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_START</NAME>
<TEXT>Verarbeitung_starten</TEXT>
<ICON_NAME>ICON_EXECUTE_OBJECT</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>001</LINE>
<COLUMN>022</COLUMN>
<LENGTH>025</LENGTH>
<VISLENGTH>021</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>START</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<TEXT>____________________</TEXT>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
</RPY_DYFATC>
</FIELDS>
</item>
<item>
<HEADER>
<PROGRAM>/DESO/DH_HAWK</PROGRAM>
<SCREEN>9003</SCREEN>
<LANGUAGE>D</LANGUAGE>
<DESCRIPT>Ergebnis</DESCRIPT>
<TYPE>I</TYPE>
<NEXTSCREEN>0000</NEXTSCREEN>
<LINES>024</LINES>
<COLUMNS>255</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>CUST_CTRL</TYPE>
<NAME>CONT2</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>003</LINE>
<COLUMN>001</COLUMN>
<LENGTH>253</LENGTH>
<HEIGHT>022</HEIGHT>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>%#AUTOTEXT001</NAME>
<TEXT>Ergebnis_der_Analyse</TEXT>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
<BRIGHT>X</BRIGHT>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_REF</NAME>
<TEXT>Aktualisieren</TEXT>
<ICON_NAME>ICON_REFRESH</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>001</LINE>
<COLUMN>029</COLUMN>
<LENGTH>018</LENGTH>
<VISLENGTH>015</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>REF</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_DELETE</NAME>
<TEXT>Zurücksetzen</TEXT>
<ICON_NAME>ICON_DELETE</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>001</LINE>
<COLUMN>045</COLUMN>
<LENGTH>017</LENGTH>
<VISLENGTH>015</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>DELE</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH</TYPE>
<NAME>BUT_KORREKTUR</NAME>
<TEXT>Korrektur_starten</TEXT>
<ICON_NAME>ICON_EXECUTE_OBJECT</ICON_NAME>
<WITH_ICON>X</WITH_ICON>
<LINE>001</LINE>
<COLUMN>066</COLUMN>
<LENGTH>022</LENGTH>
<VISLENGTH>017</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>KORR_RUN</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<TEXT>____________________</TEXT>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
</RPY_DYFATC>
</FIELDS>
</item>
</DYNPROS>
<CUA>
<ADM>
<ACTCODE>000001</ACTCODE>
<PFKCODE>000001</PFKCODE>
</ADM>
<STA>
<RSMPE_STAT>
<CODE>9000</CODE>
<MODAL>D</MODAL>
<ACTCODE>000001</ACTCODE>
<PFKCODE>000001</PFKCODE>
<BUTCODE>0001</BUTCODE>
<INT_NOTE>9000</INT_NOTE>
</RSMPE_STAT>
</STA>
<FUN>
<RSMPE_FUNT>
<CODE>BACK</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<FUN_TEXT>Zurück</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>EXIT</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<FUN_TEXT>Beenden</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>EXIT</CODE>
<TEXTNO>002</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
<ICON_ID>@0W@</ICON_ID>
<FUN_TEXT>Abbrechen</FUN_TEXT>
</RSMPE_FUNT>
</FUN>
<PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>03</PFNO>
<FUNCODE>BACK</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>12</PFNO>
<FUNCODE>EXIT</FUNCODE>
<FUNNO>002</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>15</PFNO>
<FUNCODE>EXIT</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
</PFK>
<SET>
<RSMPE_STAF>
<STATUS>9000</STATUS>
<FUNCTION>BACK</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>9000</STATUS>
<FUNCTION>EXIT</FUNCTION>
</RSMPE_STAF>
</SET>
<DOC>
<RSMPE_ATRT>
<OBJ_TYPE>A</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<MODAL>D</MODAL>
<INT_NOTE>9000</INT_NOTE>
</RSMPE_ATRT>
<RSMPE_ATRT>
<OBJ_TYPE>P</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<MODAL>D</MODAL>
<INT_NOTE>9000</INT_NOTE>
</RSMPE_ATRT>
<RSMPE_ATRT>
<OBJ_TYPE>B</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<SUB_CODE>0001</SUB_CODE>
<MODAL>D</MODAL>
<INT_NOTE>9000</INT_NOTE>
</RSMPE_ATRT>
</DOC>
<TIT>
<RSMPE_TITT>
<CODE>/DESO/DH_HAWK</CODE>
<TEXT>DeSo: DATA Hawk</TEXT>
</RSMPE_TITT>
<RSMPE_TITT>
<CODE>/DESO/MIGCOCKPIT</CODE>
<TEXT>DeSo: DATA-Hawk</TEXT>
</RSMPE_TITT>
</TIT>
</CUA>
<TPOOL>
<item>
<ID>I</ID>
<KEY>001</KEY>
<ENTRY>Selektion</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>002</KEY>
<ENTRY>Verarbeitungsart</ENTRY>
<LENGTH>27</LENGTH>
</item>
<item>
<ID>R</ID>
<ENTRY>DeSo: DATA Hawk</ENTRY>
<LENGTH>18</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_AKT</KEY>
<ENTRY>Nur aktive Verträge</ENTRY>
<LENGTH>28</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_BATCH</KEY>
<ENTRY>Batchverarbeitung</ENTRY>
<LENGTH>25</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_BGRFC</KEY>
<ENTRY>BgRFC-Verarbeitung</ENTRY>
<LENGTH>26</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_COUNT</KEY>
<ENTRY>Anzahl Batchjobs</ENTRY>
<LENGTH>24</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_DEST</KEY>
<ENTRY>BgRFC-Verbindung</ENTRY>
<LENGTH>24</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_DEV</KEY>
<ENTRY>Gerätebeziehungen beachten</ENTRY>
<LENGTH>34</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_PACK</KEY>
<ENTRY>BgRFC-Packetgröße</ENTRY>
<LENGTH>25</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_PREL</KEY>
<ENTRY>ZP-Beziehungen beachten</ENTRY>
<LENGTH>31</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>SO_ANL</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_AO</KEY>
<ENTRY>Anschlussobjekt</ENTRY>
<LENGTH>23</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>SO_BUKRS</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_EXTUI</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_GER</KEY>
<ENTRY>Geräte</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>SO_GINF</KEY>
<ENTRY>Geräteinfosätze</ENTRY>
<LENGTH>23</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>SO_GPART</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_MATNR</KEY>
<ENTRY>Gerätetyp</ENTRY>
<LENGTH>17</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>SO_VERT</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_VKONT</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_VST</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

128
src/#deso#dh_hawk_btc.prog.abap Normal file
View File

@@ -0,0 +1,128 @@
*&---------------------------------------------------------------------*
*& Report /DESO/DH_HAWK_BTC
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT /deso/dh_hawk_btc.
TABLES: fkkvkp,
ever,
evbs,
equi,
egerr,
ehauisu,
euitrans.
DATA: gt_sel TYPE TABLE OF /deso/s_select.
DATA: gt_sel_pack TYPE /deso/dh_tt_select.
PARAMETERS: pa_view TYPE /deso/dh_view.
SELECT-OPTIONS so_gpart FOR fkkvkp-gpart.
SELECT-OPTIONS so_vkont FOR fkkvkp-vkont.
SELECT-OPTIONS so_vert FOR ever-vertrag.
SELECT-OPTIONS so_bukrs FOR ever-bukrs.
SELECT-OPTIONS so_anl FOR ever-anlage.
SELECT-OPTIONS so_vst FOR evbs-vstelle.
SELECT-OPTIONS so_ao FOR ehauisu-haus.
SELECT-OPTIONS so_matnr FOR equi-matnr.
SELECT-OPTIONS so_ger FOR equi-equnr.
SELECT-OPTIONS so_ginf FOR egerr-equnr.
SELECT-OPTIONS so_extui FOR euitrans-ext_ui.
PARAMETERS: pa_akt AS CHECKBOX.
PARAMETERS: pa_dev TYPE flag. "Zusatzdaten beim Gerät beachten: ZW-/Gerätezuordnungen, ZW-Beziehungen und weitere Daten nachladen
PARAMETERS: pa_prel TYPE flag. "ZP-Beziehungen lesen und Daten zu den in der Beziehungen vorkommenden ZP nachladen
PARAMETERS: pa_bgrfc RADIOBUTTON GROUP 1,
pa_batch RADIOBUTTON GROUP 1.
PARAMETERS: pa_btcnt(2) TYPE n DEFAULT 1.
PARAMETERS: pa_btc." NO-DISPLAY.
START-OF-SELECTION.
IF NOT so_gpart IS INITIAL.
SELECT 'ISUPARTNER' AS objekt, partner AS objkey FROM but100
APPENDING TABLE @gt_sel
WHERE partner IN @so_gpart.
ENDIF.
IF NOT so_vkont IS INITIAL.
SELECT 'ISUACCOUNT' AS objekt, vkont AS objkey FROM fkkvk
APPENDING TABLE @gt_sel
WHERE vkont IN @so_vkont.
ENDIF.
IF NOT so_vert IS INITIAL.
IF pa_akt IS INITIAL.
SELECT 'ISUCONTRCT' AS objekt, vertrag AS objkey FROM ever
APPENDING TABLE @gt_sel
WHERE vertrag IN @so_vert
AND bukrs IN @so_bukrs.
ELSE.
SELECT 'ISUCONTRCT' AS objekt, vertrag AS objkey FROM ever
APPENDING TABLE @gt_sel
WHERE vertrag IN @so_vert
AND bukrs IN @so_bukrs
AND auszdat EQ '99991231'.
ENDIF.
ENDIF.
IF NOT so_anl IS INITIAL.
SELECT 'INSTLN' AS objekt, anlage AS objkey FROM eanl
APPENDING TABLE @gt_sel
WHERE anlage IN @so_anl.
ENDIF.
IF NOT so_vst IS INITIAL.
SELECT 'PREMISES' AS objekt, vstelle AS objkey FROM evbs
APPENDING TABLE @gt_sel
WHERE vstelle IN @so_vst.
ENDIF.
IF NOT so_ao IS INITIAL.
SELECT 'CONNOBJ' AS objekt, haus AS objkey FROM ehauisu
APPENDING TABLE @gt_sel
WHERE haus IN @so_ao.
ENDIF.
IF NOT so_matnr IS INITIAL.
SELECT 'DEVICE' AS objekt, equnr AS objkey FROM equi
APPENDING TABLE @gt_sel
WHERE matnr IN @so_matnr.
SELECT 'DEVICE' AS objekt, equnr AS objkey FROM egerr
APPENDING TABLE @gt_sel
WHERE matnr IN @so_matnr
AND bis = '99991231'.
ENDIF.
IF NOT so_ger IS INITIAL.
SELECT 'DEVICE' AS objekt, equnr AS objkey FROM equi
APPENDING TABLE @gt_sel
WHERE equnr IN @so_ger.
ENDIF.
IF NOT so_ginf IS INITIAL.
SELECT 'DEVINFO' AS objekt, equnr AS objkey FROM egerr
APPENDING TABLE @gt_sel
WHERE equnr IN @so_ginf.
ENDIF.
IF NOT so_extui IS INITIAL.
SELECT 'ISUPOD' AS objekt, ext_ui AS objkey FROM euitrans
APPENDING TABLE @gt_sel
WHERE ext_ui IN @so_extui.
ENDIF.
SORT gt_sel.
DELETE ADJACENT DUPLICATES FROM gt_sel.
IF pa_btc = abap_true.
PERFORM work_btc.
ELSE.
IF pa_batch = abap_true.
PERFORM run_batch.
ELSE.
PERFORM run_bgrfc.
ENDIF.
ENDIF.
INCLUDE /deso/dh_hawk_btc_f.

84
src/#deso#dh_hawk_btc.prog.xml Normal file
View File

@@ -0,0 +1,84 @@
<?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>/DESO/DH_HAWK_BTC</NAME>
<SUBC>1</SUBC>
<RLOAD>D</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>DeSo: DATA Hawk Analysereport</ENTRY>
<LENGTH>29</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_VIEW</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_ANL</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_AO</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_GER</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_GINF</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_GPART</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_VERT</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_VKONT</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_VST</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

375
src/#deso#dh_hawk_btc_f.prog.abap Normal file
View File

@@ -0,0 +1,375 @@
*----------------------------------------------------------------------*
***INCLUDE /DESO/DH_HAWK_BTC_F.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form run_bgrfc
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM run_bgrfc .
SELECT SINGLE bgrfc_dest FROM /deso/dh_c_ht
INTO @DATA(lv_bgrfc).
SELECT SINGLE bgrfc_pack FROM /deso/dh_c_ht
INTO @DATA(lv_pack).
DATA(lo_dest) = cl_bgrfc_destination_inbound=>create( lv_bgrfc ).
DO.
DATA(lo_unit) = lo_dest->create_trfc_unit( ).
APPEND LINES OF gt_sel FROM 1 TO lv_pack TO gt_sel_pack.
IF lines( gt_sel_pack ) = 0.
EXIT.
ENDIF.
CALL FUNCTION '/DESO/DATA_HAWK'
IN BACKGROUND UNIT lo_unit
EXPORTING
iv_check_view = pa_view
IV_CHECK_DEV = pa_dev
IV_CHECK_PODREL = pa_prel
TABLES
it_data = gt_sel_pack.
COMMIT WORK.
DELETE gt_sel FROM 1 TO lv_pack.
REFRESH gt_sel_pack.
ENDDO.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form run_batch
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM run_batch .
DEFINE mac_so.
LOOP AT &1.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = &1-sign.
<ls_sel>-option = &1-option.
<ls_sel>-kind = 'S'.
<ls_sel>-selname = '&1'.
<ls_sel>-low = &1-low.
<ls_sel>-high = &1-high.
ENDLOOP.
END-OF-DEFINITION.
DATA: lv_jobname TYPE tbtcjob-jobname.
DATA: lv_jobcount LIKE tbtcjob-jobcount.
DATA: BEGIN OF ls_starttime.
INCLUDE STRUCTURE tbtcstrt.
DATA: END OF ls_starttime.
DATA: lt_selection TYPE TABLE OF rsparams.
DATA: startimmediate LIKE btch0000-char1.
DATA: job_already_released.
lv_jobname = '/DESO/DATA_HAWK' && '_' && pa_view.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lv_jobname
IMPORTING
jobcount = lv_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ELSE.
APPEND INITIAL LINE TO lt_selection ASSIGNING FIELD-SYMBOL(<ls_sel>).
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_VIEW'.
<ls_sel>-low = pa_view.
mac_so so_gpart.
mac_so so_vkont.
mac_so so_vert.
mac_so so_anl.
mac_so so_vst.
mac_so so_ao.
mac_so so_matnr.
mac_so so_ger.
mac_so so_ginf.
mac_so so_extui.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_DEV'.
<ls_sel>-low = pa_dev.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_PREL'.
<ls_sel>-low = pa_prel.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_BTC'.
<ls_sel>-low = abap_true.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_BATCH'.
<ls_sel>-low = abap_true.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_BTCNT'.
<ls_sel>-low = pa_btcnt.
* <ls_sel>-high = &1-high.
SUBMIT /deso/dh_hawk_btc WITH SELECTION-TABLE lt_selection
VIA JOB lv_jobname NUMBER lv_jobcount AND RETURN.
* CALL FUNCTION 'BP_START_DATE_EDITOR'
* EXPORTING
* stdt_dialog = 'N'
* stdt_input = ls_starttime
* stdt_opcode = '14'
* IMPORTING
** stdt_modify_type = start_modify_flag
* stdt_output = ls_starttime
* EXCEPTIONS
* fcal_id_not_defined = 01
* incomplete_last_startdate = 02
* incomplete_startdate = 03
* invalid_dialog_type = 04
* invalid_eventid = 05
* invalid_opcode = 06
* invalid_opmode_name = 07
* invalid_periodbehaviour = 08
* invalid_predecessor_jobname = 09
* last_startdate_in_the_past = 10
* no_period_data_given = 11
* no_startdate_given = 12
* period_and_predjob_no_way = 13
* period_too_small_for_limit = 14
* predecessor_jobname_not_unique = 15
* startdate_interval_too_large = 16
* startdate_in_the_past = 17
* startdate_is_a_holiday = 18
* startdate_out_of_fcal_range = 19
* stdt_before_holiday_in_past = 20
* unknown_fcal_error_occured = 21.
*
*
* CASE ls_starttime-startdttyp.
* WHEN 'I'. "User selected immediate start
* startimmediate = 'X'.
* ENDCASE.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
* at_opmode = ' '
* at_opmode_periodic = ' '
* calendar_id = ' '
* event_id = ls_starttime-eventid
* event_param = ls_starttime-eventparm
* event_periodic = ' '
jobcount = lv_jobcount
jobname = lv_jobname
* laststrtdt = ls_starttime-laststrtdt
* laststrttm = ls_starttime-laststrttm
* prddays = ls_starttime-prddays
* prdhours = ls_starttime-prdhours
* prdmins = ls_starttime-prdmins
* prdmonths = ls_starttime-prdmonths
* prdweeks = ls_starttime-prdweeks
* predjob_checkstat = ' '
* pred_jobcount = ' '
* pred_jobname = ' '
* sdlstrtdt = ls_starttime-sdlstrtdt
* sdlstrttm = ls_starttime-sdlstrttm
* startdate_restriction = btc_process_always
strtimmed = 'X' "startimmediate'
IMPORTING
job_was_released = job_already_released
EXCEPTIONS
cant_start_immediate = 01
invalid_startdate = 02
jobname_missing = 03
job_close_failed = 04
job_nosteps = 05
job_notex = 06
lock_failed = 07.
IF sy-subrc = 0.
IF startimmediate = abap_true.
MESSAGE s000(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und gestartet.
ELSE.
MESSAGE s001(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und eingeplant.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form work_btc
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM work_btc .
DEFINE mac_so.
LOOP AT &1.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = &1-sign.
<ls_sel>-option = &1-option.
<ls_sel>-kind = 'S'.
<ls_sel>-selname = '&1'.
<ls_sel>-low = &1-low.
<ls_sel>-high = &1-high.
ENDLOOP.
END-OF-DEFINITION.
DATA: lv_jobname TYPE tbtcjob-jobname.
DATA: lv_jobcount LIKE tbtcjob-jobcount.
DATA: BEGIN OF ls_starttime.
INCLUDE STRUCTURE tbtcstrt.
DATA: END OF ls_starttime.
DATA: lt_selection TYPE TABLE OF rsparams.
DATA: startimmediate LIKE btch0000-char1.
DATA: job_already_released.
DATA: lv_n3(3) TYPE n.
DATA: lv_pack TYPE int4.
lv_pack = lines( gt_sel ) / pa_btcnt.
DO pa_btcnt TIMES.
MOVE sy-index TO lv_n3.
APPEND LINES OF gt_sel FROM 1 TO lv_pack TO gt_sel_pack.
DELETE gt_sel FROM 1 TO lv_pack.
lv_jobname = '/DESO/DATA_HAWK_ST' && '_' && pa_view && '_' && lv_n3.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lv_jobname
IMPORTING
jobcount = lv_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ELSE.
REFRESH lt_selection.
"Steps mit 500
WHILE lines( gt_sel_pack ) > 0.
READ TABLE gt_sel_pack ASSIGNING FIELD-SYMBOL(<fs_sel_pack>) INDEX 1.
APPEND INITIAL LINE TO lt_selection ASSIGNING FIELD-SYMBOL(<ls_sel>).
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'S'.
<ls_sel>-selname = 'SO_SEL'.
<ls_sel>-low(10) = <fs_sel_pack>-object.
<ls_sel>-low+10 = <fs_sel_pack>-objkey.
DELETE gt_sel_pack INDEX 1.
* IF lines( lt_selection ) = 10.
* APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
* <ls_sel>-sign = 'I'.
* <ls_sel>-option = 'EQ'.
* <ls_sel>-kind = 'P'.
* <ls_sel>-selname = 'PA_VIEW'.
* <ls_sel>-low = pa_view.
*
*
* SUBMIT /deso/dh_hawk_btc WITH SELECTION-TABLE lt_selection
* VIA JOB lv_jobname NUMBER lv_jobcount AND RETURN.
* REFRESH lt_selection.
* ENDIF.
ENDWHILE.
IF lines( lt_selection ) > 0.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_VIEW'.
<ls_sel>-low = pa_view.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_DEV'.
<ls_sel>-low = pa_dev.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_PREL'.
<ls_sel>-low = pa_prel.
SUBMIT /deso/dh_hawk_btc_start WITH SELECTION-TABLE lt_selection
VIA JOB lv_jobname NUMBER lv_jobcount AND RETURN.
REFRESH lt_selection.
ENDIF.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = lv_jobcount
jobname = lv_jobname
strtimmed = 'X'
IMPORTING
job_was_released = job_already_released
EXCEPTIONS
cant_start_immediate = 01
invalid_startdate = 02
jobname_missing = 03
job_close_failed = 04
job_nosteps = 05
job_notex = 06
lock_failed = 07.
IF sy-subrc = 0.
IF startimmediate = abap_true.
MESSAGE s000(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und gestartet.
ELSE.
MESSAGE s001(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und eingeplant.
ENDIF.
ENDIF.
ENDIF.
ENDDO. "Jobs
ENDFORM.

20
src/#deso#dh_hawk_btc_f.prog.xml Normal file
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>/DESO/DH_HAWK_BTC_F</NAME>
<SUBC>I</SUBC>
<RLOAD>D</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include für /DESO/DH_HAWK_BTC Forms</ENTRY>
<LENGTH>35</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

30
src/#deso#dh_hawk_btc_start.prog.abap Normal file
View File

@@ -0,0 +1,30 @@
*&---------------------------------------------------------------------*
*& Report /DESO/DH_HAWK_BTC_START
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT /DESO/DH_HAWK_BTC_START.
data ls_sel type /deso/s_select.
data lt_sel type TABLE of /deso/s_select.
data ls_sel_txt type char80.
PARAMETERS: pa_view TYPE /deso/dh_view.
PARAMETERS: pa_dev TYPE flag. "Zusatzdaten beim Gerät beachten: ZW-/Gerätezuordnungen, ZW-Beziehungen und weitere Daten nachladen
PARAMETERS: pa_prel TYPE flag. "ZP-Beziehungen lesen und Daten zu den in der Beziehungen vorkommenden ZP nachladen
SELECT-OPTIONS so_sel for ls_sel_txt.
LOOP AT so_sel ASSIGNING FIELD-SYMBOL(<fs_so_sel>).
ls_sel-object = <fs_so_sel>-low(10).
ls_sel-objkey = <fs_so_sel>-low+10.
append ls_sel to lt_sel.
ENDLOOP.
CALL FUNCTION '/DESO/DATA_HAWK'
EXPORTING
iv_check_view = pa_view
IV_CHECK_DEV = pa_dev
IV_CHECK_PODREL = pa_prel
TABLES
it_data = lt_sel.

48
src/#deso#dh_hawk_btc_start.prog.xml Normal file
View File

@@ -0,0 +1,48 @@
<?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>/DESO/DH_HAWK_BTC_START</NAME>
<SUBC>1</SUBC>
<RLOAD>D</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>DeSo: DATA Hawk Analyse Startreport</ENTRY>
<LENGTH>35</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_DEV</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>PA_PREL</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>PA_VIEW</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>SO_SEL</KEY>
<ENTRY>Selektion</ENTRY>
<LENGTH>17</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

64
src/#deso#dh_hawk_correct.prog.abap Normal file
View File

@@ -0,0 +1,64 @@
*&---------------------------------------------------------------------*
*& Report /DESO/DH_HAWK_CORRECT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT /deso/dh_hawk_correct.
DATA: gr_repare TYPE REF TO /deso/dh_repare.
DATA: lv_update TYPE kennzx.
PARAMETERS: pa_view TYPE /deso/dh_view,
pa_obj TYPE /deso/dh_message-object,
pa_refob TYPE /deso/dh_object,
pa_reffl TYPE /deso/dh_message-reffld,
pa_msgty TYPE sy-msgty,
pa_msgid TYPE sy-msgid,
pa_msgno TYPE sy-msgno,
pa_class TYPE seoclsname,
pa_meth TYPE seocpdname.
START-OF-SELECTION.
SELECT * FROM /deso/dh_message
INTO TABLE @DATA(lt_message)
WHERE check_view = @pa_view
AND object = @pa_obj
AND refobject = @pa_refob
AND reffld = @pa_reffl
AND msgty = @pa_msgty
AND msgid = @pa_msgid
AND msgno = @pa_msgno.
CREATE OBJECT gr_repare TYPE (pa_class).
LOOP AT lt_message ASSIGNING FIELD-SYMBOL(<ls_message>).
CALL METHOD gr_repare->(pa_meth)
EXPORTING
iv_view = <ls_message>-check_view
iv_object = <ls_message>-object
iv_objkey = <ls_message>-objkey
CHANGING
cs_message = <ls_message>
RECEIVING
rv_update = lv_update.
IF lv_update = abap_true.
UPDATE /deso/dh_message SET status = '@08@'
WHERE check_view = pa_view
AND object = pa_obj
AND refobject = pa_refob
AND reffld = pa_reffl
AND refobjkey = <ls_message>-refobjkey
AND msgty = pa_msgty
AND msgid = pa_msgid
AND msgno = pa_msgno.
COMMIT WORK.
ELSE.
* Update war nicht erfolgreich.
ROLLBACK WORK.
ENDIF.
ENDLOOP.

81
src/#deso#dh_hawk_correct.prog.xml Normal file
View File

@@ -0,0 +1,81 @@
<?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>/DESO/DH_HAWK_CORRECT</NAME>
<SUBC>1</SUBC>
<RLOAD>D</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>DeSo: DATA Hawk Korrekturreport</ENTRY>
<LENGTH>31</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_CLASS</KEY>
<ENTRY>Reparaturklasse</ENTRY>
<LENGTH>23</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_METH</KEY>
<ENTRY>Reparaturmethode</ENTRY>
<LENGTH>24</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_MSGID</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>PA_MSGNO</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>PA_MSGTY</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>PA_OBJ</KEY>
<ENTRY>Prüfobjekt</ENTRY>
<LENGTH>18</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>PA_REFFL</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>PA_REFOB</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>PA_VIEW</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

107
src/#deso#dh_hawk_da.prog.abap Normal file
View File

@@ -0,0 +1,107 @@
*&---------------------------------------------------------------------*
*& Include /DESO/DH_HAWK_D
*&---------------------------------------------------------------------*
DATA gv_version(10) VALUE '1.25.08.07'.
CLASS lcl_application DEFINITION DEFERRED.
DATA: encoded TYPE string,
decoded TYPE string,
code TYPE string,
c_last_error TYPE i.
DEFINE mac_check_lizenz.
SELECT SINGLE lizenz FROM /deso/dh_c_ht INTO code.
SYSTEM-CALL ict
DID
ihttp_scid_base64_unescape
PARAMETERS
code " >
decoded " <
c_last_error. " < return code
IF sy-datum >= decoded.
MESSAGE i000(em) WITH 'Keine gültige Lizenz'
space
space
space.
CALL TRANSACTION '/DESO/DH_CUST'.
LEAVE PROGRAM.
ENDIF.
END-OF-DEFINITION.
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TABSTRIP'
CONSTANTS: BEGIN OF c_tabstrip,
tab1 LIKE sy-ucomm VALUE 'TABSTRIP_FC1',
tab2 LIKE sy-ucomm VALUE 'TABSTRIP_FC2',
tab3 LIKE sy-ucomm VALUE 'TABSTRIP_FC3',
tab4 LIKE sy-ucomm VALUE 'TABSTRIP_FC4',
END OF c_tabstrip.
*&SPWIZARD: DATA FOR TABSTRIP 'TABSTRIP'
CONTROLS: tabstrip TYPE TABSTRIP.
DATA: BEGIN OF g_tabstrip,
subscreen LIKE sy-dynnr,
prog LIKE sy-repid VALUE '/DESO/DH_HAWK',
pressed_tab LIKE sy-ucomm VALUE c_tabstrip-tab1,
END OF g_tabstrip.
DATA: ok_code LIKE sy-ucomm.
DATA: go_container_html TYPE REF TO cl_gui_custom_container,
go_picture_html TYPE REF TO cl_gui_html_viewer,
lv_url_html TYPE cndp_url,
ls_raw_html_line TYPE c LENGTH 255,
lt_raw_html LIKE STANDARD TABLE OF ls_raw_html_line.
DATA: lv_last_version TYPE char20.
DATA: ra_gpart TYPE RANGE OF gpart.
DATA: ra_vkont TYPE RANGE OF vkont_kk.
DATA: ra_vert TYPE RANGE OF vertrag.
DATA: gv_var TYPE /deso/dh_view.
DATA: g_custom_container TYPE REF TO cl_gui_custom_container.
DATA: g_custom_container_result TYPE REF TO cl_gui_custom_container.
DATA: o_alv1 TYPE REF TO cl_gui_alv_grid,
o_alv2 TYPE REF TO cl_gui_alv_grid,
o_dock TYPE REF TO cl_gui_docking_container,
o_dial TYPE REF TO cl_gui_dialogbox_container,
alv_ok_code TYPE sy-ucomm VALUE 'INCLUDE'.
DATA: gt_fieldcat TYPE lvc_t_fcat,
gt_fieldcat_result TYPE lvc_t_fcat,
gt_fieldcat_detail TYPE lvc_t_fcat,
g_grid TYPE REF TO cl_gui_alv_grid,
g_grid_result TYPE REF TO cl_gui_alv_grid.
DATA: gs_layout TYPE lvc_s_layo.
DATA: gs_layout_result TYPE lvc_s_layo.
DATA: gs_variant TYPE disvariant.
DATA: gs_variant_result TYPE disvariant.
CONSTANTS: cl_st TYPE disvariant-variant VALUE '/ST'.
DATA: g_application TYPE REF TO lcl_application.
DATA: gt_var TYPE TABLE OF /deso/dh_variant.
DATA: gt_ht TYPE TABLE OF /deso/dh_c_ht.
DATA: gt_obj TYPE TABLE OF /deso/dh_c_obj.
DATA: gt_tab TYPE TABLE OF /deso/dh_c_tab.
DATA: gt_cla TYPE TABLE OF /deso/dh_c_cla.
DATA: gt_met TYPE TABLE OF /deso/dh_c_met.
DATA: gt_rep TYPE TABLE OF /deso/dh_c_rep.
TYPES: BEGIN OF ty_result_show.
INCLUDE TYPE /deso/dh_message.
TYPES: count TYPE i,
END OF ty_result_show.
DATA: gs_result_show TYPE ty_result_show.
DATA: gt_result TYPE TABLE OF /deso/dh_message.
DATA: gt_result_detail TYPE TABLE OF /deso/dh_message.
DATA: gt_result_show LIKE TABLE OF gs_result_show.
DATA: gt_result_collect TYPE TABLE OF /deso/dh_c_rep.
DATA init.
DATA: lt_exclude TYPE ui_functions.

20
src/#deso#dh_hawk_da.prog.xml Normal file
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>/DESO/DH_HAWK_DA</NAME>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>D</RLOAD>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include für DATA Hawk Datendeklaration</ENTRY>
<LENGTH>41</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

924
src/#deso#dh_hawk_fo.prog.abap Normal file
View File

@@ -0,0 +1,924 @@
*&---------------------------------------------------------------------*
*& Include /DESO/DH_HAWK_F
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form build_fieldcat
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM build_fieldcat .
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = '/DESO/DH_VARIANT'
i_bypassing_buffer = abap_true
CHANGING
ct_fieldcat = gt_fieldcat.
LOOP AT gt_fieldcat ASSIGNING FIELD-SYMBOL(<ls_fcat>).
CASE <ls_fcat>-fieldname.
WHEN 'MANDT'.
DELETE gt_fieldcat INDEX sy-tabix.
CONTINUE.
WHEN 'AKTIV'.
<ls_fcat>-checkbox = abap_true.
<ls_fcat>-edit = abap_true.
<ls_fcat>-outputlen = 5.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form build_layout
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM build_layout .
CLEAR gs_layout.
gs_layout-sel_mode = '0'.
* gs_layout-stylefname = 'CELLTAB'.
* gs_layout-ctab_fname = 'CELLCOL'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form exclude_tb_functions
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& <-- LT_EXCLUDE
*&---------------------------------------------------------------------*
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions.
* Only allow to change data not to create new entries (exclude
* generic functions).
DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
APPEND ls_exclude TO pt_exclude.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form build_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM build_data .
ENDFORM.
*&---------------------------------------------------------------------*
*& Module CREATE_DROPBOX_VARIANT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE create_dropbox_variant INPUT.
* DATA: lt_vari TYPE TABLE OF /deso/dh_vari_t.
SELECT check_view FROM /deso/dh_vari_t
INTO TABLE @DATA(lt_vari).
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'CHECK_VIEW'
value_org = 'S'
* dynpprog = '/DESO/CH_HAWK'
* dynpnr = '9001'
* dynprofield = 'GV_VAR'
window_title = 'Variante wählen'
multiple_choice = space
TABLES
value_tab = lt_vari
* return_tab = lt_return
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9001 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9001 INPUT.
CALL METHOD g_grid->check_changed_data.
CASE sy-ucomm.
WHEN 'SEL_VARI'.
* BREAK-POINT.
DATA: ls_var TYPE /deso/dh_variant.
SELECT * FROM /deso/dh_variant INTO CORRESPONDING FIELDS OF TABLE gt_var
WHERE check_view = gv_var.
SELECT * FROM /deso/dh_c_met APPENDING CORRESPONDING FIELDS OF TABLE gt_var.
SORT gt_var.
LOOP AT gt_var ASSIGNING FIELD-SYMBOL(<ls_var>)
WHERE aktiv = abap_true.
READ TABLE gt_var INTO ls_var WITH KEY check_view = <ls_var>-check_view
object = <ls_var>-object
aktiv = abap_false.
IF sy-subrc = 0.
DELETE gt_var INDEX sy-tabix.
ENDIF.
ENDLOOP.
SORT gt_var.
LOOP AT gt_var ASSIGNING <ls_var>.
<ls_var>-check_view = gv_var.
ENDLOOP.
g_tabstrip-pressed_tab = 'TABSTRIP_FC1'.
WHEN 'DELETE'.
g_tabstrip-pressed_tab = 'TABSTRIP_FC1'.
DATA: lv_answer_del_var.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'DATA Hawk'
text_question = 'Variante wirklich löschen?'
default_button = '2'
display_cancel_button = wfcst_cfalse
popup_type = 'ICON_MESSAGE_WARNING'
IMPORTING
answer = lv_answer_del_var
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF lv_answer_del_var = '1'.
DELETE FROM /deso/dh_variant
WHERE check_view = gv_var.
DELETE FROM /deso/dh_vari_t
WHERE check_view = gv_var.
REFRESH gt_var.
ENDIF.
WHEN 'NEW'.
DATA: lt_sval TYPE TABLE OF sval.
DATA: lv_rc.
REFRESH lt_sval.
APPEND INITIAL LINE TO lt_sval ASSIGNING FIELD-SYMBOL(<ls_sval>).
<ls_sval>-tabname = '/DESO/DH_VARI_T'.
<ls_sval>-fieldname = 'CHECK_VIEW'.
<ls_sval>-fieldtext = 'Variante'.
APPEND INITIAL LINE TO lt_sval ASSIGNING <ls_sval>.
<ls_sval>-tabname = '/DESO/DH_VARI_T'.
<ls_sval>-fieldname = 'DESCRIPT'.
<ls_sval>-fieldtext = 'Bezeichnung'.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
* NO_VALUE_CHECK = ' '
popup_title = 'Neue Variante anlegen'
* START_COLUMN = '5'
* START_ROW = '5'
IMPORTING
returncode = lv_rc
TABLES
fields = lt_sval
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
IF lv_rc NE 'A'.
* BREAK-POINT.
DATA: lv_vari_t TYPE /deso/dh_vari_t.
LOOP AT lt_sval ASSIGNING <ls_sval>.
CASE <ls_sval>-fieldname.
WHEN 'CHECK_VIEW'.
lv_vari_t-check_view = <ls_sval>-value.
WHEN 'DESCRIPT'.
lv_vari_t-descript = <ls_sval>-value.
ENDCASE.
ENDLOOP.
INSERT INTO /deso/dh_vari_t VALUES lv_vari_t.
SELECT * FROM /deso/dh_c_ht INTO CORRESPONDING FIELDS OF TABLE gt_ht
WHERE check_view = 'VIEW1'.
LOOP AT gt_ht ASSIGNING FIELD-SYMBOL(<ls_ht>).
<ls_ht>-check_view = lv_vari_t-check_view.
<ls_ht>-descript = lv_vari_t-descript.
ENDLOOP.
INSERT /deso/dh_c_ht FROM TABLE gt_ht.
SELECT * FROM /deso/dh_c_obj INTO CORRESPONDING FIELDS OF TABLE gt_obj
WHERE check_view = 'VIEW1'.
LOOP AT gt_obj ASSIGNING FIELD-SYMBOL(<ls_obj>).
<ls_obj>-check_view = lv_vari_t-check_view.
ENDLOOP.
INSERT /deso/dh_c_obj FROM TABLE gt_obj.
SELECT * FROM /deso/dh_c_tab INTO CORRESPONDING FIELDS OF TABLE gt_tab
WHERE check_view = 'VIEW1'.
LOOP AT gt_tab ASSIGNING FIELD-SYMBOL(<ls_tab>).
<ls_tab>-check_view = lv_vari_t-check_view.
ENDLOOP.
INSERT /deso/dh_c_tab FROM TABLE gt_tab.
SELECT * FROM /deso/dh_c_cla INTO CORRESPONDING FIELDS OF TABLE gt_cla
WHERE check_view = 'VIEW1'.
LOOP AT gt_cla ASSIGNING FIELD-SYMBOL(<ls_cla>).
<ls_cla>-check_view = lv_vari_t-check_view.
ENDLOOP.
INSERT /deso/dh_c_cla FROM TABLE gt_cla.
SELECT * FROM /deso/dh_c_met INTO CORRESPONDING FIELDS OF TABLE gt_met
WHERE check_view = 'VIEW1'.
LOOP AT gt_met ASSIGNING FIELD-SYMBOL(<ls_met>).
<ls_met>-check_view = lv_vari_t-check_view.
ENDLOOP.
INSERT /deso/dh_c_met FROM TABLE gt_met.
SELECT * FROM /deso/dh_c_rep INTO CORRESPONDING FIELDS OF TABLE gt_rep
WHERE check_view = 'VIEW1'.
LOOP AT gt_rep ASSIGNING FIELD-SYMBOL(<ls_rep>).
<ls_rep>-check_view = lv_vari_t-check_view.
ENDLOOP.
INSERT /deso/dh_c_rep FROM TABLE gt_rep.
ENDIF.
g_tabstrip-pressed_tab = 'TABSTRIP_FC1'.
WHEN 'SAVE'.
* BREAK-POINT.
DELETE FROM /deso/dh_variant WHERE check_view = gv_var.
LOOP AT gt_var ASSIGNING <ls_var> WHERE aktiv = abap_true.
INSERT INTO /deso/dh_variant VALUES <ls_var>.
ENDLOOP.
g_tabstrip-pressed_tab = 'TABSTRIP_FC1'.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form build_data_result
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM build_data_result .
SELECT * FROM /deso/dh_message
INTO CORRESPONDING FIELDS OF TABLE gt_result
WHERE check_view = gv_var.
CLEAR gt_result_show.
LOOP AT gt_result ASSIGNING FIELD-SYMBOL(<fs_result>).
CLEAR gs_result_show.
MOVE <fs_result>-check_view TO gs_result_show-check_view.
MOVE <fs_result>-refobject TO gs_result_show-refobject.
MOVE <fs_result>-object TO gs_result_show-object.
MOVE <fs_result>-reffld TO gs_result_show-reffld.
MOVE <fs_result>-msgty TO gs_result_show-msgty.
MOVE <fs_result>-msgid TO gs_result_show-msgid.
MOVE <fs_result>-msgno TO gs_result_show-msgno.
MOVE <fs_result>-rep_class TO gs_result_show-rep_class.
MOVE <fs_result>-rep_methode TO gs_result_show-rep_methode.
IF gs_result_show-rep_methode IS INITIAL.
SELECT SINGLE rep_class, rep_method FROM /deso/dh_c_rep
INTO ( @gs_result_show-rep_class,
@gs_result_show-rep_methode )
WHERE check_view = @gs_result_show-check_view
AND object = @gs_result_show-object
AND msgty = @gs_result_show-msgty
AND msgid = @gs_result_show-msgid
AND msgno = @gs_result_show-msgno.
ENDIF.
IF NOT <fs_result>-msgtxt IS INITIAL AND <fs_result>-msgno = '000'.
MOVE <fs_result>-msgtxt TO gs_result_show-msgtxt.
ELSE.
SELECT SINGLE text INTO gs_result_show-msgtxt
FROM t100
WHERE sprsl = sy-langu
AND arbgb = <fs_result>-msgid
AND msgnr = <fs_result>-msgno.
ENDIF.
MOVE <fs_result>-status TO gs_result_show-status.
MOVE 1 TO gs_result_show-count.
COLLECT gs_result_show INTO gt_result_show.
ENDLOOP.
SORT gt_result_show BY refobject ASCENDING count DESCENDING.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form build_fieldcat_result
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM build_fieldcat_result .
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = '/DESO/DH_MESSAGE'
i_bypassing_buffer = abap_true
CHANGING
ct_fieldcat = gt_fieldcat_result.
LOOP AT gt_fieldcat_result ASSIGNING FIELD-SYMBOL(<ls_fcat>).
CASE <ls_fcat>-fieldname.
WHEN 'MANDT' OR 'CLASS' OR 'METHOD' OR 'MSGV1' OR 'MSGV2' OR 'MSGV3' OR 'MSGV4'
OR 'OBJECT' OR 'OBJKEY' OR 'REFOBJKEY' OR 'REPDATE' OR 'REPTIME' OR 'REPNAME' OR 'CRDATE' OR 'CRTIME' OR 'CRNAME'.
DELETE gt_fieldcat_result INDEX sy-tabix.
CONTINUE.
WHEN 'MSGTXT'.
<ls_fcat>-outputlen = 70.
WHEN 'REFFLD'.
<ls_fcat>-outputlen = '20'.
WHEN 'MSGTY'.
<ls_fcat>-outputlen = 5.
WHEN 'AKTIV'.
<ls_fcat>-checkbox = abap_true.
<ls_fcat>-edit = abap_true.
<ls_fcat>-outputlen = 5.
WHEN 'REP_CLASS'.
<ls_fcat>-outputlen = 25.
<ls_fcat>-scrtext_s =
<ls_fcat>-scrtext_m =
<ls_fcat>-scrtext_l =
<ls_fcat>-reptext = 'Reparaturklasse'.
* <ls_fcat>-edit = abap_true.
WHEN 'REP_METHODE'.
<ls_fcat>-outputlen = 25.
<ls_fcat>-scrtext_s =
<ls_fcat>-scrtext_m =
<ls_fcat>-scrtext_l =
<ls_fcat>-reptext = 'Reparaturmethode'.
* <ls_fcat>-edit = abap_true.
WHEN 'STATUS'.
<ls_fcat>-outputlen = 4.
<ls_fcat>-scrtext_s =
<ls_fcat>-scrtext_m =
<ls_fcat>-scrtext_l =
<ls_fcat>-reptext = 'Reparaturstatus'.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
READ TABLE gt_fieldcat_result WITH KEY col_pos = 99 BINARY SEARCH TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
APPEND INITIAL LINE TO gt_fieldcat_result ASSIGNING <ls_fcat>.
<ls_fcat>-fieldname = 'COUNT'.
<ls_fcat>-outputlen = 10.
<ls_fcat>-col_pos = 99.
<ls_fcat>-scrtext_s =
<ls_fcat>-scrtext_m =
<ls_fcat>-scrtext_l =
<ls_fcat>-reptext = 'Anzahl'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form build_fieldcat_result
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM build_fieldcat_result_detail.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = '/DESO/DH_MESSAGE'
i_bypassing_buffer = abap_true
CHANGING
ct_fieldcat = gt_fieldcat_detail.
LOOP AT gt_fieldcat_detail ASSIGNING FIELD-SYMBOL(<ls_fcat>).
CASE <ls_fcat>-fieldname.
WHEN 'MANDT' OR 'CLASS' OR 'METHOD' OR 'MSGV1' OR 'MSGV2' OR 'MSGV3' OR 'MSGV4' OR
'REPDATE' OR 'REPTIME' OR 'REPNAME' OR 'CRDATE' OR 'CRTIME' OR 'CRNAME'.
DELETE gt_fieldcat_detail INDEX sy-tabix.
CONTINUE.
WHEN 'OBJECT' OR 'REFOBJECT'.
<ls_fcat>-outputlen = 10.
WHEN 'OBJKEY' OR 'REFOBJKEY'.
<ls_fcat>-outputlen = 10.
WHEN 'REFFLD'.
<ls_fcat>-outputlen = 20.
WHEN 'MSGID'.
<ls_fcat>-outputlen = 7.
WHEN 'MSGTY'.
<ls_fcat>-outputlen = 5.
WHEN 'STATUS'.
<ls_fcat>-outputlen = 4.
<ls_fcat>-scrtext_s =
<ls_fcat>-scrtext_m =
<ls_fcat>-scrtext_l =
<ls_fcat>-reptext = 'Reparaturstatus'.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form start_jobs
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM start_jobs_analyse.
DEFINE mac_so.
LOOP AT &1.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = &1-sign.
<ls_sel>-option = &1-option.
<ls_sel>-kind = 'S'.
<ls_sel>-selname = '&1'.
<ls_sel>-low = &1-low.
<ls_sel>-high = &1-high.
ENDLOOP.
END-OF-DEFINITION.
DATA: lv_jobname TYPE tbtcjob-jobname.
DATA: lv_jobcount LIKE tbtcjob-jobcount.
DATA: BEGIN OF ls_starttime.
INCLUDE STRUCTURE tbtcstrt.
DATA: END OF ls_starttime.
DATA: lt_selection TYPE TABLE OF rsparams.
DATA: startimmediate LIKE btch0000-char1.
DATA: job_already_released.
lv_jobname = '/DESO/DATA_HAWK' && '_' && gv_var.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lv_jobname
IMPORTING
jobcount = lv_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ELSE.
APPEND INITIAL LINE TO lt_selection ASSIGNING FIELD-SYMBOL(<ls_sel>).
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_VIEW'.
<ls_sel>-low = gv_var.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_DEV'.
<ls_sel>-low = pa_dev.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_PREL'.
<ls_sel>-low = pa_prel.
mac_so so_gpart.
mac_so so_vkont.
mac_so so_vert.
mac_so so_bukrs.
mac_so so_anl.
mac_so so_vst.
mac_so so_ao.
mac_so so_matnr.
mac_so so_ger.
mac_so so_ginf.
mac_so so_extui.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_AKT'.
<ls_sel>-low = pa_akt.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_BTC'.
<ls_sel>-low = pa_batch.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_BATCH'.
<ls_sel>-low = pa_batch.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_BTCNT'.
<ls_sel>-low = pa_count.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_BGRFC'.
<ls_sel>-low = pa_bgrfc.
SUBMIT /deso/dh_hawk_btc WITH SELECTION-TABLE lt_selection
VIA JOB lv_jobname NUMBER lv_jobcount AND RETURN.
CALL FUNCTION 'BP_START_DATE_EDITOR'
EXPORTING
stdt_dialog = 'Y'
stdt_input = ls_starttime
stdt_opcode = '14'
IMPORTING
* stdt_modify_type = start_modify_flag
stdt_output = ls_starttime
EXCEPTIONS
fcal_id_not_defined = 01
incomplete_last_startdate = 02
incomplete_startdate = 03
invalid_dialog_type = 04
invalid_eventid = 05
invalid_opcode = 06
invalid_opmode_name = 07
invalid_periodbehaviour = 08
invalid_predecessor_jobname = 09
last_startdate_in_the_past = 10
no_period_data_given = 11
no_startdate_given = 12
period_and_predjob_no_way = 13
period_too_small_for_limit = 14
predecessor_jobname_not_unique = 15
startdate_interval_too_large = 16
startdate_in_the_past = 17
startdate_is_a_holiday = 18
startdate_out_of_fcal_range = 19
stdt_before_holiday_in_past = 20
unknown_fcal_error_occured = 21.
CASE ls_starttime-startdttyp.
WHEN 'I'. "User selected immediate start
startimmediate = 'X'.
ENDCASE.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
at_opmode = ' '
at_opmode_periodic = ' '
calendar_id = ' '
event_id = ls_starttime-eventid
event_param = ls_starttime-eventparm
event_periodic = ' '
jobcount = lv_jobcount
jobname = lv_jobname
laststrtdt = ls_starttime-laststrtdt
laststrttm = ls_starttime-laststrttm
prddays = ls_starttime-prddays
prdhours = ls_starttime-prdhours
prdmins = ls_starttime-prdmins
prdmonths = ls_starttime-prdmonths
prdweeks = ls_starttime-prdweeks
predjob_checkstat = ' '
pred_jobcount = ' '
pred_jobname = ' '
sdlstrtdt = ls_starttime-sdlstrtdt
sdlstrttm = ls_starttime-sdlstrttm
* startdate_restriction = btc_process_always
strtimmed = startimmediate
IMPORTING
job_was_released = job_already_released
EXCEPTIONS
cant_start_immediate = 01
invalid_startdate = 02
jobname_missing = 03
job_close_failed = 04
job_nosteps = 05
job_notex = 06
lock_failed = 07.
IF sy-subrc = 0.
IF startimmediate = abap_true.
MESSAGE s000(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und gestartet.
ELSE.
MESSAGE s001(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und eingeplant.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9003 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9003 INPUT.
DATA: ls_coll TYPE /deso/dh_c_rep.
CASE sy-ucomm.
WHEN 'SAVE'.
PERFORM save_result.
g_tabstrip-pressed_tab = c_tabstrip-tab3.
WHEN 'KORR_RUN'.
PERFORM start_korrektur.
g_tabstrip-pressed_tab = c_tabstrip-tab3.
WHEN 'REF'.
PERFORM build_data_result.
g_tabstrip-pressed_tab = c_tabstrip-tab3.
WHEN 'DELE'.
g_tabstrip-pressed_tab = c_tabstrip-tab3.
DATA: lv_answer_del.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'DATA Hawk'
text_question = 'Analyseergebnis wirklich löschen?'
default_button = '2'
display_cancel_button = wfcst_cfalse
popup_type = 'ICON_MESSAGE_WARNING'
IMPORTING
answer = lv_answer_del
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF lv_answer_del = '1'.
DELETE FROM /deso/dh_message
WHERE check_view = gv_var.
REFRESH gt_result_show.
ENDIF.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form start_korrektur
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM start_korrektur .
BREAK-POINT.
DATA: lt_index_rows TYPE lvc_t_row,
lt_row_no TYPE lvc_t_roid.
CALL METHOD g_grid_result->get_selected_rows
IMPORTING
et_index_rows = lt_index_rows
et_row_no = lt_row_no.
IF lines( lt_index_rows ) = 0.
ELSE.
LOOP AT lt_index_rows ASSIGNING FIELD-SYMBOL(<ls_index_rows>).
READ TABLE gt_result_show ASSIGNING FIELD-SYMBOL(<ls_result_show>) INDEX <ls_index_rows>-index.
IF sy-subrc = 0.
PERFORM start_jobs_repare USING <ls_result_show>.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form save_result
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM save_result .
CALL METHOD g_grid->check_changed_data.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form start_jobs_repare
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM start_jobs_repare USING ls_result_show TYPE ty_result_show.
DATA: lv_jobname TYPE tbtcjob-jobname.
DATA: lv_jobcount LIKE tbtcjob-jobcount.
DATA: BEGIN OF ls_starttime.
INCLUDE STRUCTURE tbtcstrt.
DATA: END OF ls_starttime.
DATA: lt_selection TYPE TABLE OF rsparams.
DATA: startimmediate LIKE btch0000-char1.
DATA: job_already_released.
lv_jobname = '/DESO/DATA_HAWK_REPARE' && '_' && gv_var.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = lv_jobname
IMPORTING
jobcount = lv_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ELSE.
APPEND INITIAL LINE TO lt_selection ASSIGNING FIELD-SYMBOL(<ls_sel>).
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_VIEW'.
<ls_sel>-low = ls_result_show-check_view.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'pa_obj'.
<ls_sel>-low = ls_result_show-object.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_REFOB'.
<ls_sel>-low = ls_result_show-refobject.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_REFFL'.
<ls_sel>-low = ls_result_show-reffld.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_MSGTY'.
<ls_sel>-low = ls_result_show-msgty.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_MSGID'.
<ls_sel>-low = ls_result_show-msgid.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_MSGNO'.
<ls_sel>-low = ls_result_show-msgno.
SUBMIT /deso/dh_hawk_correct WITH SELECTION-TABLE lt_selection
VIA JOB lv_jobname NUMBER lv_jobcount AND RETURN.
CALL FUNCTION 'BP_START_DATE_EDITOR'
EXPORTING
stdt_dialog = 'Y'
stdt_input = ls_starttime
stdt_opcode = '14'
IMPORTING
* stdt_modify_type = start_modify_flag
stdt_output = ls_starttime
EXCEPTIONS
fcal_id_not_defined = 01
incomplete_last_startdate = 02
incomplete_startdate = 03
invalid_dialog_type = 04
invalid_eventid = 05
invalid_opcode = 06
invalid_opmode_name = 07
invalid_periodbehaviour = 08
invalid_predecessor_jobname = 09
last_startdate_in_the_past = 10
no_period_data_given = 11
no_startdate_given = 12
period_and_predjob_no_way = 13
period_too_small_for_limit = 14
predecessor_jobname_not_unique = 15
startdate_interval_too_large = 16
startdate_in_the_past = 17
startdate_is_a_holiday = 18
startdate_out_of_fcal_range = 19
stdt_before_holiday_in_past = 20
unknown_fcal_error_occured = 21.
CASE ls_starttime-startdttyp.
WHEN 'I'. "User selected immediate start
startimmediate = 'X'.
ENDCASE.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
at_opmode = ' '
at_opmode_periodic = ' '
calendar_id = ' '
event_id = ls_starttime-eventid
event_param = ls_starttime-eventparm
event_periodic = ' '
jobcount = lv_jobcount
jobname = lv_jobname
laststrtdt = ls_starttime-laststrtdt
laststrttm = ls_starttime-laststrttm
prddays = ls_starttime-prddays
prdhours = ls_starttime-prdhours
prdmins = ls_starttime-prdmins
prdmonths = ls_starttime-prdmonths
prdweeks = ls_starttime-prdweeks
predjob_checkstat = ' '
pred_jobcount = ' '
pred_jobname = ' '
sdlstrtdt = ls_starttime-sdlstrtdt
sdlstrttm = ls_starttime-sdlstrttm
* startdate_restriction = btc_process_always
strtimmed = startimmediate
IMPORTING
job_was_released = job_already_released
EXCEPTIONS
cant_start_immediate = 01
invalid_startdate = 02
jobname_missing = 03
job_close_failed = 04
job_nosteps = 05
job_notex = 06
lock_failed = 07.
IF sy-subrc = 0.
IF startimmediate = abap_true.
MESSAGE s000(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und gestartet.
ELSE.
MESSAGE s001(/deso/mig_message) WITH lv_jobname.
* Job &1 wurde angelegt und eingeplant.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.

20
src/#deso#dh_hawk_fo.prog.xml Normal file
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>/DESO/DH_HAWK_FO</NAME>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>D</RLOAD>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include für DATA Hawk Forms</ENTRY>
<LENGTH>49</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

169
src/#deso#dh_hawk_me.prog.abap Normal file
View File

@@ -0,0 +1,169 @@
*&---------------------------------------------------------------------*
*& Include /DESO/DH_HAWK_M
*&---------------------------------------------------------------------*
CLASS lcl_application DEFINITION.
PUBLIC SECTION.
METHODS: alv_handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed
e_onf4
e_onf4_before
e_onf4_after
e_ucomm.
ENDCLASS. "LCL_APPLICATION DEFINITION
*----------------------------------------------------------------------*
* CLASS LCL_APPLICATION IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_application IMPLEMENTATION.
METHOD alv_handle_data_changed.
DATA: ls_good TYPE lvc_s_modi.
LOOP AT er_data_changed->mt_good_cells INTO ls_good.
**** Dazu auf die richtige Zeile in der ITAB positionieren:
READ TABLE gt_result_show ASSIGNING FIELD-SYMBOL(<ls_result_collect>) INDEX ls_good-row_id.
DATA: ls_result_collect TYPE /deso/dh_c_rep.
MOVE-CORRESPONDING <ls_result_collect> TO ls_result_collect.
ASSIGN COMPONENT ls_good-fieldname OF STRUCTURE ls_result_collect TO FIELD-SYMBOL(<field>).
ASSIGN COMPONENT ls_good-fieldname OF STRUCTURE <ls_result_collect> TO FIELD-SYMBOL(<field_show>).
<field_show> = <field> = ls_good-value.
UPDATE /deso/dh_c_rep FROM ls_result_collect.
CASE ls_good-fieldname.
WHEN 'REP_CLASS'.
UPDATE /deso/dh_message SET rep_class = <field>
WHERE check_view = ls_result_collect-check_view
AND object = ls_result_collect-object
AND msgty = ls_result_collect-msgty
AND msgid = ls_result_collect-msgid
AND msgno = ls_result_collect-msgno.
WHEN 'REP_METHODE'.
UPDATE /deso/dh_message SET rep_methode = <field>
WHERE check_view = ls_result_collect-check_view
AND object = ls_result_collect-object
AND msgty = ls_result_collect-msgty
AND msgid = ls_result_collect-msgid
AND msgno = ls_result_collect-msgno.
ENDCASE.
MESSAGE s000(em) WITH 'Daten gesichert'.
ENDLOOP.
IF sy-subrc <> 0.
MESSAGE s000(em) WITH 'Keine veränderten Daten'.
ENDIF.
ENDMETHOD.
ENDCLASS. "LCL_APPLICATION IMPLEMENTATION
CLASS handle DEFINITION.
PUBLIC SECTION.
CLASS-METHODS : handle_double_click
FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING e_row.
CLASS-METHODS : handle_close
FOR EVENT close OF cl_gui_dialogbox_container
IMPORTING sender.
CLASS-METHODS : on_toolbar
FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object.
CLASS-METHODS : on_user_command
FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.
ENDCLASS.
CLASS handle IMPLEMENTATION.
METHOD handle_double_click.
READ TABLE gt_result_show ASSIGNING FIELD-SYMBOL(<fs_res_show>) INDEX e_row-index.
PERFORM build_fieldcat_result_detail.
REFRESH gt_result_detail.
LOOP AT gt_result ASSIGNING FIELD-SYMBOL(<fs_res>)
WHERE check_view = <fs_res_show>-check_view AND
refobject = <fs_res_show>-refobject AND
reffld = <fs_res_show>-reffld AND
msgty = <fs_res_show>-msgty AND
msgid = <fs_res_show>-msgid AND
msgno = <fs_res_show>-msgno.
APPEND INITIAL LINE TO gt_result_detail ASSIGNING FIELD-SYMBOL(<fs_det>).
MOVE-CORRESPONDING <fs_res> TO <fs_det>.
ENDLOOP.
CREATE OBJECT o_dial
EXPORTING
width = 1450
height = 400
top = 50
left = 200
caption = 'Details'.
SET HANDLER handle=>handle_close FOR o_dial.
CREATE OBJECT o_alv2
EXPORTING
i_parent = o_dial.
CALL METHOD o_alv2->set_table_for_first_display
CHANGING
it_outtab = gt_result_detail
it_fieldcatalog = gt_fieldcat_detail.
CALL METHOD o_alv2->refresh_table_display.
REFRESH gt_fieldcat_detail.
ENDMETHOD.
METHOD handle_close.
CALL METHOD sender->set_visible
EXPORTING
visible = space.
ENDMETHOD.
METHOD on_toolbar.
DATA btn TYPE stb_button.
CASE alv_ok_code.
WHEN 'include'.
btn-function = 'exclude'.
btn-icon = icon_pdir_foreward_switch.
WHEN 'exclude'.
CLEAR e_object->mt_toolbar.
btn-function = 'include'.
btn-icon = icon_pdir_back_switch.
ENDCASE.
INSERT btn INTO TABLE e_object->mt_toolbar.
ENDMETHOD.
METHOD on_user_command.
CASE e_ucomm.
WHEN 'include' OR 'exclude'.
alv_ok_code = e_ucomm.
CALL METHOD o_alv1->set_toolbar_interactive.
ENDCASE.
ENDMETHOD.
ENDCLASS.
*&---------------------------------------------------------------------*
*& Module FILL_VARIANT OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*

20
src/#deso#dh_hawk_me.prog.xml Normal file
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>/DESO/DH_HAWK_ME</NAME>
<SUBC>I</SUBC>
<RLOAD>D</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include für DATA Hawk Methoden</ENTRY>
<LENGTH>30</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

390
src/#deso#dh_hawk_mo.prog.abap Normal file
View File

@@ -0,0 +1,390 @@
*----------------------------------------------------------------------*
***INCLUDE /DESO/DH_HAWK_CONT_M.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module CONT0 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE cont0 OUTPUT.
TYPE-POOLS: cndp.
* CALL METHOD go_picture_html->free.
* CLEAR: go_picture_html,
* CLEAR go_container_html.
IF go_container_html IS INITIAL.
CREATE OBJECT go_container_html
EXPORTING
container_name = 'CONT0' "NAME CUSTOM CONTAINER
repid = '/DESO/DH_HAWK' "PROGRAMM NAME
dynnr = '9000' "DYNPRONAME
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
IF sy-subrc <> 0.
MESSAGE i001(00) WITH 'Fehler mit dem erstellen des HTML-Containers'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
IF go_picture_html IS INITIAL.
CREATE OBJECT go_picture_html
EXPORTING
parent = go_container_html
EXCEPTIONS
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE i001(00) WITH 'Fehler mit dem anzeigen des HTML'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
IF go_picture_html IS NOT INITIAL
AND lines( lt_raw_html ) = 0.
APPEND '<html lang="de">' TO lt_raw_html.
APPEND '<head>' TO lt_raw_html.
APPEND ' <meta charset="UTF-8" />' TO lt_raw_html.
APPEND ' <title>Text rechts auf dem Bild</title>' TO lt_raw_html.
APPEND ' <style>' TO lt_raw_html.
APPEND ' .image-container {position: relative;display: inline-block;max-width: 1800px;}' TO lt_raw_html.
APPEND ' .image-container img {width: 100%;height: 100%;display: block;}' TO lt_raw_html.
APPEND ' .support-button {position: absolute;bottom: 20px;right: 20px;z-index: 10;}' TO lt_raw_html.
APPEND ' .support-button button {padding: 6px 12px;font-size: 12px;font-family: Arial, sans-serif;' TO lt_raw_html.
APPEND ' border-radius: 4px;background-color: white;color: black;border: none;cursor: pointer;}' TO lt_raw_html.
APPEND ' .support-button button:hover {background-color: #0056b3;}' TO lt_raw_html.
APPEND ' .overlay-text {position: absolute;top: 10%;right: 15px;transform: translateY(-10%);color: white;padding: 10px 15px;' TO lt_raw_html.
APPEND ' font-size: 0.8em;font-family: Arial, sans-serif;border-radius: 5px;max-width: 40%;}' TO lt_raw_html.
APPEND ' .overlay-text-blink {position: absolute;top: 10%;right: 20px;transform: translateY(-1%);color: white;padding: 10px 15px;' TO lt_raw_html.
APPEND ' font-size: 0.8em;font-family: Arial, sans-serif;border-radius: 5px;max-width: 40%;animation: blink-animation 1s steps(2, start) infinite;}' TO lt_raw_html.
APPEND ' @keyframes blink-animation {20%, 100% {opacity: 1;}10% {opacity: 0;}}' TO lt_raw_html.
APPEND ' </style>' TO lt_raw_html.
APPEND '</head>' TO lt_raw_html.
APPEND '<body>' TO lt_raw_html.
APPEND ' <div class="image-container">' TO lt_raw_html.
APPEND ' <img src="https://media.dechange-solutions.de/DATA-hawk.png" alt="Beispielbild" />' TO lt_raw_html.
CONCATENATE ' <div class="overlay-text">Version' gv_version '</div>' INTO ls_raw_html_line SEPARATED BY space.
APPEND ls_raw_html_line TO lt_raw_html.
APPEND ' <div class="support-button">' TO lt_raw_html.
APPEND ' <a href="http://support.ds-intern.de" target="_blank"><button>Support</button></a>' TO lt_raw_html.
APPEND ' </div>' TO lt_raw_html.
APPEND ' </div>' TO lt_raw_html.
APPEND '</body>' TO lt_raw_html.
APPEND '</html>' TO lt_raw_html.
* CONCATENATE ' <div class="overlay-text">Version' gv_version '</div>' INTO ls_raw_html_line SEPARATED BY space.
* APPEND ls_raw_html_line TO lt_raw_html.
* CALL METHOD g_util->check_version
* IMPORTING
* ev_last_version = lv_last_version.
* IF lv_last_version <> gv_version.
* APPEND ' <div class="overlay-text-blink">Neue Version verfügbar</dif>' TO lt_raw_html.
* ENDIF.
* APPEND '<br>' TO lt_raw_html.
* APPEND '<div class="overlay-text">support@dechange-solutions.de</dif>' TO lt_raw_html.
* APPEND ' </div>' TO lt_raw_html.
CALL METHOD go_picture_html->load_data
EXPORTING
url = lv_url_html
IMPORTING
assigned_url = lv_url_html
CHANGING
data_table = lt_raw_html
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
CALL METHOD go_picture_html->set_ui_flag
EXPORTING
uiflag = cl_gui_html_viewer=>uiflag_no3dborder.
CALL METHOD go_picture_html->show_data
EXPORTING
url = lv_url_html.
ENDIF.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
SET PF-STATUS '9000'.
SET TITLEBAR '/DESO/DH_HAWK'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
DATA: lv_answer.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'DATA Hawk beenden'
text_question = 'Wollen Sie wirklich den DATA Hawk verlassen?'
default_button = '2'
display_cancel_button = wfcst_cfalse
popup_type = 'ICON_MESSAGE_WARNING'
IMPORTING
answer = lv_answer
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF lv_answer = '1'.
LEAVE PROGRAM.
ENDIF.
WHEN 'CUST'.
CALL TRANSACTION '/DESO/DH_CUST'.
ENDCASE.
ENDMODULE.
MODULE fill_variant OUTPUT.
TYPE-POOLS vrm.
DATA values TYPE vrm_values WITH HEADER LINE.
FIELD-SYMBOLS <values> TYPE vrm_value.
DATA lv_field_name TYPE vrm_id.
IF init IS INITIAL.
SELECT * FROM /deso/dh_vari_t
INTO CORRESPONDING FIELDS OF TABLE lt_vari.
" with key and no text/value ( for SR/Swiss )
LOOP AT lt_vari ASSIGNING FIELD-SYMBOL(<ls_vari>).
APPEND INITIAL LINE TO values ASSIGNING <values>.
<values>-key = <ls_vari>-check_view.
* <values>-text = <ls_vari>-descript.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'GV_VAR'
values = values[]
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
init = 'X'.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9002 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9002 INPUT.
CASE sy-ucomm.
WHEN 'START'.
* BREAK-POINT.
g_tabstrip-pressed_tab = 'TABSTRIP_FC2'.
PERFORM start_jobs_analyse.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_9002 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9002 OUTPUT.
SELECT SINGLE bgrfc_dest FROM /deso/dh_c_ht
INTO pa_dest
WHERE check_view = gv_var.
SELECT SINGLE bgrfc_pack FROM /deso/dh_c_ht
INTO pa_pack
WHERE check_view = gv_var.
SELECT SINGLE batch_count FROM /deso/dh_c_ht
INTO pa_count
WHERE check_view = gv_var.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_9003 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9003 OUTPUT.
DATA: lt_exclude_result TYPE ui_functions.
IF g_custom_container_result IS INITIAL.
CREATE OBJECT g_custom_container_result
EXPORTING
container_name = 'CONT2'.
CREATE OBJECT g_grid_result
EXPORTING
i_parent = g_custom_container_result.
ENDIF.
CALL METHOD g_grid_result->check_changed_data.
gs_variant-report = sy-repid.
gs_variant-variant = cl_st.
gs_variant-handle = '9003'.
PERFORM build_fieldcat_result.
PERFORM build_layout.
* Optionally restrict generic functions to 'change only'.
* (The user shall not be able to add new lines).
PERFORM exclude_tb_functions CHANGING lt_exclude.
* PERFORM set_drdn_table.
PERFORM build_data_result.
gs_layout-no_toolbar = abap_true.
SET HANDLER handle=>handle_double_click FOR g_grid_result.
SET HANDLER handle=>on_toolbar FOR g_grid_result.
SET HANDLER handle=>on_user_command FOR g_grid_result.
CALL METHOD g_grid_result->set_table_for_first_display
EXPORTING
it_toolbar_excluding = lt_exclude_result
i_default = abap_true
is_variant = gs_variant
is_layout = gs_layout
CHANGING
it_fieldcatalog = gt_fieldcat_result
it_outtab = gt_result_show[].
SET HANDLER g_application->alv_handle_data_changed FOR g_grid_result.
* Set editable cells to ready for input initially
* IF gt_fld[] IS NOT INITIAL.
CALL METHOD g_grid_result->set_ready_for_input
EXPORTING
i_ready_for_input = 1.
g_grid_result->refresh_table_display( is_stable = VALUE lvc_s_stbl( row = abap_true
col = abap_true )
i_soft_refresh = abap_false ).
cl_gui_cfw=>flush( ).
ENDMODULE.
*&SPWIZARD: OUTPUT MODULE FOR TS 'TABSTRIP'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE tabstrip_active_tab_set OUTPUT.
tabstrip-activetab = g_tabstrip-pressed_tab.
CASE g_tabstrip-pressed_tab.
WHEN c_tabstrip-tab1.
g_tabstrip-subscreen = '9001'.
WHEN c_tabstrip-tab2.
g_tabstrip-subscreen = '9002'.
WHEN c_tabstrip-tab3.
g_tabstrip-subscreen = '9003'.
WHEN c_tabstrip-tab4.
g_tabstrip-subscreen = '9004'.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&SPWIZARD: INPUT MODULE FOR TS 'TABSTRIP'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE tabstrip_active_tab_get INPUT.
ok_code = sy-ucomm.
CASE ok_code.
WHEN c_tabstrip-tab1.
g_tabstrip-pressed_tab = c_tabstrip-tab1.
WHEN c_tabstrip-tab2.
g_tabstrip-pressed_tab = c_tabstrip-tab2.
WHEN c_tabstrip-tab3.
g_tabstrip-pressed_tab = c_tabstrip-tab3.
WHEN c_tabstrip-tab4.
g_tabstrip-pressed_tab = c_tabstrip-tab4.
WHEN OTHERS.
*&SPWIZARD: DO NOTHING
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_9001 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9001 OUTPUT.
IF g_custom_container IS INITIAL.
CREATE OBJECT g_custom_container
EXPORTING
container_name = 'CONT1'.
CREATE OBJECT g_grid
EXPORTING
i_parent = g_custom_container.
ENDIF.
CALL METHOD g_grid->check_changed_data.
gs_variant-report = sy-repid.
gs_variant-variant = cl_st.
gs_variant-handle = '9001'.
PERFORM build_fieldcat.
PERFORM build_layout.
* Optionally restrict generic functions to 'change only'.
* (The user shall not be able to add new lines).
PERFORM exclude_tb_functions CHANGING lt_exclude.
* PERFORM set_drdn_table.
PERFORM build_data.
gs_layout-no_toolbar = abap_true.
CALL METHOD g_grid->set_table_for_first_display
EXPORTING
it_toolbar_excluding = lt_exclude
i_default = abap_true
is_variant = gs_variant
is_layout = gs_layout
CHANGING
it_fieldcatalog = gt_fieldcat
it_outtab = gt_var[].
* SET HANDLER g_application->alv_handle_data_changed FOR g_grid.
* SET HANDLER g_application->alv_handle_link_click FOR g_grid.
* SET HANDLER g_application->alv_handle_button_click FOR g_grid.
* SET HANDLER g_application->alv_handle_double_click FOR g_grid.
* Set editable cells to ready for input initially
* IF gt_fld[] IS NOT INITIAL.
CALL METHOD g_grid->set_ready_for_input
EXPORTING
i_ready_for_input = 1.
g_grid->refresh_table_display( is_stable = VALUE lvc_s_stbl( row = abap_true
col = abap_true )
i_soft_refresh = abap_false ).
cl_gui_cfw=>flush( ).
* ENDIF.
ENDMODULE.

20
src/#deso#dh_hawk_mo.prog.xml Normal file
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>/DESO/DH_HAWK_MO</NAME>
<SUBC>I</SUBC>
<RLOAD>D</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include für DATA Hawk Module</ENTRY>
<LENGTH>31</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

37
src/#deso#dh_hawk_se.prog.abap Normal file
View File

@@ -0,0 +1,37 @@
*&---------------------------------------------------------------------*
*& Include /DESO/DH_HAWK_S
*&---------------------------------------------------------------------*
TABLES: fkkvkp,
ever,
evbs,
equi,
egerr,
ehauisu,
euitrans.
SELECTION-SCREEN BEGIN OF SCREEN 0100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS so_gpart FOR fkkvkp-gpart.
SELECT-OPTIONS so_vkont FOR fkkvkp-vkont.
SELECT-OPTIONS so_vert FOR ever-vertrag.
SELECT-OPTIONS so_bukrs FOR ever-bukrs.
SELECT-OPTIONS so_anl FOR ever-anlage.
SELECT-OPTIONS so_vst FOR evbs-vstelle.
SELECT-OPTIONS so_ao FOR ehauisu-haus.
SELECT-OPTIONS so_matnr FOR equi-matnr.
SELECT-OPTIONS so_ger FOR equi-equnr.
SELECT-OPTIONS so_ginf FOR egerr-equnr.
SELECT-OPTIONS so_extui FOR euitrans-ext_ui.
PARAMETERS: pa_akt AS CHECKBOX.
PARAMETERS: pa_dev TYPE flag. "Zusatzdaten beim Gerät beachten: ZW-/Gerätezuordnungen, ZW-Beziehungen und weitere Daten nachladen
PARAMETERS: pa_prel TYPE flag. "ZP-Beziehungen lesen und Daten zu den in der Beziehungen vorkommenden ZP nachladen
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-002.
PARAMETERS: pa_bgrfc RADIOBUTTON GROUP 1.
PARAMETERS: pa_dest TYPE rfcdest,
pa_pack TYPE i DEFAULT '500'.
PARAMETERS: pa_batch RADIOBUTTON GROUP 1.
PARAMETERS: pa_count TYPE i.
SELECTION-SCREEN END OF BLOCK 2.
SELECTION-SCREEN END OF SCREEN 0100.

20
src/#deso#dh_hawk_se.prog.xml Normal file
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>/DESO/DH_HAWK_SE</NAME>
<SUBC>I</SUBC>
<RLOAD>D</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include für DATA Hawk Selektionsbildschirm</ENTRY>
<LENGTH>42</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

212
src/#deso#dh_message.tabl.xml Normal file
View File

@@ -0,0 +1,212 @@
<?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>/DESO/DH_MESSAGE</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Fehlerprotokolltabelle</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_MESSAGE</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>9</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJKEY</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>EDC_REFKEY</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CLASS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SEOCLSNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>METHOD</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SEOCPDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REFOBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REFOBJKEY</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>EDC_REFKEY</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REFFLD</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>FIELDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGTY</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MSGTY</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGID</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MSGID</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGNO</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MSGNO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGV1</FIELDNAME>
<ROLLNAME>SYST_MSGV</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGV2</FIELDNAME>
<ROLLNAME>SYST_MSGV</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGV3</FIELDNAME>
<ROLLNAME>SYST_MSGV</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGV4</FIELDNAME>
<ROLLNAME>SYST_MSGV</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MSGTXT</FIELDNAME>
<ROLLNAME>OIJ_MSG</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CRDATE</FIELDNAME>
<ROLLNAME>DATUM</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CRTIME</FIELDNAME>
<ROLLNAME>UZEIT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CRNAME</FIELDNAME>
<ROLLNAME>UNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REP_CLASS</FIELDNAME>
<ROLLNAME>SEOCLSNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REP_METHODE</FIELDNAME>
<ROLLNAME>SEOCPDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REPDATE</FIELDNAME>
<ROLLNAME>DATUM</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REPTIME</FIELDNAME>
<ROLLNAME>UZEIT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REPNAME</FIELDNAME>
<ROLLNAME>UNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>STATUS</FIELDNAME>
<ROLLNAME>ICON_D</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

38
src/#deso#dh_object.dtel.xml Normal file
View File

@@ -0,0 +1,38 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<DOMNAME>/DESO/DH_DO_OBJECT</DOMNAME>
<MEMORYID>OAO</MEMORYID>
<HEADLEN>13</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>15</SCRLEN2>
<SCRLEN3>20</SCRLEN3>
<DDTEXT>DATA Hawk: Objekttyp des Business Objekts</DDTEXT>
<REPTEXT>Objekttyp</REPTEXT>
<SCRTEXT_S>Objekttyp</SCRTEXT_S>
<SCRTEXT_M>Objekttyp</SCRTEXT_M>
<SCRTEXT_L>Objekttyp</SCRTEXT_L>
<DTELMASTER>D</DTELMASTER>
<DEFFDNAME>SAP_OBJECT</DEFFDNAME>
<REFKIND>D</REFKIND>
</DD04V>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD04_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>SAP ArchiveLink: Object type of business object</DDTEXT>
<REPTEXT>Object Type</REPTEXT>
<SCRTEXT_S>Obj. Type</SCRTEXT_S>
<SCRTEXT_M>Object Type</SCRTEXT_M>
<SCRTEXT_L>Object Type</SCRTEXT_L>
</item>
</DD04_TEXTS>
</asx:values>
</asx:abap>
</abapGit>

38
src/#deso#dh_object_id.dtel.xml Normal file
View File

@@ -0,0 +1,38 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>/DESO/DH_OBJECT_ID</ROLLNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<DOMNAME>SWO_TYPEID</DOMNAME>
<MEMORYID>OAO</MEMORYID>
<HEADLEN>13</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>15</SCRLEN2>
<SCRLEN3>20</SCRLEN3>
<DDTEXT>DATA Hawk: Objekttyp des Business Objekts</DDTEXT>
<REPTEXT>Objekttyp</REPTEXT>
<SCRTEXT_S>Objekttyp</SCRTEXT_S>
<SCRTEXT_M>Objekttyp</SCRTEXT_M>
<SCRTEXT_L>Objekttyp</SCRTEXT_L>
<DTELMASTER>D</DTELMASTER>
<DEFFDNAME>SAP_OBJECT</DEFFDNAME>
<REFKIND>D</REFKIND>
</DD04V>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD04_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>SAP ArchiveLink: Object type of business object</DDTEXT>
<REPTEXT>Object Type</REPTEXT>
<SCRTEXT_S>Obj. Type</SCRTEXT_S>
<SCRTEXT_M>Object Type</SCRTEXT_M>
<SCRTEXT_L>Object Type</SCRTEXT_L>
</item>
</DD04_TEXTS>
</asx:values>
</asx:abap>
</abapGit>

28
src/#deso#dh_repare.clas.abap Normal file
View File

@@ -0,0 +1,28 @@
class /DESO/DH_REPARE definition
public
create public .
public section.
methods REPARE_VORLAGE
importing
!IV_VIEW type /DESO/DH_VIEW
!IV_OBJECT type /DESO/DH_OBJECT
!IV_OBJKEY type EDC_REFKEY
changing
!CS_MESSAGE type /DESO/DH_MESSAGE optional
returning
value(RV_UPDATE) type KENNZX .
protected section.
private section.
ENDCLASS.
CLASS /DESO/DH_REPARE IMPLEMENTATION.
METHOD REPARE_VORLAGE.
ENDMETHOD.
ENDCLASS.

37
src/#deso#dh_repare.clas.xml Normal file
View File

@@ -0,0 +1,37 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>/DESO/DH_REPARE</CLSNAME>
<LANGU>D</LANGU>
<DESCRIPT>Klasse für Fehlerbehebung</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
<DESCRIPTIONS>
<SEOCOMPOTX>
<CMPNAME>REPARE_VORLAGE</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Vorlage</DESCRIPT>
</SEOCOMPOTX>
</DESCRIPTIONS>
<DESCRIPTIONS_SUB>
<SEOSUBCOTX>
<CMPNAME>REPARE_VORLAGE</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>SAP ArchiveLink: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>REPARE_VORLAGE</CMPNAME>
<SCONAME>RV_UPDATE</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Kennzeichen</DESCRIPT>
</SEOSUBCOTX>
</DESCRIPTIONS_SUB>
</asx:values>
</asx:abap>
</abapGit>

28
src/#deso#dh_s_check_field.tabl.xml Normal file
View File

@@ -0,0 +1,28 @@
<?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>/DESO/DH_S_CHECK_FIELD</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>INTTAB</TABCLASS>
<DDTEXT>DATA Hawk: Struktur für Tabellenamen</DDTEXT>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>TABNAME</FIELDNAME>
<ROLLNAME>TABNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>FIELDNAME</FIELDNAME>
<ROLLNAME>FNAM_____4</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

54
src/#deso#dh_s_pod_rel.tabl.xml Normal file
View File

@@ -0,0 +1,54 @@
<?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>/DESO/DH_S_POD_REL</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>INTTAB</TABCLASS>
<DDTEXT>DATA Hawk: Struktur für POD_REL</DDTEXT>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>MANDT</FIELDNAME>
<ROLLNAME>MANDT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>INT_UI1</FIELDNAME>
<ROLLNAME>INT_UI</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DATETO</FIELDNAME>
<ROLLNAME>DATUM</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>INT_UI2</FIELDNAME>
<ROLLNAME>INT_UI</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DATEFROM</FIELDNAME>
<ROLLNAME>DATUM</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REL_TYPE</FIELDNAME>
<ROLLNAME>CHAR4</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

22
src/#deso#dh_s_tabname.tabl.xml Normal file
View File

@@ -0,0 +1,22 @@
<?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>/DESO/DH_S_TABNAME</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>INTTAB</TABCLASS>
<DDTEXT>DATA Hawk: Struktur für Tabellenamen</DDTEXT>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>TABNAME</FIELDNAME>
<ROLLNAME>TABNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_check_field.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_CHECK_FIELD</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>/DESO/DH_S_CHECK_FIELD</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA Hawk: Prüffelder</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_data.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_DATA</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>/DESO/S_DATA</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA Hawk: Daten für die Verarbeitung</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_eanl.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EANL</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>V_EANL</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EANL</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_easti.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EASTI</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EASTI</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EASTI</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_eastl.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EASTL</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EASTL</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EASTL</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_easts.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EASTS</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EASTS</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EASTS</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_eger.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EGER</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>V_EGER</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EGER</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_egpl.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EGPL</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EGPL</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EGPL</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_ehau.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EHAU</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EHAU</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EHAU</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_ekun.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EKUN</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EKUN_EXT</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EKUN</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_etdz.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_ETDZ</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>ETDZ</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für ETDZ</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_euihead.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EUIHEAD</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EUIHEAD</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellesnstruktur für EUIHEAD</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_euiinstln.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EUIINSTLN</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EUIINSTLN</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellesnstruktur für EUIINSTLN</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_euitrans.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EUITRANS</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EUITRANS</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellesnstruktur für EUITRANS</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_evbs.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EVBS</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EVBS</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EVBS</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_ever.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EVER</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EVER</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EVER</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_ezug.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EZUG</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EZUG</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EZUG</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_ezuz.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_EZUZ</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>EZUZ</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für EZUZ</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_fkkvkp.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_FKKVKP</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>FKKVKP1</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für FKKVKP</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_message.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_MESSAGE</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>/DESO/DH_MESSAGE</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA Hawk: Message</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_param.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_PARAM</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>/DESO/S_PARAM</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur Parameter+Wert</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_pod_rel.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_POD_REL</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>/DESO/DH_S_POD_REL</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Tabellenstruktur für POD_REL</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_select.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_SELECT</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>/DESO/S_SELECT</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA HAWK: Datenübergabe</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

18
src/#deso#dh_tt_tabname.ttyp.xml Normal file
View File

@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>/DESO/DH_TT_TABNAME</TYPENAME>
<DDLANGUAGE>D</DDLANGUAGE>
<ROWTYPE>/DESO/DH_S_TABNAME</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>DATA Hawk: Tabellennamen</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>

225
src/#deso#dh_utilities.clas.abap Normal file
View File

@@ -0,0 +1,225 @@
class /DESO/DH_UTILITIES definition
public
final
create public .
public section.
data GT_WHERE type ICL_LINE_TT .
class-methods GET_PARAM
importing
value(PARAM) type /DESO/DH_OBJECT
value(DATA) type /DESO/S_DATA
returning
value(VALUE) type EDC_REFKEY .
class-methods SET_PARAM
importing
value(PARAM) type /DESO/DH_OBJECT
value(VALUE) type EDC_REFKEY
changing
!CS_DATA type /DESO/S_DATA .
methods INSERT_MESSAGE
importing
!IV_VIEW type /DESO/DH_VIEW
!IV_OBJECT type /DESO/DH_OBJECT
!IV_OBJKEY type EDC_REFKEY
!IV_REFOBJ type /DESO/DH_OBJECT
!IV_REFKEY type EDC_REFKEY
!IV_REFFLD type FIELDNAME optional
!IV_MSGTY type SYST_MSGTY optional
!IV_MSGID type SYST_MSGID optional
!IV_MSGNO type SYST_MSGNO optional
!IV_MSGV1 type SYST_MSGV optional
!IV_MSGV2 type SYST_MSGV optional
!IV_MSGV3 type SYST_MSGV optional
!IV_MSGV4 type SYST_MSGV optional
!IV_MSGTXT type NATXT optional
changing
!IS_DATA type /DESO/DH_MESSAGE .
methods GET_WHERE
importing
!IV_TABNAME type TABNAME
!IV_OBJECT type /DESO/DH_OBJECT
!IV_OBJKEY type EDC_REFKEY .
methods GET_TAB
importing
!IV_OBJECT type /DESO/DH_OBJECT
exporting
!ET_TABNAME type /DESO/DH_TT_TABNAME
!ET_CHECK_FIELD type /DESO/DH_TT_CHECK_FIELD
exceptions
NOT_CUSTOMIZED .
PROTECTED SECTION.
private section.
ENDCLASS.
CLASS /DESO/DH_UTILITIES IMPLEMENTATION.
METHOD get_tab.
SELECT tabname FROM /deso/dh_c_tab
INTO TABLE et_tabname
WHERE object = iv_object.
IF sy-subrc = 0.
SELECT * FROM dd03l
INTO CORRESPONDING FIELDS OF TABLE et_check_field
FOR ALL ENTRIES IN et_tabname
WHERE tabname = et_tabname-tabname
AND checktable NE space
AND NOT ( fieldname EQ 'CLIENT'
OR fieldname EQ 'MANDT' )
AND domname NE 'AD_ADDRNUM'.
ENDIF.
ENDMETHOD.
METHOD get_where.
DATA: ls_fieldname TYPE fieldname.
DATA: ls_value TYPE string.
DATA: ls_where TYPE string.
REFRESH gt_where.
ls_value = '"' && iv_objkey && '"'.
REPLACE ALL OCCURRENCES OF '"' IN ls_value WITH ''''.
SELECT fieldname FROM dd03l INTO ls_fieldname
WHERE tabname = iv_tabname
AND keyflag = abap_true
ORDER BY position.
CHECK ls_fieldname NE 'CLIENT'
AND ls_fieldname NE 'MANDT'
AND ls_fieldname(1) NE '.'.
CONCATENATE ls_fieldname '=' ls_value INTO ls_where SEPARATED BY space .
APPEND ls_where TO gt_where.
EXIT.
ENDSELECT.
ENDMETHOD.
METHOD insert_message.
DATA: lv_msgtxt TYPE natxt.
DATA: lv_msgnr TYPE msgnr.
DATA: lv_msgid TYPE syst_msgid.
DATA: lv_msgty TYPE syst_msgty.
DATA: ls_data TYPE /deso/dh_message.
lv_msgnr = iv_msgno.
lv_msgty = iv_msgty.
lv_msgid = iv_msgid.
IF lv_msgid IS INITIAL.
lv_msgid = '/DESO/'.
ENDIF.
IF lv_msgty IS INITIAL.
lv_msgty = 'E'.
ENDIF.
IF iv_msgtxt IS INITIAL.
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
language = 'D'
msg_id = lv_msgid
msg_no = lv_msgnr
msg_var1 = iv_msgv1
msg_var2 = iv_msgv2
msg_var3 = iv_msgv3
msg_var4 = iv_msgv4
IMPORTING
msg_text = lv_msgtxt
EXCEPTIONS
function_not_completed = 1
message_not_found = 2
OTHERS = 3.
ELSE.
lv_msgtxt = iv_msgtxt.
ENDIF.
is_data-object = iv_object.
is_data-objkey = iv_objkey.
is_data-refobject = iv_refobj.
is_data-refobjkey = iv_refkey.
is_data-reffld = iv_reffld.
is_data-check_view = iv_view.
is_data-msgty = lv_msgty.
is_data-msgid = lv_msgid.
is_data-msgno = lv_msgnr.
is_data-msgv1 = iv_msgv1.
is_data-msgv2 = iv_msgv2.
is_data-msgv3 = iv_msgv3.
is_data-msgv4 = iv_msgv4.
is_data-msgtxt = lv_msgtxt.
is_data-crdate = sy-datum.
is_data-crtime = sy-uzeit.
is_data-crname = sy-uname.
is_data-status = '@0A@'.
DO.
SELECT SINGLE * FROM /deso/dh_message
WHERE
check_view = @is_data-check_view AND
object = @is_data-object AND
objkey = @is_data-objkey AND
class = @is_data-class AND
method = @is_data-method AND
refobject = @is_data-refobject AND
refobjkey = @is_data-refobjkey AND
reffld = @is_data-reffld AND
msgty = @is_data-msgty AND
msgid = @is_data-msgid AND
msgno = @is_data-msgno
INTO @ls_data.
IF sy-subrc EQ 0.
SELECT SINGLE FOR UPDATE * FROM /deso/dh_message
WHERE
check_view = @is_data-check_view AND
object = @is_data-object AND
objkey = @is_data-objkey AND
class = @is_data-class AND
method = @is_data-method AND
refobject = @is_data-refobject AND
refobjkey = @is_data-refobjkey AND
reffld = @is_data-reffld AND
msgty = @is_data-msgty AND
msgid = @is_data-msgid AND
msgno = @is_data-msgno
INTO @ls_data.
IF sy-subrc EQ 0.
UPDATE /deso/dh_message FROM @is_data.
EXIT.
ELSE .
WAIT UP TO 5 SECONDS.
ENDIF.
ELSE.
INSERT INTO /deso/dh_message VALUES @is_data.
EXIT.
ENDIF.
ENDDO.
ENDMETHOD.
method GET_PARAM.
clear value.
READ TABLE data-iparam ASSIGNING FIELD-SYMBOL(<fs_param>) with key param = param.
if sy-subrc eq 0.
move <fs_param>-value to value.
endif.
endmethod.
method SET_PARAM.
read table cs_data-iparam ASSIGNING FIELD-SYMBOL(<fs_data>) with key param = param.
if sy-subrc ne 0.
APPEND INITIAL LINE TO cs_data-iparam ASSIGNING <fs_data>.
endif.
move param to <fs_data>-param.
move value to <fs_data>-value.
endmethod.
ENDCLASS.

200
src/#deso#dh_utilities.clas.xml Normal file
View File

@@ -0,0 +1,200 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>/DESO/DH_UTILITIES</CLSNAME>
<LANGU>D</LANGU>
<DESCRIPT>Werkzeuge</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
<DESCRIPTIONS>
<SEOCOMPOTX>
<CMPNAME>GET_PARAM</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA HAWK: Parameter setzen</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>GET_TAB</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Tabellen zum Objekt holen</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>GET_WHERE</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Where-Klausel generieren</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>GT_WHERE</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Zeilen eines Textbausteins</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>Meldung speichern</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>SET_PARAM</CMPNAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA HAWK: Parameter setzen</DESCRIPT>
</SEOCOMPOTX>
</DESCRIPTIONS>
<DESCRIPTIONS_SUB>
<SEOSUBCOTX>
<CMPNAME>GET_PARAM</CMPNAME>
<SCONAME>DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Datenübergabe</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_PARAM</CMPNAME>
<SCONAME>PARAM</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_PARAM</CMPNAME>
<SCONAME>VALUE</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Bezugsobjekt des Sperrbelegs: Schlüssel</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_TAB</CMPNAME>
<SCONAME>ET_CHECK_FIELD</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Prüffelder</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_TAB</CMPNAME>
<SCONAME>ET_TABNAME</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Tabellennamen</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_TAB</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_TAB</CMPNAME>
<SCONAME>NOT_CUSTOMIZED</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Objekt nicht gecustomized</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_WHERE</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>GET_WHERE</CMPNAME>
<SCONAME>IV_TABNAME</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Tabellenname</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Fehlerprotokolltabelle</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGID</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Nachrichtenidentifikation</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGNO</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Nummer der System-Nachricht</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGTXT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Nachrichtentext</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGTY</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Messageart</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGV1</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>ABAP-Systemfeld: Nachrichtenvariable</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGV2</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>ABAP-Systemfeld: Nachrichtenvariable</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGV3</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>ABAP-Systemfeld: Nachrichtenvariable</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_MSGV4</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>ABAP-Systemfeld: Nachrichtenvariable</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_OBJECT</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_REFFLD</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Feldname</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_REFKEY</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Bezugsobjekt des Sperrbelegs: Schlüssel</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>INSERT_MESSAGE</CMPNAME>
<SCONAME>IV_REFOBJ</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>SET_PARAM</CMPNAME>
<SCONAME>CS_DATA</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Datenübergabe</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>SET_PARAM</CMPNAME>
<SCONAME>PARAM</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>DATA Hawk: Objekttyp des Business Objekts</DESCRIPT>
</SEOSUBCOTX>
<SEOSUBCOTX>
<CMPNAME>SET_PARAM</CMPNAME>
<SCONAME>VALUE</SCONAME>
<LANGU>D</LANGU>
<DESCRIPT>Bezugsobjekt des Sperrbelegs: Schlüssel</DESCRIPT>
</SEOSUBCOTX>
</DESCRIPTIONS_SUB>
</asx:values>
</asx:abap>
</abapGit>

48
src/#deso#dh_vari_t.tabl.xml Normal file
View File

@@ -0,0 +1,48 @@
<?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>/DESO/DH_VARI_T</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Variantentabelle</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_VARI_T</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

80
src/#deso#dh_variant.tabl.xml Normal file
View File

@@ -0,0 +1,80 @@
<?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>/DESO/DH_VARIANT</TABNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>DATA Hawk: Variantentabelle</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>/DESO/DH_VARIANT</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>USER</TABART>
<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>CHECK_VIEW</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>OBJECT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>/DESO/DH_OBJECT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CLASS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SEOCLSNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>METHOD</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SEOCPDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>DSCR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>AKTIV</FIELDNAME>
<ROLLNAME>/DESO/DH_ACTIV</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

24
src/#deso#dh_view.dtel.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>/DESO/DH_VIEW</ROLLNAME>
<DDLANGUAGE>D</DDLANGUAGE>
<HEADLEN>20</HEADLEN>
<SCRLEN1>05</SCRLEN1>
<SCRLEN2>10</SCRLEN2>
<SCRLEN3>15</SCRLEN3>
<DDTEXT>DATA Hawk: Variante</DDTEXT>
<REPTEXT>Variante</REPTEXT>
<SCRTEXT_S>Var.</SCRTEXT_S>
<SCRTEXT_M>Variante</SCRTEXT_M>
<SCRTEXT_L>Variante</SCRTEXT_L>
<DTELMASTER>D</DTELMASTER>
<DATATYPE>CHAR</DATATYPE>
<LENG>000010</LENG>
<OUTPUTLEN>000010</OUTPUTLEN>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

79
src/#deso#fg_dh_check.fugr.#deso#data_hawk.abap Normal file
View File

@@ -0,0 +1,79 @@
FUNCTION /deso/data_hawk.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(IV_CHECK_VIEW) TYPE /DESO/DH_VIEW
*" VALUE(IV_CHECK_DEV) TYPE FLAG
*" VALUE(IV_CHECK_PODREL) TYPE FLAG
*" TABLES
*" IT_DATA TYPE /DESO/DH_TT_SELECT
*"----------------------------------------------------------------------
DATA: gr_check TYPE REF TO object.
DATA: gt_data TYPE /deso/dh_tt_data.
DATA: lv_add_data TYPE flag.
DATA: gr_util_f TYPE REF TO /deso/dh_utilities.
DATA: lv_counter TYPE i.
CREATE OBJECT gr_util_f.
DATA: lv_has_init TYPE flag.
SELECT * FROM /deso/dh_variant INTO TABLE @DATA(lt_vari)
* FOR ALL ENTRIES IN @it_data
WHERE check_view = @iv_check_view
AND method NE 'CHECK_INIT'
AND aktiv = @abap_true.
SELECT * FROM /deso/dh_variant INTO TABLE @DATA(lt_init)
* FOR ALL ENTRIES IN @it_data
WHERE check_view = @iv_check_view
AND method = 'CHECK_INIT'
AND aktiv = @abap_true.
CLEAR lv_counter.
LOOP AT it_data ASSIGNING FIELD-SYMBOL(<ls_select>).
ADD 1 TO lv_counter.
IF lv_counter = 300.
COMMIT WORK.
CLEAR lv_counter.
ENDIF.
CLEAR lv_add_data.
PERFORM read_data USING iv_check_view
<ls_select>-object
<ls_select>-objkey
iv_check_dev
iv_check_podrel
gt_data
lv_add_data
gr_util_f.
* READ TABLE gt_data ASSIGNING FIELD-SYMBOL(<ls_data>) INDEX 1.
LOOP AT lt_init ASSIGNING FIELD-SYMBOL(<ls_init>).
CREATE OBJECT gr_check TYPE (<ls_init>-class).
CALL METHOD gr_check->(<ls_init>-method)
EXPORTING
iv_view = iv_check_view
iv_object = <ls_select>-object
iv_objkey = <ls_select>-objkey
CHANGING
is_data = gt_data.
FREE gr_check.
ENDLOOP.
LOOP AT lt_vari ASSIGNING FIELD-SYMBOL(<ls_vari>).
CREATE OBJECT gr_check TYPE (<ls_vari>-class).
CALL METHOD gr_check->(<ls_vari>-method)
EXPORTING
iv_view = iv_check_view
iv_object = <ls_select>-object
iv_objkey = <ls_select>-objkey
CHANGING
is_data = gt_data.
FREE gr_check.
ENDLOOP.
ENDLOOP.
ENDFUNCTION.

682
src/#deso#fg_dh_check.fugr.#deso#lfg_dh_checkf01.abap Normal file
View File

@@ -0,0 +1,682 @@
*----------------------------------------------------------------------*
***INCLUDE /DESO/LFG_DH_CHECKF01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form read_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM read_data USING check_view TYPE /deso/dh_view
objtype TYPE /deso/dh_object
objkey TYPE edc_refkey
check_dev TYPE flag
check_pod_rel TYPE flag
gt_data TYPE /deso/dh_tt_data
add_data TYPE flag
gr_util_f TYPE REF TO /deso/dh_utilities.
INCLUDE ieobjtyp.
INCLUDE iestread.
INCLUDE ie00flag.
REFRESH ipath . CLEAR ipath .
REFRESH istruc . CLEAR istruc .
REFRESH ibcont . CLEAR ibcont .
REFRESH ieabl . CLEAR ieabl .
REFRESH ieablg . CLEAR ieablg .
REFRESH ieabp . CLEAR ieabp .
REFRESH ieadz . CLEAR ieadz .
REFRESH ieanl . CLEAR ieanl .
REFRESH ieasti . CLEAR ieasti .
REFRESH ieastih . CLEAR ieastih .
REFRESH ieastl . CLEAR ieastl .
REFRESH ieasts . CLEAR ieasts .
REFRESH ieaus . CLEAR ieaus .
REFRESH ieausv . CLEAR ieausv .
REFRESH ieein . CLEAR ieein .
REFRESH ieeinv . CLEAR ieeinv .
REFRESH ieger . CLEAR ieger .
REFRESH iegpl . CLEAR iegpl .
REFRESH iehau . CLEAR iehau .
REFRESH iekun . CLEAR iekun .
REFRESH ietdz . CLEAR ietdz .
REFRESH ietins . CLEAR ietins .
REFRESH iettif . CLEAR iettif .
REFRESH ievbs . CLEAR ievbs .
REFRESH iever . CLEAR iever .
REFRESH iezug . CLEAR iezug .
REFRESH iezuz . CLEAR iezuz .
REFRESH ifkkvkp . CLEAR ifkkvkp .
REFRESH ite420 . CLEAR ite420 .
REFRESH ite422 . CLEAR ite422 .
IF add_data IS INITIAL.
REFRESH gt_data .
ENDIF.
DATA ls_mess_data TYPE /deso/dh_message.
DATA lv_stop_readness TYPE flag.
DATA lv_add_data TYPE flag.
DATA lv_tmp_objkey LIKE objkey.
DATA lt_tmp_objkey LIKE TABLE OF objkey.
DATA lv_tmp_equnr TYPE equnr.
DATA lt_tmp_ezug LIKE TABLE OF iezug.
DATA lt_tmp_pod_rel TYPE /deso/dh_tt_pod_rel.
DATA lt_tmp_ezuz LIKE TABLE OF iezuz.
DATA lt_tmp_eger LIKE TABLE OF ieger.
DATA lt_tmp_euiinstln TYPE /deso/dh_tt_euiinstln.
DATA lv_pod_rel_tabname TYPE tabname.
DATA ls_pod_rel TYPE /deso/dh_s_pod_rel.
CLEAR lv_pod_rel_tabname.
SELECT COUNT(*) FROM dd02l WHERE tabname = '/IDXGC/POD_REL'.
IF sy-subrc EQ 0.
lv_pod_rel_tabname = '/IDXGC/POD_REL'.
ELSE.
SELECT COUNT(*) FROM dd02l WHERE tabname = '/UCOM/POD_REL'.
IF sy-subrc EQ 0.
lv_pod_rel_tabname = '/UCOM/POD_REL'.
ENDIF.
ENDIF.
CLEAR lv_stop_readness.
CASE objtype.
************************************************************************
WHEN co_objtype_partner.
* partner found
iekun-partner = objkey.
APPEND iekun.
* set path for structure reader
estr_add_ipath 'EKUN' 'FKKVKP' space.
estr_add_ipath 'FKKVKP' 'EVER' space.
estr_add_ipath 'EVER' 'EANL' space.
estr_add_ipath 'EANL' 'EASTL' space.
estr_add_ipath 'EANL' 'EVBS' space.
estr_add_ipath 'EANL' 'EASTS' space.
estr_add_ipath 'EASTL' 'EGER' space.
estr_add_ipath 'EGER' 'EGPL' space.
estr_add_ipath 'EGER' 'EZUG' '1'.
estr_add_ipath 'EGER' 'EZUG' '2'.
estr_add_ipath 'EGER' 'ETDZ' space.
estr_add_ipath 'EGPL' 'EHAU' space.
estr_add_ipath 'ETDZ' 'EZUZ' space.
estr_add_ipath 'ETDZ' 'EASTI' space.
estr_add_ipath 'EVBS' 'EHAU' space.
************************************************************************
WHEN co_objtype_account.
* contract account found
ifkkvkp-vkont = objkey.
APPEND ifkkvkp.
* set path for structure reader
estr_add_ipath 'FKKVKP' 'EKUN' space.
estr_add_ipath 'FKKVKP' 'EVER' space.
estr_add_ipath 'EVER' 'EANL' space.
estr_add_ipath 'EANL' 'EASTL' space.
estr_add_ipath 'EANL' 'EVBS' space.
estr_add_ipath 'EANL' 'EASTS' space.
estr_add_ipath 'EASTL' 'EGER' space.
estr_add_ipath 'EGER' 'EGPL' space.
estr_add_ipath 'EGER' 'EZUG' '1'.
estr_add_ipath 'EGER' 'EZUG' '2'.
estr_add_ipath 'EGER' 'ETDZ' space.
estr_add_ipath 'EGPL' 'EHAU' space.
estr_add_ipath 'ETDZ' 'EZUZ' space.
estr_add_ipath 'ETDZ' 'EASTI' space.
estr_add_ipath 'EVBS' 'EHAU' space.
************************************************************************
WHEN co_objtype_contract.
* contract found
iever-vertrag = objkey.
APPEND iever.
* set path for structure reader
estr_add_ipath 'EVER' 'FKKVKP' space.
estr_add_ipath 'FKKVKP' 'EKUN' space.
estr_add_ipath 'EVER' 'EANL' space.
estr_add_ipath 'EANL' 'EASTL' space.
estr_add_ipath 'EANL' 'EVBS' space.
estr_add_ipath 'EANL' 'EASTS' space.
estr_add_ipath 'EASTL' 'EGER' space.
estr_add_ipath 'EGER' 'EGPL' space.
estr_add_ipath 'EGER' 'EZUG' '1'.
estr_add_ipath 'EGER' 'ETDZ' space.
estr_add_ipath 'EGPL' 'EHAU' space.
estr_add_ipath 'ETDZ' 'EZUZ' space.
estr_add_ipath 'ETDZ' 'EASTI' space.
estr_add_ipath 'EVBS' 'EHAU' space.
************************************************************************
WHEN co_objtype_connobj.
* connection object found
iehau-haus = objkey.
APPEND iehau.
* set path for structure reader
estr_add_ipath 'EHAU' 'EGPL' space.
estr_add_ipath 'EHAU' 'EVBS' space.
estr_add_ipath 'EGPL' 'EGER' space.
estr_add_ipath 'EVBS' 'EANL' space.
estr_add_ipath 'EANL' 'EASTL' space.
estr_add_ipath 'EANL' 'EASTS' space.
estr_add_ipath 'EANL' 'EVER' space.
estr_add_ipath 'EASTL' 'EGER' space.
estr_add_ipath 'EGER' 'EGPL' space.
estr_add_ipath 'EGER' 'EZUG' '1'.
estr_add_ipath 'EGER' 'EZUG' '2'.
estr_add_ipath 'EGER' 'ETDZ' space.
estr_add_ipath 'ETDZ' 'EZUZ' space.
estr_add_ipath 'ETDZ' 'EASTI' space.
estr_add_ipath 'EVER' 'FKKVKP' space.
estr_add_ipath 'FKKVKP' 'EKUN' space.
************************************************************************
WHEN co_objtype_premises.
* premise object found
ievbs-vstelle = objkey.
APPEND ievbs.
* set path for structure reader
estr_add_ipath 'EVBS' 'EANL' space.
estr_add_ipath 'EVBS' 'EHAU' space.
estr_add_ipath 'EHAU' 'EGPL' space.
estr_add_ipath 'EGPL' 'EGER' space.
estr_add_ipath 'EANL' 'EASTL' space.
estr_add_ipath 'EANL' 'EASTS' space.
estr_add_ipath 'EANL' 'EVER' space.
estr_add_ipath 'EASTL' 'EGER' space.
estr_add_ipath 'EGER' 'EGPL' space.
estr_add_ipath 'EGER' 'EZUG' '1'.
estr_add_ipath 'EGER' 'EZUG' '2'.
estr_add_ipath 'EGER' 'ETDZ' space.
estr_add_ipath 'ETDZ' 'EZUZ' space.
estr_add_ipath 'ETDZ' 'EASTI' space.
estr_add_ipath 'EVER' 'FKKVKP' space.
estr_add_ipath 'FKKVKP' 'EKUN' space.
************************************************************************
WHEN co_objtype_instln.
* installation object found
ieanl-anlage = objkey.
APPEND ieanl.
* set path for structure reader
estr_add_ipath 'EANL' 'EASTL' space.
estr_add_ipath 'EANL' 'EVBS' space.
estr_add_ipath 'EANL' 'EASTS' space.
estr_add_ipath 'EANL' 'EVER' space.
estr_add_ipath 'EASTL' 'EGER' space.
estr_add_ipath 'EGER' 'EGPL' space.
estr_add_ipath 'EGER' 'EZUG' '1'.
estr_add_ipath 'EGER' 'EZUG' '2'.
estr_add_ipath 'EGER' 'ETDZ' space.
estr_add_ipath 'EGPL' 'EHAU' space.
estr_add_ipath 'ETDZ' 'EZUZ' space.
estr_add_ipath 'ETDZ' 'EASTI' space.
estr_add_ipath 'EVBS' 'EHAU' space.
estr_add_ipath 'EVER' 'FKKVKP' space.
estr_add_ipath 'FKKVKP' 'EKUN' space.
************************************************************************
WHEN co_objtype_device.
* device object found
ieger-equnr = objkey.
APPEND ieger.
* set path for structure reader
estr_add_ipath 'EGER' 'EGPL' space.
estr_add_ipath 'EGER' 'EASTL' space.
estr_add_ipath 'EGER' 'EZUG' '1'.
estr_add_ipath 'EGER' 'EZUG' '2'.
estr_add_ipath 'EGER' 'EZUZ' space.
estr_add_ipath 'EGER' 'ETDZ' space.
estr_add_ipath 'EGPL' 'EHAU' space.
estr_add_ipath 'EASTL' 'EANL' space.
estr_add_ipath 'EANL' 'EVBS' space.
estr_add_ipath 'EVBS' 'EHAU' space.
estr_add_ipath 'ETDZ' 'EASTS' space.
estr_add_ipath 'ETDZ' 'EZUZ' space.
estr_add_ipath 'ETDZ' 'EASTI' space.
estr_add_ipath 'EANL' 'EVER' space.
estr_add_ipath 'EANL' 'EVBS' space.
estr_add_ipath 'EVBS' 'EHAU' space.
estr_add_ipath 'EVER' 'FKKVKP' space.
estr_add_ipath 'FKKVKP' 'EKUN' space.
************************************************************************
WHEN co_objtype_pod.
"Zählpunkt
SELECT * FROM euitrans INTO @DATA(ls_euitrans)
WHERE ext_ui = @objkey
AND dateto BETWEEN @sy-datum AND '99991231'.
objkey = ls_euitrans-int_ui.
SELECT * FROM euiinstln INTO @DATA(ls_euiinstln)
WHERE int_ui = @ls_euitrans-int_ui
AND datefrom <= @ls_euitrans-dateto
AND dateto >= @ls_euitrans-datefrom
AND dateto >= @sy-datum.
lv_tmp_objkey = ls_euiinstln-anlage.
PERFORM read_data USING check_view co_objtype_instln lv_tmp_objkey check_dev check_pod_rel gt_data space gr_util_f.
lv_stop_readness = 'X'.
ENDSELECT.
ENDSELECT.
ENDCASE.
CHECK lv_stop_readness IS INITIAL.
* call the structure reader
CALL FUNCTION 'ISU_STRUCTURE_READ'
EXPORTING
x_is_complete = co_flag_notmarked
x_actual = co_flag_notmarked
x_structure = co_flag_marked
x_ab = sy-datum
x_bis = '99991231'
x_text = co_flag_marked
x_language = sy-langu
x_progress_display = co_flag_marked
TABLES
xt_path = ipath
yt_struc = istruc
t_bcont = ibcont
t_eabl = ieabl
t_eablg = ieablg
t_eabp = ieabp
t_eadz = ieadz
t_eanl = ieanl
t_easti = ieasti
t_eastih = ieastih
t_eastl = ieastl
t_easts = ieasts
t_eaus = ieaus
t_eausv = ieausv
t_eein = ieein
t_eeinv = ieeinv
t_eger = ieger
t_egpl = iegpl
t_ehau = iehau
t_ekun = iekun
t_etdz = ietdz
t_etins = ietins
t_ettif = iettif
t_evbs = ievbs
t_ever = iever
t_ezug = iezug
t_ezuz = iezuz
t_fkkvkp = ifkkvkp
t_te420 = ite420
t_te422 = ite422
EXCEPTIONS
path_invalid = 1
date_invalid = 2
selection_failed = 3
OTHERS = 4.
IF sy-subrc <> 0.
* structure reader error
* leave form
EXIT.
ENDIF.
if objtype = co_objtype_device and ieger[] is INITIAL.
CALL METHOD gr_util_f->insert_message(
EXPORTING
iv_view = check_view
iv_object = co_objtype_device
iv_objkey = objkey
iv_refobj = co_objtype_device
iv_refkey = objkey
iv_msgty = 'E'
iv_msgid = '/DESO/'
iv_msgtxt = 'FEHLER BEIM LESEN DER DATEN ZUM OBJEKT!'
CHANGING
is_data = ls_mess_data ).
exit.
endif.
IF add_data IS INITIAL.
APPEND INITIAL LINE TO gt_data ASSIGNING FIELD-SYMBOL(<ls_data>).
<ls_data>-ieanl[] = ieanl[].
<ls_data>-ieasti[] = ieasti[].
<ls_data>-ieastl[] = ieastl[].
<ls_data>-ieasts[] = ieasts[].
<ls_data>-ieger[] = ieger[].
<ls_data>-iegpl[] = iegpl[].
<ls_data>-iehau[] = iehau[].
<ls_data>-iekun[] = iekun[].
<ls_data>-ietdz[] = ietdz[].
<ls_data>-ievbs[] = ievbs[].
<ls_data>-iever[] = iever[].
<ls_data>-iezug[] = iezug[].
<ls_data>-iezuz[] = iezuz[].
<ls_data>-ifkkvkp[] = ifkkvkp[].
ELSE.
DEFINE add_ls_data.
APPEND LINES OF &1[] TO <ls_data>-&1[].
SORT <ls_data>-&1[].
DELETE ADJACENT DUPLICATES FROM <ls_data>-&1[].
END-OF-DEFINITION.
IF NOT <ls_data> IS ASSIGNED.
READ TABLE gt_data INDEX lines( gt_data ) ASSIGNING <ls_data>.
ENDIF.
add_ls_data ieanl.
add_ls_data ieasti.
add_ls_data ieastl.
add_ls_data ieasts.
add_ls_data ieger.
add_ls_data iegpl.
add_ls_data iehau.
add_ls_data iekun.
add_ls_data ietdz.
add_ls_data ievbs.
add_ls_data iever.
add_ls_data iezug.
add_ls_data iezuz.
add_ls_data ifkkvkp.
ENDIF.
IF <ls_data> IS ASSIGNED AND NOT <ls_data>-ieanl[] IS INITIAL.
SELECT * FROM euiinstln INTO ls_euiinstln
FOR ALL ENTRIES IN <ls_data>-ieanl[]
WHERE anlage = <ls_data>-ieanl-anlage
AND dateto BETWEEN sy-datum AND '99991231'.
APPEND ls_euiinstln TO <ls_data>-ieuiinstln[].
SELECT * FROM euitrans INTO ls_euitrans
WHERE int_ui = ls_euiinstln-int_ui
AND dateto >= ls_euiinstln-datefrom
AND datefrom <= ls_euiinstln-dateto
AND dateto >= sy-datum.
APPEND ls_euitrans TO <ls_data>-ieuitrans[].
ENDSELECT.
ENDSELECT.
SORT <ls_data>-ieuiinstln[].
DELETE ADJACENT DUPLICATES FROM <ls_data>-ieuiinstln[].
SORT <ls_data>-ieuitrans[].
DELETE ADJACENT DUPLICATES FROM <ls_data>-ieuitrans[].
lt_tmp_euiinstln[] = <ls_data>-ieuiinstln[].
LOOP AT lt_tmp_euiinstln ASSIGNING FIELD-SYMBOL(<fs_euiinstln>).
SELECT * FROM (lv_pod_rel_tabname) INTO CORRESPONDING FIELDS OF ls_pod_rel
WHERE int_ui1 = <fs_euiinstln>-int_ui
AND dateto >= <fs_euiinstln>-datefrom
AND datefrom <= <fs_euiinstln>-dateto
AND dateto >= sy-datum.
APPEND ls_pod_rel TO <ls_data>-ipod_rel.
ENDSELECT.
SELECT * FROM (lv_pod_rel_tabname) INTO CORRESPONDING FIELDS OF ls_pod_rel
WHERE int_ui2 = <fs_euiinstln>-int_ui
AND dateto >= <fs_euiinstln>-datefrom
AND datefrom <= <fs_euiinstln>-dateto
AND dateto >= sy-datum.
APPEND ls_pod_rel TO <ls_data>-ipod_rel.
ENDSELECT.
SORT <ls_data>-ipod_rel.
DELETE ADJACENT DUPLICATES FROM <ls_data>-ipod_rel.
ENDLOOP.
ENDIF.
IF NOT check_pod_rel IS INITIAL AND <ls_data> IS ASSIGNED.
estr_refresh_all.
lt_tmp_pod_rel[] = <ls_data>-ipod_rel[].
LOOP AT lt_tmp_pod_rel ASSIGNING FIELD-SYMBOL(<fs_pod_rel>).
READ TABLE <ls_data>-ieuiinstln WITH KEY int_ui = <fs_pod_rel>-int_ui1 TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
SELECT anlage FROM euiinstln INTO TABLE lt_tmp_objkey
WHERE int_ui = <fs_pod_rel>-int_ui1
AND dateto >= sy-datum
AND datefrom <= <fs_pod_rel>-dateto
AND dateto >= <fs_pod_rel>-datefrom.
IF sy-subrc EQ 0.
LOOP AT lt_tmp_objkey INTO lv_tmp_objkey.
READ TABLE <ls_data>-ieanl WITH KEY anlage = lv_tmp_objkey TRANSPORTING NO FIELDS.
CHECK sy-subrc NE 0.
IF objtype NE co_objtype_instln OR objkey NE lv_tmp_objkey.
PERFORM read_data USING check_view co_objtype_instln lv_tmp_objkey check_dev check_pod_rel gt_data 'X' gr_util_f.
ELSE.
CALL METHOD gr_util_f->insert_message(
EXPORTING
iv_view = check_view
iv_object = co_objtype_instln
iv_objkey = lv_tmp_objkey
iv_refobj = co_objtype_instln
iv_refkey = lv_tmp_objkey
iv_msgty = 'E'
iv_msgid = '/DESO/'
iv_msgtxt = 'FEHLER BEIM LESEN DER DATEN ZUM OBJEKT!'
CHANGING
is_data = ls_mess_data ).
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
READ TABLE <ls_data>-ieuiinstln WITH KEY int_ui = <fs_pod_rel>-int_ui2 TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
SELECT anlage FROM euiinstln INTO TABLE lt_tmp_objkey
WHERE int_ui = <fs_pod_rel>-int_ui2
AND dateto >= sy-datum
AND datefrom <= <fs_pod_rel>-dateto
AND dateto >= <fs_pod_rel>-datefrom.
IF sy-subrc EQ 0.
LOOP AT lt_tmp_objkey INTO lv_tmp_objkey.
READ TABLE <ls_data>-ieanl WITH KEY anlage = lv_tmp_objkey TRANSPORTING NO FIELDS.
CHECK sy-subrc NE 0.
IF objtype NE co_objtype_instln OR objkey NE lv_tmp_objkey.
PERFORM read_data USING check_view co_objtype_instln lv_tmp_objkey check_dev check_pod_rel gt_data 'X' gr_util_f.
ELSE.
CALL METHOD gr_util_f->insert_message(
EXPORTING
iv_view = check_view
iv_object = co_objtype_instln
iv_objkey = lv_tmp_objkey
iv_refobj = co_objtype_instln
iv_refkey = lv_tmp_objkey
iv_msgty = 'E'
iv_msgid = '/DESO/'
iv_msgtxt = 'FEHLER BEIM LESEN DER DATEN ZUM OBJEKT!'
CHANGING
is_data = ls_mess_data ).
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF NOT check_dev IS INITIAL AND <ls_data> IS ASSIGNED.
estr_refresh_all.
lt_tmp_ezug[] = <ls_data>-iezug[]." DEV-Zuordnung
CLEAR lt_tmp_objkey[].
LOOP AT lt_tmp_ezug ASSIGNING FIELD-SYMBOL(<fs_ezug>).
READ TABLE <ls_data>-ieger[] WITH KEY logiknr = <fs_ezug>-logiknr TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
SELECT equnr FROM egerh APPENDING TABLE lt_tmp_objkey
WHERE logiknr = <fs_ezug>-logiknr
AND ab <= <fs_ezug>-bis
AND bis >= <fs_ezug>-ab
AND bis >= sy-datum.
ENDIF.
READ TABLE <ls_data>-ieger[] WITH KEY logiknr = <fs_ezug>-logiknr2 TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
SELECT equnr FROM egerh APPENDING TABLE lt_tmp_objkey
WHERE logiknr = <fs_ezug>-logiknr2
AND ab <= <fs_ezug>-bis
AND bis >= <fs_ezug>-ab
AND bis >= sy-datum.
ENDIF.
ENDLOOP.
SORT lt_tmp_objkey.
DELETE ADJACENT DUPLICATES FROM lt_tmp_objkey.
LOOP AT lt_tmp_objkey INTO lv_tmp_objkey.
READ TABLE <ls_data>-ieger WITH KEY equnr = lv_tmp_objkey TRANSPORTING NO FIELDS.
CHECK sy-subrc NE 0.
IF objtype NE co_objtype_device OR objkey NE lv_tmp_objkey.
PERFORM read_data USING check_view co_objtype_device lv_tmp_objkey check_dev check_pod_rel gt_data 'X' gr_util_f.
ELSE.
CALL METHOD gr_util_f->insert_message(
EXPORTING
iv_view = check_view
iv_object = co_objtype_device
iv_objkey = lv_tmp_objkey
iv_refobj = co_objtype_device
iv_refkey = lv_tmp_objkey
iv_msgty = 'E'
iv_msgid = '/DESO/'
iv_msgtxt = 'FEHLER BEIM LESEN DER DATEN ZUM OBJEKT!'
CHANGING
is_data = ls_mess_data ).
ENDIF.
ENDLOOP.
lt_tmp_ezuz[] = <ls_data>-iezuz[]." ZW-Zuordnung
CLEAR lt_tmp_objkey[].
LOOP AT lt_tmp_ezuz ASSIGNING FIELD-SYMBOL(<fs_ezuz>).
READ TABLE <ls_data>-ietdz[] WITH KEY logikzw = <fs_ezuz>-logikzw TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
SELECT equnr FROM etdz APPENDING TABLE lt_tmp_objkey
WHERE logikzw = <fs_ezuz>-logikzw
AND ab <= <fs_ezuz>-bis
AND bis >= <fs_ezuz>-ab
AND bis >= sy-datum.
ENDIF.
READ TABLE <ls_data>-ieger[] WITH KEY logiknr = <fs_ezuz>-logiknr2 TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
SELECT equnr FROM egerh APPENDING TABLE lt_tmp_objkey
WHERE logiknr = <fs_ezuz>-logiknr2
AND ab <= <fs_ezuz>-bis
AND bis >= <fs_ezuz>-ab
AND bis >= sy-datum.
ENDIF.
ENDLOOP.
SORT lt_tmp_objkey.
DELETE ADJACENT DUPLICATES FROM lt_tmp_objkey.
LOOP AT lt_tmp_objkey INTO lv_tmp_objkey.
READ TABLE <ls_data>-ieger WITH KEY equnr = lv_tmp_objkey TRANSPORTING NO FIELDS.
CHECK sy-subrc NE 0.
IF objtype NE co_objtype_device OR objkey NE lv_tmp_objkey.
PERFORM read_data USING check_view co_objtype_device lv_tmp_objkey check_dev check_pod_rel gt_data 'X' gr_util_f.
ELSE.
CALL METHOD gr_util_f->insert_message(
EXPORTING
iv_view = check_view
iv_object = co_objtype_device
iv_objkey = lv_tmp_objkey
iv_refobj = co_objtype_device
iv_refkey = lv_tmp_objkey
iv_msgty = 'E'
iv_msgid = '/DESO/'
iv_msgtxt = 'FEHLER BEIM LESEN DER DATEN ZUM OBJEKT!'
CHANGING
is_data = ls_mess_data ).
ENDIF.
ENDLOOP.
lt_tmp_eger[] = <ls_data>-ieger[]. "Gerätegruppe
DELETE lt_tmp_eger WHERE devgrp IS INITIAL.
SORT lt_tmp_eger BY devgrp.
DELETE ADJACENT DUPLICATES FROM lt_tmp_eger COMPARING devgrp.
CLEAR lt_tmp_objkey[].
LOOP AT lt_tmp_eger ASSIGNING FIELD-SYMBOL(<fs_eger>).
SELECT equnr FROM egerh INTO lv_tmp_equnr
WHERE devgrp = <fs_eger>-devgrp
AND ab <= <fs_eger>-bis
AND bis >= <fs_eger>-ab
AND bis >= sy-datum.
READ TABLE <ls_data>-ieger[] WITH KEY equnr = lv_tmp_equnr TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
lv_tmp_objkey = lv_tmp_equnr.
APPEND lv_tmp_objkey TO lt_tmp_objkey.
ENDIF.
ENDSELECT.
ENDLOOP.
SORT lt_tmp_objkey.
DELETE ADJACENT DUPLICATES FROM lt_tmp_objkey.
LOOP AT lt_tmp_objkey INTO lv_tmp_objkey.
READ TABLE <ls_data>-ieger WITH KEY equnr = lv_tmp_objkey TRANSPORTING NO FIELDS.
CHECK sy-subrc NE 0.
IF objtype NE co_objtype_device OR objkey NE lv_tmp_objkey.
PERFORM read_data USING check_view co_objtype_device lv_tmp_objkey check_dev check_pod_rel gt_data 'X' gr_util_f.
ELSE.
CALL METHOD gr_util_f->insert_message(
EXPORTING
iv_view = check_view
iv_object = co_objtype_device
iv_objkey = lv_tmp_objkey
iv_refobj = co_objtype_device
iv_refkey = lv_tmp_objkey
iv_msgty = 'E'
iv_msgid = '/DESO/'
iv_msgtxt = 'FEHLER BEIM LESEN DER DATEN ZUM OBJEKT!'
CHANGING
is_data = ls_mess_data ) .
ENDIF.
ENDLOOP.
ENDIF.
* sort the connection table istruc by tabto, indto, tabfrom
* this is important for binary search later !
SORT istruc BY tabto indto tabfrom.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form init_all
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
*FORM init_all .
* REFRESH ipath . CLEAR ipath .
* REFRESH istruc . CLEAR istruc .
*
* REFRESH ibcont . CLEAR ibcont .
* REFRESH ieabl . CLEAR ieabl .
* REFRESH ieablg . CLEAR ieablg .
* REFRESH ieabp . CLEAR ieabp .
* REFRESH ieadz . CLEAR ieadz .
* REFRESH ieanl . CLEAR ieanl .
* REFRESH ieasti . CLEAR ieasti .
* REFRESH ieastih . CLEAR ieastih .
* REFRESH ieastl . CLEAR ieastl .
* REFRESH ieasts . CLEAR ieasts .
* REFRESH ieaus . CLEAR ieaus .
* REFRESH ieausv . CLEAR ieausv .
* REFRESH ieein . CLEAR ieein .
* REFRESH ieeinv . CLEAR ieeinv .
* REFRESH ieger . CLEAR ieger .
* REFRESH iegpl . CLEAR iegpl .
* REFRESH iehau . CLEAR iehau .
* REFRESH iekun . CLEAR iekun .
* REFRESH ietdz . CLEAR ietdz .
* REFRESH ietins . CLEAR ietins .
* REFRESH iettif . CLEAR iettif .
* REFRESH ievbs . CLEAR ievbs .
* REFRESH iever . CLEAR iever .
* REFRESH iezug . CLEAR iezug .
* REFRESH iezuz . CLEAR iezuz .
* REFRESH ifkkvkp . CLEAR ifkkvkp .
* REFRESH ite420 . CLEAR ite420 .
* REFRESH ite422 . CLEAR ite422 .
* REFRESH gt_data .
*ENDFORM.

21
src/#deso#fg_dh_check.fugr.#deso#lfg_dh_checkf01.xml Normal file
View File

@@ -0,0 +1,21 @@
<?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>/DESO/LFG_DH_CHECKF01</NAME>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>D</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include /DESO/LFG_DH_CHECKF01</ENTRY>
<LENGTH>29</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

3
src/#deso#fg_dh_check.fugr.#deso#lfg_dh_checktop.abap Normal file
View File

@@ -0,0 +1,3 @@
FUNCTION-POOL /DESO/FG_DH_CHECK. "MESSAGE-ID ..
* INCLUDE /DESO/LFG_DH_CHECKD... " Local class definition

17
src/#deso#fg_dh_check.fugr.#deso#lfg_dh_checktop.xml Normal file
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>/DESO/LFG_DH_CHECKTOP</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>

17
src/#deso#fg_dh_check.fugr.#deso#saplfg_dh_check.abap Normal file
View File

@@ -0,0 +1,17 @@
*******************************************************************
* System-defined Include-files. *
*******************************************************************
INCLUDE /deso/lfg_dh_checktop. " Global Declarations
INCLUDE /deso/lfg_dh_checkuxx. " Function Modules
*******************************************************************
* User-defined Include-files (if necessary). *
*******************************************************************
* INCLUDE /DESO/LFG_DH_CHECKF... " Subroutines
* INCLUDE /DESO/LFG_DH_CHECKO... " PBO-Modules
* INCLUDE /DESO/LFG_DH_CHECKI... " PAI-Modules
* INCLUDE /DESO/LFG_DH_CHECKE... " Events
* INCLUDE /DESO/LFG_DH_CHECKP... " Local class implement.
* INCLUDE /DESO/LFG_DH_CHECKT99. " ABAP Unit tests
INCLUDE /deso/lfg_dh_checkf01.

18
src/#deso#fg_dh_check.fugr.#deso#saplfg_dh_check.xml Normal file
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>/DESO/SAPLFG_DH_CHECK</NAME>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>F</SUBC>
<APPL>S</APPL>
<RLOAD>D</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

62
src/#deso#fg_dh_check.fugr.xml Normal file
View File

@@ -0,0 +1,62 @@
<?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>Funktionsgruppe für DATA-Hawk Prüfung</AREAT>
<INCLUDES>
<SOBJ_NAME>/DESO/LFG_DH_CHECKF01</SOBJ_NAME>
<SOBJ_NAME>/DESO/LFG_DH_CHECKTOP</SOBJ_NAME>
<SOBJ_NAME>/DESO/SAPLFG_DH_CHECK</SOBJ_NAME>
</INCLUDES>
<FUNCTIONS>
<item>
<FUNCNAME>/DESO/DATA_HAWK</FUNCNAME>
<REMOTE_CALL>R</REMOTE_CALL>
<SHORT_TEXT>Datenprüfung</SHORT_TEXT>
<IMPORT>
<RSIMP>
<PARAMETER>IV_CHECK_VIEW</PARAMETER>
<TYP>/DESO/DH_VIEW</TYP>
</RSIMP>
<RSIMP>
<PARAMETER>IV_CHECK_DEV</PARAMETER>
<TYP>FLAG</TYP>
</RSIMP>
<RSIMP>
<PARAMETER>IV_CHECK_PODREL</PARAMETER>
<TYP>FLAG</TYP>
</RSIMP>
</IMPORT>
<TABLES>
<RSTBL>
<PARAMETER>IT_DATA</PARAMETER>
<TYP>/DESO/DH_TT_SELECT</TYP>
</RSTBL>
</TABLES>
<DOCUMENTATION>
<RSFDO>
<PARAMETER>IV_CHECK_VIEW</PARAMETER>
<KIND>P</KIND>
<STEXT>DATA Hawk: Variante</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>IV_CHECK_DEV</PARAMETER>
<KIND>P</KIND>
<STEXT>allgemeines flag</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>IV_CHECK_PODREL</PARAMETER>
<KIND>P</KIND>
<STEXT>allgemeines flag</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>IT_DATA</PARAMETER>
<KIND>P</KIND>
<STEXT>DATA HAWK: Datenübergabe</STEXT>
</RSFDO>
</DOCUMENTATION>
</item>
</FUNCTIONS>
</asx:values>
</asx:abap>
</abapGit>

6
src/#deso#fg_dh_cust.fugr.#deso#lfg_dh_custf00.abap Normal file
View File

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

19
src/#deso#fg_dh_cust.fugr.#deso#lfg_dh_custf00.xml Normal file
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>/DESO/LFG_DH_CUSTF00</NAME>
<SQLX>X</SQLX>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>D</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

5
src/#deso#fg_dh_cust.fugr.#deso#lfg_dh_custi00.abap Normal file
View File

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

19
src/#deso#fg_dh_cust.fugr.#deso#lfg_dh_custi00.xml Normal file
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>/DESO/LFG_DH_CUSTI00</NAME>
<SQLX>X</SQLX>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<RLOAD>D</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

55
src/#deso#fg_dh_cust.fugr.#deso#lfg_dh_custt00.abap Normal file
View File

@@ -0,0 +1,55 @@
*---------------------------------------------------------------------*
* view related data declarations
*---------------------------------------------------------------------*
*...processing: /DESO/DH_C_CLA..................................*
DATA: BEGIN OF STATUS_/DESO/DH_C_CLA . "state vector
INCLUDE STRUCTURE VIMSTATUS.
DATA: END OF STATUS_/DESO/DH_C_CLA .
CONTROLS: TCTRL_/DESO/DH_C_CLA
TYPE TABLEVIEW USING SCREEN '0003'.
*...processing: /DESO/DH_C_HT...................................*
DATA: BEGIN OF STATUS_/DESO/DH_C_HT . "state vector
INCLUDE STRUCTURE VIMSTATUS.
DATA: END OF STATUS_/DESO/DH_C_HT .
CONTROLS: TCTRL_/DESO/DH_C_HT
TYPE TABLEVIEW USING SCREEN '0001'.
*...processing: /DESO/DH_C_MET..................................*
DATA: BEGIN OF STATUS_/DESO/DH_C_MET . "state vector
INCLUDE STRUCTURE VIMSTATUS.
DATA: END OF STATUS_/DESO/DH_C_MET .
CONTROLS: TCTRL_/DESO/DH_C_MET
TYPE TABLEVIEW USING SCREEN '0004'.
*...processing: /DESO/DH_C_OBJ..................................*
DATA: BEGIN OF STATUS_/DESO/DH_C_OBJ . "state vector
INCLUDE STRUCTURE VIMSTATUS.
DATA: END OF STATUS_/DESO/DH_C_OBJ .
CONTROLS: TCTRL_/DESO/DH_C_OBJ
TYPE TABLEVIEW USING SCREEN '0002'.
*...processing: /DESO/DH_C_REP..................................*
DATA: BEGIN OF STATUS_/DESO/DH_C_REP . "state vector
INCLUDE STRUCTURE VIMSTATUS.
DATA: END OF STATUS_/DESO/DH_C_REP .
CONTROLS: TCTRL_/DESO/DH_C_REP
TYPE TABLEVIEW USING SCREEN '0006'.
*...processing: /DESO/DH_C_TAB..................................*
DATA: BEGIN OF STATUS_/DESO/DH_C_TAB . "state vector
INCLUDE STRUCTURE VIMSTATUS.
DATA: END OF STATUS_/DESO/DH_C_TAB .
CONTROLS: TCTRL_/DESO/DH_C_TAB
TYPE TABLEVIEW USING SCREEN '0005'.
*.........table declarations:.................................*
TABLES: */DESO/DH_C_CLA .
TABLES: */DESO/DH_C_HT .
TABLES: */DESO/DH_C_MET .
TABLES: */DESO/DH_C_OBJ .
TABLES: */DESO/DH_C_REP .
TABLES: */DESO/DH_C_TAB .
TABLES: /DESO/DH_C_CLA .
TABLES: /DESO/DH_C_HT .
TABLES: /DESO/DH_C_MET .
TABLES: /DESO/DH_C_OBJ .
TABLES: /DESO/DH_C_REP .
TABLES: /DESO/DH_C_TAB .
* general table data declarations..............
INCLUDE LSVIMTDT .

Some files were not shown because too many files have changed in this diff Show More