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

Verwahrung

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-29 09:46:30 +01:00
parent 7c38e6b4a8
commit 25495ef2b6
11 changed files with 6463 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2833
DAKOSY_Worker/DAKOSY/ATLAS/Verwahrung/SumAErledigungsinformationCDXWare_007/SumAErledigungsinformationCDXWare_007.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

246
DAKOSY_Worker/DAKOSY/ATLAS/Verwahrung/SumAErledigungsinformationCDXWare_007/SumAErledigungsinformationCDXWare_007.xsd Normal file
View File

@@ -0,0 +1,246 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="SumAErledigungsinformationCDXWare" type="SumAErledigungsinformationCDXWareSCTyp">
<xs:annotation>
<xs:documentation>Version 007 - Release 001</xs:documentation>
</xs:annotation>
</xs:element>
<xs:complexType name="AdresseSCTyp">
<xs:sequence>
<xs:element name="TeilnehmerEORI" type="an..17" minOccurs="0"/>
<xs:element name="TeilnehmerNLNR" type="n..4" minOccurs="0"/>
<xs:element name="NameFirma" type="an..120" minOccurs="0"/>
<xs:element name="Nationalitaet" type="an..2" minOccurs="0"/>
<xs:element name="StrasseHausnummer" type="an..35" minOccurs="0"/>
<xs:element name="PostleitzahlS" type="an..9" minOccurs="0"/>
<xs:element name="OrtS" type="an..35" minOccurs="0"/>
<xs:element name="Ortsteil" type="an..35" minOccurs="0"/>
<xs:element name="Bewilligung" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="an..1">
<xs:restriction base="xs:string">
<xs:maxLength value="1"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..10">
<xs:restriction base="xs:string">
<xs:maxLength value="10"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..100">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..120">
<xs:restriction base="xs:string">
<xs:maxLength value="120"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..140">
<xs:restriction base="xs:string">
<xs:maxLength value="140"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..17">
<xs:restriction base="xs:string">
<xs:maxLength value="17"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..2">
<xs:restriction base="xs:string">
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..20">
<xs:restriction base="xs:string">
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..21">
<xs:restriction base="xs:string">
<xs:maxLength value="21"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..3">
<xs:restriction base="xs:string">
<xs:maxLength value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..30">
<xs:restriction base="xs:string">
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:maxLength value="35"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..44">
<xs:restriction base="xs:string">
<xs:maxLength value="44"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..6">
<xs:restriction base="xs:string">
<xs:maxLength value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..8">
<xs:restriction base="xs:string">
<xs:maxLength value="8"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..9">
<xs:restriction base="xs:string">
<xs:maxLength value="9"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ApplicationInternalDataAdditionalDetailsDataType">
<xs:sequence>
<xs:element name="Key" type="an..35" minOccurs="0"/>
<xs:element name="Value" type="an..100" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicationInternalDataAdditionalDetailsType">
<xs:sequence>
<xs:element name="Data" type="ApplicationInternalDataAdditionalDetailsDataType" minOccurs="0" maxOccurs="999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicationInternalDataType">
<xs:sequence>
<xs:element name="AdditionalDetails" type="ApplicationInternalDataAdditionalDetailsType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="DatenaustauschSumAOutTyp">
<xs:sequence>
<xs:element name="Transaktion" type="TransaktionSumAOutTyp"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="EinzelSumAErledigungsinformationCDXWareTyp">
<xs:sequence>
<xs:element name="ObjektIdentifizierung" type="ObjektIdentifizierungSCTyp" minOccurs="0"/>
<xs:element name="KopfDaten" type="KopfDatenSumAErledigungsinformationCDXWareTyp" minOccurs="0"/>
<xs:element name="Position" type="PositionSumAErledigungsinformationCDXWareTyp" minOccurs="0" maxOccurs="9999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="KopfDatenSumAErledigungsinformationCDXWareTyp">
<xs:sequence>
<xs:element name="RegNrATLAS" type="an..21" minOccurs="0"/>
<xs:element name="VeralteteWeitereRegistriernummer" type="an..21" minOccurs="0"/>
<xs:element name="NummerBefoerderung" type="an..8" minOccurs="0"/>
<xs:element name="Ankunftsdatum" type="xs:date" minOccurs="0"/>
<xs:element name="AbgangsstelleBeladeort" type="an..35" minOccurs="0"/>
<xs:element name="Gestellungsdatum" type="xs:date" minOccurs="0"/>
<xs:element name="Bezugsnummer" type="an..35" minOccurs="0"/>
<xs:element name="Vorpapierart" type="an..6" minOccurs="0"/>
<xs:element name="Vorpapiernummer" type="an..30" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="LagerungSCTyp">
<xs:sequence>
<xs:element name="StrasseHausnummer" type="an..35" minOccurs="0"/>
<xs:element name="Postleitzahl" type="an..9" minOccurs="0"/>
<xs:element name="Ort" type="an..35" minOccurs="0"/>
<xs:element name="Ortsteil" type="an..35" minOccurs="0"/>
<xs:element name="Lagerort" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="n..4">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:pattern value="( *)(0*)\d{0,4}([.,](0*))?( *)"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n14.3">
<xs:restriction base="xs:decimal">
<xs:pattern value="\d{11}\.\d{3}"/>
<xs:maxInclusive value="99999999999.999"/>
<xs:minInclusive value="0"/>
<xs:totalDigits value="14"/>
<xs:fractionDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n3">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{3}"/>
<xs:totalDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n4">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{4}"/>
<xs:totalDigits value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n5">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{5}"/>
<xs:totalDigits value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ObjektIdentifizierungSCTyp">
<xs:sequence>
<xs:element name="ObjektName" type="an..35" minOccurs="0"/>
<xs:element name="ObjektAntragArt" type="an..10" minOccurs="0"/>
<xs:element name="HinweisObjektName" type="an..20" minOccurs="0"/>
<xs:element name="EDIFACTNachrichtennummer" type="an..35" minOccurs="0"/>
<xs:element name="ZeitpunktNachrichteneingang" type="xs:dateTime" minOccurs="0"/>
<xs:element name="UrsacheMeldung" type="an..20" minOccurs="0"/>
<xs:element name="ShipmentReferenz" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="PositionSumAErledigungsinformationCDXWareTyp">
<xs:sequence>
<xs:element name="Positionsnummer" type="n4" minOccurs="0"/>
<xs:element name="KzUnbekanntePosition" type="an..1" minOccurs="0"/>
<xs:element name="ArtSpO" type="an..3" minOccurs="0"/>
<xs:element name="SpezifischerOrdnungsbegriff" type="an..44" minOccurs="0"/>
<xs:element name="Warenbeschreibung" type="an..140" minOccurs="0"/>
<xs:element name="VersendungsAusfuhrland" type="an..2" minOccurs="0"/>
<xs:element name="SchluesselVerwahrungsort" type="an..2" minOccurs="0"/>
<xs:element name="ZollStatusWare" type="an..1" minOccurs="0"/>
<xs:element name="Warenkreis" type="an..1" minOccurs="0"/>
<xs:element name="Rohmasse" type="n14.3" minOccurs="0"/>
<xs:element name="ArtPackstuecke" type="an..3" minOccurs="0"/>
<xs:element name="Stueckzahl" type="n5" minOccurs="0"/>
<xs:element name="Verfuegungsberechtigter" type="VerfuegungsberechtigterSCTyp" minOccurs="0"/>
<xs:element name="Lagerung" type="LagerungSCTyp" minOccurs="0"/>
<xs:element name="PersonWoWareLagert" type="AdresseSCTyp" minOccurs="0"/>
<xs:element name="KzFreizone" type="an..1" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SumAErledigungsinformationCDXWareSCTyp">
<xs:complexContent>
<xs:extension base="DatenaustauschSumAOutTyp">
<xs:sequence>
<xs:element name="EinzelSumAErledigungsinformationCDXWare" type="EinzelSumAErledigungsinformationCDXWareTyp" minOccurs="0"/>
</xs:sequence>
</xs:extension>
</xs:complexContent>
</xs:complexType>
<xs:complexType name="TransaktionSumAOutTyp">
<xs:sequence>
<xs:element name="Identifikation" type="an..10"/>
<xs:element name="IOPartner" type="an..100" minOccurs="0"/>
<xs:element name="IODivision1" type="an..10" minOccurs="0"/>
<xs:element name="IODivision2" type="an..10" minOccurs="0"/>
<xs:element name="IODivision3" type="an..10" minOccurs="0"/>
<xs:element name="EORI" type="an..17" minOccurs="0"/>
<xs:element name="Niederlassungsnummer" type="n4" minOccurs="0"/>
<xs:element name="IOReferenz" type="an..35"/>
<xs:element name="IODatumZeit" type="xs:dateTime"/>
<xs:element name="Version" type="n3" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="VerfuegungsberechtigterSCTyp">
<xs:sequence>
<xs:element name="TeilnehmerEORI" type="an..17" minOccurs="0"/>
<xs:element name="TeilnehmerNLNR" type="n..4" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

0
DAKOSY_Worker/DAKOSY/ATLAS/Verwahrung/SumAErledigungsinformationVorpapier/ist im EZA.editorconfig Normal file
View File

2821
DAKOSY_Worker/DAKOSY/ATLAS/Verwahrung/SumAVerwahrungsinfo/SumAVerwahrungsinfo_009.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

245
DAKOSY_Worker/DAKOSY/ATLAS/Verwahrung/SumAVerwahrungsinfo/SumAVerwahrungsinfo_009.xsd Normal file
View File

@@ -0,0 +1,245 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="SumAVerwahrungsinfo" type="SumAVerwahrungsinfoSVTyp">
<xs:annotation>
<xs:documentation>Version 009 - Release 001</xs:documentation>
</xs:annotation>
</xs:element>
<xs:complexType name="AdresseKurzSVTyp">
<xs:sequence>
<xs:element name="StrasseHausnummer" type="an..35" minOccurs="0"/>
<xs:element name="Postleitzahl" type="an..9" minOccurs="0"/>
<xs:element name="Ort" type="an..35" minOccurs="0"/>
<xs:element name="Ortsteil" type="an..35" minOccurs="0"/>
<xs:element name="Lagerort" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="AdresseSVTyp">
<xs:sequence>
<xs:element name="TeilnehmerEORI" type="an..17" minOccurs="0"/>
<xs:element name="TeilnehmerNLNR" type="n..4" minOccurs="0"/>
<xs:element name="NameFirma" type="an..120" minOccurs="0"/>
<xs:element name="Nationalitaet" type="an..2" minOccurs="0"/>
<xs:element name="StrasseHausnummer" type="an..35" minOccurs="0"/>
<xs:element name="PostleitzahlS" type="an..9" minOccurs="0"/>
<xs:element name="OrtS" type="an..35" minOccurs="0"/>
<xs:element name="Ortsteil" type="an..35" minOccurs="0"/>
<xs:element name="Bewilligung" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="an..1">
<xs:restriction base="xs:string">
<xs:maxLength value="1"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..10">
<xs:restriction base="xs:string">
<xs:maxLength value="10"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..100">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..120">
<xs:restriction base="xs:string">
<xs:maxLength value="120"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..140">
<xs:restriction base="xs:string">
<xs:maxLength value="140"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..17">
<xs:restriction base="xs:string">
<xs:maxLength value="17"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..2">
<xs:restriction base="xs:string">
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..20">
<xs:restriction base="xs:string">
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..21">
<xs:restriction base="xs:string">
<xs:maxLength value="21"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..3">
<xs:restriction base="xs:string">
<xs:maxLength value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..30">
<xs:restriction base="xs:string">
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:maxLength value="35"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..44">
<xs:restriction base="xs:string">
<xs:maxLength value="44"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..6">
<xs:restriction base="xs:string">
<xs:maxLength value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..8">
<xs:restriction base="xs:string">
<xs:maxLength value="8"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..9">
<xs:restriction base="xs:string">
<xs:maxLength value="9"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ApplicationInternalDataAdditionalDetailsDataType">
<xs:sequence>
<xs:element name="Key" type="an..35" minOccurs="0"/>
<xs:element name="Value" type="an..100" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicationInternalDataAdditionalDetailsType">
<xs:sequence>
<xs:element name="Data" type="ApplicationInternalDataAdditionalDetailsDataType" minOccurs="0" maxOccurs="999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicationInternalDataType">
<xs:sequence>
<xs:element name="AdditionalDetails" type="ApplicationInternalDataAdditionalDetailsType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="DatenaustauschSumAOutTyp">
<xs:sequence>
<xs:element name="Transaktion" type="TransaktionSumAOutTyp"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="EinzelSumAVerwahrungsinfoTyp">
<xs:sequence>
<xs:element name="ObjektIdentifizierung" type="ObjektIdentifizierungSVTyp" minOccurs="0"/>
<xs:element name="KopfDaten" type="KopfDatenSumAVerwahrungsinfoTyp" minOccurs="0"/>
<xs:element name="Position" type="PositionSumAVerwahrungsinfoTyp" minOccurs="0" maxOccurs="9999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="KopfDatenSumAVerwahrungsinfoTyp">
<xs:sequence>
<xs:element name="RegistriernummerATLAS" type="an..21" minOccurs="0"/>
<xs:element name="VeralteteWeitereRegistriernummer" type="an..21" minOccurs="0"/>
<xs:element name="Vorpapierart" type="an..6" minOccurs="0"/>
<xs:element name="Vorpapiernummer" type="an..30" minOccurs="0"/>
<xs:element name="GestellungDatum" type="xs:date" minOccurs="0"/>
<xs:element name="NummerBefoerderung" type="an..8" minOccurs="0"/>
<xs:element name="Ankunftsdatum" type="xs:date" minOccurs="0"/>
<xs:element name="IDAbgangsstelleBeladeort" type="an..35" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="n..4">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:pattern value="( *)(0*)\d{0,4}([.,](0*))?( *)"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n14.3">
<xs:restriction base="xs:decimal">
<xs:pattern value="\d{11}\.\d{3}"/>
<xs:maxInclusive value="99999999999.999"/>
<xs:minInclusive value="0"/>
<xs:totalDigits value="14"/>
<xs:fractionDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n3">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{3}"/>
<xs:totalDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n4">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{4}"/>
<xs:totalDigits value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n5">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{5}"/>
<xs:totalDigits value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ObjektIdentifizierungSVTyp">
<xs:sequence>
<xs:element name="ObjektName" type="an..35" minOccurs="0"/>
<xs:element name="ObjektAntragArt" type="an..10" minOccurs="0"/>
<xs:element name="HinweisObjektName" type="an..20" minOccurs="0"/>
<xs:element name="EDIFACTNachrichtennummer" type="an..35" minOccurs="0"/>
<xs:element name="ZeitpunktNachrichteneingang" type="xs:dateTime" minOccurs="0"/>
<xs:element name="UrsacheMeldung" type="an..20" minOccurs="0"/>
<xs:element name="ShipmentReferenz" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="PositionSumAVerwahrungsinfoTyp">
<xs:sequence>
<xs:element name="Positionsnummer" type="n5" minOccurs="0"/>
<xs:element name="KzUnbekanntePosition" type="an..1" minOccurs="0"/>
<xs:element name="Warenbeschreibung" type="an..140" minOccurs="0"/>
<xs:element name="ZollStatusWare" type="an..1" minOccurs="0"/>
<xs:element name="VersendungsAusfuhrland" type="an..2" minOccurs="0"/>
<xs:element name="SpezifischerOrdnungsbegriffCode" type="an..3" minOccurs="0"/>
<xs:element name="SpezifischerOrdnungsbegriffDaten" type="an..44" minOccurs="0"/>
<xs:element name="SchluesselVerwahrungsort" type="an..2" minOccurs="0"/>
<xs:element name="Verwahrort" type="AdresseKurzSVTyp" minOccurs="0"/>
<xs:element name="Anmeldefrist" type="xs:date" minOccurs="0"/>
<xs:element name="Warenkreis" type="an..1" minOccurs="0"/>
<xs:element name="PackstueckArt" type="an..3" minOccurs="0"/>
<xs:element name="PackstueckAnzahl" type="n5" minOccurs="0"/>
<xs:element name="Rohmasse" type="n14.3" minOccurs="0"/>
<xs:element name="Verwahrer" type="AdresseSVTyp" minOccurs="0"/>
<xs:element name="Verfuegungsberechtigter" type="VerfuegungsberechtigterSVTyp" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SumAVerwahrungsinfoSVTyp">
<xs:complexContent>
<xs:extension base="DatenaustauschSumAOutTyp">
<xs:sequence>
<xs:element name="EinzelSumAVerwahrungsinfo" type="EinzelSumAVerwahrungsinfoTyp" minOccurs="0"/>
</xs:sequence>
</xs:extension>
</xs:complexContent>
</xs:complexType>
<xs:complexType name="TransaktionSumAOutTyp">
<xs:sequence>
<xs:element name="Identifikation" type="an..10"/>
<xs:element name="IOPartner" type="an..100" minOccurs="0"/>
<xs:element name="IODivision1" type="an..10" minOccurs="0"/>
<xs:element name="IODivision2" type="an..10" minOccurs="0"/>
<xs:element name="IODivision3" type="an..10" minOccurs="0"/>
<xs:element name="EORI" type="an..17" minOccurs="0"/>
<xs:element name="Niederlassungsnummer" type="n4" minOccurs="0"/>
<xs:element name="IOReferenz" type="an..35"/>
<xs:element name="IODatumZeit" type="xs:dateTime"/>
<xs:element name="Version" type="n3" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="VerfuegungsberechtigterSVTyp">
<xs:sequence>
<xs:element name="TeilnehmerEORI" type="an..17" minOccurs="0"/>
<xs:element name="TeilnehmerNLNR" type="n..4" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

9
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -156,6 +156,8 @@
<Compile Include="DAKOSY\ATLAS\NCTS\Versandbestaetigung\VersandbestaetigungNCTSDE_001.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Versandbestaetigung\VersandbestaetigungNCTSDE_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\QuittungEingangsverarbeitung\QuittungEingangsverarbeitung_005.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\Verwahrung\SumAErledigungsinformationCDXWare_007\SumAErledigungsinformationCDXWare_007.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\Verwahrung\SumAVerwahrungsinfo\SumAVerwahrungsinfo_009.Designer.vb" />
<Compile Include="DAKOSY\cDakosy_Zollanmeldungen.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\cDakosyNCTSOut.vb" />
<Compile Include="cIMPORT_Codelisten.vb" />
@@ -459,6 +461,13 @@
<None Include="DAKOSY\ATLAS\QuittungEingangsverarbeitung\QuittungEingangsverarbeitung_005.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\Verwahrung\SumAErledigungsinformationCDXWare_007\SumAErledigungsinformationCDXWare_007.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\Verwahrung\SumAErledigungsinformationVorpapier\ist im EZA.editorconfig" />
<None Include="DAKOSY\ATLAS\Verwahrung\SumAVerwahrungsinfo\SumAVerwahrungsinfo_009.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\EZOLL\NCTS\eZollTags.xsd">
<SubType>Designer</SubType>
</None>

2
DAKOSY_Worker/cDY_Statusliste.vb
View File

@@ -61,6 +61,8 @@ Public Class cDY_Statusliste
Shared Property S_98 As Integer = 98 ' Dakosy Fehlermeldung
Shared Property S_99 As Integer = 99 ' ERR
Shared Property V_50 As Integer = 150 ' Verwahrung
Shared Property V_60 As Integer = 160 ' Verwahrung Erldigung
Shared Function getTxtByCode2(statusCode As String, art As String, Optional ByRef statusText As String = "", Optional ByRef bgColor As Object = Nothing, Optional withCode As Boolean = True, Optional ByRef bgForeColor As Object = Nothing)

1
initATLASAufschubkonten/RoutineManager.vbproj
View File

@@ -137,6 +137,7 @@
<Compile Include="cATEZWorker.vb" />
<Compile Include="cOREGONWorker.vb" />
<Compile Include="cMAVIWorker.vb" />
<Compile Include="cWorker_Verwahrung.vb" />
<Compile Include="frmNachrichtenVerarbeitung_MDM_divers.Designer.vb">
<DependentUpon>frmNachrichtenVerarbeitung_MDM_divers.vb</DependentUpon>
</Compile>

26
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -136,6 +136,20 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isNCTS_SumAVerwahrungsinfo(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("SumAVerwahrungsinfo").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
Return False
End Function
Shared Function isAES_DEXPSD(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
@@ -302,6 +316,18 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isEZA_SumAErledigungsinformationCDXWare(doc As XmlDocument, ByRef VERSION As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("SumAErledigungsinformationCDXWare").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
VERSION = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
Return False
End Function
Shared Function isEZA_SumAErledigungsinformationVorpapier(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then

243
initATLASAufschubkonten/cWorker_Verwahrung.vb Normal file
View File

@@ -0,0 +1,243 @@
Imports System.Globalization
Imports System.IO
Imports System.Xml
Imports DAKOSY_Worker
Imports DocumentFormat.OpenXml
Imports DocumentFormat.OpenXml.Spreadsheet
Imports iTextSharp.text.pdf
Public Class cWorker_Verwahrung
Public Shared Dateiname = ""
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
Try
Dim NCTS As DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp = DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp.LoadFromFile(d)
Dim MRN = ""
Dim tstmp As Object = Nothing
readVW_SumAVerwahrungsinfo = ""
If NCTS IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then
readVW_SumAVerwahrungsinfo = NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName
End If
End If
If NCTS.EinzelErledigungsmeldung.KopfDaten IsNot Nothing Then
If NCTS.EinzelErledigungsmeldung.KopfDaten.MRN IsNot Nothing Then
MRN = NCTS.EinzelErledigungsmeldung.KopfDaten.MRN
End If
If NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung > "01.01.2000" Then
tstmp = NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung
End If
End If
End If
End If
If readVW_SumAVerwahrungsinfo <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo
STATUS.dySt_artMitteilung = "VW_INFO"
STATUS.dySt_dyArt = "VW" '"NCTS" 'T1/T2
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50
STATUS.dySt_ergCode = "TSTMP"
STATUS.dySt_ergMitteilung = ""
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
STATUS.SAVE()
'----------------------------------------------------------------
'Verwahrung ANSCHREIBUNG
'----------------------------------------------------------------
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readVW_SumAVerwahrungsinfo = ""
End Try
End Function
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
Try
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
Dim ART = ""
' Dim details = ""
Dim zp As Object = Nothing
Dim regNR = ""
Dim division = ""
readEZA_SumAErledigungsinformationVorpapier_005 = ""
If EZA IsNot Nothing Then
If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1
End If
End If
If EZA.EinzelSumAErledigungsinformation IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then
readEZA_SumAErledigungsinformationVorpapier_005 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName
End If
zp = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then
ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise
End If
End If
End If
End If
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readEZA_SumAErledigungsinformationVorpapier_005 <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005
STATUS.dySt_artMitteilung = "VW_EVP"
STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60
STATUS.dySt_ergZeitpunkt = zp
' STATUS.dySt_ergDetails = details
'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
'Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
''???????? REGNR
'If regNR <> "" Then
' STATUS.dySt_ergCode = "REGNr"
' STATUS.dySt_ergMitteilung = regNR
' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR)
'Else
' STATUS.dySt_ergCode = "ART"
' If ART <> "" Then STATUS.dySt_ergMitteilung = ART
' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
'End If
'FORM.SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
'----------------------------------------------------------------
'Verwahrung ABSCHREIBUNG
'----------------------------------------------------------------
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readEZA_SumAErledigungsinformationVorpapier_005 = ""
End Try
End Function
Shared Function readEZA_SumAErledigungsinformationCDXWare007(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
Try
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp = DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp.LoadFromFile(d)
Dim ART = ""
' Dim details = ""
Dim zp As Object = Nothing
Dim regNR = ""
Dim division = ""
readEZA_SumAErledigungsinformationCDXWare007 = ""
If EZA IsNot Nothing Then
If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1
End If
End If
If EZA.EinzelSumAErledigungsinformationCDXWare IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName IsNot Nothing Then
readEZA_SumAErledigungsinformationCDXWare007 = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName
End If
zp = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ZeitpunktNachrichteneingang
End If
If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS IsNot Nothing Then
regNR = EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS
End If
End If
End If
End If
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readEZA_SumAErledigungsinformationCDXWare007 <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationCDXWare007
STATUS.dySt_artMitteilung = "VW_EVP_CDX"
STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60 '???
STATUS.dySt_ergZeitpunkt = zp
' STATUS.dySt_ergDetails = details
'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
'----------------------------------------------------------------
'Verwahrung ABSCHREIBUNG
'----------------------------------------------------------------
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier CDX", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readEZA_SumAErledigungsinformationCDXWare007 = ""
End Try
End Function
End Class

122
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1,6 +1,7 @@
Imports System.IO
Imports System.Xml
Imports DAKOSY_Worker
Imports DAKOSY_Worker.SumAVerwahrungsinfo_009
Imports Renci.SshNet
Public Class frmDYNachrichtenVerarbeitung
@@ -396,7 +397,36 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'------------------------------------------
'------------------ Verwahrung/ Gestellung (NCTS) ------------------
'------------------------------------------
'VW: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d) <> "" Then found = True
End Select
End If
'VW: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
Select Case VERSION
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(d) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End Select
End If
'VW: SumAErledigungsinformationCDXWare
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationCDXWare(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If readEZA_SumAErledigungsinformationCDXWare007(d) <> "" Then found = True
End Select
End If
'------------------------------------------
'------------------ EZA ------------------
@@ -443,14 +473,12 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'EZA: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
Select Case VERSION
Case "005" : If readEZA_SumAErledigungsinformationVorpapier_005(d) <> "" Then found = True
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End Select
End If
'EZA: SumAErledigungsinformationVorpapier ' --> TEIL DER VERWAHRUNG
'
'
'
'
'
'EZA: Abgabenbescheid
If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then
@@ -7973,85 +8001,7 @@ Public Class frmDYNachrichtenVerarbeitung
readEZA_SumAErledigungsinformationVorpapier_004 = ""
End Try
End Function
Function readEZA_SumAErledigungsinformationVorpapier_005(d) As String
Try
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
Dim ART = ""
' Dim details = ""
Dim zp As Object = Nothing
Dim regNR = ""
Dim division = ""
readEZA_SumAErledigungsinformationVorpapier_005 = ""
If EZA IsNot Nothing Then
If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1
End If
End If
If EZA.EinzelSumAErledigungsinformation IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then
readEZA_SumAErledigungsinformationVorpapier_005 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName
End If
zp = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then
ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise
End If
End If
End If
End If
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readEZA_SumAErledigungsinformationVorpapier_005 <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005
STATUS.dySt_artMitteilung = "EVP"
STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_42 '???
STATUS.dySt_ergZeitpunkt = zp
' STATUS.dySt_ergDetails = details
'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
'???????? REGNR
If regNR <> "" Then
STATUS.dySt_ergCode = "REGNr"
STATUS.dySt_ergMitteilung = regNR
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR)
Else
STATUS.dySt_ergCode = "ART"
If ART <> "" Then STATUS.dySt_ergMitteilung = ART
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
addDGVEinarbeitung("EZA: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readEZA_SumAErledigungsinformationVorpapier_005 = ""
End Try
End Function
Function readEZA_NichtAbschliessendeFestsetzung(d) As String