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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-22 13:32:28 +02:00
parent 3d67139c09
commit 2d85480c4c
25 changed files with 30373 additions and 2360 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb generated
View File

@@ -3223,7 +3223,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
Private _abgabensteuerungKz As String
Private _eUCode As String
Private _eUCode As List(Of String)
Private _ursprungslandCode As String
@@ -3374,6 +3374,7 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)()
Me._kontingentnummer = New List(Of String)()
Me._warenMenge = New List(Of WarenMengeAVUVTyp)()
Me._eUCode = New List(Of String)()
Me._warenNummerZusatzCode = New List(Of String)()
End Sub
@@ -3467,8 +3468,8 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EUCode() As String
<System.Xml.Serialization.XmlElementAttribute("EUCode", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property EUCode() As List(Of String)
Get
Return Me._eUCode
End Get
@@ -4309,9 +4310,9 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
Private _zollNr As String
Private _nameFirma As List(Of String)
Private _nameFirma As String
Private _strasseHausNr As List(Of String)
Private _strasseHausNr As String
Private _ortsteil As String
@@ -4336,12 +4337,6 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._strasseHausNr = New List(Of String)()
Me._nameFirma = New List(Of String)()
End Sub
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property AdressTyp() As String
Get
@@ -4392,8 +4387,8 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute("NameFirma", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NameFirma() As List(Of String)
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property NameFirma() As String
Get
Return Me._nameFirma
End Get
@@ -4402,8 +4397,8 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute("StrasseHausNr", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property StrasseHausNr() As List(Of String)
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property StrasseHausNr() As String
Get
Return Me._strasseHausNr
End Get
@@ -6330,6 +6325,14 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
Private _fiskalvertretungKz As String
Private _zusammenfassendeMeldungKzStdKto As String
Private _zusammenfassendeMeldungMelderkto As String
Private _intrastatKzStdKto As String
Private _intrastatMelderkto As String
Private _ausstellungsort As String
Private _zollrechtlicherStatus As String
@@ -6532,6 +6535,46 @@ Namespace FreierVerkehrAktVeredelUmwandlung_004
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZusammenfassendeMeldungKzStdKto() As String
Get
Return Me._zusammenfassendeMeldungKzStdKto
End Get
Set
Me._zusammenfassendeMeldungKzStdKto = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property ZusammenfassendeMeldungMelderkto() As String
Get
Return Me._zusammenfassendeMeldungMelderkto
End Get
Set
Me._zusammenfassendeMeldungMelderkto = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IntrastatKzStdKto() As String
Get
Return Me._intrastatKzStdKto
End Get
Set
Me._intrastatKzStdKto = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property IntrastatMelderkto() As String
Get
Return Me._intrastatMelderkto
End Get
Set
Me._intrastatMelderkto = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
Public Property Ausstellungsort() As String
Get

30
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd
View File

@@ -29,13 +29,13 @@
<xs:element name="TeilnehmerEORI" type="an..17" minOccurs="0"/>
<xs:element name="TeilnehmerNLNR" type="n..4" minOccurs="0"/>
<xs:element name="ZollNr" type="an..7" minOccurs="0"/>
<xs:element name="NameFirma" type="an..120" minOccurs="0" maxOccurs="3"/>
<xs:element name="StrasseHausNr" type="an..35" minOccurs="0" maxOccurs="2"/>
<xs:element name="NameFirma" type="an..120" minOccurs="0"/>
<xs:element name="StrasseHausNr" type="an..35" minOccurs="0"/>
<xs:element name="Ortsteil" type="an..35" minOccurs="0"/>
<xs:element name="LandCode" type="an..3" minOccurs="0"/>
<xs:element name="PLZ-S" type="an..9" minOccurs="0"/>
<xs:element name="Ort-S" type="an..35" minOccurs="0"/>
<xs:element name="UStIDAnmelder" type="an..14" minOccurs="0"/>
<xs:element name="UStIDAnmelder" type="an..20" minOccurs="0"/>
<xs:element name="FinanzamtIDAnmelder" type="an..4" minOccurs="0"/>
<xs:element name="SitzEinfuehrer" type="an..1" minOccurs="0"/>
<xs:element name="Bewilligungsnummer" type="an..35" minOccurs="0"/>
@@ -68,11 +68,6 @@
<xs:maxLength value="120"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..14">
<xs:restriction base="xs:string">
<xs:maxLength value="14"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..17">
<xs:restriction base="xs:string">
<xs:maxLength value="17"/>
@@ -128,6 +123,11 @@
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..32">
<xs:restriction base="xs:string">
<xs:maxLength value="32"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:maxLength value="35"/>
@@ -303,6 +303,12 @@
<xs:element name="GradProzent" type="n..5.2" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="indicator">
<xs:restriction base="xs:string">
<xs:maxLength value="1"/>
<xs:pattern value="[ 0N1JY]"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp">
<xs:sequence>
<xs:element name="AdressierteZollstelle" type="an..4" minOccurs="0"/>
@@ -314,6 +320,10 @@
<xs:element name="StellungAnmeldenderBearbeiter" type="an..35" minOccurs="0"/>
<xs:element name="EmailAdresseAnmeldenderBearbeiter" type="an..256" minOccurs="0"/>
<xs:element name="FiskalvertretungKz" type="an..1" minOccurs="0"/>
<xs:element name="ZusammenfassendeMeldungKzStdKto" type="indicator" minOccurs="0"/>
<xs:element name="ZusammenfassendeMeldungMelderkto" type="an..32" minOccurs="0"/>
<xs:element name="IntrastatKzStdKto" type="indicator" minOccurs="0"/>
<xs:element name="IntrastatMelderkto" type="an..32" minOccurs="0"/>
<xs:element name="Ausstellungsort" type="an..35" minOccurs="0"/>
<xs:element name="ZollrechtlicherStatus" type="an..2" minOccurs="0"/>
<xs:element name="GesamtRohMasse" type="n..10.1" minOccurs="0"/>
@@ -446,7 +456,7 @@
<xs:sequence>
<xs:element name="ObjektName" type="an..35"/>
<xs:element name="ObjektAlias" type="an..35" minOccurs="0"/>
<xs:element name="AnmeldungArt" type="an..5"/>
<xs:element name="AnmeldungArt" type="an..5" minOccurs="0"/>
<xs:element name="ObjektQuittung" type="an..1" minOccurs="0"/>
<xs:element name="BezugsnummerVorblendung" type="an..35" minOccurs="0"/>
<xs:element name="UserVorblendung" type="an..10" minOccurs="0"/>
@@ -470,7 +480,7 @@
<xs:element name="WarenBezeichnung" type="an..240" minOccurs="0"/>
<xs:element name="VerfahrenscodeVorangegangenesVerfahren" type="an..2" minOccurs="0"/>
<xs:element name="AbgabensteuerungKz" type="an..2" minOccurs="0"/>
<xs:element name="EUCode" type="an..3" minOccurs="0"/>
<xs:element name="EUCode" type="an..3" minOccurs="0" maxOccurs="99"/>
<xs:element name="UrsprungslandCode" type="an..2" minOccurs="0"/>
<xs:element name="Rohmasse" type="n..10.1" minOccurs="0"/>
<xs:element name="Eigenmasse" type="n..10.1" minOccurs="0"/>

4501
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

252
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:aie="urn:publicid:IDN+zoll.de:AIE" elementFormDefault="qualified" version="8.9.2.12">
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:aie="urn:publicid:IDN+zoll.de:AIE" elementFormDefault="qualified" version="9.0.1.2">
<xs:complexType name="decimal">
<xs:simpleContent>
<xs:extension base="xs:decimal">
@@ -22,7 +22,7 @@
</xs:extension>
</xs:simpleContent>
</xs:complexType>
<xs:element name="FCFCDC" id="MES">
<xs:element name="FCFCDD" id="MES">
<xs:annotation>
<xs:documentation>
<aie:name value="NACHRICHT"/>
@@ -186,21 +186,21 @@
<aie:id value="167"/>
<aie:status value="R"/>
<aie:format value="a6"/>
<aie:pcre value="\AFCFCDC\Z"/>
<aie:pcre value="\AFCFCDD\Z"/>
<aie:list value="A0057"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="6"/>
<xs:enumeration value="FCFCDC"/>
<xs:enumeration value="FCFCDD"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="InterchangeSender" id="MST" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="NACHRICHTSENDERTEILNEHMER"/>
<aie:name value="NACHRICHTENSENDER"/>
<aie:id value="241"/>
<aie:status value="R"/>
</xs:documentation>
@@ -258,7 +258,7 @@
<xs:element name="InterchangeRecipient" id="MED" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="NACHRICHTEMPFAENGERDIENSTSTELLE"/>
<aie:name value="NACHRICHTENEMPFÄNGER"/>
<aie:id value="170"/>
<aie:status value="R"/>
</xs:documentation>
@@ -315,14 +315,14 @@
<aie:id value="89"/>
<aie:status value="R"/>
<aie:format value="an..7"/>
<aie:pcre value="\AC\.[1-9][0-9]?\.[1-9]?[0-9]\Z"/>
<aie:pcre value="\AD\.[1-9][0-9]?\.[1-9]?[0-9]\Z"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:minLength value="1"/>
<xs:maxLength value="7"/>
<xs:pattern value="C\.[1-9][0-9]?\.[1-9]?[0-9]"/>
<xs:pattern value="D\.[1-9][0-9]?\.[1-9]?[0-9]"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -622,16 +622,17 @@
<aie:name value="USt-IdNr."/>
<aie:id value="125"/>
<aie:status value="D"/>
<aie:format value="an..14"/>
<aie:pcre value="\A[A-Z]{2}.{1,12}\Z"/>
<aie:format value="an..20"/>
<aie:pcre value="\A(?:[A-Z]{2}.{1,12}|.{1,20})\Z"/>
<aie:list value="A1835"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:minLength value="1"/>
<xs:maxLength value="14"/>
<xs:maxLength value="20"/>
<xs:pattern value="[A-Z]{2}.{1,12}"/>
<xs:pattern value=".{1,20}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -707,7 +708,7 @@
<xs:element name="Declarant" id="DT0" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ANMELDER"/>
<aie:name value="ANGABEN ZUM ANMELDER"/>
<aie:id value="489"/>
<aie:status value="D"/>
</xs:documentation>
@@ -779,7 +780,7 @@
<xs:element name="Address" id="DT1" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ADRESSE"/>
<aie:name value="ANMELDER (ADRESSDATEN)"/>
<aie:id value="494"/>
<aie:status value="D"/>
</xs:documentation>
@@ -810,13 +811,14 @@
<aie:id value="495"/>
<aie:status value="R"/>
<aie:format value="an2"/>
<aie:pcre value="\A.{2}\Z"/>
<aie:pcre value="\A[A-Z]{2}\Z"/>
<aie:list value="I0300"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="2"/>
<xs:pattern value="[A-Z]{2}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -880,7 +882,7 @@
<xs:element name="Representative" id="CB0" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="VERTRETER"/>
<aie:name value="ANGABEN ZUM VERTRETER"/>
<aie:id value="1791"/>
<aie:status value="D"/>
</xs:documentation>
@@ -938,7 +940,7 @@
<xs:element name="Principal" id="UH0" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="VERTRETENER"/>
<aie:name value="ANGABEN ZUM VERTRETENEN (FÜR RECHNUNG)"/>
<aie:id value="1768"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1010,7 +1012,7 @@
<xs:element name="Address" id="UH1" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ADRESSE"/>
<aie:name value="FÜR RECHNUNG (ADRESSDATEN)"/>
<aie:id value="1773"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1041,13 +1043,14 @@
<aie:id value="1774"/>
<aie:status value="R"/>
<aie:format value="an2"/>
<aie:pcre value="\A.{2}\Z"/>
<aie:pcre value="\A[A-Z]{2}\Z"/>
<aie:list value="I0300"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="2"/>
<xs:pattern value="[A-Z]{2}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -1111,7 +1114,7 @@
<xs:element name="ContactPerson" id="PK0" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ANSPRECHPARTNER"/>
<aie:name value="ANGABEN ZUM ANSPRECHPARTNER FIRMA"/>
<aie:id value="517"/>
<aie:status value="R"/>
</xs:documentation>
@@ -1193,7 +1196,7 @@
<xs:element name="DutyDefermentApproval" id="KAS" minOccurs="0" maxOccurs="5">
<xs:annotation>
<xs:documentation>
<aie:name value="AUFSCHUB"/>
<aie:name value="AUFSCHUBANGABEN"/>
<aie:id value="546"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1289,7 +1292,7 @@
<xs:element name="DutyDefermentApplicant" id="PR0" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="AUFSCHUBNEHMER"/>
<aie:name value="ANGABEN ZUM AUFSCHUBNEHMER"/>
<aie:id value="552"/>
<aie:status value="R"/>
</xs:documentation>
@@ -1333,7 +1336,7 @@
<xs:element name="BorderTransportMeans" id="BMG" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEFOERDERUNGSMITTELGRENZE"/>
<aie:name value="BEFÖRDERUNGSMITTEL AN DER GRENZE"/>
<aie:id value="735"/>
<aie:status value="R"/>
</xs:documentation>
@@ -1414,7 +1417,7 @@
<xs:element name="ArrivalTransportMeans" id="BMN" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEFOERDERUNGSMITTELANKUNFT"/>
<aie:name value="BEFÖRDERUNGSMITTEL BEI ANKUNFT"/>
<aie:id value="729"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1458,7 +1461,7 @@
<aie:id value="1839"/>
<aie:status value="R"/>
<aie:format value="an..6"/>
<aie:pcre value="\A(?:AT-AV|AT-ZL|ATA|ATNEU|ESUMA|GB|OHNE|POST|PUEB|T1|T2|TIR|VO)\Z"/>
<aie:pcre value="\A(?:AT-AV|AT-ZL|ATA|ATNEU|ESUMA|GB|OHNE|POST|PUEB|T1|T2|TIR|VER321|VO)\Z"/>
<aie:list value="A2020"/>
</xs:documentation>
</xs:annotation>
@@ -1478,6 +1481,7 @@
<xs:pattern value="T1"/>
<xs:pattern value="T2"/>
<xs:pattern value="TIR"/>
<xs:pattern value="VER321"/>
<xs:pattern value="VO"/>
</xs:restriction>
</xs:simpleType>
@@ -1518,7 +1522,7 @@
<xs:element name="SummaryDeclaration" id="BSK" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEENDIGUNGSUMA"/>
<aie:name value="BEENDIGUNGSANTEIL SUMA"/>
<aie:id value="639"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1547,7 +1551,7 @@
<xs:element name="GoodsItem" id="BSP" minOccurs="1" maxOccurs="999">
<xs:annotation>
<xs:documentation>
<aie:name value="BEENDIGUNGSUMAPOSITION"/>
<aie:name value="POSITION (BE-ANTEIL SUMA)"/>
<aie:id value="644"/>
<aie:status value="R"/>
</xs:documentation>
@@ -1576,7 +1580,7 @@
<xs:element name="IdentificationByKey" id="BSO" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="IDENTIFIKATIONORDNUNGSBEGRIFF"/>
<aie:name value="ORDNUNGSBEGRIFF BEZOGENE ERLEDIGUNG"/>
<aie:id value="3650"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1622,7 +1626,7 @@
<xs:element name="Custodian" id="BSV" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="VERWAHRER"/>
<aie:name value="ANGABEN ZUM VERWAHRER"/>
<aie:id value="3658"/>
<aie:status value="R"/>
</xs:documentation>
@@ -1667,7 +1671,7 @@
<xs:element name="IdentificationByRegistration" id="BSR" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="IDENTIFIKATIONREGISTRIERNUMMER"/>
<aie:name value="REGISTRIERNUMMER BEZOGENE ERLEDIGUNG"/>
<aie:id value="3682"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1722,7 +1726,7 @@
<xs:element name="CustomsWarehouse" id="BLK" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEENDIGUNGZL"/>
<aie:name value="BEENDIGUNGSANTEIL ZL"/>
<aie:id value="677"/>
<aie:status value="D"/>
</xs:documentation>
@@ -1814,7 +1818,7 @@
<xs:element name="GoodsItem" id="BLP" minOccurs="1" maxOccurs="999">
<xs:annotation>
<xs:documentation>
<aie:name value="BEENDIGUNGZLPOSITION"/>
<aie:name value="POSITION (BE-ANTEIL ZL)"/>
<aie:id value="684"/>
<aie:status value="R"/>
</xs:documentation>
@@ -1947,7 +1951,7 @@
<xs:element name="CommercialAmount" id="BLH" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="HANDELMENGE"/>
<aie:name value="ANGABEN ZUR HANDELSMENGE (BE-ANTEIL ZL)"/>
<aie:id value="696"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2014,7 +2018,7 @@
<xs:element name="DebitAmount" id="BLA" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ABGANGMENGE"/>
<aie:name value="ANGABEN ZUR ABGANGSMENGE (BE-ANTEIL ZL)"/>
<aie:id value="692"/>
<aie:status value="R"/>
</xs:documentation>
@@ -2087,7 +2091,7 @@
<xs:element name="InwardProcessing" id="BVK" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEENDIGUNGAV"/>
<aie:name value="BEENDIGUNGSANTEIL AV"/>
<aie:id value="627"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2180,7 +2184,7 @@
<xs:element name="MonitoringCustomsOffice" id="HAD" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="UEBERWACHUNGHZA"/>
<aie:name value="ANGABEN ZUR ÜBERWACHUNGSZOLLSTELLE AV (BE-ANTEIL AV)"/>
<aie:id value="4307"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2220,7 +2224,7 @@
<xs:element name="GoodsItem" id="BVP" minOccurs="1" maxOccurs="999">
<xs:annotation>
<xs:documentation>
<aie:name value="BEENDIGUNGAVPOSITION"/>
<aie:name value="POSITION (BE-ANTEIL AV)"/>
<aie:id value="633"/>
<aie:status value="R"/>
</xs:documentation>
@@ -2352,7 +2356,7 @@
<xs:element name="Consignor" id="CO1" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="VERSENDER"/>
<aie:name value="ANGABEN ZUM VERSENDER/AUSFÜHRER"/>
<aie:id value="2162"/>
<aie:status value="R"/>
</xs:documentation>
@@ -2407,7 +2411,7 @@
<xs:element name="Address" id="COA" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ADRESSE"/>
<aie:name value="VERSENDER/AUSFÜHRER (ADRESSDATEN)"/>
<aie:id value="2167"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2438,13 +2442,14 @@
<aie:id value="2168"/>
<aie:status value="R"/>
<aie:format value="an2"/>
<aie:pcre value="\A.{2}\Z"/>
<aie:pcre value="\A[A-Z]{2}\Z"/>
<aie:list value="I0300"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="2"/>
<xs:pattern value="[A-Z]{2}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -2508,7 +2513,7 @@
<xs:element name="Consignee" id="CE1" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="EMPFAENGER"/>
<aie:name value="ANGABEN ZUM EMPFÄNGER"/>
<aie:id value="2091"/>
<aie:status value="R"/>
</xs:documentation>
@@ -2580,7 +2585,7 @@
<xs:element name="Address" id="CEA" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ADRESSE"/>
<aie:name value="EMPFÄNGER (ADRESSDATEN)"/>
<aie:id value="2096"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2611,13 +2616,14 @@
<aie:id value="2097"/>
<aie:status value="R"/>
<aie:format value="an2"/>
<aie:pcre value="\A.{2}\Z"/>
<aie:pcre value="\A[A-Z]{2}\Z"/>
<aie:list value="I0300"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="2"/>
<xs:pattern value="[A-Z]{2}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -2681,7 +2687,7 @@
<xs:element name="Acquirer" id="UC0" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ERWERBER"/>
<aie:name value="ANGABEN ZUM ERWERBER IM ANDEREN MITGLIEDSTAAT"/>
<aie:id value="2114"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2756,7 +2762,7 @@
<aie:name value="USt-IdNr."/>
<aie:id value="2137"/>
<aie:status value="R"/>
<aie:format value="an..14"/>
<aie:format value="an..20"/>
<aie:pcre value="\A[A-Z]{2}.{1,12}\Z"/>
<aie:list value="A1835"/>
</xs:documentation>
@@ -2764,7 +2770,7 @@
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:minLength value="1"/>
<xs:maxLength value="14"/>
<xs:maxLength value="20"/>
<xs:pattern value="[A-Z]{2}.{1,12}"/>
</xs:restriction>
</xs:simpleType>
@@ -2772,7 +2778,7 @@
<xs:element name="Address" id="UC1" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ADRESSE"/>
<aie:name value="ERWERBER (ADRESSDATEN)"/>
<aie:id value="2119"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2803,13 +2809,14 @@
<aie:id value="2120"/>
<aie:status value="R"/>
<aie:format value="an2"/>
<aie:pcre value="\A.{2}\Z"/>
<aie:pcre value="\A[A-Z]{2}\Z"/>
<aie:list value="I0300"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="2"/>
<xs:pattern value="[A-Z]{2}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -2873,7 +2880,7 @@
<xs:element name="Containers" id="KC0" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="CONTAINER"/>
<aie:name value="ANGABEN ZU CONTAINERN"/>
<aie:id value="2086"/>
<aie:status value="R"/>
</xs:documentation>
@@ -2900,7 +2907,7 @@
<xs:element name="Container" id="KC1" minOccurs="0" maxOccurs="9">
<xs:annotation>
<xs:documentation>
<aie:name value="CONTAINERNUMMER"/>
<aie:name value="ANGABEN ZU CONTAINERNUMMERN"/>
<aie:id value="2089"/>
<aie:status value="D"/>
</xs:documentation>
@@ -2933,7 +2940,7 @@
<xs:element name="DeliveryTerms" id="RAL" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="LIEFERBEDINGUNG"/>
<aie:name value="ANGABEN ZUR LIEFERBEDINGUNG"/>
<aie:id value="2138"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3014,7 +3021,7 @@
<xs:element name="PaymentTransaction" id="MOP" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ZAHLUNGSVERKEHR"/>
<aie:name value="ANGABEN ZUM ZAHLUNGSVERKEHR"/>
<aie:id value="2185"/>
<aie:status value="D"/>
</xs:documentation>
@@ -3064,7 +3071,7 @@
<xs:element name="ForeignTradeStatistics" id="RAS" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="AUSSENHANDELSTATISTIK"/>
<aie:name value="DATEN FÜR DIE AUSSENHANDELSSTATISTIK (KOPF)"/>
<aie:id value="2043"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3179,7 +3186,7 @@
<xs:element name="EntryCustomsOffice" id="RSE" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="EINGANGSZOLLSTELLE"/>
<aie:name value="ANGABEN ZUR EINGANGSZOLLSTELLE"/>
<aie:id value="2056"/>
<aie:status value="O"/>
</xs:documentation>
@@ -3213,7 +3220,7 @@
<xs:element name="CustomsValue" id="RZW" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ZOLLWERT"/>
<aie:name value="ANGABEN ÜBER DEN ZOLLWERT (D.V.1) (KOPF)"/>
<aie:id value="2188"/>
<aie:status value="D"/>
</xs:documentation>
@@ -3240,7 +3247,7 @@
<xs:element name="Vendor" id="SE0" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="VERKAEUFER"/>
<aie:name value="ANGABEN ZUM VERKÄUFER"/>
<aie:id value="2234"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3295,7 +3302,7 @@
<xs:element name="Address" id="SE1" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ADRESSE"/>
<aie:name value="VERKÄUFER (ADRESSDATEN)"/>
<aie:id value="2239"/>
<aie:status value="D"/>
</xs:documentation>
@@ -3326,13 +3333,14 @@
<aie:id value="2240"/>
<aie:status value="R"/>
<aie:format value="an2"/>
<aie:pcre value="\A.{2}\Z"/>
<aie:pcre value="\A[A-Z]{2}\Z"/>
<aie:list value="I0300"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="2"/>
<xs:pattern value="[A-Z]{2}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -3396,7 +3404,7 @@
<xs:element name="Vendee" id="BY0" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="KAEUFER"/>
<aie:name value="ANGABEN ZUM KÄUFER"/>
<aie:id value="2205"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3451,7 +3459,7 @@
<xs:element name="Address" id="BY1" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ADRESSE"/>
<aie:name value="KÄUFER (ADRESSDATEN)"/>
<aie:id value="2210"/>
<aie:status value="D"/>
</xs:documentation>
@@ -3482,13 +3490,14 @@
<aie:id value="2211"/>
<aie:status value="R"/>
<aie:format value="an2"/>
<aie:pcre value="\A.{2}\Z"/>
<aie:pcre value="\A[A-Z]{2}\Z"/>
<aie:list value="I0300"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="2"/>
<xs:pattern value="[A-Z]{2}"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -3552,7 +3561,7 @@
<xs:element name="Affiliation" id="KZV" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="VERBUNDENHEIT"/>
<aie:name value="VERBUNDENHEIT VON VERKÄUFER UND KÄUFER"/>
<aie:id value="2231"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3599,7 +3608,7 @@
<xs:element name="RestrictionOrCondition" id="KZE" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="EINSCHRAENKUNGBEDINGUNG"/>
<aie:name value="EINSCHRÄNKUNGEN UND BEDINGUNGEN"/>
<aie:id value="2201"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3663,7 +3672,7 @@
<xs:element name="LicenseFee" id="KZL" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="LIZENZGEBUEHR"/>
<aie:name value="LIZENZGEBÜHREN"/>
<aie:id value="2228"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3710,7 +3719,7 @@
<xs:element name="Resale" id="KZU" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="WEITERVERKAUF"/>
<aie:name value="WEITERVERKÄUFE/ÜBERLASSUNGEN/VERWENDUNGEN"/>
<aie:id value="2280"/>
<aie:status value="R"/>
</xs:documentation>
@@ -3760,7 +3769,7 @@
<xs:element name="Document" id="RUX" minOccurs="0" maxOccurs="20">
<xs:annotation>
<xs:documentation>
<aie:name value="UNTERLAGE"/>
<aie:name value="VORGELEGTE UNTERLAGEN ZU EINER ANMELDUNG"/>
<aie:id value="2143"/>
<aie:status value="O"/>
</xs:documentation>
@@ -3892,23 +3901,6 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EUCode" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="EU-Code"/>
<aie:id value="2343"/>
<aie:status value="D"/>
<aie:format value="an3"/>
<aie:pcre value="\A.{3}\Z"/>
<aie:list value="I0100"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="3"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CessionManagementFlag" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
@@ -4053,7 +4045,7 @@
<xs:element name="CommodityCode" id="COM" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="WARENUMMER"/>
<aie:name value="ANGABE WARENNUMMER"/>
<aie:id value="3247"/>
<aie:status value="R"/>
</xs:documentation>
@@ -4079,10 +4071,40 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="AdditionalProcedure" id="ADL" minOccurs="0" maxOccurs="99">
<xs:annotation>
<xs:documentation>
<aie:name value="ANGABEN ZU EU-CODES"/>
<aie:id value="4945"/>
<aie:status value="O"/>
</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:element name="Code" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="EU-Code"/>
<aie:id value="4946"/>
<aie:status value="R"/>
<aie:format value="an3"/>
<aie:pcre value="\A.{3}\Z"/>
<aie:list value="I0100"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:token">
<xs:length value="3"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SupplementaryCodes" id="PZC" minOccurs="0" maxOccurs="10">
<xs:annotation>
<xs:documentation>
<aie:name value="ZUSATZCODES"/>
<aie:name value="ANGABEN ZU ZUSATZCODES"/>
<aie:id value="3316"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4111,7 +4133,7 @@
<xs:element name="Package" id="GS2" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="PACKSTUECK"/>
<aie:name value="PACKSTÜCKE"/>
<aie:id value="2965"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4177,7 +4199,7 @@
<xs:element name="ForeignTradeStatistics" id="PAS" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="AUSSENHANDELSTATISTIK"/>
<aie:name value="DATEN FÜR DIE AUSSENHANDELSSTATISTIK (POSITION)"/>
<aie:id value="2561"/>
<aie:status value="R"/>
</xs:documentation>
@@ -4226,7 +4248,7 @@
<xs:element name="Amount" id="PAM" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="MENGE"/>
<aie:name value="ANGABEN ZUR AH-STAT. MENGE"/>
<aie:id value="2570"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4296,7 +4318,7 @@
<xs:element name="CustomsValue" id="PZW" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ZOLLWERT"/>
<aie:name value="ANGABEN ÜBER DEN ZOLLWERT (D.V.1) (POSITION)"/>
<aie:id value="3262"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4357,7 +4379,7 @@
<xs:element name="NetPrice" id="PZN" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="NETTOPREIS"/>
<aie:name value="ANGABEN ZUM NETTOPREIS"/>
<aie:id value="3291"/>
<aie:status value="R"/>
</xs:documentation>
@@ -4444,7 +4466,7 @@
<xs:element name="IndirectPayment" id="PZM" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="MITTELBAREZAHLUNG"/>
<aie:name value="ANGABEN ZU MITTELBAREN ZAHLUNGEN"/>
<aie:id value="3285"/>
<aie:status value="O"/>
</xs:documentation>
@@ -4531,7 +4553,7 @@
<xs:element name="AirFreightCosts" id="PZL" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="LUFTFRACHTKOSTEN"/>
<aie:name value="ANGABEN ZU DEN LUFTFRACHTKOSTEN"/>
<aie:id value="3276"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4649,7 +4671,7 @@
<xs:element name="AdditionDeduction" id="PZR" minOccurs="0" maxOccurs="10">
<xs:annotation>
<xs:documentation>
<aie:name value="HINZURECHNUNGABZUG"/>
<aie:name value="HINZURECHNUNGEN/ABZÜGE ZUM ZOLLWERT"/>
<aie:id value="3266"/>
<aie:status value="O"/>
</xs:documentation>
@@ -4807,7 +4829,7 @@
<xs:element name="Assessment" id="PBX" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEMESSUNG"/>
<aie:name value="BEMESSUNGSDATEN (OHNE VERBRAUCHSTEUER)"/>
<aie:id value="2695"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4877,7 +4899,7 @@
<xs:element name="Amount" id="PBZ" minOccurs="0" maxOccurs="5">
<xs:annotation>
<xs:documentation>
<aie:name value="ZOLLMENGE"/>
<aie:name value="ANGABEN ZUR ZOLLMENGE"/>
<aie:id value="2706"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4944,7 +4966,7 @@
<xs:element name="SpecificRate" id="PBW" minOccurs="0" maxOccurs="5">
<xs:annotation>
<xs:documentation>
<aie:name value="BESONDEREWERTANGABE"/>
<aie:name value="BESONDERE WERTANGABEN"/>
<aie:id value="2700"/>
<aie:status value="D"/>
</xs:documentation>
@@ -4994,7 +5016,7 @@
<xs:element name="ContentInformation" id="PBG" minOccurs="0" maxOccurs="3">
<xs:annotation>
<xs:documentation>
<aie:name value="GEHALTSANGABE"/>
<aie:name value="GEHALTSANGABEN"/>
<aie:id value="2703"/>
<aie:status value="O"/>
</xs:documentation>
@@ -5025,16 +5047,13 @@
<aie:id value="2705"/>
<aie:status value="R"/>
<aie:format value="n..5 (5,2)"/>
<aie:pcre value="\A(?!0\.?0*\Z)(?:0|[1-9][0-9]{0,2})(?:\.[0-9]{1,2})?\Z"/>
<aie:pcre value="\A(?!0\.?0*\Z)(?:(?:0|[1-9][0-9]{0,1})(?:\.[0-9]{1,2})?|100(?:\.0{1,2})?)\Z"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:decimal">
<xs:minInclusive value="0.01"/>
<xs:maxInclusive value="999.99"/>
<xs:totalDigits value="5"/>
<xs:fractionDigits value="2"/>
<xs:pattern value="(0|[1-9][0-9]{0,2})(\.[0-9]{1,2})?"/>
<xs:pattern value="(0|[1-9][0-9]{0,1})(\.[0-9]{1,2})?"/>
<xs:pattern value="100(\.0{1,2})?"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -5047,7 +5066,7 @@
<xs:element name="ExciseDuty" id="PVS" minOccurs="0" maxOccurs="3">
<xs:annotation>
<xs:documentation>
<aie:name value="VERBRAUCHSTEUER"/>
<aie:name value="VERBRAUCHSTEUERDATEN"/>
<aie:id value="3095"/>
<aie:status value="D"/>
</xs:documentation>
@@ -5077,16 +5096,13 @@
<aie:id value="3097"/>
<aie:status value="D"/>
<aie:format value="n..5 (5,2)"/>
<aie:pcre value="\A(?!0\.?0*\Z)(?:0|[1-9][0-9]{0,2})(?:\.[0-9]{1,2})?\Z"/>
<aie:pcre value="\A(?!0\.?0*\Z)(?:(?:0|[1-9][0-9]{0,1})(?:\.[0-9]{1,2})?|100(?:\.0{1,2})?)\Z"/>
</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:decimal">
<xs:minInclusive value="0.01"/>
<xs:maxInclusive value="999.99"/>
<xs:totalDigits value="5"/>
<xs:fractionDigits value="2"/>
<xs:pattern value="(0|[1-9][0-9]{0,2})(\.[0-9]{1,2})?"/>
<xs:pattern value="(0|[1-9][0-9]{0,1})(\.[0-9]{1,2})?"/>
<xs:pattern value="100(\.0{1,2})?"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
@@ -5113,7 +5129,7 @@
<xs:element name="Amount" id="PVM" minOccurs="1" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="VERBRAUCHSTEUERMENGE"/>
<aie:name value="ANGABEN ZUR VERBRAUCHSTEUERMENGE"/>
<aie:id value="3099"/>
<aie:status value="R"/>
</xs:documentation>
@@ -5183,7 +5199,7 @@
<xs:element name="PreferentialTreatment" id="PGX" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEGUENSTIGUNG"/>
<aie:name value="BEGÜNSTIGUNGSDATEN"/>
<aie:id value="3843"/>
<aie:status value="D"/>
</xs:documentation>
@@ -5210,7 +5226,7 @@
<xs:element name="Declaration" id="PGM" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ANMELDUNG"/>
<aie:name value="ANGABEN ZU KONTINGENTEN"/>
<aie:id value="3844"/>
<aie:status value="D"/>
</xs:documentation>
@@ -5220,7 +5236,7 @@
<xs:element name="Contingent" id="GMK" minOccurs="0" maxOccurs="2">
<xs:annotation>
<xs:documentation>
<aie:name value="KONTINGENT"/>
<aie:name value="KONTINGENTSANGABEN"/>
<aie:id value="3845"/>
<aie:status value="D"/>
</xs:documentation>
@@ -5249,7 +5265,7 @@
<xs:element name="PreferentialTreatmentQuantity" id="GMB" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="BEGUENSTIGUNGMENGE"/>
<aie:name value="ANGABEN ZUR BEGÜNSTIGUNGSMENGE"/>
<aie:id value="2657"/>
<aie:status value="D"/>
</xs:documentation>
@@ -5321,7 +5337,7 @@
<xs:element name="OutwardProcessingReduction" id="PPV" minOccurs="0" maxOccurs="3">
<xs:annotation>
<xs:documentation>
<aie:name value="PVMINDERUNG"/>
<aie:name value="ANGABEN ZU PV-MINDERUNG"/>
<aie:id value="2969"/>
<aie:status value="D"/>
</xs:documentation>
@@ -5371,7 +5387,7 @@
<xs:element name="SpecialCase" id="PSF" minOccurs="0" maxOccurs="9">
<xs:annotation>
<xs:documentation>
<aie:name value="SONDERFALL"/>
<aie:name value="SONDERFALLDATEN"/>
<aie:id value="3069"/>
<aie:status value="D"/>
</xs:documentation>
@@ -5438,7 +5454,7 @@
<xs:element name="Document" id="DC2" minOccurs="0" maxOccurs="99">
<xs:annotation>
<xs:documentation>
<aie:name value="UNTERLAGE"/>
<aie:name value="UNTERLAGEN ZUR POSITION"/>
<aie:id value="3076"/>
<aie:status value="O"/>
</xs:documentation>
@@ -5530,7 +5546,7 @@
<xs:element name="WriteOff" id="DC3" minOccurs="0" maxOccurs="1">
<xs:annotation>
<xs:documentation>
<aie:name value="ABSCHREIBUNGMENGE"/>
<aie:name value="ANGABEN ZU ABSCHREIBUNGSMENGE/-WERT"/>
<aie:id value="3090"/>
<aie:status value="D"/>
</xs:documentation>

20942
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

5609
DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec_old.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

8
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
View File

@@ -1064,7 +1064,7 @@ Public Class cDakosyEZA
For Each ADR In DY.eza_ADRESSEN
'Verkäufer
If ADR.ezaAd_AdressTyp = "CZ" Then
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL)
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL)
If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -1086,7 +1086,7 @@ Public Class cDakosyEZA
'Empfänger
If ADR.ezaAd_AdressTyp = "CN" Then
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL)
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL)
If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff
@@ -1175,10 +1175,10 @@ Public Class cDakosyEZA
End Function
Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI)
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL)
If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE

12
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb
View File

@@ -977,7 +977,7 @@ Public Class cDakosyNCTSOut
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, SQL)
Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL)
If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -990,7 +990,7 @@ Public Class cDakosyNCTSOut
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "")
ElseIf DY.ncts_WARENPOS.Count > 0 Then
Dim WP = DY.ncts_WARENPOS(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, SQL)
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL)
If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff
@@ -1008,7 +1008,7 @@ Public Class cDakosyNCTSOut
End If
Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, SQL)
Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL)
If AD2 IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
@@ -1021,7 +1021,7 @@ Public Class cDakosyNCTSOut
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "")
ElseIf DY.ncts_WARENPOS.Count > 0 Then
Dim WP = DY.ncts_WARENPOS(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, SQL)
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL)
If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff
@@ -1076,10 +1076,10 @@ Public Class cDakosyNCTSOut
End Sub
Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI)
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL)
If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE

4
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -95,6 +95,7 @@
<Compile Include="DAKOSY\ATLAS\EZA\cDakosyEZA.vb" />
<Compile Include="DAKOSY\ATLAS\EZA\EntscheidungAnmeldung\EntscheidungAnmeldung_003.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\cfcdec.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\cfcdec_old.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\EZA\FreierVerkehr\FreierVerkehrAktVeredelUmwandlung_004.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\EZA\MitteilungAbschreibung\MitteilungAbschreibung_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\EZA\NichtAbschliessendeFestsetzung\NichtAbschliessendeFestsetzung_002.Designer.vb" />
@@ -213,6 +214,9 @@
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\cfcdec.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehrAktVeredelUmwandlung\cfcdec_old.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\EZA\FreierVerkehr\FreierVerkehrAktVeredelUmwandlung_004.xsd">
<SubType>Designer</SubType>
</None>

12
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -989,8 +989,8 @@ Public Class cZOLL_IMPORT
' MsgBox(fNEF.txtAbsender.Text)
If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("zbant_verszb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verseori"))
If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("zbant_anmzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_anmeori"))
If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("zbant_verszb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verseori"), "")
If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("zbant_anmzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_anmeori"), "")
' If SPEDITIONSBUCH.Vermittler = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Vermittler, SPEDITIONSBUCH.VermittlerKundenNr, -1, 3, r.Item("zbant_vertzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verteori"))
@@ -1285,10 +1285,10 @@ Public Class cZOLL_IMPORT
Function getAdresseFromEORI(EORI)
Function getAdresseFromEORI(EORI, EORI_NL)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI)
Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL)
If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE
@@ -1610,12 +1610,12 @@ Public Class cZOLL_IMPORT
Return False
End Function
Sub setAdresseAndKundenNr(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal zollNr As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, ByVal zbant_regnr As String, ByVal zbant_korant As String, zbant_vland As String, eori As String)
Sub setAdresseAndKundenNr(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal zollNr As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, ByVal zbant_regnr As String, ByVal zbant_korant As String, zbant_vland As String, eori As String, eori_NL As String)
Dim kunde_tmp As String = ""
Dim kdnr_tmp As String = ""
If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then
kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori)
kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori, eori_NL)
If IsNull(kdnr_tmp) Then
If Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then
kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr)

1
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -173,6 +173,7 @@
If UL.ezaWpUl_Art IsNot Nothing Then
Select Case UL.ezaWpUl_Art
Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
'case "4EEQ" : addIfNotExists(ATR_List, "4EEQ: " & (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
End Select

12
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -752,7 +752,7 @@ Public Class cTelotec_Anmeldung
'Versender 'Verkäufer
If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") Then
Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, SQL)
Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL)
If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -773,7 +773,7 @@ Public Class cTelotec_Anmeldung
'Empfänger
If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") Then
Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, SQL)
Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL)
If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff
@@ -879,7 +879,7 @@ Public Class cTelotec_Anmeldung
'Versender 'Verkäufer
If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then
Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, SQL)
Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL)
If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
@@ -900,7 +900,7 @@ Public Class cTelotec_Anmeldung
'Empfänger
If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then
Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, SQL)
Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL)
If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff
@@ -994,10 +994,10 @@ Public Class cTelotec_Anmeldung
End Function
Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI)
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL)
If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE

96
UID/Buergschaften/usrctlBuergschaft.vb
View File

@@ -890,6 +890,11 @@ Public Class usrctlBuergschaft
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
'doJahresauswertung_KEWILL
doJahresauswertung_DAKOSY()
End Sub
Sub doJahresauswertung_KEWILL()
Me.Cursor = Cursors.WaitCursor
Try
Dim cBrgYear As New List(Of cBrgYear)
@@ -958,6 +963,7 @@ Public Class usrctlBuergschaft
If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zabis(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE, andstr_zabis))
If cboSystemAuswertungJahrWo.Text <> "ATLAS" And bzol Then b.at_zolaris = BRG.getBrgSumFromFMZOLL_Zolaris(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_AT, andstr_zolaris)
If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de2_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zabis(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE_NEU, andstr_zabis))
' b.at_zolaris = CDbl(0)
cBrgYear.Add(b)
@@ -975,6 +981,96 @@ Public Class usrctlBuergschaft
Me.Cursor = Cursors.Default
End Sub
Sub doJahresauswertung_DAKOSY()
Me.Cursor = Cursors.WaitCursor
Try
Dim cBrgYear As New List(Of cBrgYear)
Dim estr As String = ""
Dim estrText As String = ""
Dim zol_estr As String = ""
Dim zol_estrText As String = ""
If ComboBox2.Text = "" Then
MsgBox("Bitte Jahr auswählen!")
Me.Cursor = Cursors.Default
Exit Sub
End If
Dim year As Integer = ComboBox2.Text
For kw As Integer = 1 To 53
Dim aktdat As Date = CalendarWeek(kw, year)
Dim b As New cBrgYear
b.kw = kw
Dim andstr_zabis As String = ""
Dim andstr_zolaris As String = ""
Dim bzol As Boolean = True
Dim bzab As Boolean = True
If cbxSUB.Checked Or cbxATILLA.Checked Or cbxSBG.Checked Or cbxWAI.Checked Or cbxDURMAZ.Checked Or cbxNKD.Checked Or cbxNEU.Checked Then
bzol = False
bzab = True
'andstr_zabis = " AND basman_nl IN ( "
andstr_zolaris = " AND OperatorId IN ( "
estr = ""
'estrText = ""
zol_estr = ""
zol_estrText = ""
'If cbxSUB.Checked Then estr &= " '" & cbxSUB.Text & "'," : estrText &= " 'SUB'," : bzab = True
'If cbxWAI.Checked Then estr &= " '" & cbxWAI.Text & "'," : estrText &= " 'WAI'," : bzab = True
'If cbxSBG.Checked Then estr &= " '" & cbxSBG.Text & "'," : estrText &= " 'SBG'," : bzab = True
'If cbxNEU.Checked Then estr &= " '" & cbxNEU.Text & "'," : estrText &= " 'NEU'," : bzab = True
'If cbxNKD.Checked Then estrText &= " 'NKD', "
'If cbxATILLA.Checked Then estr &= " 'SUW'," : estrText &= " 'ATILLA'," : bzab = True 'ATILLA
'If cbxDURMAZ.Checked Then estr &= " 'SUW'," : estrText &= " 'DURMAZ'," : bzab = True 'DURMAZ
'If estr.EndsWith(",") Then estr = estr.Substring(0, estr.Length - 1)
'If estrText.EndsWith(",") Then estrText = estrText.Substring(0, estrText.Length - 1)
' andstr_zabis &= estr & ") "
'If Not cbxATILLA.Checked = cbxDURMAZ.Checked Then
' If cbxATILLA.Checked Then andstr_zabis &= " AND ncts_ObjectName NOT LIKE 'DU%' " 'ATILLA
' If cbxDURMAZ.Checked Then andstr_zabis &= " AND ncts_ObjectName LIKE 'DU%' " 'DURMAZ
'End If
If cbxATILLA.Checked Then andstr_zabis &= " AND ncts_ObjectName LIKE '4801%' " 'ATILLA
If cbxDURMAZ.Checked Then andstr_zabis &= " AND ncts_ObjectName LIKE 'DU%' " 'DURMAZ
'ZOLARIS
If cbxSUB.Checked Then zol_estr &= " '1', '4'," : bzol = True
' If cbxWAI.Checked Then zol_estr &= " '4'," : bzol = True
If cbxSBG.Checked Then zol_estr &= " '2'," : bzol = True
If cbxNKD.Checked Then zol_estr &= " '3'," : bzol = True
If cbxATILLA.Checked Then zol_estr &= " '5', '6'," : bzol = True
If zol_estr.EndsWith(",") Then zol_estr = zol_estr.Substring(0, zol_estr.Length - 1)
andstr_zolaris &= zol_estr & ") "
' MsgBox(andstr_zabis & " - " & andstr_zolaris)
End If
' " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW'
If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.at__atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zodiak(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_AT, andstr_zabis))
If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zodiak(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE, andstr_zabis))
If cboSystemAuswertungJahrWo.Text <> "ATLAS" And bzol Then b.at_zolaris = BRG.getBrgSumFromFMZOLL_Zolaris(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_AT, andstr_zolaris)
If cboSystemAuswertungJahrWo.Text <> "ZOLARIS" And bzab Then b.de2_atlas = toDbl(BRG.getBrgSumFromFMZOLL_Zodiak(aktdat.ToShortDateString, aktdat.AddDays(6).ToShortDateString, "50", "60", brg_DE_NEU, andstr_zabis))
' b.at_zolaris = CDbl(0)
cBrgYear.Add(b)
Next
If cbxSplitATLASZOLARIS.Checked Then
genExcelYearSplitATLASEZOLL(cBrgYear, year, "AUSWERTUNG mit Einschränkung: " & estrText)
Else
genExcelYear(cBrgYear, year, "AUSWERTUNG mit Einschränkung: " & estrText)
End If
Catch ex As System.Exception
MsgBox("Problem beim Verarbeiten der Jahresauswertung!" & vbNewLine & ex.Message & ex.StackTrace)
'MsgBox(ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
Function toDbl(o) As Double
Try
If o.ToString <> "" Then

33
cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb
View File

@@ -16,6 +16,17 @@ Public Class cMAVIGetMsgType
End Function
Shared Function isTRNCTS_VersandanmeldungXML_CC015B_RES(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC015B_RES").Count > 0 Then
Return True
End If
End If
Return False
End Function
Shared Function isTRNCTS_BestaetigungZollXML_CC029B(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC029B").Count > 0 Then
@@ -25,4 +36,26 @@ Public Class cMAVIGetMsgType
Return False
End Function
Shared Function isTRNCTS_BestaetigungZollXML_ARR_INF(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("ARR_INF").Count > 0 Then
Return True
End If
End If
Return False
End Function
Shared Function isTRNCTS_ErledigungsmitteilungXML_CC045A(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC045A").Count > 0 Then
Return True
End If
End If
Return False
End Function
End Class

110
cNCTSPartnerWorker/cNCTS_TR.vb
View File

@@ -159,6 +159,10 @@ Public Class cNCTS_TR
Property ncts_SumA_Befoerderer_Ort As Object = Nothing
Property ncts_Stammreferenz As Object = Nothing
Property ncts_GUID As Object = Nothing
Property ncts_Eroeffnung As Object = Nothing
Property ncts_Ankunft As Object = Nothing
Property ncts_Erledigung As Object = Nothing
Property ncts_SICHERHEITSANGABEN As New List(Of cNCTS_TR_Sicherheitsangaben)
Property ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition)
@@ -353,6 +357,10 @@ Public Class cNCTS_TR
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Ort", ncts_SumA_Befoerderer_Ort))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GUID", ncts_GUID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung))
Return list
End Function
@@ -517,7 +525,21 @@ Public Class cNCTS_TR
End Try
Return LOADByAnmID
End Function
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cNCTS_TR
Shared Function LOADByBezugsNr_or_GUID_or_MRN(bezugsNr As String, GUID As String, MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR
LOADByBezugsNr_or_GUID_or_MRN = New cNCTS_TR
If bezugsNr <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByBezugsNr(bezugsNr, loadALL, checkValidStatus, Partnersystem)
If LOADByBezugsNr_or_GUID_or_MRN.ncts_Id <= 0 Then
If GUID <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByGUID(GUID, loadALL, checkValidStatus, Partnersystem)
End If
If LOADByBezugsNr_or_GUID_or_MRN.ncts_Id <= 0 Then
If MRN <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByMRN(MRN, loadALL, checkValidStatus, Partnersystem)
End If
End Function
Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR
Try
Dim NCTS As New cNCTS_TR
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -525,7 +547,47 @@ Public Class cNCTS_TR
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_MRN LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn)
'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ")
cmd.Parameters.AddWithValue("@MRN", MRN)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
End If
Next
If loadALL Then
NCTS.LOAD_Sicherheitsangaben()
NCTS.LOAD_Warenposition()
End If
dr.Close()
Return NCTS
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return Nothing
End Function
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR
Try
Dim NCTS As New cNCTS_TR
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn)
'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ")
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
@@ -557,6 +619,46 @@ Public Class cNCTS_TR
Return Nothing
End Function
Shared Function LOADByGUID(GUID As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR
Try
Dim NCTS As New cNCTS_TR
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_GUID LIKE @GUID " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn)
'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ")
cmd.Parameters.AddWithValue("@GUID", GUID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
End If
Next
If loadALL Then
NCTS.LOAD_Sicherheitsangaben()
NCTS.LOAD_Warenposition()
End If
dr.Close()
Return NCTS
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return Nothing
End Function
Public Function UPDATE_Status(status As Integer) As String
If ncts_Id > 0 Then
@@ -834,10 +936,10 @@ Public Class cNCTS_TR
Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI)
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL)
If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE

2
initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb
View File

@@ -148,7 +148,7 @@ Module AtlasAufschubDatenEinlesen
'Lösche File:
Try
System.IO.File.Delete(frmRoutineManager.Path & "\" & brgak_filename)
If brgak_filename <> "DY" Then System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
Catch ex As Exception
writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
End Try

2
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

@@ -661,8 +661,8 @@
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
'If XMLFilePath = "" Then
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)

15
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -356,6 +356,21 @@ Public Class cGetMsgType
End If
Return False
End Function
Shared Function isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
' If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<FCFCDD>") Then
Return True
End If
'End If
End If
Return False
End Function

218
initATLASAufschubkonten/cMAVIWorker.vb
View File

@@ -35,8 +35,8 @@ Public Class cMAVIWorker
Dim AnsprechpTMP_Email = ""
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True)
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_ObjectName = LRN
NCTS.ncts_Partnersystem = "MAVI"
@@ -88,6 +88,73 @@ Public Class cMAVIWorker
Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_VersandanmeldungXML_CC015B_RES = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC015B_RES") Then
' Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
' MsgBox(xmlCC015B)
' Dim p = Path.GetTempFileName
Dim LRN = ""
Dim GUID = ""
If doc.GetElementsByTagName("LRN").Count > 0 Then
LRN = doc.GetElementsByTagName("LRN")(0).InnerText
End If
readNCTS_VersandanmeldungXML_CC015B_RES = LRN
If doc.GetElementsByTagName("GUID").Count > 0 Then
GUID = doc.GetElementsByTagName("GUID")(0).InnerText
End If
Dim AnsprechpTMP_Email = ""
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, GUID, "", True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_ObjectName = LRN
NCTS.ncts_GUID = GUID
NCTS.ncts_Partnersystem = "MAVI"
If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_VersandanmeldungXML_CC015B_RES = ""
End If
'Try
' System.IO.File.Delete(p)
'Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
'End Try
FORM.addDGVEinarbeitung("NCTS: Versandanmeldung - Ergänzung GUID", readNCTS_VersandanmeldungXML_CC015B_RES)
' End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_VersandanmeldungXML_CC015B_RES = ""
End Try
End Function
Public Shared Function readNCTS_BestaetigungZollXML_CC029B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_BestaetigungZollXML_CC029B = ""
@@ -105,6 +172,12 @@ Public Class cMAVIWorker
LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText
End If
Dim MRN = ""
If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
End If
readNCTS_BestaetigungZollXML_CC029B = LRN
@@ -114,12 +187,12 @@ Public Class cMAVIWorker
Dim AnsprechpTMP_Email = ""
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True)
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", MRN, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_ObjectName = LRN
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Eroeffnung = Now.ToShortDateString
'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
' Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben
@@ -165,6 +238,143 @@ Public Class cMAVIWorker
End Function
Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_ErledigungsmitteilungXML_CC045A = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC045A") Then
' Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
' MsgBox(xmlCC015B)
' Dim p = Path.GetTempFileName
Dim MRN = ""
If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
End If
Dim TMSTMP As Date
If doc.GetElementsByTagName("WriOffDatHEA619").Count > 0 Then
'If IsDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText) Then
' TMSTMP = CDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText)
'End If
Try
TMSTMP = Date.ParseExact(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByMRN(MRN, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
'NCTS.ncts_ObjectName = LRN
' NCTS.ncts_GUID = Guid
NCTS.ncts_MRN = MRN
NCTS.ncts_Erledigung = TMSTMP.ToShortDateString
NCTS.ncts_Partnersystem = "MAVI"
If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_ErledigungsmitteilungXML_CC045A = ""
End If
'Try
' System.IO.File.Delete(p)
'Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
'End Try
FORM.addDGVEinarbeitung("NCTS: Erledigungsmitteilung", readNCTS_ErledigungsmitteilungXML_CC045A)
' End Using
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_ErledigungsmitteilungXML_CC045A = ""
End Try
End Function
Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_BestaetigungZollXML_ARR_INF = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<ARR_INF") Then
' Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
' MsgBox(xmlCC015B)
' Dim p = Path.GetTempFileName
Dim GUID = ""
If doc.GetElementsByTagName("GUID").Count > 0 Then
GUID = doc.GetElementsByTagName("GUID")(0).InnerText
End If
Dim TMSTMP As Date
If doc.GetElementsByTagName("TMSTMP").Count > 0 Then
If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then
TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText)
End If
Dim AnsprechpTMP_Email = ""
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByGUID(GUID, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
'NCTS.ncts_ObjectName = LRN
NCTS.ncts_GUID = GUID
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Ankunft = TMSTMP.toshortdatestring
If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_BestaetigungZollXML_ARR_INF = ""
End If
'Try
' System.IO.File.Delete(p)
'Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
'End Try
FORM.addDGVEinarbeitung("NCTS: Ankunftsanzeige", readNCTS_BestaetigungZollXML_ARR_INF)
' End Using
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_BestaetigungZollXML_ARR_INF = ""
End Try
End Function
Shared Function getDatumXMLNothing(dateTmp) As Object
If dateTmp IsNot Nothing AndAlso dateTmp.ToString.Trim <> "" AndAlso IsDate(dateTmp) Then
Dim datum As Date = CDate(dateTmp).ToShortDateString()

629
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -77,7 +77,9 @@ Public Class frmDYNachrichtenVerarbeitung
Me.Enabled = False
Try
Label5.Visible = True
DatenEinlesen()
DatenEinlesen() '<<<<----------------------
If dsNichtErkannt > 0 Then
Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
@@ -331,7 +333,13 @@ Public Class frmDYNachrichtenVerarbeitung
found = True
End If
End If
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc)
If bezugsNr <> "" Then
found = True
End If
End If
'EZA: EntscheidungAnmeldung
If Not found And cGetMsgType.isEZA_EntscheidungAnmeldung(doc) Then
@@ -2409,6 +2417,621 @@ Public Class frmDYNachrichtenVerarbeitung
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc As XmlDocument) As String
Try
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<FCFCDD>") Then
Dim xmlFCFCDD = XmlString.Substring(XmlString.IndexOf("<FCFCDD>"), XmlString.IndexOf("</FCFCDD>") + 9 - XmlString.IndexOf("<FCFCDD>"))
' MsgBox(xmlFCFCDD)
Dim p = Path.GetTempFileName
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
outputFile.Write(xmlFCFCDD)
outputFile.Close()
Dim FCFCDD As DAKOSY_Worker.FCFCDD.FCFCDD = DAKOSY_Worker.FCFCDD.FCFCDD.LoadFromFile(p)
' Dim EZA As New DAKOSY_Worker.cDakosyEZA
If FCFCDD IsNot Nothing And FCFCDD.Header IsNot Nothing And FCFCDD.Header.LocalReferenceNumber IsNot Nothing Then
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = FCFCDD.Header.LocalReferenceNumber
Else
Return "" 'Keine Bezugsnummer
End If
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD, "EZA")
Dim EZA As DAKOSY_Worker.cDakosyEZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If EZA Is Nothing Then EZA = New DAKOSY_Worker.cDakosyEZA
If DY_TMP IsNot Nothing Then EZA.eza_dyaAnmID = DY_TMP.dy_Id
If DY_TMP.dy_AvisoId Is Nothing Then
DY_TMP.tryFindAviso()
DY_TMP.SAVE()
End If
If FCFCDD IsNot Nothing Then
EZA.eza_ObjectName = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD
If FCFCDD.MetaData IsNot Nothing Then
If FCFCDD.MetaData.Preparation IsNot Nothing Then EZA.eza_Trans_DatumZeit = CDate(FCFCDD.MetaData.Preparation.Date).ToShortDateString
End If
If FCFCDD.Header IsNot Nothing Then
EZA.eza_VersendungsLandCode = FCFCDD.Header.DepartureCountry
EZA.eza_FinanzamtAnmelder = FCFCDD.Header.TaxOffice
EZA.eza_UstIdAnmelder = FCFCDD.Header.TaxNumber
EZA.eza_Warenort = FCFCDD.Header.GoodsLocation
EZA.eza_Ausstellungsort = FCFCDD.Header.DeclarationPlace
EZA.eza_ZollrechtlicherStatus = FCFCDD.Header.CustomsGoodsStatus
EZA.eza_Zahlungsart = FCFCDD.Header.PaymentMethod
EZA.eza_AnmelderistEmpfaenger = FCFCDD.Header.DeclarantIsConsigneeFlag
EZA.eza_VertretungsVerhaeltnisCode = FCFCDD.Header.RepresentativeRelationshipFlag
EZA.eza_Vorsteuerabzug = FCFCDD.Header.InputTaxDeductionFlag
EZA.eza_ZusatzangabenAnmeldung = FCFCDD.Header.AdditionalInformation
' EZA.eza_VerfahrenBeantragtCode
End If
End If
If FCFCDD.Body IsNot Nothing Then
If FCFCDD.Body.ForeignTradeStatistics IsNot Nothing Then
EZA.eza_ArtGeschaeftCode = FCFCDD.Body.ForeignTradeStatistics.TransactionType
EZA.eza_Bestimmungsland = FCFCDD.Body.ForeignTradeStatistics.DestinationCountry
EZA.eza_Bestimmungsbundesland = FCFCDD.Body.ForeignTradeStatistics.DestinationFederalState
If FCFCDD.Body.ForeignTradeStatistics.EntryCustomsOffice IsNot Nothing Then
EZA.eza_Eingangszollstelle = FCFCDD.Body.ForeignTradeStatistics.EntryCustomsOffice.ReferenceNumber
End If
EZA.eza_Statistikstatus = FCFCDD.Body.ForeignTradeStatistics.GoodsStatus
EZA.eza_DV1Kz = FCFCDD.Body.CustomsValueFlag
EZA.eza_GesamtRohmasse = FCFCDD.Body.ForeignTradeStatistics.TotalGrossMassMeasure
End If
If FCFCDD.Body.PaymentTransaction IsNot Nothing Then
EZA.eza_Rechnungswaehrung = FCFCDD.Body.PaymentTransaction.CurrencyCode
EZA.eza_Rechnungspreis = FCFCDD.Body.PaymentTransaction.Amount
End If
If FCFCDD.Body.CustomsValue IsNot Nothing Then
If FCFCDD.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDD.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag
EZA.eza_DV1FruehereEntscheidungen = FCFCDD.Body.CustomsValue.FormerDecisions
If FCFCDD.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDD.Body.CustomsValue.Affiliation.Type
If FCFCDD.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDD.Body.CustomsValue.Affiliation.Description
If FCFCDD.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDD.Body.CustomsValue.LicenseFee.Description
If FCFCDD.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDD.Body.CustomsValue.LicenseFee.LicenseFeeFlag
End If
If FCFCDD.Body.Document IsNot Nothing AndAlso FCFCDD.Body.Document.Count > 0 Then
For Each docTMP In FCFCDD.Body.Document
Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen
UNTERLAGE.ezaUl_Art = docTMP.Type
UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber
UNTERLAGE.ezaUl_Bereich = docTMP.Division
UNTERLAGE.ezaUl_DatumAusstellung = CDate(docTMP.IssuingDate).ToShortDateString
EZA.eza_UNTERLAGEN.Add(UNTERLAGE)
Next
End If
' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)???
' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '?
'Vorpapier
If FCFCDD.PreviousAdministrativeReferences IsNot Nothing Then
EZA.eza_VorpapierArtCode = FCFCDD.PreviousAdministrativeReferences.Type
If FCFCDD.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDD.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber
End If
'Beförderungsmittel Grenze
If FCFCDD.BorderTransportMeans IsNot Nothing Then
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDD.BorderTransportMeans.Type
EZA.eza_VerkehrszweigGrenze = FCFCDD.BorderTransportMeans.Mode
EZA.eza_BeförderungsmittelGrenze = FCFCDD.BorderTransportMeans.Information
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDD.BorderTransportMeans.Nationality
End If
'Beförderungsmittel Inland
If FCFCDD.BorderTransportMeans IsNot Nothing Then
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDD.BorderTransportMeans.Type
EZA.eza_VerkehrszweigGrenze = FCFCDD.BorderTransportMeans.Mode
EZA.eza_BeförderungsmittelGrenze = FCFCDD.BorderTransportMeans.Information
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDD.BorderTransportMeans.Nationality
End If
'Beförderungsmittel Inland
If FCFCDD.ArrivalTransportMeans IsNot Nothing Then
EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDD.ArrivalTransportMeans.Identity
End If
'Ansprechpartenr
If FCFCDD.ContactPerson IsNot Nothing Then
EZA.eza_AnmeldenderBearbeiterName = FCFCDD.ContactPerson.Name
EZA.eza_AnmeldenderBearbeiterEMail = FCFCDD.ContactPerson.MailAddress
EZA.eza_AnmeldenderBearbeiterStellung = FCFCDD.ContactPerson.Position
EZA.eza_AnmeldenderBearbeiterTel = FCFCDD.ContactPerson.PhoneNumber
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
End If
End If
'Anmleder
If FCFCDD.Declarant IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "DT"
If FCFCDD.Declarant.Name IsNot Nothing Then
If FCFCDD.Declarant.Name.ToString.Length > 40 Then
If FCFCDD.Declarant.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDD.Declarant.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Declarant.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDD.Declarant.Name.ToString.Substring(80, FCFCDD.Declarant.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDD.Declarant.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Declarant.Name.ToString.Substring(40, FCFCDD.Declarant.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDD.Declarant.Name
End If
End If
If FCFCDD.Declarant.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDD.Declarant.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Declarant.Identification.SubsidiaryNumber
End If
If FCFCDD.Declarant.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDD.Declarant.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDD.Declarant.Address.City
ADR.ezaAd_PLZ = FCFCDD.Declarant.Address.Postcode
ADR.ezaAd_LandCode = FCFCDD.Declarant.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Vertreter
If FCFCDD.Representative IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CB"
If FCFCDD.Representative.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDD.Representative.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Representative.Identification.SubsidiaryNumber
EZA.eza_ADRESSEN.Add(ADR)
End If
End If
'Empfänger
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Consignee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CN"
If FCFCDD.Body.Consignee.Name IsNot Nothing Then
If FCFCDD.Body.Consignee.Name.ToString.Length > 40 Then
If FCFCDD.Body.Consignee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDD.Body.Consignee.Name.ToString.Substring(80, FCFCDD.Body.Consignee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignee.Name.ToString.Substring(40, FCFCDD.Body.Consignee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignee.Name
End If
End If
If FCFCDD.Body.Consignee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.Consignee.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.Consignee.Identification.SubsidiaryNumber
End If
If FCFCDD.Body.Consignee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.Consignee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDD.Body.Consignee.Address.City
ADR.ezaAd_PLZ = FCFCDD.Body.Consignee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDD.Body.Consignee.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Erwerber
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Acquirer IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "UC"
If FCFCDD.Body.Acquirer.Name IsNot Nothing Then
If FCFCDD.Body.Acquirer.Name.ToString.Length > 40 Then
If FCFCDD.Body.Acquirer.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Acquirer.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.Acquirer.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDD.Body.Acquirer.Name.ToString.Substring(80, FCFCDD.Body.Acquirer.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Acquirer.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.Acquirer.Name.ToString.Substring(40, FCFCDD.Body.Acquirer.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Acquirer.Name
End If
End If
If FCFCDD.Body.Acquirer.TaxNumber IsNot Nothing Then
ADR.ezaAd_UStIDAnmelder = FCFCDD.Body.Acquirer.TaxNumber
End If
If FCFCDD.Body.Acquirer.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.Acquirer.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.Acquirer.Identification.SubsidiaryNumber
End If
If FCFCDD.Body.Acquirer.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.Acquirer.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDD.Body.Acquirer.Address.City
ADR.ezaAd_PLZ = FCFCDD.Body.Acquirer.Address.Postcode
ADR.ezaAd_LandCode = FCFCDD.Body.Acquirer.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Versender/Ausführer
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Consignor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CZ"
If FCFCDD.Body.Consignor.Name IsNot Nothing Then
If FCFCDD.Body.Consignor.Name.ToString.Length > 40 Then
If FCFCDD.Body.Consignor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDD.Body.Consignor.Name.ToString.Substring(80, FCFCDD.Body.Consignor.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.Consignor.Name.ToString.Substring(40, FCFCDD.Body.Consignor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDD.Body.Consignor.Name
End If
End If
If FCFCDD.Body.Consignor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.Consignor.Identification.ReferenceNumber
' ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.Consignor.Identification.SubsidiaryNumber
End If
If FCFCDD.Body.Consignor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.Consignor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDD.Body.Consignor.Address.City
ADR.ezaAd_PLZ = FCFCDD.Body.Consignor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDD.Body.Consignor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Verkäufer
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.CustomsValue IsNot Nothing AndAlso FCFCDD.Body.CustomsValue.Vendor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "SE"
If FCFCDD.Body.CustomsValue.Vendor.Name IsNot Nothing Then
If FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then
If FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDD.Body.CustomsValue.Vendor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendor.Name
End If
End If
If FCFCDD.Body.CustomsValue.Vendor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.CustomsValue.Vendor.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber
End If
If FCFCDD.Body.CustomsValue.Vendor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.CustomsValue.Vendor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDD.Body.CustomsValue.Vendor.Address.City
ADR.ezaAd_PLZ = FCFCDD.Body.CustomsValue.Vendor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDD.Body.CustomsValue.Vendor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Käufer
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.CustomsValue IsNot Nothing AndAlso FCFCDD.Body.CustomsValue.Vendee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "BY"
If FCFCDD.Body.CustomsValue.Vendee.Name IsNot Nothing Then
If FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then
If FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDD.Body.CustomsValue.Vendee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDD.Body.CustomsValue.Vendee.Name
End If
End If
If FCFCDD.Body.CustomsValue.Vendee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDD.Body.CustomsValue.Vendee.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDD.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber
End If
If FCFCDD.Body.CustomsValue.Vendee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDD.Body.CustomsValue.Vendee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDD.Body.CustomsValue.Vendee.Address.City
ADR.ezaAd_PLZ = FCFCDD.Body.CustomsValue.Vendee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDD.Body.CustomsValue.Vendee.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
End If
''Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
''Vertr. Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
''Rechnung
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
''Postfachadresse
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
''--
'AUFSCHUB
If FCFCDD.DutyDefermentApproval IsNot Nothing AndAlso FCFCDD.DutyDefermentApproval.Count > 0 Then
For Each TMP In FCFCDD.DutyDefermentApproval
Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then
AUFSCHUB.ezaAfb_AufschubnehmerEORI = TMP.DutyDefermentApplicant.Identification.ReferenceNumber
End If
AUFSCHUB.ezaAfb_AufschuBIN = TMP.AuthorisationNumber
AUFSCHUB.ezaAfb_HZA = TMP.AccountPrefix
AUFSCHUB.ezaAfb_KontoNr = TMP.AccountNumber
AUFSCHUB.ezaAfb_Aufschubart = TMP.Type
AUFSCHUB.ezaAfb_ArtAufschubantrag = TMP.ApplicationType
EZA.eza_AUFSCHUB.Add(AUFSCHUB)
Next
End If
'Lieferbedingungen
If FCFCDD.Body.DeliveryTerms IsNot Nothing Then
EZA.eza_LieferbedingungCode = FCFCDD.Body.DeliveryTerms.Code
EZA.eza_LieferbedingungText = FCFCDD.Body.DeliveryTerms.Description
EZA.eza_LieferbedingungOrt = FCFCDD.Body.DeliveryTerms.Place
EZA.eza_LieferbedingungSchluessel = FCFCDD.Body.DeliveryTerms.Key
End If
' ###################################################
'POSITIONEN
' ###################################################
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.GoodsItem IsNot Nothing AndAlso FCFCDD.Body.GoodsItem.Count > 0 Then
For Each GOODSITEM In FCFCDD.Body.GoodsItem
Dim POS As New DAKOSY_Worker.cDakosy_EZA_Warenposition
POS.ezaWP_PositionsNummer = GOODSITEM.SequenceNumber
If GOODSITEM.CommodityCode IsNot Nothing Then POS.ezaWP_WarennummerEZT = GOODSITEM.CommodityCode.CommodityCode
If GOODSITEM.Procedure IsNot Nothing Then POS.ezaWP_AnmeldeVErfahren = GOODSITEM.Procedure.RequestedPreviousProcedure
POS.ezaWP_AbgabensteuerungKz = GOODSITEM.CessionManagementFlag
POS.ezaWP_Warenbezeichnung = GOODSITEM.GoodsDescription
POS.ezaWP_PositionsZusatz = GOODSITEM.SupplementaryInformation
If GOODSITEM.CustomsValue IsNot Nothing Then
POS.ezaWP_OrtVerbringens = GOODSITEM.CustomsValue.DestinationPlace
POS.ezaWP_AbflughafenIATACode = GOODSITEM.CustomsValue.DepartureAirport
If GOODSITEM.CustomsValue.NetPrice IsNot Nothing Then
' POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.CurrencyCode
POS.ezaWP_KursVereinbartKz = GOODSITEM.CustomsValue.NetPrice.CurrencyRateAgreedFlag
POS.ezaWP_KursBetragVereinbart = GOODSITEM.CustomsValue.NetPrice.Value
'POS.ezaWP_KursDatum= GOODSITEM.CustomsValue.NetPrice.CurrencyRate
'POS.ezaWP_KursDatum = GOODSITEM.CustomsValue.NetPrice.
End If
If GOODSITEM.ForeignTradeStatistics IsNot Nothing Then
POS.ezaWP_Rohmasse = GOODSITEM.ForeignTradeStatistics.GrossMassMeasure
If GOODSITEM.ForeignTradeStatistics.Amount IsNot Nothing Then
POS.ezaWP_AHStatMengeQualifier = GOODSITEM.ForeignTradeStatistics.Amount.Qualifier
POS.ezaWP_AHStatMengeMasseinheit = GOODSITEM.ForeignTradeStatistics.Amount.MeasurementUnit
POS.ezaWP_AHStatMenge = GOODSITEM.ForeignTradeStatistics.Amount.Quantity
POS.ezaWP_AHStatWert = GOODSITEM.ForeignTradeStatistics.Quantity
End If
End If
POS.ezaWP_UrsprungslandCode = GOODSITEM.OriginCountry
POS.ezaWP_Eigenmasse = GOODSITEM.NetMassMeasure
' POS.ezaWP_BeguenstigungBenatragtCode = Bedingun.
POS.ezaWP_BedingungCode = GOODSITEM.Condition
'POS.ezaWP_EUCode = GOODSITEM.EUCode
'If GOODSITEM.Assessment IsNot Nothing Then
' POS.ezaWP_Zollwert = GOODSITEM.Assessment.Amount.
' POS.ezaWP_KostenEUSt = GOODSITEM.Assessment.TaxCosts
' POS.ezaWP_VeredelungWertsteigerung = GOODSITEM.Assessment.OutwardProcessingFee
'End If
''Packstücke
If GOODSITEM.Package IsNot Nothing Then
POS.ezaWP_PackstueckArt = GOODSITEM.Package.Kind
POS.ezaWP_PackstueckZeichen = GOODSITEM.Package.MarksNumbers
POS.ezaWP_PackstueckAnzahl = GOODSITEM.Package.Quantity
End If
''Packstücke
'If GOODSITEM.Package IsNot Nothing AndAlso GOODSITEM.Package.Count > 0 Then
' For Each PCK In GOODSITEM.Package
' Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
' If PCK.DutyDefermentApplicant IsNot Nothing AndAlso PCK.DutyDefermentApplicant.Identification IsNot Nothing Then
' AUFSCHUB.ezaAfb_AufschubnehmerEORI = PCK.DutyDefermentApplicant.Identification.ReferenceNumber
' End If
' AUFSCHUB.ezaAfb_AufschuBIN = PCK.AuthorisationNumber
' AUFSCHUB.ezaAfb_KontoNr = PCK.AccountNumber
' AUFSCHUB.ezaAfb_Aufschubart = PCK.Type
' AUFSCHUB.ezaAfb_ArtAufschubantrag = PCK.ApplicationType
' EZA.eza_AUFSCHUB.Add(AUFSCHUB)
' Next
'End If
'Preisart
'-
POS.ezaWP_Artikelpreis = GOODSITEM.InvoiceAmount
'Zusatzcode
If GOODSITEM.SupplementaryCodes IsNot Nothing AndAlso GOODSITEM.SupplementaryCodes.Count > 0 Then
Dim cnt = 0
For Each s In GOODSITEM.SupplementaryCodes
If cnt = 0 Then POS.ezaWP_WarennummerZusatzCode1 = s.Code
If cnt = 1 Then POS.ezaWP_WarennummerZusatzCode2 = s.Code
If cnt = 2 Then POS.ezaWP_WarennummerZusatzCode3 = s.Code
If cnt = 3 Then POS.ezaWP_WarennummerZusatzCode4 = s.Code
If cnt = 4 Then POS.ezaWP_WarennummerZusatzCode5 = s.Code
If cnt = 5 Then POS.ezaWP_WarennummerZusatzCode6 = s.Code
If cnt = 6 Then POS.ezaWP_WarennummerZusatzCode7 = s.Code
If cnt = 7 Then POS.ezaWP_WarennummerZusatzCode8 = s.Code
If cnt = 8 Then POS.ezaWP_WarennummerZusatzCode9 = s.Code
If cnt = 9 Then POS.ezaWP_WarennummerZusatzCode10 = s.Code
cnt += 1
Next
End If
'Abgabenminderung
'-
'Sonderfalldaten
If GOODSITEM.SpecialCase IsNot Nothing AndAlso GOODSITEM.SpecialCase.Count > 0 Then
For Each s In GOODSITEM.SpecialCase
Dim SA As New DAKOSY_Worker.cDakosy_EZA_WarenpositionSonderfalldaten
SA.ezaWpSfd_SonderabgabenGruppeCode = s.Group
SA.ezaWpSfd_AnwendungArt = s.ApplicationType
SA.ezaWpSfd_SatzBetragFaktor = s.RateOrAmountOrFactor
POS.ezaWP_SONDERFALLDATEN.Add(SA)
Next
End If
'Verbrauchsteuer
If GOODSITEM.ExciseDuty IsNot Nothing AndAlso GOODSITEM.ExciseDuty.Count > 0 Then
For Each s In GOODSITEM.ExciseDuty
Dim VS As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVerbrauchssteuer
VS.ezaWpVs_VerbrauchsteuerCode = s.Code
VS.ezaWpVs_VerbrauchssteuerWertbasis = s.Value
'VS.ezaWpVs_VerbrauchssteuerMenge = s.DegreePercentage
If s.Amount IsNot Nothing Then
VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.Quantity
VS.ezaWpVs_VerbrauchssteuerMasseinheitQualifier = s.Amount.Qualifier
VS.ezaWpVs_VerbrauchssteuerMasseinheitCode = s.Amount.MeasurementUnit
End If
POS.ezaWP_VERBRAUCHSSTEUER.Add(VS)
Next
End If
If GOODSITEM.PreferentialTreatment IsNot Nothing Then
POS.ezaWP_BeguenstigungBenatragtCode = GOODSITEM.PreferentialTreatment.RequestedPreferentialTreatment
If GOODSITEM.PreferentialTreatment.Declaration IsNot Nothing AndAlso GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity IsNot Nothing Then
POS.ezaWP_BeguenstigungsMengeMasseinheitCode = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.MeasurementUnit
POS.ezaWP_BeguenstigungsMengeMenge = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Quantity
POS.ezaWP_BeguenstigungsMengeQualifier = GOODSITEM.PreferentialTreatment.Declaration.PreferentialTreatmentQuantity.Qualifier
End If
End If
'Unterlagen
If GOODSITEM.Document IsNot Nothing AndAlso GOODSITEM.Document.Count > 0 Then
For Each s In GOODSITEM.Document
Dim UL As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen
UL.ezaWpUl_Bereich = s.Division
UL.ezaWpUl_VorlageKz = s.AtHandFlag
If s.WriteOff IsNot Nothing Then
UL.ezaWpUl_AbschreibungsMengeMasseinheitQualifier = s.WriteOff.Qualifier
UL.ezaWpUl_AbschreibungsMengeMasseinheit = s.WriteOff.MeasurementUnit
UL.ezaWpUl_AbschreibungsMenge = s.WriteOff.Quantity
End If
UL.ezaWpUl_Art = s.Type
UL.ezaWpUl_Nummer = s.ReferenceNumber
UL.ezaWpUl_DatumAusstellung = CDate(s.IssuingDate).ToShortDateString
POS.ezaWP_UNTERLAGEN.Add(UL)
Next
End If
End If
EZA.eza_WARENPOS.Add(POS)
Next
End If
If If(EZA.eza_Status, 0) <= 5 Then EZA.eza_Status = DAKOSY_Worker.cDY_Statusliste.S_05
If If(EZA.eza_Status_KEWILL_Equivalent, 0) <= 5 Then EZA.eza_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
If EZA.SAVE_ALL() Then
If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
Else
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = ""
End If
Try
System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
addDGVEinarbeitung("EZA: FreierVerkehrAktVeredelUmwandlung", readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD)
End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD = ""
End Try
End Function
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc As XmlDocument) As String
Try
readEZA_FreierVerkehrAktVeredelUmwandlungXML = ""
@@ -4989,7 +5612,7 @@ Public Class frmDYNachrichtenVerarbeitung
'Lösche File:
Try
System.IO.File.Delete(frmRoutineManager.Path & "\" & brgak_filename)
System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
Catch ex As Exception
writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
End Try

9
initATLASAufschubkonten/frmRoutineManager.vb
View File

@@ -27,7 +27,7 @@ Public Class frmRoutineManager
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Public Shared Path As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb" '"G:\atlas\atlas\fssouzb"
Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung '"G:\atlas\atlas\fssouzb"
' Dim ico As New NotifyIcon
' Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing
' icoAufschub.Visible = False
@@ -55,7 +55,7 @@ Public Class frmRoutineManager
Private Shared Sub Run()
' Create a new FileSystemWatcher and set its properties.
Dim watcher As New FileSystemWatcher()
watcher.Path = Path
watcher.Path = PathATLAS
' Watch for changes in LastAccess and LastWrite times, and
' the renaming of files or directories.
watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
@@ -77,12 +77,13 @@ Public Class frmRoutineManager
End Sub
Public Sub doWork()
Dim startTime As DateTime = Now
If False Then
setLabel(lblStatusEZOLL, "wartet ...", "green")
setLabel(lblStatusATLAS, "läuft ...", "green")
setLabel(lblStatusEZOLL, "wartet ...", "green")
Try
AtlasAufschubDatenEinlesen.initAllFiles(Path, HISTORY)
AtlasAufschubDatenEinlesen.initAllFiles(PathATLAS, HISTORY)
setLabel(lblStatusATLAS, "OK", "green")
'frmAtlasAufschub.lblStatusATLAS.ForeColor = Color.Green
Catch ex As Exception

49
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -24,6 +24,7 @@ Partial Class frmStartOptions
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.LinkLabel28 = New System.Windows.Forms.LinkLabel()
@@ -82,6 +83,8 @@ Partial Class frmStartOptions
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.LinkLabel31 = New System.Windows.Forms.LinkLabel()
Me.Label12 = New System.Windows.Forms.Label()
Me.LinkLabel29 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
Me.Label11 = New System.Windows.Forms.Label()
@@ -108,7 +111,6 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -167,6 +169,16 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(790, 677)
Me.pnl.TabIndex = 0
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Location = New System.Drawing.Point(302, 173)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(103, 17)
Me.CheckBox3.TabIndex = 38
Me.CheckBox3.Text = "History (1Monat)"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
@@ -872,6 +884,8 @@ Partial Class frmStartOptions
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.LinkLabel31)
Me.TabPage3.Controls.Add(Me.Label12)
Me.TabPage3.Controls.Add(Me.LinkLabel29)
Me.TabPage3.Controls.Add(Me.LinkLabel30)
Me.TabPage3.Controls.Add(Me.Label11)
@@ -882,6 +896,27 @@ Partial Class frmStartOptions
Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True
'
'LinkLabel31
'
Me.LinkLabel31.AutoSize = True
Me.LinkLabel31.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel31.Location = New System.Drawing.Point(416, 55)
Me.LinkLabel31.Name = "LinkLabel31"
Me.LinkLabel31.Size = New System.Drawing.Size(80, 13)
Me.LinkLabel31.TabIndex = 26
Me.LinkLabel31.TabStop = True
Me.LinkLabel31.Text = "ASFINAG LKW"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(416, 28)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(40, 13)
Me.Label12.TabIndex = 25
Me.Label12.Text = "MDM:"
'
'LinkLabel29
'
Me.LinkLabel29.AutoSize = True
@@ -1181,16 +1216,6 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 1
Me.lblRoutineManager.Text = "Routine Manager"
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Location = New System.Drawing.Point(302, 173)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(103, 17)
Me.CheckBox3.TabIndex = 38
Me.CheckBox3.Text = "History (1Monat)"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'frmStartOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1318,4 +1343,6 @@ Partial Class frmStartOptions
Friend WithEvents LinkLabel30 As LinkLabel
Friend WithEvents Label11 As Label
Friend WithEvents CheckBox3 As CheckBox
Friend WithEvents LinkLabel31 As LinkLabel
Friend WithEvents Label12 As Label
End Class

77
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1,4 +1,5 @@
Imports System.IO
Imports System.Data.OleDb
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Xml
@@ -1018,7 +1019,7 @@ Public Class frmStartOptions
End Sub
Function getISett ()As cVERAG_Interface_Settings
Function getISett() As cVERAG_Interface_Settings
getISett = New cVERAG_Interface_Settings
getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked
getISett.acticeInterface_TOBB = cbxISett_TOBB.Checked
@@ -1052,4 +1053,76 @@ Public Class frmStartOptions
f.ShowDialog()
Me.Visible = True
End Sub
Private Sub LinkLabel31_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel31.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
ASFINAG_LKW()
End Sub
Function ASFINAG_LKW()
Try
Dim SQl As New VERAG_PROG_ALLGEMEIN.SQL
' CLF-Einträge aus den bestehenden SDL-Datensätzen entfernen,
' damit nach dem Aktualisierungslauf der Istzustand der CLF in der SDL hergestellt wird.
If Not SQl.getValueTxtBySql("UPDATE SDL Set OBUID = NULL, Vertragsabschlussdatum = NULL, Kategorie = NULL, Status = NULL WHERE (SDLNr = 200) AND (NOT Vertragsabschlussdatum IS NULL)", "SDL") Then
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "Fehler beim Reset SDL-Daten.", System.Reflection.MethodBase.GetCurrentMethod.Name)
Return False
End If
' Nummer der Speditionsdienstleistung für MautAT einlesen.
Dim SDLNr = SQl.getValueTxtBySql("SELECT isnull(SDLNr,'') FROM vwSpeditionsdienstleistungen WHERE (Sicht = 'vwMautAT')", "SDL")
If SDLNr = "" Then
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "SDL-Nr nicht gefunden.", System.Reflection.MethodBase.GetCurrentMethod.Name)
Return False
End If
' Verbindung zur ASFINAG Datenbank herstellen
Dim connectionString = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\Mautmanager.adp"
Else
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\Mautmanager.adp"
End If
Dim con As New OleDbConnection(connectionString)
Dim cmd As New OleDbCommand
Dim var1 As String
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
Dim reader As OleDbDataReader = Nothing
' Kfz Kennzeichen einlesen.
Dim SQLQuery = "SELECT CardNumber, ValidTo, OBUID, KfzKennzeichen, Nationalität, DatumVertragsabschluss, Kategorie, Schadstoffklasse, Status FROM vwCLFBody "
Using Command As New OleDbCommand(SQLQuery, con)
Using oRDR As OleDbDataReader = Command.ExecuteReader
While (oRDR.Read)
Dim KartenNr = oRDR.GetValue("CardNumber")
' Kundennummer einlesen
Dim KdNr = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL")
'Dim SDL = New cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr, History)
'Call fktKundenSDLVerwalten(rstKreditkarten!AdressenNr, rstSDL!SDLNr, , "ASFINAG")
'Call fktKundenLkwVerwalten(rstKreditkarten!AdressenNr, rstCLFBody!KfzKennzeichen, rstCLFBody!Nationalität, "ASFINAG")
End While
End Using
End Using
con.Close()
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
Return False
End Try
End Function
End Class

2
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -904,7 +904,7 @@ Public Class frmTCNachrichtenVerarbeitung
'Lösche File:
Try
System.IO.File.Delete(frmRoutineManager.Path & "\" & brgak_filename)
System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
Catch ex As Exception
writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
End Try

31
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb
View File

@@ -79,7 +79,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
Me.Enabled = False
Try
Label5.Visible = True
DatenEinlesen()
DatenEinlesen() '<<<<------------
If dsNichtErkannt > 0 Then
Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
@@ -294,12 +296,39 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
MsgBox("CC015B")
If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
End If
'NCTS: Versandanmeldung - Ergänzung GUID
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
MsgBox("CC015B_RES")
If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True
End If
'NCTS: BestätigungZoll
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
MsgBox("CC029B")
If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
End If
''NCTS: Guarantee
'If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
' MsgBox("GUA_INF")
' If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True
'End If
'NCTS: Ankunftsanzeige
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
MsgBox("ARR_INF")
If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True
End If
'NCTS: Erledigungsmitteilung
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
MsgBox("CC045A")
If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
End If
End If