diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb index c4bf603..92c2c61 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb @@ -915,141 +915,149 @@ Public Class cDakosyNCTSOut notFound = False + 'Ermittlung ob T1 oder T2 If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then - If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then - SPEDITIONSBUCH.Abfertigungsart = 6 - For Each s In DY.ncts_SICHERHEITSANGABEN - Select Case If(s.nctsSA_GRN, "") - Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34 - Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 - Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 - End Select - Next - ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then - 'For Each s In DY.ncts_SICHERHEITSANGABEN - ' If If(s.nctsSA_ArtCode, "") = "B" Then - ' SPEDITIONSBUCH.Abfertigungsart = 8 - ' End If - 'Next - If DY.ncts_BestimmungslandCode = "TR" Then - SPEDITIONSBUCH.Abfertigungsart = 12 - Else - SPEDITIONSBUCH.Abfertigungsart = 8 - End If - - Else + If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then + SPEDITIONSBUCH.Abfertigungsart = 6 + For Each s In DY.ncts_SICHERHEITSANGABEN + Select Case If(s.nctsSA_GRN, "") + Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34 + Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 + Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 + End Select + Next + ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then + 'For Each s In DY.ncts_SICHERHEITSANGABEN + ' If If(s.nctsSA_ArtCode, "") = "B" Then + ' SPEDITIONSBUCH.Abfertigungsart = 8 + ' End If + 'Next + If DY.ncts_BestimmungslandCode = "TR" Then + SPEDITIONSBUCH.Abfertigungsart = 12 + Else + SPEDITIONSBUCH.Abfertigungsart = 8 + End If + + Else + + SPEDITIONSBUCH.Abfertigungsart = 5 + End If - SPEDITIONSBUCH.Abfertigungsart = 5 End If - - End If - VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW - Try + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW + Try Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID) SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId Catch ex As Exception - MsgBox("ERR: " & ex.Message & ex.StackTrace) + MsgBox("ERR: " & ex.Message & ex.StackTrace) + + End Try + - End Try If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_BestimmungsstelleDienststellennummer - SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode - SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode + SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode + SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode - If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then - SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN + If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then + SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN - Dim sumBrg As Double = 0 - For Each S In DY.ncts_SICHERHEITSANGABEN - sumBrg += If(S.nctsSA_AbgabenBetrag, 0) - Next - If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg - End If - 'SPEDITIONSBUCH.Abfertigungsdatum= + Dim sumBrg As Double = 0 + For Each S In DY.ncts_SICHERHEITSANGABEN + sumBrg += If(S.nctsSA_AbgabenBetrag, 0) + Next + If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg + End If + 'SPEDITIONSBUCH.Abfertigungsdatum= - SPEDITIONSBUCH.BelegNr = DY.ncts_MRN - SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "") + SPEDITIONSBUCH.BelegNr = DY.ncts_MRN + SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "") - 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 - End If - If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then - If If(DY.ncts_SumA_Versender_Name, "").ToString.Trim <> "" Then - SPEDITIONSBUCH.Absender = If(DY.ncts_SumA_Versender_Name, "") - SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "") - SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "") - SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "") + 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 + End If + If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then + If If(DY.ncts_SumA_Versender_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Absender = If(DY.ncts_SumA_Versender_Name, "") + SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "") + SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "") + 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, WP.nctsWP_SumAVersender_NLNR, SQL) - If AD_pos IsNot Nothing Then - SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr - SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff + Dim WP = DY.ncts_WARENPOS(0) + 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 + End If + If If(WP.nctsWP_SumAVersender_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Absender = If(WP.nctsWP_SumAVersender_Name, "") + SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsWP_SumAVersender_Land, "") + SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_PLZ, "") + SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_Ort, "") + End If + If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsWP_SumAVersender_EORI, "")).ToString.Trim End If - If If(WP.nctsWP_SumAVersender_Name, "").ToString.Trim <> "" Then - SPEDITIONSBUCH.Absender = If(WP.nctsWP_SumAVersender_Name, "") - SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsWP_SumAVersender_Land, "") - SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_PLZ, "") - SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_Ort, "") - End If - If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsWP_SumAVersender_EORI, "")).ToString.Trim + If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_SumA_Versender_EORI, "")).ToString.Trim + End If - If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_SumA_Versender_EORI, "")).ToString.Trim - - End If - 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 - End If - If If(SPEDITIONSBUCH.Empfänger, "") = "" Then - If If(DY.ncts_SumA_Empfaenger_Name, "").ToString.Trim <> "" Then - SPEDITIONSBUCH.Empfänger = If(DY.ncts_SumA_Empfaenger_Name, "") - SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_SumA_Empfaenger_Land, "") - SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_PLZ, "") - 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, WP.nctsWP_SumAEmpfaenger_NLNR, SQL) - If AD_pos IsNot Nothing Then - SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr - SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff - End If - - If AD2 IsNot Nothing Then - SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr - SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff - End If - - If If(WP.nctsWP_SumAEmpfaenger_Name, "").ToString.Trim <> "" Then - SPEDITIONSBUCH.Empfänger = If(WP.nctsWP_SumAEmpfaenger_Name, "") - SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsWP_SumAEmpfaenger_Land, "") - SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_PLZ, "") - SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_Ort, "") - End If - If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsWP_SumAEmpfaenger_EORI, "")).ToString.Trim + 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 End If - If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_SumA_Empfaenger_EORI, "")).ToString.Trim + If If(SPEDITIONSBUCH.Empfänger, "") = "" Then + If If(DY.ncts_SumA_Empfaenger_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Empfänger = If(DY.ncts_SumA_Empfaenger_Name, "") + SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_SumA_Empfaenger_Land, "") + SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_PLZ, "") + 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, WP.nctsWP_SumAEmpfaenger_NLNR, SQL) + If AD_pos IsNot Nothing Then + SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr + SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff + End If - End If + If AD2 IsNot Nothing Then + SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr + SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff + End If + + If If(WP.nctsWP_SumAEmpfaenger_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Empfänger = If(WP.nctsWP_SumAEmpfaenger_Name, "") + SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsWP_SumAEmpfaenger_Land, "") + SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_PLZ, "") + SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_Ort, "") + End If + If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsWP_SumAEmpfaenger_EORI, "")).ToString.Trim + End If + If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_SumA_Empfaenger_EORI, "")).ToString.Trim + + End If + + If If(SPEDITIONSBUCH.Empfänger, "").ToString.Length > 35 Then + SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 35) + End If + + Dim packSt = "" + If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. " - Dim packSt = "" - If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. " - If DY.ncts_WARENPOS.Count > 0 Then + If DY.ncts_WARENPOS.Count > 0 Then 'SPEDITIONSBUCH.Währungsschlüssel = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "") SPEDITIONSBUCH.Währungsschlüssel = "900" If DY.ncts_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, "") @@ -1063,11 +1071,12 @@ Public Class cDakosyNCTSOut If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GesamtRohmasse).ToString("N1") & " kg" - If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2") + If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2") 'Personal Abfertigung: Try If DY.ncts_Bearbeiter IsNot Nothing Then Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.ncts_Bearbeiter & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If Catch ex As Exception diff --git a/DAKOSY_Worker/cIMPORT_Codelisten.vb b/DAKOSY_Worker/cIMPORT_Codelisten.vb index 3bbb9b6..79341c8 100644 --- a/DAKOSY_Worker/cIMPORT_Codelisten.vb +++ b/DAKOSY_Worker/cIMPORT_Codelisten.vb @@ -82,7 +82,8 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) + End Try Return False @@ -131,7 +132,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -179,7 +180,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -228,7 +229,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -278,7 +279,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -327,7 +328,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -376,7 +377,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -420,7 +421,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -470,7 +471,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -521,7 +522,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -568,7 +569,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False @@ -620,7 +621,7 @@ Public Class cIMPORT_Codelisten End Using Catch ex As Exception - MsgBox(ex.Message) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) End Try Return False diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 1815ba2..a2a78c2 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -25,6 +25,7 @@ Public Class cZOLL_IMPORT Function countSpedbuchEntrysTC(filiale, BezugsNr, telanm_ART) As Integer Select Case telanm_ART Case "NCTS", "T1", "T2", "T2L" : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr) + Case "AES" : Return countSpedbuchEntrysTC_AES(filiale, BezugsNr) Case Else : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr) End Select @@ -35,6 +36,11 @@ Public Class cZOLL_IMPORT Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND [AtlasBezNrEZA]='" & BezugsNr & "'", "FMZOLL",, 0) End Function + Function countSpedbuchEntrysTC_AES(filiale, BezugsNr) As Integer + If If(BezugsNr, "") = "" Then Return -1 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND [AtlasBezNrAES]='" & BezugsNr & "'", "FMZOLL",, 0) + End Function + Function countSpedbuchEntrysTC_NCTS(filiale, BezugsNr) As Integer If If(BezugsNr, "") = "" Then Return -1 @@ -314,7 +320,7 @@ Public Class cZOLL_IMPORT End Function - Public Shared Function EZOLLImport(LRN, art) As Boolean + Public Shared Function EZOLLImport(LRN, art, Optional ByRef SPEDBUCH_TMP = Nothing) As Boolean VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch @@ -334,6 +340,7 @@ Public Class cZOLL_IMPORT Dim abfertigungsnummer = getAbfertigungsnummer(LRN) If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then + SPEDBUCH_TMP = SPEDBUCH If filiale <> "" And abfertigungsnummer <> "" Then If countSpedbuchEntrys(filiale, LRN, art) = 0 Then @@ -353,11 +360,13 @@ Public Class cZOLL_IMPORT Select Case art Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN + Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN Case Else : SPEDBUCH.AtlasBezNrEZA = LRN End Select - SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True) + SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True,, SPEDBUCH.AtlasBezNrAES) + SPEDBUCH_TMP = SPEDBUCH If notfound Then Return False ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") @@ -447,6 +456,7 @@ Public Class cZOLL_IMPORT Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "7001" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 'filialeBez SUB, NKD, WAI,.-.. End Select @@ -528,6 +538,8 @@ Public Class cZOLL_IMPORT If EZA_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr EZollEZADatenbereitstellung(EZA_Nr) + ElseIf AES_Nr <> "" Then + EZollEZADatenbereitstellung(AES_Nr) ' ???? ElseIf NCTS_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr EZollNCTSDatenbereitstellung(NCTS_Nr) @@ -708,6 +720,7 @@ Public Class cZOLL_IMPORT SPEDITIONSBUCH.HandlingZuKassieren = SENDUNG.tblSnd_BARzuKassieren End If + If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then If SENDUNG.tblSnd_AbsenderKdNr > 0 Then SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr @@ -716,15 +729,16 @@ Public Class cZOLL_IMPORT End If If SPEDITIONSBUCH.EmpfängerKundenNr Is Nothing OrElse SPEDITIONSBUCH.EmpfängerKundenNr <= 0 Then - If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr - If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger - End If + If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr + If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger + End If If SPEDITIONSBUCH.VermittlerKundenNr Is Nothing OrElse SPEDITIONSBUCH.VermittlerKundenNr <= 0 Then - If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr) - If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber - End If + If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr) + If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber + End If + End If SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr @@ -776,6 +790,10 @@ Public Class cZOLL_IMPORT correctEntry(SPEDITIONSBUCH.AvisiererKundenNr, SPEDITIONSBUCH.Avisierer) correctEntry(SPEDITIONSBUCH.EndempfängerKundenNr, SPEDITIONSBUCH.Endempfänger) + If SPEDITIONSBUCH.LKW_Kennzeichen IsNot Nothing AndAlso SPEDITIONSBUCH.LKW_Kennzeichen.ToString.Length > 25 Then + SPEDITIONSBUCH.LKW_Kennzeichen = SPEDITIONSBUCH.LKW_Kennzeichen.ToString.Substring(0, 25) + End If + If SPEDITIONSBUCH.Währungsschlüssel Is Nothing OrElse (IsNumeric(SPEDITIONSBUCH.Währungsschlüssel) AndAlso SPEDITIONSBUCH.Währungsschlüssel <= 0) Then SPEDITIONSBUCH.Währungsschlüssel = 900 If Personalnummer > 0 Then SPEDITIONSBUCH.Personalnummer = Personalnummer diff --git a/DienstplanTV/App.config b/DienstplanTV/App.config index 15dab8a..2320b38 100644 --- a/DienstplanTV/App.config +++ b/DienstplanTV/App.config @@ -61,6 +61,14 @@ + + + + + + + + diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb index eb5a810..19d859d 100644 --- a/TELOTEK_Worker_lib/cTelokec.vb +++ b/TELOTEK_Worker_lib/cTelokec.vb @@ -760,7 +760,7 @@ Public Class cTelotec_Anmeldung 'Versender 'Verkäufer - If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") Then + If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj index 1811726..7b8d30a 100644 --- a/UID/ADMIN.vbproj +++ b/UID/ADMIN.vbproj @@ -87,13 +87,15 @@ False C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll - - ..\..\..\dll\closedxml\ClosedXML_095.dll + + ..\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll - - False + ..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll + + ..\packages\ExcelNumberFormat.1.0.10\lib\net20\ExcelNumberFormat.dll + ..\..\..\dll\FastColoredTextBox.dll @@ -234,6 +236,12 @@ + + ..\packages\System.IO.FileSystem.Primitives.4.0.1\lib\net46\System.IO.FileSystem.Primitives.dll + + + ..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll + ..\packages\System.Memory.4.5.4\lib\net461\System.Memory.dll diff --git a/UID/App.config b/UID/App.config index 9c63e20..397872f 100644 --- a/UID/App.config +++ b/UID/App.config @@ -136,6 +136,22 @@ + + + + + + + + + + + + + + + + diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 4894b6a..665ecc1 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/UID/packages.config b/UID/packages.config index 0db4d67..617103b 100644 --- a/UID/packages.config +++ b/UID/packages.config @@ -1,6 +1,9 @@  + + + @@ -23,8 +26,10 @@ - + + + diff --git a/cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd b/cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd index af86713..0ade4fd 100644 --- a/cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd +++ b/cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd @@ -674,13 +674,13 @@ - - + + - - + + diff --git a/cNCTSPartnerWorker/cTR_NCTS.vb b/cNCTSPartnerWorker/cTR_NCTS.vb index 79dc13d..2dad19c 100644 --- a/cNCTSPartnerWorker/cTR_NCTS.vb +++ b/cNCTSPartnerWorker/cTR_NCTS.vb @@ -21,7 +21,9 @@ Public Class cTR_NCTS 'If CC015B.HEAHEA.ConIndHEA96 IsNot Nothing Then NCTS. = CC015B.HEAHEA.ConIndHEA96 CONTAINER If CC015B.HEAHEA.TotNumOfPacHEA306 IsNot Nothing Then NCTS.ncts_GesamtAnzahlPackstuecke = CC015B.HEAHEA.TotNumOfPacHEA306 'If CC015B.HEAHEA.TotNumOfIteHEA305 IsNot Nothing Then NCTS.itemsGEsamt = CC015B.HEAHEA.TotNumOfIteHEA305 - If CC015B.HEAHEA.TotGroMasHEA307 IsNot Nothing Then NCTS.ncts_GesamtRohmasse = CC015B.HEAHEA.TotGroMasHEA307 + + If CC015B.HEAHEA.TotGroMasHEA307 IsNot Nothing Then NCTS.ncts_GesamtRohmasse = CDbl(CC015B.HEAHEA.TotGroMasHEA307) + If CC015B.HEAHEA.DecDatHEA383 IsNot Nothing Then NCTS.ncts_Trans_DatumZeit = DateTime.ParseExact(CC015B.HEAHEA.DecDatHEA383, "yyyyMMdd", CultureInfo.CurrentCulture) If CC015B.HEAHEA.DecPlaHEA394 IsNot Nothing Then NCTS.ncts_Empfaenger_Ort = CC015B.HEAHEA.DecPlaHEA394 '? 'If CC015B.HEAHEA.DecPlaHEA394LNG IsNot Nothing Then NCTS.ncts_Empfaenger_Ort = CC015B.HEAHEA.DecPlaHEA394LNG @@ -81,7 +83,6 @@ Public Class cTR_NCTS 'If CC015B.REPREP.RefNumEST1 IsNot Nothing Then NCTS.= CC015B.REPREP.RefNumEST1 End If - 'Bürgschaft If CC015B.GUAGUA IsNot Nothing AndAlso CC015B.GUAGUA.Count > 0 Then For Each GUAGUA In CC015B.GUAGUA @@ -90,17 +91,37 @@ Public Class cTR_NCTS Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben If GUAGUA.GuaTypGUA1 IsNot Nothing Then BRG.nctsSA_ArtCode = GUAGUA.GuaTypGUA1 If REF.GuaRefNumGRNREF1 IsNot Nothing Then BRG.nctsSA_GRN = REF.GuaRefNumGRNREF1 - If REF.CurREF8 IsNot Nothing Then BRG.nctsSA_Waerung = REF.CurREF8 + 'If REF.CurREF8 IsNot Nothing Then BRG.nctsSA_Waerung = REF.CurREF8 If REF.AccCodREF6 IsNot Nothing Then BRG.nctsSA_Zugriffcode = REF.AccCodREF6 If REF.AmoConREF7 IsNot Nothing Then BRG.nctsSA_AbgabenBetragFremdWaehrung = REF.AmoConREF7 + Try + 'KEINE AHNUNG... + If REF.CurREF8 IsNot Nothing Then + Dim node As System.Xml.XmlNode = REF.CurREF8(0) + BRG.nctsSA_Waerung = node.InnerText + End If + Catch ex As Exception + + End Try + + Try + 'KEINE AHNUNG... + If REF.AmoConREF7 IsNot Nothing Then + Dim node As System.Xml.XmlNode = REF.AmoConREF7(0) + BRG.nctsSA_AbgabenBetragFremdWaehrung = node.InnerText + End If + Catch ex As Exception + + End Try + '--> EUR - If REF.AmoConREF7 IsNot Nothing Then + If BRG.nctsSA_AbgabenBetragFremdWaehrung IsNot Nothing Then If If(BRG.nctsSA_Waerung, "") <> "EUR" Then - Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE(REF.AmoConREF7, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit) - BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, REF.AmoConREF7) + Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE(BRG.nctsSA_AbgabenBetragFremdWaehrung, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit) + BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, BRG.nctsSA_AbgabenBetragFremdWaehrung) Else - BRG.nctsSA_AbgabenBetrag = REF.AmoConREF7 + BRG.nctsSA_AbgabenBetrag = BRG.nctsSA_AbgabenBetragFremdWaehrung End If End If NCTS.ncts_SICHERHEITSANGABEN.Add(BRG) @@ -141,8 +162,8 @@ Public Class cTR_NCTS If GOOITEGDS.IteNumGDS7 IsNot Nothing Then POS.nctsWP_PositionsNummer = GOOITEGDS.IteNumGDS7 If GOOITEGDS.ComCodTarCodGDS10 IsNot Nothing Then POS.nctsWP_Warennummer = GOOITEGDS.ComCodTarCodGDS10 If GOOITEGDS.GooDesGDS23 IsNot Nothing Then POS.nctsWP_Warenbezeichnung = GOOITEGDS.GooDesGDS23 - If GOOITEGDS.GroMasGDS46 IsNot Nothing Then POS.nctsWP_Rohmasse = GOOITEGDS.GroMasGDS46 - If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = GOOITEGDS.NetMasGDS48 + If GOOITEGDS.GroMasGDS46 IsNot Nothing Then POS.nctsWP_Rohmasse = CDbl(GOOITEGDS.GroMasGDS46) + If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = CDbl(GOOITEGDS.NetMasGDS48) 'Versender If GOOITEGDS.TRACONCO2 IsNot Nothing Then diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 6f32280..3d4b54e 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -4,6 +4,7 @@ Imports System.Xml Imports Renci.SshNet Imports System.Net.Mail Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing +Imports DocumentFormat.OpenXml.Wordprocessing Public Class frmDYNachrichtenVerarbeitung Dim cntDatenEingelesen As Integer = 0 @@ -4197,121 +4198,121 @@ Public Class frmDYNachrichtenVerarbeitung 'Versender/Ausführer If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.Consignor IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "CZ" - If FCFCDF.Body.Consignor.Name IsNot Nothing Then - If FCFCDF.Body.Consignor.Name.ToString.Length > 40 Then - If FCFCDF.Body.Consignor.Name.ToString.Length > 80 Then - ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, 40) - ADR.ezaAd_NameFirma3 = FCFCDF.Body.Consignor.Name.ToString.Substring(80, FCFCDF.Body.Consignor.Name.ToString.Length - 80) - End If + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CZ" + If FCFCDF.Body.Consignor.Name IsNot Nothing Then + If FCFCDF.Body.Consignor.Name.ToString.Length > 40 Then + If FCFCDF.Body.Consignor.Name.ToString.Length > 80 Then ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, FCFCDF.Body.Consignor.Name.ToString.Length - 40) - Else - ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name + ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.Consignor.Name.ToString.Substring(80, FCFCDF.Body.Consignor.Name.ToString.Length - 80) End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, FCFCDF.Body.Consignor.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name End If - If FCFCDF.Body.Consignor.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.Consignor.Identification.ReferenceNumber - ' ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.Consignor.Identification.SubsidiaryNumber - End If - If FCFCDF.Body.Consignor.Address IsNot Nothing Then - ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.Consignor.Address.Line - ADR.ezaAd_StrasseHausNr2 = Nothing - ADR.ezaAd_Ort = FCFCDF.Body.Consignor.Address.City - ADR.ezaAd_PLZ = FCFCDF.Body.Consignor.Address.Postcode - ADR.ezaAd_LandCode = FCFCDF.Body.Consignor.Address.Country - End If - EZA.eza_ADRESSEN.Add(ADR) End If - - 'Verkäufer - If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendor IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "SE" - If FCFCDF.Body.CustomsValue.Vendor.Name IsNot Nothing Then - If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then - If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then - ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40) - ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 80) - End If - ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 40) - Else - ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name - End If - End If - If FCFCDF.Body.CustomsValue.Vendor.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendor.Identification.ReferenceNumber - 'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber - End If - If FCFCDF.Body.CustomsValue.Vendor.Address IsNot Nothing Then - ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendor.Address.Line - ADR.ezaAd_StrasseHausNr2 = Nothing - ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendor.Address.City - ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendor.Address.Postcode - ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendor.Address.Country - End If - EZA.eza_ADRESSEN.Add(ADR) + If FCFCDF.Body.Consignor.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.Consignor.Identification.ReferenceNumber + ' ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.Consignor.Identification.SubsidiaryNumber End If - - 'Käufer - If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendee IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "BY" - If FCFCDF.Body.CustomsValue.Vendee.Name IsNot Nothing Then - If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then - If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then - ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40) - ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 80) - End If - ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 40) - Else - ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name - End If - End If - If FCFCDF.Body.CustomsValue.Vendee.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendee.Identification.ReferenceNumber - 'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber - End If - If FCFCDF.Body.CustomsValue.Vendee.Address IsNot Nothing Then - ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendee.Address.Line - ADR.ezaAd_StrasseHausNr2 = Nothing - ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendee.Address.City - ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendee.Address.Postcode - ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendee.Address.Country - End If - EZA.eza_ADRESSEN.Add(ADR) + If FCFCDF.Body.Consignor.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.Consignor.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.Consignor.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.Consignor.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Body.Consignor.Address.Country End If + EZA.eza_ADRESSEN.Add(ADR) End If + 'Verkäufer + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendor IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "SE" + If FCFCDF.Body.CustomsValue.Vendor.Name IsNot Nothing Then + If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then + If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name + End If + End If + If FCFCDF.Body.CustomsValue.Vendor.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendor.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber + End If + If FCFCDF.Body.CustomsValue.Vendor.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendor.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendor.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendor.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendor.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Käufer + If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendee IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "BY" + If FCFCDF.Body.CustomsValue.Vendee.Name IsNot Nothing Then + If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then + If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name + End If + End If + If FCFCDF.Body.CustomsValue.Vendee.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendee.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber + End If + If FCFCDF.Body.CustomsValue.Vendee.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendee.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendee.Address.City + ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendee.Address.Postcode + ADR.ezaAd_LandCode = FCFCDF.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")) + + ''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")) + ''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")) + ''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")) - ''-- + ''Postfachadresse + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP")) + ''-- - 'AUFSCHUB - If FCFCDF.DutyDefermentApproval IsNot Nothing AndAlso FCFCDF.DutyDefermentApproval.Count > 0 Then + 'AUFSCHUB + If FCFCDF.DutyDefermentApproval IsNot Nothing AndAlso FCFCDF.DutyDefermentApproval.Count > 0 Then For Each TMP In FCFCDF.DutyDefermentApproval Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then @@ -4589,20 +4590,20 @@ Public Class frmDYNachrichtenVerarbeitung If FCFCDC.Header IsNot Nothing Then - EZA.eza_VersendungsLandCode = FCFCDC.Header.DepartureCountry - EZA.eza_FinanzamtAnmelder = FCFCDC.Header.TaxOffice - EZA.eza_UstIdAnmelder = FCFCDC.Header.TaxNumber + EZA.eza_VersendungsLandCode = FCFCDC.Header.DepartureCountry + EZA.eza_FinanzamtAnmelder = FCFCDC.Header.TaxOffice + EZA.eza_UstIdAnmelder = FCFCDC.Header.TaxNumber - EZA.eza_Warenort = FCFCDC.Header.GoodsLocation - EZA.eza_Ausstellungsort = FCFCDC.Header.DeclarationPlace + EZA.eza_Warenort = FCFCDC.Header.GoodsLocation + EZA.eza_Ausstellungsort = FCFCDC.Header.DeclarationPlace - EZA.eza_ZollrechtlicherStatus = FCFCDC.Header.CustomsGoodsStatus - EZA.eza_Zahlungsart = FCFCDC.Header.PaymentMethod - EZA.eza_AnmelderistEmpfaenger = FCFCDC.Header.DeclarantIsConsigneeFlag - EZA.eza_VertretungsVerhaeltnisCode = FCFCDC.Header.RepresentativeRelationshipFlag - EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag - EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation + EZA.eza_ZollrechtlicherStatus = FCFCDC.Header.CustomsGoodsStatus + EZA.eza_Zahlungsart = FCFCDC.Header.PaymentMethod + EZA.eza_AnmelderistEmpfaenger = FCFCDC.Header.DeclarantIsConsigneeFlag + EZA.eza_VertretungsVerhaeltnisCode = FCFCDC.Header.RepresentativeRelationshipFlag + EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag + EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation ' EZA.eza_VerfahrenBeantragtCode End If @@ -4627,45 +4628,45 @@ Public Class frmDYNachrichtenVerarbeitung End If If FCFCDC.Body.PaymentTransaction IsNot Nothing Then - EZA.eza_Rechnungswaehrung = FCFCDC.Body.PaymentTransaction.CurrencyCode - EZA.eza_Rechnungspreis = FCFCDC.Body.PaymentTransaction.Amount + EZA.eza_Rechnungswaehrung = FCFCDC.Body.PaymentTransaction.CurrencyCode + EZA.eza_Rechnungspreis = FCFCDC.Body.PaymentTransaction.Amount - End If + End If - If FCFCDC.Body.CustomsValue IsNot Nothing Then - If FCFCDC.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDC.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag - EZA.eza_DV1FruehereEntscheidungen = FCFCDC.Body.CustomsValue.FormerDecisions + If FCFCDC.Body.CustomsValue IsNot Nothing Then + If FCFCDC.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDC.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag + EZA.eza_DV1FruehereEntscheidungen = FCFCDC.Body.CustomsValue.FormerDecisions - If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDC.Body.CustomsValue.Affiliation.Type - If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDC.Body.CustomsValue.Affiliation.Description - If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDC.Body.CustomsValue.LicenseFee.Description - If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDC.Body.CustomsValue.LicenseFee.LicenseFeeFlag - End If + If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDC.Body.CustomsValue.Affiliation.Type + If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDC.Body.CustomsValue.Affiliation.Description + If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDC.Body.CustomsValue.LicenseFee.Description + If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDC.Body.CustomsValue.LicenseFee.LicenseFeeFlag + End If - If FCFCDC.Body.Document IsNot Nothing AndAlso FCFCDC.Body.Document.Count > 0 Then - For Each docTMP In FCFCDC.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 + If FCFCDC.Body.Document IsNot Nothing AndAlso FCFCDC.Body.Document.Count > 0 Then + For Each docTMP In FCFCDC.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 + Next - End If + End If - ' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)??? - ' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '? + ' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)??? + ' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '? - 'Vorpapier - If FCFCDC.PreviousAdministrativeReferences IsNot Nothing Then - EZA.eza_VorpapierArtCode = FCFCDC.PreviousAdministrativeReferences.Type + 'Vorpapier + If FCFCDC.PreviousAdministrativeReferences IsNot Nothing Then + EZA.eza_VorpapierArtCode = FCFCDC.PreviousAdministrativeReferences.Type If FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber End If - 'Beförderungsmittel Grenze - If FCFCDC.BorderTransportMeans IsNot Nothing Then + 'Beförderungsmittel Grenze + If FCFCDC.BorderTransportMeans IsNot Nothing Then EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information @@ -4674,111 +4675,111 @@ Public Class frmDYNachrichtenVerarbeitung 'Beförderungsmittel Inland If FCFCDC.BorderTransportMeans IsNot Nothing Then - EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type - EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode - EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information - EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDC.BorderTransportMeans.Nationality - End If - - 'Beförderungsmittel Inland - If FCFCDC.ArrivalTransportMeans IsNot Nothing Then - EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDC.ArrivalTransportMeans.Identity - End If - - 'Ansprechpartenr - If FCFCDC.ContactPerson IsNot Nothing Then - EZA.eza_AnmeldenderBearbeiterName = FCFCDC.ContactPerson.Name - EZA.eza_AnmeldenderBearbeiterEMail = FCFCDC.ContactPerson.MailAddress - EZA.eza_AnmeldenderBearbeiterStellung = FCFCDC.ContactPerson.Position - EZA.eza_AnmeldenderBearbeiterTel = FCFCDC.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 + EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type + EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode + EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information + EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDC.BorderTransportMeans.Nationality + End If + + 'Beförderungsmittel Inland + If FCFCDC.ArrivalTransportMeans IsNot Nothing Then + EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDC.ArrivalTransportMeans.Identity + End If + + 'Ansprechpartenr + If FCFCDC.ContactPerson IsNot Nothing Then + EZA.eza_AnmeldenderBearbeiterName = FCFCDC.ContactPerson.Name + EZA.eza_AnmeldenderBearbeiterEMail = FCFCDC.ContactPerson.MailAddress + EZA.eza_AnmeldenderBearbeiterStellung = FCFCDC.ContactPerson.Position + EZA.eza_AnmeldenderBearbeiterTel = FCFCDC.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 FCFCDC.Declarant IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "DT" - If FCFCDC.Declarant.Name IsNot Nothing Then - If FCFCDC.Declarant.Name.ToString.Length > 40 Then - If FCFCDC.Declarant.Name.ToString.Length > 80 Then - ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, 40) - ADR.ezaAd_NameFirma3 = FCFCDC.Declarant.Name.ToString.Substring(80, FCFCDC.Declarant.Name.ToString.Length - 80) - End If + 'Anmleder + If FCFCDC.Declarant IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "DT" + If FCFCDC.Declarant.Name IsNot Nothing Then + If FCFCDC.Declarant.Name.ToString.Length > 40 Then + If FCFCDC.Declarant.Name.ToString.Length > 80 Then ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, FCFCDC.Declarant.Name.ToString.Length - 40) - Else - ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name + ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDC.Declarant.Name.ToString.Substring(80, FCFCDC.Declarant.Name.ToString.Length - 80) End If + ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, FCFCDC.Declarant.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name End If - If FCFCDC.Declarant.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDC.Declarant.Identification.ReferenceNumber - ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Declarant.Identification.SubsidiaryNumber - End If - If FCFCDC.Declarant.Address IsNot Nothing Then - ADR.ezaAd_StrasseHausNr1 = FCFCDC.Declarant.Address.Line - ADR.ezaAd_StrasseHausNr2 = Nothing - ADR.ezaAd_Ort = FCFCDC.Declarant.Address.City - ADR.ezaAd_PLZ = FCFCDC.Declarant.Address.Postcode - ADR.ezaAd_LandCode = FCFCDC.Declarant.Address.Country - End If - EZA.eza_ADRESSEN.Add(ADR) End If + If FCFCDC.Declarant.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDC.Declarant.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Declarant.Identification.SubsidiaryNumber + End If + If FCFCDC.Declarant.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDC.Declarant.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDC.Declarant.Address.City + ADR.ezaAd_PLZ = FCFCDC.Declarant.Address.Postcode + ADR.ezaAd_LandCode = FCFCDC.Declarant.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If 'Vertreter If FCFCDC.Representative IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "CB" - If FCFCDC.Representative.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDC.Representative.Identification.ReferenceNumber - ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Representative.Identification.SubsidiaryNumber - EZA.eza_ADRESSEN.Add(ADR) - End If - End If - - - 'Empfänger - If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignee IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "CN" - If FCFCDC.Body.Consignee.Name IsNot Nothing Then - If FCFCDC.Body.Consignee.Name.ToString.Length > 40 Then - If FCFCDC.Body.Consignee.Name.ToString.Length > 80 Then - ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, 40) - ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignee.Name.ToString.Substring(80, FCFCDC.Body.Consignee.Name.ToString.Length - 80) - End If - ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, FCFCDC.Body.Consignee.Name.ToString.Length - 40) - Else - ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name - End If - End If - If FCFCDC.Body.Consignee.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignee.Identification.ReferenceNumber - ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignee.Identification.SubsidiaryNumber - End If - If FCFCDC.Body.Consignee.Address IsNot Nothing Then - ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignee.Address.Line - ADR.ezaAd_StrasseHausNr2 = Nothing - ADR.ezaAd_Ort = FCFCDC.Body.Consignee.Address.City - ADR.ezaAd_PLZ = FCFCDC.Body.Consignee.Address.Postcode - ADR.ezaAd_LandCode = FCFCDC.Body.Consignee.Address.Country - End If + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CB" + If FCFCDC.Representative.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDC.Representative.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Representative.Identification.SubsidiaryNumber EZA.eza_ADRESSEN.Add(ADR) End If + End If - 'Erwerber - If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "UC" + + 'Empfänger + If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignee IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "CN" + If FCFCDC.Body.Consignee.Name IsNot Nothing Then + If FCFCDC.Body.Consignee.Name.ToString.Length > 40 Then + If FCFCDC.Body.Consignee.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignee.Name.ToString.Substring(80, FCFCDC.Body.Consignee.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, FCFCDC.Body.Consignee.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name + End If + End If + If FCFCDC.Body.Consignee.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignee.Identification.ReferenceNumber + ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignee.Identification.SubsidiaryNumber + End If + If FCFCDC.Body.Consignee.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignee.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDC.Body.Consignee.Address.City + ADR.ezaAd_PLZ = FCFCDC.Body.Consignee.Address.Postcode + ADR.ezaAd_LandCode = FCFCDC.Body.Consignee.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) + End If + + 'Erwerber + If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "UC" If FCFCDC.Body.Acquirer.Name IsNot Nothing Then If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then @@ -4843,90 +4844,90 @@ Public Class frmDYNachrichtenVerarbeitung 'Verkäufer If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendor IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "SE" - If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then - If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then - If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then - ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40) - ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 80) - End If + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "SE" + If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then + If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then + If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 40) - Else - ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name + ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 80) End If + ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name End If - If FCFCDC.Body.CustomsValue.Vendor.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendor.Identification.ReferenceNumber - 'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber - End If - If FCFCDC.Body.CustomsValue.Vendor.Address IsNot Nothing Then - ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendor.Address.Line - ADR.ezaAd_StrasseHausNr2 = Nothing - ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendor.Address.City - ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendor.Address.Postcode - ADR.ezaAd_LandCode = FCFCDC.Body.CustomsValue.Vendor.Address.Country - End If - EZA.eza_ADRESSEN.Add(ADR) End If - - 'Käufer - If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendee IsNot Nothing Then - Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen - ADR.ezaAd_AdressTyp = "BY" - If FCFCDC.Body.CustomsValue.Vendee.Name IsNot Nothing Then - If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then - If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then - ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40) - ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 80) - End If - ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) - ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 40) - Else - ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name - End If - End If - If FCFCDC.Body.CustomsValue.Vendee.Identification IsNot Nothing Then - ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendee.Identification.ReferenceNumber - 'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber - End If - If FCFCDC.Body.CustomsValue.Vendee.Address IsNot Nothing Then - ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendee.Address.Line - ADR.ezaAd_StrasseHausNr2 = Nothing - ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendee.Address.City - ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendee.Address.Postcode - ADR.ezaAd_LandCode = FCFCDC.Body.CustomsValue.Vendee.Address.Country - End If - EZA.eza_ADRESSEN.Add(ADR) + If FCFCDC.Body.CustomsValue.Vendor.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendor.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber End If + If FCFCDC.Body.CustomsValue.Vendor.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendor.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendor.Address.City + ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendor.Address.Postcode + ADR.ezaAd_LandCode = FCFCDC.Body.CustomsValue.Vendor.Address.Country + End If + EZA.eza_ADRESSEN.Add(ADR) End If + 'Käufer + If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendee IsNot Nothing Then + Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen + ADR.ezaAd_AdressTyp = "BY" + If FCFCDC.Body.CustomsValue.Vendee.Name IsNot Nothing Then + If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then + If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then + ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40) + ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 80) + End If + ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40) + ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 40) + Else + ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name + End If + End If + If FCFCDC.Body.CustomsValue.Vendee.Identification IsNot Nothing Then + ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendee.Identification.ReferenceNumber + 'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber + End If + If FCFCDC.Body.CustomsValue.Vendee.Address IsNot Nothing Then + ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendee.Address.Line + ADR.ezaAd_StrasseHausNr2 = Nothing + ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendee.Address.City + ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendee.Address.Postcode + ADR.ezaAd_LandCode = FCFCDC.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")) + + ''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")) + ''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")) + ''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")) - ''-- + ''Postfachadresse + 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines)) + 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP")) + ''-- - 'AUFSCHUB - If FCFCDC.DutyDefermentApproval IsNot Nothing AndAlso FCFCDC.DutyDefermentApproval.Count > 0 Then + 'AUFSCHUB + If FCFCDC.DutyDefermentApproval IsNot Nothing AndAlso FCFCDC.DutyDefermentApproval.Count > 0 Then For Each TMP In FCFCDC.DutyDefermentApproval Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then @@ -6037,6 +6038,9 @@ Public Class frmDYNachrichtenVerarbeitung Dim division = "" Dim TXT_DokBeschau = "" + Dim TXT_Rückweisung = "" + Dim TXT_Mitteilung = "" + Dim TXT_Mitteilung_Zollbeamter = "" 'Dim annahmeKz As Object = Nothing 'Dim ueberlassungKz As Object = Nothing 'Dim RueckgabeKz As Object = Nothing @@ -6085,9 +6089,27 @@ Public Class frmDYNachrichtenVerarbeitung 'MitteilungTeilnehmerBeschau End Select End If + If POS.RueckgabeKz IsNot Nothing Then + If POS.RueckgabeKz = "J" Then + TXT_Rückweisung &= POS.Positionsnummer & ": Rückweisung " & vbNewLine + End If + End If + Next End If + If EZA.EinzelEntscheidungAnmeldung.KopfDaten IsNot Nothing Then + + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten IsNot Nothing Then + TXT_Mitteilung &= "Text: " & EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten + + If EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll IsNot Nothing Then + TXT_Mitteilung_Zollbeamter &= " (" & EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll & ")" + End If + TXT_Mitteilung &= vbNewLine + End If + End If + 'End If End If @@ -6108,7 +6130,7 @@ Public Class frmDYNachrichtenVerarbeitung 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 + Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = Nothing If DY_TMP.dy_Status <> DAKOSY_Worker.cDY_Statusliste.S_60 Then 'Wenn beretis auf 60, dann wird kiene Änderung mehr vorgenommen! @@ -6144,26 +6166,26 @@ Public Class frmDYNachrichtenVerarbeitung Dim art = "B" 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") art = "B" End If 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO") art = "B" End If 'Wenn Benutzer des LKWs nicht online, Team... - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") art = "T" End If 'Wenn TEAM nicht gefunden, Firma... - If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = EZA_TMP.eza_firma art = "F" End If @@ -6179,14 +6201,139 @@ Public Class frmDYNachrichtenVerarbeitung 'Nicht Case Else Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , TXT_DokBeschau.Trim,,, If(EZA_TMP.eza_firma, "")) + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP.eza_firma, "")) End Select End If Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_DokBeschau - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End If + + If TXT_Rückweisung <> "" Then + 'Benachrichtigung + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + Dim art = "B" + + 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + art = "B" + End If + + 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO") + art = "B" + End If + + 'Wenn Benutzer des LKWs nicht online, Team... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + art = "T" + End If + + 'Wenn TEAM nicht gefunden, Firma... + If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = EZA_TMP.eza_firma + art = "F" + End If + End If + + 'Wenn gefunden + If sendToID >= 0 Then + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + If GrenzstelleAVISO = "???" Then + Select Case statusAVISO + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP.eza_firma, "")) + End Select + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Rückweisung - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + End If + + + 'Nur Mitteilung - keine Beschau, RW... + If TXT_Mitteilung <> "" And TXT_Rückweisung = "" And TXT_DokBeschau = "" Then + Select Case TXT_Mitteilung.Replace("Text: ", "").Replace(".", "").Trim.ToLower + Case "entgegengenommen" + Case "Zollanmeldung entgegengenommen" + Case "0" + Case "eingegangen" + Case Else + + 'Benachrichtigung + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + Dim art = "B" + + 'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + art = "B" + End If + + 'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO") + art = "B" + End If + + 'Wenn Benutzer des LKWs nicht online, Team... + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO") + art = "T" + End If + + 'Wenn TEAM nicht gefunden, Firma... + If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = EZA_TMP.eza_firma + art = "F" + End If + End If + + 'Wenn gefunden + If sendToID >= 0 Then + ' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!! + Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + If GrenzstelleAVISO = "???" Then + Select Case statusAVISO + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else + Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim,,, If(EZA_TMP.eza_firma, "")) + End Select + End If + ' End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Mitteilung - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + End Select + + 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) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index ebc7c49..7878222 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3,6 +3,8 @@ Imports System.IO Imports System.Net Imports System.Text Imports System.Xml +Imports DocumentFormat.OpenXml.Drawing.Diagrams +Imports DocumentFormat.OpenXml.Wordprocessing Imports Renci.SshNet Public Class frmStartOptions @@ -425,8 +427,8 @@ Public Class frmStartOptions Try Dim sql As New VERAG_PROG_ALLGEMEIN.SQL - Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID - where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 200) + Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN ,[zzAktivitaet].VorgangID FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID + where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 200) If dt IsNot Nothing Then For Each row In dt.Rows Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp")) @@ -443,13 +445,23 @@ Public Class frmStartOptions cDHF_Anhaenge.LRN = If(row("LRN") IsNot DBNull.Value, row("LRN"), "") cDHF_Anhaenge.CRN = If(row("CRN") IsNot DBNull.Value, row("CRN"), "") + Dim destFull = "" + Dim Bezeichnung = "" + Select Case row("MsgTyp") + Case "EZ922" : Bezeichnung = "STEUERBESCHEID" + Case "EZ923" + Select Case row("VorgangID") + Case "AF" + Bezeichnung = "ABD" + Case Else '"EF" + Bezeichnung = "STEUERBESCHEID_MITT" + End Select + Case "TR109" : Bezeichnung = "VBD" + Case "EX431" : Bezeichnung = "AVM" + End Select + Try - Dim Bezeichnung = "" - Select Case row("MsgTyp") - Case "EZ922" : Bezeichnung = "STEUERBESCHEID" - Case "EZ923" : Bezeichnung = "STEUERBESCHEID_MITT" - Case "TR109" : Bezeichnung = "VBD" - End Select + If cDHF_Anhaenge.pfad <> "" Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", Bezeichnung, cDHF_Anhaenge.AnmID, "", "", "DHF_" & cDHF_Anhaenge.LRN.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) @@ -458,7 +470,7 @@ Public Class frmStartOptions Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - Dim destFull = "" + destFull = "" copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull) If destFull <> "" Then @@ -472,19 +484,43 @@ Public Class frmStartOptions End Try cDHF_Anhaenge.SAVE() - + Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Select Case row("MsgTyp") Case "EZ922" - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA") 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden sql.doSQL("Update Speditionsbuch SET [DokumentId_Steuerbeleg]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_Steuerbeleg] is null", "FMZOLL") Case "TR109" - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS") 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden sql.doSQL("Update Speditionsbuch SET [DokumentId_VBD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_VBD] is null", "FMZOLL") ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID) - Case "EZ923" 'Ergänzung STB - Mitteilung - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA") 'Versucht den SpedBucheintrag, falls noch nicht vorhanden - sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL") + + Case "EZ923" ' STB/ABD + Select Case row("VorgangID") + Case "AF" ' --> AUSFUHR --> ABD + 'AES Stuff.... + DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + sql.doSQL("Update Speditionsbuch SET [DokumentId_ABD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_ABD is null", "FMZOLL") + 'Zeitspanne ? 3 Tage , älter nicht senden.. + If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then + doMailZollbeleg(destFull, "ABD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) + End If + Case Else '' --> EINFUHR --> 'Ergänzung STB - Mitteilung + + DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL") + + End Select + + Case "EX431" 'AVM --> EZoll Anhänge & Mail senden + 'AES Stuff.... + DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + sql.doSQL("Update Speditionsbuch SET [DokumentId_AVM]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_AVM is null", "FMZOLL") + + If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then + doMailZollbeleg(destFull, "AVM", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) + End If + End Select @@ -518,6 +554,9 @@ Public Class frmStartOptions End Try End Sub + + + Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr) Try @@ -715,15 +754,15 @@ Public Class frmStartOptions 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) - API.api_EMail = EMails - API.api_EMailCC = EMails_CC - API.api_EMailBCC = EMails_BCC - API.api_EMailSubject = betreff - API.api_EMailText = body - API.api_EMailAttCnt = pfadList.Count + API.api_EMail = EMails + API.api_EMailCC = EMails_CC + API.api_EMailBCC = EMails_BCC + API.api_EMailSubject = betreff + API.api_EMailText = body + API.api_EMailAttCnt = pfadList.Count - Select Case art + Select Case art Case "STB" If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr) @@ -1720,30 +1759,30 @@ Public Class frmStartOptions Dim dy_id As String = "" - If betreff.ToString.Length > 15 Then - dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL") - Else - dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") - End If - ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") - - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) - DS.da_vorlage = False - - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" - If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - - Dim destFull = "" - moveFile(pfad, ZIEL_PFAD, destFull) - - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(dy_id) AndAlso dy_id > 0 Then - sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") - sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id) + If betreff.ToString.Length > 15 Then + dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL") + Else + dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") + End If + ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" + If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + moveFile(pfad, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(dy_id) AndAlso dy_id > 0 Then + sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") + sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id) + End If End If - End If End If End If @@ -2811,9 +2850,9 @@ Public Class frmStartOptions End Select End If If okDGV Then - r.DefaultCellStyle.BackColor = Color.LightGreen + r.DefaultCellStyle.BackColor = System.Drawing.Color.LightGreen Else - r.DefaultCellStyle.BackColor = Color.IndianRed + r.DefaultCellStyle.BackColor = System.Drawing.Color.IndianRed End If End If Me.Refresh() diff --git a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb index 2c84f03..8debe68 100644 --- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb @@ -3,6 +3,7 @@ Imports System.Globalization Imports System.Xml Imports Renci.SshNet Imports System.Net.Mail +Imports DocumentFormat.OpenXml.Drawing.Diagrams Public Class frmTCNachrichtenVerarbeitung Dim cntDatenEingelesen As Integer = 0 @@ -103,14 +104,14 @@ Public Class frmTCNachrichtenVerarbeitung Dim FI As New FileInfo(f) If Not FI.Name.StartsWith(".") Then 'Temp. DownloadPfad - Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name + Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name 'Datei herunterladen IO.File.Copy(f, destFilenameTMP) If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen 'Gültiger Filename - Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name + Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen Dim fi_dest As FileInfo = New FileInfo(destFilename) @@ -253,156 +254,223 @@ Public Class frmTCNachrichtenVerarbeitung Label6.Visible = True Exit Sub End If + For i = 1 To 3 - For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) - Try - Dateiname = d - cWorker_NCTS.Dateiname = d - If IO.File.Exists(d) Then - Dim found = False - Dim fi As FileInfo = New FileInfo(d) - If Not fi.Name.StartsWith(".") Then - - ' EDIFACT - ' If fi.Extension = ".edi" Then - Dim alreadyMoved = False - If fi.Extension = ".xml" Then - Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True} - - Dim doc As New XmlDocument() - Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default) - - doc.LoadXml(SanitizeXmlString(XML_Code)) - Dim VERSION As String = "" + Try + Dateiname = d + cWorker_NCTS.Dateiname = d + If IO.File.Exists(d) Then - '------------------------------------------------------------------------------------------------------------------------------ - ' eZOLL - '------------------------------------------------------------------------------------------------------------------------------ + + Dim found = False + Dim fi As FileInfo = New FileInfo(d) + If Not fi.Name.StartsWith(".") Then + + Dim alreadyMoved = False + Select Case i + Case 1 + If fi.Extension = ".xml" Then + Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True} + + Dim doc As New XmlDocument() + Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default) + + doc.LoadXml(SanitizeXmlString(XML_Code)) + Dim VERSION As String = "" - '------------------------------------------ - '------------------ Anmeldung ------------------ - '------------------------------------------ - 'TC: Versandbestätigung - If Not found And cGetMsgType.isTC_Anmeldung(doc) Then - If readTC_Anmeldung(doc, d) <> "" Then found = True - ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True - End If + '------------------------------------------------------------------------------------------------------------------------------ + ' eZOLL + '------------------------------------------------------------------------------------------------------------------------------ - ElseIf fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then - Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_") - Dim CRN = "" - Dim tc_id = "" - Dim Anm_id = "" - Dim typeMsg = "" - Dim BezugsNr = "" - - If split.Length > 0 Then CRN = split(0) - If split.Length > 1 Then Anm_id = split(1) - If split.Length > 2 Then typeMsg = split(2) - - Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing - - tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL") - BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL") - - If BezugsNr <> String.Empty Then - - - Select Case typeMsg - Case "EZ923" 'STB - - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) - DS.da_vorlage = False - - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" - If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - - Dim destFull = "" - frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) - - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(tc_id) AndAlso tc_id > 0 Then - SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") - SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) - End If + '------------------------------------------ + '------------------ Anmeldung ------------------ + '------------------------------------------ + 'TC: Versandbestätigung + If Not found And cGetMsgType.isTC_Anmeldung(doc) Then + If readTC_Anmeldung(doc, d) <> "" Then found = True + ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True End If - found = True - addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr) + End If + Case 2 + If fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then + Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_") + Dim CRN = "" + Dim tc_id = "" + Dim Anm_id = "" + Dim typeMsg = "" + Dim BezugsNr = "" + Dim dec_ProzessArt = "" + + If split.Length > 0 Then CRN = split(0) + If split.Length > 1 Then Anm_id = split(1) + If split.Length > 2 Then typeMsg = split(2) + + Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing + + tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL") + BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "' AND [telnam_aktuellsteNachricht]=1", "FMZOLL") + dec_ProzessArt = SQL.DLookup("dec_ProzessArt", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "' AND [telnam_aktuellsteNachricht]=1", "FMZOLL") + + If BezugsNr <> String.Empty Then - Case "EZ922" 'STB Mitteilung + Select Case typeMsg + Case "EZ923" 'STB - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) - DS.da_vorlage = False + Select Case dec_ProzessArt + Case "EX" 'ABD + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" - If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - Dim destFull = "" - frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(tc_id) AndAlso tc_id > 0 Then - SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") - SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) - End If + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + ' SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrAES='" & BezugsNr.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: AusfuhrBegleitDokument ", BezugsNr) + + Case Else + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr) + + End Select + Case "EZ922" 'STB Mitteilung + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr) + + Case "TR109" 'VBD + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: VBD ", BezugsNr) + + Case "EX431" 'AVMEX431 + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "AVM", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + ' SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrAES='" & BezugsNr.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "AVM", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: AusgangsVermerk ", BezugsNr) + + End Select End If - found = True - addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr) + End If + Case 3 'NOT FOUND - Case "TR109" 'VBD - - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) - DS.da_vorlage = False - - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" - If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - - Dim destFull = "" - frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) - - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(tc_id) AndAlso tc_id > 0 Then - SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") - SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id) - End If + If fi.Extension = ".pdf" Then ' -> PDFs dürfen länger leben.. (XML kommen oft später..) + If DateDiff(DateInterval.Hour, fi.CreationTime, Now) > 2 Then ' .. aber nur wenn max. 2 h alt.. + frmStartOptions.moveFile(d, ERROR_PFAD) + dsNichtErkannt += 1 End If - found = True - addDGVEinarbeitung("PDF: VBD ", BezugsNr) + Else + frmStartOptions.moveFile(d, ERROR_PFAD) ' ..sonst weg damit! + dsNichtErkannt += 1 + End If + Me.Refresh() + End Select - End Select - End If - End If - If True Then - If Not alreadyMoved Then - If found Then - If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") - frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") - Else - frmStartOptions.moveFile(d, ERROR_PFAD) + If True Then + If Not alreadyMoved Then + If found Then + If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + cntDatenEingelesen += 1 + Me.Refresh() + Else + '--wir oben im SELECT CASE GEREGELT -- > zusätzlicher Durchgang + + End If End If + End If - End If - Me.Refresh() - If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1 - 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) - End Try + 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) + End Try + Next Next End Sub @@ -668,7 +736,11 @@ Public Class frmTCNachrichtenVerarbeitung TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60 TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60 - Case "TT922" 'EZA / Abgabenbescheid + Case "TT922" 'EZA / Mitteilung Zollschuld --> Abgabenbescheid + TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60 + TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60 + + Case "TT923" ' Freigabe IMPORT + EXPORT TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60 TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60 Case Else @@ -901,7 +973,7 @@ Public Class frmTCNachrichtenVerarbeitung POS.ABGABEN.Add(ABG) Next End If - TC.POSITIONSDATEN.Add(POS) + TC.POSITIONSDATEN.Add(POS) Next End If