edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Div. Dakosy Nachrichten

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-02 11:30:18 +01:00
parent 7b639ea564
commit 52feeaa603
11 changed files with 3237 additions and 1214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2622
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_004.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

1525
DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

95
DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.xsd Normal file
View File

@@ -0,0 +1,95 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="QuittungEingangsverarbeitung" type="QuittungEingangsverarbeitungBQTyp"/>
<xs:simpleType name="an..10">
<xs:restriction base="xs:string">
<xs:maxLength value="10"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..100">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:maxLength value="35"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..500">
<xs:restriction base="xs:string">
<xs:maxLength value="500"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="DatenaustauschAllgemeinTyp">
<xs:sequence>
<xs:element name="Transaktion" type="TransaktionAllgemeinTyp"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="EinzelQuittungTyp">
<xs:sequence>
<xs:element name="Transaktionsreferenz" type="an..35"/>
<xs:element name="Quittungsobjekt" type="QuittungsObjektBQTyp"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="n3">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{3}"/>
<xs:totalDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n6">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{6}"/>
<xs:totalDigits value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="QuittungEingangsverarbeitungBQTyp">
<xs:complexContent>
<xs:extension base="DatenaustauschAllgemeinTyp">
<xs:sequence>
<xs:element name="EinzelQuittung" type="EinzelQuittungTyp" maxOccurs="unbounded"/>
</xs:sequence>
</xs:extension>
</xs:complexContent>
</xs:complexType>
<xs:complexType name="QuittungFachBQTyp">
<xs:sequence>
<xs:element name="ObjektWdhFach" type="n6" minOccurs="0"/>
<xs:element name="BezugsObjektFach" type="an..35" minOccurs="0"/>
<xs:element name="GesamtErgebnis" type="an..10" minOccurs="0"/>
<xs:element name="ErgebnisGrund" type="an..100" minOccurs="0"/>
<xs:element name="AktionErfolg" type="an..10" minOccurs="0" maxOccurs="10"/>
<xs:element name="AktionNdf" type="an..10" minOccurs="0" maxOccurs="10"/>
<xs:element name="FehlerAnwendung" type="an..100" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="QuittungsObjektBQTyp">
<xs:sequence>
<xs:element name="QuittungTech" type="QuittungTechBQTyp" minOccurs="0" maxOccurs="unbounded"/>
<xs:element name="AbbruchGrund" type="an..100" minOccurs="0"/>
<xs:element name="FehlerValidierung" type="an..500" minOccurs="0" maxOccurs="unbounded"/>
<xs:element name="QuittungFach" type="QuittungFachBQTyp" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="QuittungTechBQTyp">
<xs:sequence>
<xs:element name="ObjektWdhTech" type="n6" minOccurs="0"/>
<xs:element name="BezugsObjekt" type="an..35" minOccurs="0"/>
<xs:element name="ErgebnisTech" type="an..10" minOccurs="0"/>
<xs:element name="FehlerTech" type="an..100" minOccurs="0" maxOccurs="unbounded"/>
<xs:element name="Korrekturen" type="an..100" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TransaktionAllgemeinTyp">
<xs:sequence>
<xs:element name="IOPartner" type="an..100"/>
<xs:element name="IODivision1" type="an..10" minOccurs="0"/>
<xs:element name="IODivision2" type="an..10" minOccurs="0"/>
<xs:element name="IODivision3" type="an..10" minOccurs="0"/>
<xs:element name="IOReferenz" type="an..35"/>
<xs:element name="IODatumZeit" type="xs:dateTime"/>
<xs:element name="Version" type="n3" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

4
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -149,6 +149,7 @@
<Compile Include="DAKOSY\ATLAS\NCTS\Versandanmeldung\e_dec_dat.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Versandbestaetigung\VersandbestaetigungNCTSDE_001.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Versandbestaetigung\VersandbestaetigungNCTSDE_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\QuittungEingangsverarbeitung\QuittungEingangsverarbeitung_005.Designer.vb" />
<Compile Include="DAKOSY\cDakosy_Zollanmeldungen.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\cDakosyNCTSOut.vb" />
<Compile Include="cIMPORT_Codelisten.vb" />
@@ -426,6 +427,9 @@
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\NCTS\xsd2code.config" />
<None Include="DAKOSY\ATLAS\QuittungEingangsverarbeitung\QuittungEingangsverarbeitung_005.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\EZOLL\NCTS\eZollTags.xsd">
<SubType>Designer</SubType>
</None>

1
DAKOSY_Worker/cDY_Statusliste.vb
View File

@@ -13,6 +13,7 @@ Public Class cDY_Statusliste
Shared Property S_07 As Integer = 7 ' Zoll OK
Shared Property S_08 As Integer = 8 ' Validierungsfehler Dakosy
Shared Property S_09 As Integer = 9 ' Sendefehler an Dakosy
Shared Property S_10 As Integer = 10 ' Vorankündigung entgegengenommen

3
DAKOSY_Worker/cDakosy_Statusmeldungen.vb
View File

@@ -56,7 +56,8 @@ Public Class cDakosy_Statusmeldungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Primär wird nach erg_datum geprüft!
'Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull(isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum),[dySt_ts])> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(isnull(isnull(dySt_DakosyTransaktionsDatum,[dySt_ergZeitpunkt]),[dySt_ts]) as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
'Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(isnull(isnull(dySt_DakosyTransaktionsDatum,[dySt_ergZeitpunkt]),[dySt_ts]) as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(dySt_ergZeitpunkt as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
' AND [dySt_status] > 5 --> Weil bei den 5er Status keine korrekte Zeitangabe vorliegt und die hoheren Staten sind immer danach.
' MsgBox("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'" & " - " & cntNewerTrans & " - " & BezugsNr)