Div. Dakosy Nachrichten

DAKOSY_Worker/DAKOSY/ATLAS/QuittungEingangsverarbeitung/QuittungEingangsverarbeitung_005.xsd

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

DAKOSY_Worker/DAKOSY_Worker_lib.vbproj

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

DAKOSY_Worker/cDY_Statusliste.vb

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

DAKOSY_Worker/cDakosy_Statusmeldungen.vb

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

initATLASAufschubkonten/My Project/Application.Designer.vb

@@ -1,5 +1,6 @@
 '------------------------------------------------------------------------------
-' <auto-generated>
+' <auto-
+' ated>
 '     Dieser Code wurde von einem Tool generiert.
 '     Laufzeitversion:4.0.30319.42000
 '

initATLASAufschubkonten/cGetMsgType.vb

@@ -549,6 +549,18 @@ Public Class cGetMsgType
         Return False
     End Function
 
+    Shared Function isNCTS_QuittungEingangsverarbeitung(doc As XmlDocument, ByRef version As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("QuittungEingangsverarbeitung").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 isVERAG_KD(doc As XmlDocument) As Boolean
         If doc.HasChildNodes Then
             If doc.GetElementsByTagName("VERAG_Kundenstamm_IMPORT").Count > 0 Then

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -3773,30 +3773,39 @@ Public Class cWorker_NCTS
 
                         Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
                         '      bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
+                        If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
+                            If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
+                                For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
+                                    If a.Key = "LimitDate" Then
+                                        Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
 
+                                    End If
+                                Next
+                            End If
+                        End If
                         'Verschluesse
                         If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then
-                            If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
-                                Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art
-                                Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl
-                                If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then
-                                    If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then
-                                        For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen
-                                            Verschluss_Zeichen.Add(z)
-                                        Next
+                                If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
+                                    Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art
+                                    Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl
+                                    If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then
+                                        If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then
+                                            For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen
+                                                Verschluss_Zeichen.Add(z)
+                                            Next
+                                        End If
                                     End If
                                 End If
                             End If
+
                         End If
 
+
+
+
+
                     End If
 
-
-
-
-
-                End If
-
             End If
             ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
@@ -3917,6 +3926,21 @@ Public Class cWorker_NCTS
             '  End If
         End If
     End Sub
+
+    Shared Sub checkATEZ_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String)
+        If dy_BezugsNr = "" Then Exit Sub
+        Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)
+        If (dy_BezugsNr.Contains("ATEZ") Or dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then
+            '   If ATEZ.status IsNot Nothing Then
+            'If ATEZ.status < 40 Then
+            Dim fio As New IO.FileInfo(filePath)
+            FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
+            'End If
+            '  End If
+        End If
+    End Sub
+
+
     Shared Sub checkATEZ_Bereitstellung_VBD(dy_BezugsNr As String, filePath As String)
         'If DY_TMP Is Nothing Then Exit Sub
         Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -6,6 +6,8 @@ Imports System.Net.Mail
 Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing
 Imports DocumentFormat.OpenXml.Wordprocessing
 Imports DAKOSY_Worker
+Imports Renci.SshNet.Messages
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 
 Public Class frmDYNachrichtenVerarbeitung
     Dim cntDatenEingelesen As Integer = 0
@@ -602,6 +604,15 @@ Public Class frmDYNachrichtenVerarbeitung
 
                             End If
 
+                            'SONDERFALL: Betrifft div. Arten von Anmeldungen: QuittungEingangsverarbeitung 
+                            If Not found And cGetMsgType.isNCTS_QuittungEingangsverarbeitung(doc, VERSION) Then
+                                Select Case VERSION
+                                    Case "005" : If readNCTS_QuittungEingangsverarbeitung_005(d, statusTMP) Then found = True
+                                        '  Case Else : If readNCTS_GenerellesEreignis(d) Then found = True
+                                End Select
+
+                            End If
+
 
 
                             '------------------------------------------------------------------------------------------------------------------------------
@@ -647,7 +658,10 @@ Public Class frmDYNachrichtenVerarbeitung
                                         End If
                                     End If
                                 Else
-                                    frmStartOptions.moveFile(d, ERROR_PFAD)
+                                    Dim destErr = ERROR_PFAD & Now.ToString("yyyy_MM") & "\"
+                                    If Not IO.Directory.Exists(destErr) Then IO.Directory.CreateDirectory(destErr)
+
+                                    frmStartOptions.moveFile(d, destErr)
                                 End If
                             End If
 
@@ -1146,6 +1160,109 @@ Public Class frmDYNachrichtenVerarbeitung
         End Try
     End Function
 
+    Function readNCTS_QuittungEingangsverarbeitung_005(d As String, ByRef STATUSTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As Boolean
+        Try
+
+
+            Dim NCTS As DAKOSY_Worker.QuittungEingangsverarbeitung_005.QuittungEingangsverarbeitungBQTyp = DAKOSY_Worker.QuittungEingangsverarbeitung_005.QuittungEingangsverarbeitungBQTyp.LoadFromFile(d)
+            Dim division = ""
+            Dim BezugsNr = ""
+            readNCTS_QuittungEingangsverarbeitung_005 = False
+            If NCTS IsNot Nothing Then
+                If NCTS.Transaktion IsNot Nothing Then
+                    If NCTS.Transaktion.IODivision3 IsNot Nothing Then
+                        division = NCTS.Transaktion.IODivision3
+                    End If
+
+                End If
+                If NCTS.EinzelQuittung IsNot Nothing Then
+                    For Each ge In NCTS.EinzelQuittung
+                        If ge.Quittungsobjekt IsNot Nothing Then
+                            If ge.Quittungsobjekt.QuittungTech IsNot Nothing Then
+
+                                If ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt IsNot Nothing Then
+                                    ' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName)
+
+
+
+                                    Dim STATUS2 As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
+
+                                    STATUS2.dySt_artMitteilung = "QUITT"
+                                    STATUS2.dySt_dyArt = "" '"NCTS" 'T1/T2
+                                    STATUS2.dySt_BezugsNr = ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt
+                                    BezugsNr = ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt
+                                    STATUS2.dySt_ergCode = "" 'erg.EreignisCode
+                                    STATUS2.dySt_ergMitteilung = "" 'erg.Ereignismitteilung
+                                    If ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("OKAY") Then
+                                        STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_04
+                                    ElseIf ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("INFO") Then
+                                        STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_08
+                                    Else
+                                        STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_98
+                                    End If
+                                    readNCTS_QuittungEingangsverarbeitung_005 = True
+
+                                    Select Case getVerahrensartFromBezugsNr(ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt)
+                                        Case "NCTS"
+                                            Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS")
+                                            Dim NCTS_TMP2 As DAKOSY_Worker.cDakosyNCTSOut = cWorker_NCTS.saveDY_NCTS(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
+                                            If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id
+                                            cWorker_NCTS.SaveNCTS_FirmaNL(NCTS_TMP2, DY_TMP2, division)
+                                            STATUS2.dySt_dyArt = getVerahrensartFromBezugsNr(ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt)
+
+                                        Case "EZA", ""
+                                            Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
+                                            Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
+                                            If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id
+                                            SaveEZA_FirmaNL(EZA_TMP, DY_TMP2, division)
+                                            STATUS2.dySt_dyArt = "EZA"
+                                        Case "AES"
+                                            Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "AES")
+                                            Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS2, DY_TMP2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "", "")
+                                            If DY_TMP2 IsNot Nothing Then STATUS2.dySt_dyId = DY_TMP2.dy_Id
+                                            SaveAES_FirmaNL(AES_TMP, division)
+                                            STATUS2.dySt_dyArt = "AES"
+                                    End Select
+
+                                    STATUS2.SAVE()
+
+
+                                    STATUSTMP = STATUS2
+                                    addDGVEinarbeitung("** QuittungEingangsverarbeitung **", BezugsNr)
+
+                                End If
+                            End If
+
+
+                            If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then
+
+
+                                If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then
+
+                                End If
+                            End If
+
+
+                            '=====ATEZ BEREITSTELLUNG==========
+                            cWorker_NCTS.checkATEZ_BereitstellungBezugsNr(BezugsNr, d)
+                            '==================================
+
+
+                        End If
+                    Next
+                End If
+            End If
+
+
+
+            ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            readNCTS_QuittungEingangsverarbeitung_005 = False
+        End Try
+    End Function
+
 
     Function saveDY_AES(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyAES
         'EINTRAG IN tblDakosyAESOut

initATLASAufschubkonten/frmStartOptions.vb

@@ -805,9 +805,6 @@ Public Class frmStartOptions
                             Dim cStandort = cStandorteDAL.LesenStandort(-1, "", "SELECT * FROM Standorte WHERE Standort = '" & Standort & "'")
                             Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SND.FilialenNr)
 
-                            '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-                            'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & Standort & vbNewLine & cStandort.eMail_Zollbeleg_Betreff & vbNewLine & cStandort.eMail_Zollbeleg_Text, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
-                            '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
                             Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg"
@@ -876,7 +873,14 @@ Public Class frmStartOptions
                             '    EMails_BCC = "al@verag.ag"
                             'Else
                             '    EMails_BCC &= ";al@verag.ag"
+                            ''End If
+                            ''!!!!!!!!!!!!!!!!!!!!!!!!!!
+                            'If KundenNr = 706113 Then
+                            '    EMails = "al@verag.ag"
+                            '    EMails_CC = ""
+                            '    EMails_BCC = ""
                             'End If
+                            ''!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
                             Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr)
@@ -888,10 +892,13 @@ Public Class frmStartOptions
                             API.api_EMailText = body
                             API.api_EMailAttCnt = pfadList.Count
 
+                            betreff = betreff.Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
+
 
                             Select Case art
                                 Case "STB"
                                     If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
+
                                         betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
                                         If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
                                             API.UPDTAE_OK()
@@ -2237,7 +2244,7 @@ Public Class frmStartOptions
             IO.File.Move(file, dest) ' Verschiebt die Datei
             Return True
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file & vbNewLine & "DestPfad: " & toDirectory, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return False
     End Function