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

creditsafe

Browse Source
This commit is contained in:
d.breimaier
2023-03-22 12:38:53 +01:00
parent c6b08132a3 2ced9a1f68
commit 48ad4e440b
11 changed files with 914 additions and 594 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -915,141 +915,149 @@ Public Class cDakosyNCTSOut
notFound = False notFound = False
'Ermittlung ob T1 oder T2 'Ermittlung ob T1 oder T2
If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then
If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then
SPEDITIONSBUCH.Abfertigungsart = 6 SPEDITIONSBUCH.Abfertigungsart = 6
For Each s In DY.ncts_SICHERHEITSANGABEN For Each s In DY.ncts_SICHERHEITSANGABEN
Select Case If(s.nctsSA_GRN, "") Select Case If(s.nctsSA_GRN, "")
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34 Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
End Select End Select
Next Next
ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then
'For Each s In DY.ncts_SICHERHEITSANGABEN 'For Each s In DY.ncts_SICHERHEITSANGABEN
' If If(s.nctsSA_ArtCode, "") = "B" Then ' If If(s.nctsSA_ArtCode, "") = "B" Then
' SPEDITIONSBUCH.Abfertigungsart = 8 ' SPEDITIONSBUCH.Abfertigungsart = 8
' End If ' End If
'Next 'Next
If DY.ncts_BestimmungslandCode = "TR" Then If DY.ncts_BestimmungslandCode = "TR" Then
SPEDITIONSBUCH.Abfertigungsart = 12 SPEDITIONSBUCH.Abfertigungsart = 12
Else Else
SPEDITIONSBUCH.Abfertigungsart = 8 SPEDITIONSBUCH.Abfertigungsart = 8
End If End If
Else 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
End If 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) Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID)
SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId
Catch ex As Exception 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 If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString
SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_BestimmungsstelleDienststellennummer SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_BestimmungsstelleDienststellennummer
SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode
SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode
If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then
SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
Dim sumBrg As Double = 0 Dim sumBrg As Double = 0
For Each S In DY.ncts_SICHERHEITSANGABEN For Each S In DY.ncts_SICHERHEITSANGABEN
sumBrg += If(S.nctsSA_AbgabenBetrag, 0) sumBrg += If(S.nctsSA_AbgabenBetrag, 0)
Next Next
If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg
End If End If
'SPEDITIONSBUCH.Abfertigungsdatum= 'SPEDITIONSBUCH.Abfertigungsdatum=
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "") SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL) Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
End If End If
If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then
If If(DY.ncts_SumA_Versender_Name, "").ToString.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_Name, "")
SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "") SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "")
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "")
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "")
ElseIf DY.ncts_WARENPOS.Count > 0 Then ElseIf DY.ncts_WARENPOS.Count > 0 Then
Dim WP = DY.ncts_WARENPOS(0) Dim WP = DY.ncts_WARENPOS(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL) Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL)
If AD_pos IsNot Nothing Then If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff 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 End If
If If(WP.nctsWP_SumAVersender_Name, "").ToString.Trim <> "" Then If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_SumA_Versender_EORI, "")).ToString.Trim
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 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) Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL)
If AD2 IsNot Nothing Then If AD2 IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff 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
End If 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 = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "")
SPEDITIONSBUCH.Währungsschlüssel = "900" SPEDITIONSBUCH.Währungsschlüssel = "900"
If DY.ncts_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, "") 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 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: 'Personal Abfertigung:
Try Try
If DY.ncts_Bearbeiter IsNot Nothing Then 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") 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) SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If End If
Catch ex As Exception Catch ex As Exception

25
DAKOSY_Worker/cIMPORT_Codelisten.vb
View File

@@ -82,7 +82,8 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -131,7 +132,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -179,7 +180,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -228,7 +229,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -278,7 +279,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -327,7 +328,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -376,7 +377,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -420,7 +421,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -470,7 +471,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -521,7 +522,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -568,7 +569,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False
@@ -620,7 +621,7 @@ Public Class cIMPORT_Codelisten
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try End Try
Return False Return False

34
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -25,6 +25,7 @@ Public Class cZOLL_IMPORT
Function countSpedbuchEntrysTC(filiale, BezugsNr, telanm_ART) As Integer Function countSpedbuchEntrysTC(filiale, BezugsNr, telanm_ART) As Integer
Select Case telanm_ART Select Case telanm_ART
Case "NCTS", "T1", "T2", "T2L" : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr) Case "NCTS", "T1", "T2", "T2L" : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr)
Case "AES" : Return countSpedbuchEntrysTC_AES(filiale, BezugsNr)
Case Else : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr) Case Else : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr)
End Select 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) Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND [AtlasBezNrEZA]='" & BezugsNr & "'", "FMZOLL",, 0)
End Function 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 Function countSpedbuchEntrysTC_NCTS(filiale, BezugsNr) As Integer
If If(BezugsNr, "") = "" Then Return -1 If If(BezugsNr, "") = "" Then Return -1
@@ -314,7 +320,7 @@ Public Class cZOLL_IMPORT
End Function 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 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
@@ -334,6 +340,7 @@ Public Class cZOLL_IMPORT
Dim abfertigungsnummer = getAbfertigungsnummer(LRN) Dim abfertigungsnummer = getAbfertigungsnummer(LRN)
If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then
SPEDBUCH_TMP = SPEDBUCH
If filiale <> "" And abfertigungsnummer <> "" Then If filiale <> "" And abfertigungsnummer <> "" Then
If countSpedbuchEntrys(filiale, LRN, art) = 0 Then If countSpedbuchEntrys(filiale, LRN, art) = 0 Then
@@ -353,11 +360,13 @@ Public Class cZOLL_IMPORT
Select Case art Select Case art
Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN
Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN
Case Else : SPEDBUCH.AtlasBezNrEZA = LRN Case Else : SPEDBUCH.AtlasBezNrEZA = LRN
End Select 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 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", "") ' 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 "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "5103" : 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 "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 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803
'filialeBez SUB, NKD, WAI,.-.. 'filialeBez SUB, NKD, WAI,.-..
End Select End Select
@@ -528,6 +538,8 @@ Public Class cZOLL_IMPORT
If EZA_Nr <> "" Then If EZA_Nr <> "" Then
' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr ' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
EZollEZADatenbereitstellung(EZA_Nr) EZollEZADatenbereitstellung(EZA_Nr)
ElseIf AES_Nr <> "" Then
EZollEZADatenbereitstellung(AES_Nr) ' ????
ElseIf NCTS_Nr <> "" Then ElseIf NCTS_Nr <> "" Then
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
EZollNCTSDatenbereitstellung(NCTS_Nr) EZollNCTSDatenbereitstellung(NCTS_Nr)
@@ -708,6 +720,7 @@ Public Class cZOLL_IMPORT
SPEDITIONSBUCH.HandlingZuKassieren = SENDUNG.tblSnd_BARzuKassieren SPEDITIONSBUCH.HandlingZuKassieren = SENDUNG.tblSnd_BARzuKassieren
End If End If
If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr
@@ -716,15 +729,16 @@ Public Class cZOLL_IMPORT
End If End If
If SPEDITIONSBUCH.EmpfängerKundenNr Is Nothing OrElse SPEDITIONSBUCH.EmpfängerKundenNr <= 0 Then 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 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 If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger
End If End If
If SPEDITIONSBUCH.VermittlerKundenNr Is Nothing OrElse SPEDITIONSBUCH.VermittlerKundenNr <= 0 Then 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 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 If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber
End If End If
End If End If
SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
@@ -776,6 +790,10 @@ Public Class cZOLL_IMPORT
correctEntry(SPEDITIONSBUCH.AvisiererKundenNr, SPEDITIONSBUCH.Avisierer) correctEntry(SPEDITIONSBUCH.AvisiererKundenNr, SPEDITIONSBUCH.Avisierer)
correctEntry(SPEDITIONSBUCH.EndempfängerKundenNr, SPEDITIONSBUCH.Endempfänger) 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 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 If Personalnummer > 0 Then SPEDITIONSBUCH.Personalnummer = Personalnummer

2
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -760,7 +760,7 @@ Public Class cTelotec_Anmeldung
'Versender 'Verkäufer '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) Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr

16
UID/ADMIN.vbproj
View File

@@ -88,11 +88,13 @@
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath> <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
</Reference> </Reference>
<Reference Include="ClosedXML, Version=0.95.4.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="ClosedXML, Version=0.95.4.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <HintPath>..\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath>
<HintPath>..\..\..\dll\closedxml\ClosedXML.dll</HintPath>
</Reference> </Reference>
<Reference Include="ClosedXML_095"> <Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\..\..\dll\closedxml\ClosedXML_095.dll</HintPath> <HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="ExcelNumberFormat, Version=1.0.10.0, Culture=neutral, PublicKeyToken=23c6f5d73be07eca, processorArchitecture=MSIL">
<HintPath>..\packages\ExcelNumberFormat.1.0.10\lib\net20\ExcelNumberFormat.dll</HintPath>
</Reference> </Reference>
<Reference Include="FastColoredTextBox"> <Reference Include="FastColoredTextBox">
<HintPath>..\..\..\dll\FastColoredTextBox.dll</HintPath> <HintPath>..\..\..\dll\FastColoredTextBox.dll</HintPath>
@@ -237,6 +239,12 @@
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" /> <Reference Include="System.IO.Compression" />
<Reference Include="System.IO.Compression.FileSystem" /> <Reference Include="System.IO.Compression.FileSystem" />
<Reference Include="System.IO.FileSystem.Primitives, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.FileSystem.Primitives.4.0.1\lib\net46\System.IO.FileSystem.Primitives.dll</HintPath>
</Reference>
<Reference Include="System.IO.Packaging, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
</Reference>
<Reference Include="System.Memory, Version=4.0.1.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL"> <Reference Include="System.Memory, Version=4.0.1.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Memory.4.5.4\lib\net461\System.Memory.dll</HintPath> <HintPath>..\packages\System.Memory.4.5.4\lib\net461\System.Memory.dll</HintPath>
</Reference> </Reference>

8
UID/packages.config
View File

@@ -1,6 +1,9 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="ATAPI" version="2018.3.9" targetFramework="net47" /> <package id="ATAPI" version="2018.3.9" targetFramework="net47" />
<package id="ClosedXML" version="0.95.4" targetFramework="net47" />
<package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net47" />
<package id="ExcelNumberFormat" version="1.0.10" targetFramework="net47" />
<package id="Gcef.Data.DataEngine" version="3.0.2" targetFramework="net47" /> <package id="Gcef.Data.DataEngine" version="3.0.2" targetFramework="net47" />
<package id="Gcef.Data.ExpressionInfo" version="3.0.2" targetFramework="net47" /> <package id="Gcef.Data.ExpressionInfo" version="3.0.2" targetFramework="net47" />
<package id="Gcef.Data.VBFunctionLib" version="3.0.2" targetFramework="net47" /> <package id="Gcef.Data.VBFunctionLib" version="3.0.2" targetFramework="net47" />
@@ -23,9 +26,10 @@
<package id="GrapeCity.Documents.Imaging" version="4.2.0.722" targetFramework="net47" /> <package id="GrapeCity.Documents.Imaging" version="4.2.0.722" targetFramework="net47" />
<package id="Hardcodet.NotifyIcon.Wpf" version="1.0.5" targetFramework="net40-Client" requireReinstallation="True" /> <package id="Hardcodet.NotifyIcon.Wpf" version="1.0.5" targetFramework="net40-Client" requireReinstallation="True" />
<package id="Microsoft.Bcl.AsyncInterfaces" version="5.0.0" targetFramework="net47" /> <package id="Microsoft.Bcl.AsyncInterfaces" version="5.0.0" targetFramework="net47" />
<package id="Microsoft.CSharp" version="4.5.0" targetFramework="net47" /> <package id="Microsoft.CSharp" version="4.7.0" targetFramework="net47" />
<package id="Newtonsoft.Json" version="13.0.2" targetFramework="net47" />
<package id="System.Buffers" version="4.5.1" targetFramework="net47" /> <package id="System.Buffers" version="4.5.1" targetFramework="net47" />
<package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net47" />
<package id="System.IO.Packaging" version="4.0.0" targetFramework="net47" />
<package id="System.Memory" version="4.5.4" targetFramework="net47" /> <package id="System.Memory" version="4.5.4" targetFramework="net47" />
<package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" /> <package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" />
<package id="System.Runtime.CompilerServices.Unsafe" version="5.0.0" targetFramework="net47" /> <package id="System.Runtime.CompilerServices.Unsafe" version="5.0.0" targetFramework="net47" />

8
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd
View File

@@ -674,13 +674,13 @@
<xs:documentation/> <xs:documentation/>
</xs:annotation> </xs:annotation>
</xs:element> </xs:element>
<xs:element name="CurREF8" minOccurs="0" maxOccurs="1"> <xs:element name="CurREF8" minOccurs="0" maxOccurs="1">
<xs:annotation> <xs:annotation>
<xs:documentation/> <xs:documentation/>
</xs:annotation> </xs:annotation>
</xs:element> </xs:element>
<xs:element name="AmoConREF7" minOccurs="0" maxOccurs="1"> <xs:element name="AmoConREF7" minOccurs="0" maxOccurs="1">
<xs:annotation> <xs:annotation>
<xs:documentation/> <xs:documentation/>
</xs:annotation> </xs:annotation>
</xs:element> </xs:element>

39
cNCTSPartnerWorker/cTR_NCTS.vb
View File

@@ -21,7 +21,9 @@ Public Class cTR_NCTS
'If CC015B.HEAHEA.ConIndHEA96 IsNot Nothing Then NCTS. = CC015B.HEAHEA.ConIndHEA96 CONTAINER '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.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.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.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.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 '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 'If CC015B.REPREP.RefNumEST1 IsNot Nothing Then NCTS.= CC015B.REPREP.RefNumEST1
End If End If
'Bürgschaft 'Bürgschaft
If CC015B.GUAGUA IsNot Nothing AndAlso CC015B.GUAGUA.Count > 0 Then If CC015B.GUAGUA IsNot Nothing AndAlso CC015B.GUAGUA.Count > 0 Then
For Each GUAGUA In CC015B.GUAGUA For Each GUAGUA In CC015B.GUAGUA
@@ -90,17 +91,37 @@ Public Class cTR_NCTS
Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
If GUAGUA.GuaTypGUA1 IsNot Nothing Then BRG.nctsSA_ArtCode = GUAGUA.GuaTypGUA1 If GUAGUA.GuaTypGUA1 IsNot Nothing Then BRG.nctsSA_ArtCode = GUAGUA.GuaTypGUA1
If REF.GuaRefNumGRNREF1 IsNot Nothing Then BRG.nctsSA_GRN = REF.GuaRefNumGRNREF1 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.AccCodREF6 IsNot Nothing Then BRG.nctsSA_Zugriffcode = REF.AccCodREF6
If REF.AmoConREF7 IsNot Nothing Then BRG.nctsSA_AbgabenBetragFremdWaehrung = REF.AmoConREF7 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 '--> EUR
If REF.AmoConREF7 IsNot Nothing Then If BRG.nctsSA_AbgabenBetragFremdWaehrung IsNot Nothing Then
If If(BRG.nctsSA_Waerung, "") <> "EUR" 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) 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, REF.AmoConREF7) BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, BRG.nctsSA_AbgabenBetragFremdWaehrung)
Else Else
BRG.nctsSA_AbgabenBetrag = REF.AmoConREF7 BRG.nctsSA_AbgabenBetrag = BRG.nctsSA_AbgabenBetragFremdWaehrung
End If End If
End If End If
NCTS.ncts_SICHERHEITSANGABEN.Add(BRG) 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.IteNumGDS7 IsNot Nothing Then POS.nctsWP_PositionsNummer = GOOITEGDS.IteNumGDS7
If GOOITEGDS.ComCodTarCodGDS10 IsNot Nothing Then POS.nctsWP_Warennummer = GOOITEGDS.ComCodTarCodGDS10 If GOOITEGDS.ComCodTarCodGDS10 IsNot Nothing Then POS.nctsWP_Warennummer = GOOITEGDS.ComCodTarCodGDS10
If GOOITEGDS.GooDesGDS23 IsNot Nothing Then POS.nctsWP_Warenbezeichnung = GOOITEGDS.GooDesGDS23 If GOOITEGDS.GooDesGDS23 IsNot Nothing Then POS.nctsWP_Warenbezeichnung = GOOITEGDS.GooDesGDS23
If GOOITEGDS.GroMasGDS46 IsNot Nothing Then POS.nctsWP_Rohmasse = GOOITEGDS.GroMasGDS46 If GOOITEGDS.GroMasGDS46 IsNot Nothing Then POS.nctsWP_Rohmasse = CDbl(GOOITEGDS.GroMasGDS46)
If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = GOOITEGDS.NetMasGDS48 If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = CDbl(GOOITEGDS.NetMasGDS48)
'Versender 'Versender
If GOOITEGDS.TRACONCO2 IsNot Nothing Then If GOOITEGDS.TRACONCO2 IsNot Nothing Then

751
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -4,6 +4,7 @@ Imports System.Xml
Imports Renci.SshNet Imports Renci.SshNet
Imports System.Net.Mail Imports System.Net.Mail
Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing
Imports DocumentFormat.OpenXml.Wordprocessing
Public Class frmDYNachrichtenVerarbeitung Public Class frmDYNachrichtenVerarbeitung
Dim cntDatenEingelesen As Integer = 0 Dim cntDatenEingelesen As Integer = 0
@@ -4197,121 +4198,121 @@ Public Class frmDYNachrichtenVerarbeitung
'Versender/Ausführer 'Versender/Ausführer
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.Consignor IsNot Nothing Then If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.Consignor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CZ" ADR.ezaAd_AdressTyp = "CZ"
If FCFCDF.Body.Consignor.Name IsNot Nothing Then If FCFCDF.Body.Consignor.Name IsNot Nothing Then
If FCFCDF.Body.Consignor.Name.ToString.Length > 40 Then If FCFCDF.Body.Consignor.Name.ToString.Length > 40 Then
If FCFCDF.Body.Consignor.Name.ToString.Length > 80 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
ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40) 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) ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, 40)
Else ADR.ezaAd_NameFirma3 = FCFCDF.Body.Consignor.Name.ToString.Substring(80, FCFCDF.Body.Consignor.Name.ToString.Length - 80)
ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name
End If 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 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 End If
If FCFCDF.Body.Consignor.Identification IsNot Nothing Then
'Verkäufer ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.Consignor.Identification.ReferenceNumber
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendor IsNot Nothing Then ' ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.Consignor.Identification.SubsidiaryNumber
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 End If
If FCFCDF.Body.Consignor.Address IsNot Nothing Then
'Käufer ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.Consignor.Address.Line
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendee IsNot Nothing Then ADR.ezaAd_StrasseHausNr2 = Nothing
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen ADR.ezaAd_Ort = FCFCDF.Body.Consignor.Address.City
ADR.ezaAd_AdressTyp = "BY" ADR.ezaAd_PLZ = FCFCDF.Body.Consignor.Address.Postcode
If FCFCDF.Body.CustomsValue.Vendee.Name IsNot Nothing Then ADR.ezaAd_LandCode = FCFCDF.Body.Consignor.Address.Country
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
EZA.eza_ADRESSEN.Add(ADR)
End If 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)) ''Zollwertanmelder
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ")) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
''Vertr. Zollwertanmelder ''Vertr. Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False)) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG")) 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
''Rechnung ''Rechnung
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines)) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA")) 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
''Postfachadresse ''Postfachadresse
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines)) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP")) 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
''-- ''--
'AUFSCHUB 'AUFSCHUB
If FCFCDF.DutyDefermentApproval IsNot Nothing AndAlso FCFCDF.DutyDefermentApproval.Count > 0 Then If FCFCDF.DutyDefermentApproval IsNot Nothing AndAlso FCFCDF.DutyDefermentApproval.Count > 0 Then
For Each TMP In FCFCDF.DutyDefermentApproval For Each TMP In FCFCDF.DutyDefermentApproval
Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then 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 If FCFCDC.Header IsNot Nothing Then
EZA.eza_VersendungsLandCode = FCFCDC.Header.DepartureCountry EZA.eza_VersendungsLandCode = FCFCDC.Header.DepartureCountry
EZA.eza_FinanzamtAnmelder = FCFCDC.Header.TaxOffice EZA.eza_FinanzamtAnmelder = FCFCDC.Header.TaxOffice
EZA.eza_UstIdAnmelder = FCFCDC.Header.TaxNumber EZA.eza_UstIdAnmelder = FCFCDC.Header.TaxNumber
EZA.eza_Warenort = FCFCDC.Header.GoodsLocation EZA.eza_Warenort = FCFCDC.Header.GoodsLocation
EZA.eza_Ausstellungsort = FCFCDC.Header.DeclarationPlace EZA.eza_Ausstellungsort = FCFCDC.Header.DeclarationPlace
EZA.eza_ZollrechtlicherStatus = FCFCDC.Header.CustomsGoodsStatus EZA.eza_ZollrechtlicherStatus = FCFCDC.Header.CustomsGoodsStatus
EZA.eza_Zahlungsart = FCFCDC.Header.PaymentMethod EZA.eza_Zahlungsart = FCFCDC.Header.PaymentMethod
EZA.eza_AnmelderistEmpfaenger = FCFCDC.Header.DeclarantIsConsigneeFlag EZA.eza_AnmelderistEmpfaenger = FCFCDC.Header.DeclarantIsConsigneeFlag
EZA.eza_VertretungsVerhaeltnisCode = FCFCDC.Header.RepresentativeRelationshipFlag EZA.eza_VertretungsVerhaeltnisCode = FCFCDC.Header.RepresentativeRelationshipFlag
EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag
EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation
' EZA.eza_VerfahrenBeantragtCode ' EZA.eza_VerfahrenBeantragtCode
End If End If
@@ -4627,45 +4628,45 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
If FCFCDC.Body.PaymentTransaction IsNot Nothing Then If FCFCDC.Body.PaymentTransaction IsNot Nothing Then
EZA.eza_Rechnungswaehrung = FCFCDC.Body.PaymentTransaction.CurrencyCode EZA.eza_Rechnungswaehrung = FCFCDC.Body.PaymentTransaction.CurrencyCode
EZA.eza_Rechnungspreis = FCFCDC.Body.PaymentTransaction.Amount EZA.eza_Rechnungspreis = FCFCDC.Body.PaymentTransaction.Amount
End If End If
If FCFCDC.Body.CustomsValue IsNot Nothing Then If FCFCDC.Body.CustomsValue IsNot Nothing Then
If FCFCDC.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDC.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag If FCFCDC.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDC.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag
EZA.eza_DV1FruehereEntscheidungen = FCFCDC.Body.CustomsValue.FormerDecisions 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_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.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_DV1LizenzgebuehrenUmstand = FCFCDC.Body.CustomsValue.LicenseFee.Description
If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDC.Body.CustomsValue.LicenseFee.LicenseFeeFlag If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDC.Body.CustomsValue.LicenseFee.LicenseFeeFlag
End If End If
If FCFCDC.Body.Document IsNot Nothing AndAlso FCFCDC.Body.Document.Count > 0 Then If FCFCDC.Body.Document IsNot Nothing AndAlso FCFCDC.Body.Document.Count > 0 Then
For Each docTMP In FCFCDC.Body.Document For Each docTMP In FCFCDC.Body.Document
Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen
UNTERLAGE.ezaUl_Art = docTMP.Type UNTERLAGE.ezaUl_Art = docTMP.Type
UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber
UNTERLAGE.ezaUl_Bereich = docTMP.Division UNTERLAGE.ezaUl_Bereich = docTMP.Division
UNTERLAGE.ezaUl_DatumAusstellung = CDate(docTMP.IssuingDate).ToShortDateString UNTERLAGE.ezaUl_DatumAusstellung = CDate(docTMP.IssuingDate).ToShortDateString
EZA.eza_UNTERLAGEN.Add(UNTERLAGE) EZA.eza_UNTERLAGEN.Add(UNTERLAGE)
Next Next
End If End If
' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)??? ' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)???
' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '? ' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '?
'Vorpapier 'Vorpapier
If FCFCDC.PreviousAdministrativeReferences IsNot Nothing Then If FCFCDC.PreviousAdministrativeReferences IsNot Nothing Then
EZA.eza_VorpapierArtCode = FCFCDC.PreviousAdministrativeReferences.Type EZA.eza_VorpapierArtCode = FCFCDC.PreviousAdministrativeReferences.Type
If FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber If FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber
End If End If
'Beförderungsmittel Grenze 'Beförderungsmittel Grenze
If FCFCDC.BorderTransportMeans IsNot Nothing Then If FCFCDC.BorderTransportMeans IsNot Nothing Then
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type
EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode
EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information
@@ -4674,111 +4675,111 @@ Public Class frmDYNachrichtenVerarbeitung
'Beförderungsmittel Inland 'Beförderungsmittel Inland
If FCFCDC.BorderTransportMeans IsNot Nothing Then If FCFCDC.BorderTransportMeans IsNot Nothing Then
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type
EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode
EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDC.BorderTransportMeans.Nationality EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDC.BorderTransportMeans.Nationality
End If End If
'Beförderungsmittel Inland 'Beförderungsmittel Inland
If FCFCDC.ArrivalTransportMeans IsNot Nothing Then If FCFCDC.ArrivalTransportMeans IsNot Nothing Then
EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDC.ArrivalTransportMeans.Identity EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDC.ArrivalTransportMeans.Identity
End If End If
'Ansprechpartenr 'Ansprechpartenr
If FCFCDC.ContactPerson IsNot Nothing Then If FCFCDC.ContactPerson IsNot Nothing Then
EZA.eza_AnmeldenderBearbeiterName = FCFCDC.ContactPerson.Name EZA.eza_AnmeldenderBearbeiterName = FCFCDC.ContactPerson.Name
EZA.eza_AnmeldenderBearbeiterEMail = FCFCDC.ContactPerson.MailAddress EZA.eza_AnmeldenderBearbeiterEMail = FCFCDC.ContactPerson.MailAddress
EZA.eza_AnmeldenderBearbeiterStellung = FCFCDC.ContactPerson.Position EZA.eza_AnmeldenderBearbeiterStellung = FCFCDC.ContactPerson.Position
EZA.eza_AnmeldenderBearbeiterTel = FCFCDC.ContactPerson.PhoneNumber 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") Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
If SB_Tmp <> "" Then If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp EZA.eza_Bearbeiter = SB_Tmp
End If
End If End If
End If
'Anmleder 'Anmleder
If FCFCDC.Declarant IsNot Nothing Then If FCFCDC.Declarant IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "DT" ADR.ezaAd_AdressTyp = "DT"
If FCFCDC.Declarant.Name IsNot Nothing Then If FCFCDC.Declarant.Name IsNot Nothing Then
If FCFCDC.Declarant.Name.ToString.Length > 40 Then If FCFCDC.Declarant.Name.ToString.Length > 40 Then
If FCFCDC.Declarant.Name.ToString.Length > 80 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
ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name.ToString.Substring(0, 40) 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) ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, 40)
Else ADR.ezaAd_NameFirma3 = FCFCDC.Declarant.Name.ToString.Substring(80, FCFCDC.Declarant.Name.ToString.Length - 80)
ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name
End If 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 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 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 'Vertreter
If FCFCDC.Representative IsNot Nothing Then If FCFCDC.Representative IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CB" ADR.ezaAd_AdressTyp = "CB"
If FCFCDC.Representative.Identification IsNot Nothing Then If FCFCDC.Representative.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Representative.Identification.ReferenceNumber ADR.ezaAd_TeilnehmerEORI = FCFCDC.Representative.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Representative.Identification.SubsidiaryNumber 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
EZA.eza_ADRESSEN.Add(ADR) EZA.eza_ADRESSEN.Add(ADR)
End If End If
End If
'Erwerber
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then 'Empfänger
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignee IsNot Nothing Then
ADR.ezaAd_AdressTyp = "UC" 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 IsNot Nothing Then
If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then
If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then
@@ -4843,90 +4844,90 @@ Public Class frmDYNachrichtenVerarbeitung
'Verkäufer 'Verkäufer
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendor IsNot Nothing Then 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 Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "SE" ADR.ezaAd_AdressTyp = "SE"
If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then 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 > 40 Then
If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 80 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
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40) 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) ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40)
Else ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 80)
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name
End If 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 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 End If
If FCFCDC.Body.CustomsValue.Vendor.Identification IsNot Nothing Then
'Käufer ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendor.Identification.ReferenceNumber
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendee IsNot Nothing Then 'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber
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
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 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)) ''Zollwertanmelder
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ")) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
''Vertr. Zollwertanmelder ''Vertr. Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False)) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG")) 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
''Rechnung ''Rechnung
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines)) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA")) 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
''Postfachadresse ''Postfachadresse
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines)) 'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP")) 'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
''-- ''--
'AUFSCHUB 'AUFSCHUB
If FCFCDC.DutyDefermentApproval IsNot Nothing AndAlso FCFCDC.DutyDefermentApproval.Count > 0 Then If FCFCDC.DutyDefermentApproval IsNot Nothing AndAlso FCFCDC.DutyDefermentApproval.Count > 0 Then
For Each TMP In FCFCDC.DutyDefermentApproval For Each TMP In FCFCDC.DutyDefermentApproval
Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then
@@ -6037,6 +6038,9 @@ Public Class frmDYNachrichtenVerarbeitung
Dim division = "" Dim division = ""
Dim TXT_DokBeschau = "" Dim TXT_DokBeschau = ""
Dim TXT_Rückweisung = ""
Dim TXT_Mitteilung = ""
Dim TXT_Mitteilung_Zollbeamter = ""
'Dim annahmeKz As Object = Nothing 'Dim annahmeKz As Object = Nothing
'Dim ueberlassungKz As Object = Nothing 'Dim ueberlassungKz As Object = Nothing
'Dim RueckgabeKz As Object = Nothing 'Dim RueckgabeKz As Object = Nothing
@@ -6085,9 +6089,27 @@ Public Class frmDYNachrichtenVerarbeitung
'MitteilungTeilnehmerBeschau 'MitteilungTeilnehmerBeschau
End Select End Select
End If 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 Next
End If 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
End If End If
@@ -6108,7 +6130,7 @@ Public Class frmDYNachrichtenVerarbeitung
STATUS.dySt_ergDetails = details STATUS.dySt_ergDetails = details
'EINTRAG IN tblDakosy_Zollanmeldungen '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 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! 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" Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung... '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") sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "B" art = "B"
End If End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW .. '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") sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO")
art = "B" art = "B"
End If End If
'Wenn Benutzer des LKWs nicht online, Team... '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") sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "T" art = "T"
End If End If
'Wenn TEAM nicht gefunden, Firma... 'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" 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)) Then If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = EZA_TMP.eza_firma sendToID = EZA_TMP.eza_firma
art = "F" art = "F"
End If End If
@@ -6179,14 +6201,139 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht 'Nicht
Case Else Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau 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 Select
End If End If
Catch ex As Exception 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 Try
End If 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 End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)

74
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3,6 +3,8 @@ Imports System.IO
Imports System.Net Imports System.Net
Imports System.Text Imports System.Text
Imports System.Xml Imports System.Xml
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports DocumentFormat.OpenXml.Wordprocessing
Imports Renci.SshNet Imports Renci.SshNet
Public Class frmStartOptions Public Class frmStartOptions
@@ -453,8 +455,8 @@ Public Class frmStartOptions
Try Try
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL 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 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') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 200) 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 If dt IsNot Nothing Then
For Each row In dt.Rows For Each row In dt.Rows
Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp")) Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"))
@@ -471,13 +473,23 @@ Public Class frmStartOptions
cDHF_Anhaenge.LRN = If(row("LRN") IsNot DBNull.Value, row("LRN"), "") cDHF_Anhaenge.LRN = If(row("LRN") IsNot DBNull.Value, row("LRN"), "")
cDHF_Anhaenge.CRN = If(row("CRN") IsNot DBNull.Value, row("CRN"), "") 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 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 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) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", Bezeichnung, cDHF_Anhaenge.AnmID, "", "", "DHF_" & cDHF_Anhaenge.LRN.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
@@ -486,7 +498,7 @@ Public Class frmStartOptions
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" 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) 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) copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull)
If destFull <> "" Then If destFull <> "" Then
@@ -500,19 +512,43 @@ Public Class frmStartOptions
End Try End Try
cDHF_Anhaenge.SAVE() cDHF_Anhaenge.SAVE()
Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Select Case row("MsgTyp") Select Case row("MsgTyp")
Case "EZ922" 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") sql.doSQL("Update Speditionsbuch SET [DokumentId_Steuerbeleg]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_Steuerbeleg] is null", "FMZOLL")
Case "TR109" 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") 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 ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID) 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 Case "EZ923" ' STB/ABD
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL") 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 End Select
@@ -546,6 +582,9 @@ Public Class frmStartOptions
End Try End Try
End Sub End Sub
Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr) Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr)
Try Try
@@ -803,6 +842,7 @@ Public Class frmStartOptions
End If End If
End If End If
End Select End Select
End Select
End If End If
End If End If
@@ -2839,9 +2879,9 @@ Public Class frmStartOptions
End Select End Select
End If End If
If okDGV Then If okDGV Then
r.DefaultCellStyle.BackColor = Color.LightGreen r.DefaultCellStyle.BackColor = System.Drawing.Color.LightGreen
Else Else
r.DefaultCellStyle.BackColor = Color.IndianRed r.DefaultCellStyle.BackColor = System.Drawing.Color.IndianRed
End If End If
End If End If
Me.Refresh() Me.Refresh()

332
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -3,6 +3,7 @@ Imports System.Globalization
Imports System.Xml Imports System.Xml
Imports Renci.SshNet Imports Renci.SshNet
Imports System.Net.Mail Imports System.Net.Mail
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Public Class frmTCNachrichtenVerarbeitung Public Class frmTCNachrichtenVerarbeitung
Dim cntDatenEingelesen As Integer = 0 Dim cntDatenEingelesen As Integer = 0
@@ -103,14 +104,14 @@ Public Class frmTCNachrichtenVerarbeitung
Dim FI As New FileInfo(f) Dim FI As New FileInfo(f)
If Not FI.Name.StartsWith(".") Then If Not FI.Name.StartsWith(".") Then
'Temp. DownloadPfad '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 'Datei herunterladen
IO.File.Copy(f, destFilenameTMP) IO.File.Copy(f, destFilenameTMP)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename '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 IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
Dim fi_dest As FileInfo = New FileInfo(destFilename) Dim fi_dest As FileInfo = New FileInfo(destFilename)
@@ -253,156 +254,223 @@ Public Class frmTCNachrichtenVerarbeitung
Label6.Visible = True Label6.Visible = True
Exit Sub Exit Sub
End If 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 Try
Dateiname = d Dateiname = d
cWorker_NCTS.Dateiname = d cWorker_NCTS.Dateiname = d
If IO.File.Exists(d) Then 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 = ""
'------------------------------------------------------------------------------------------------------------------------------
' 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 ------------------ ' eZOLL
'------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------
'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
ElseIf fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then '------------------------------------------
Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_") '------------------ Anmeldung ------------------
Dim CRN = "" '------------------------------------------
Dim tc_id = "" 'TC: Versandbestätigung
Dim Anm_id = "" If Not found And cGetMsgType.isTC_Anmeldung(doc) Then
Dim typeMsg = "" If readTC_Anmeldung(doc, d) <> "" Then found = True
Dim BezugsNr = "" ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
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
End If End If
found = True End If
addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr) 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) Select Case dec_ProzessArt
DS.da_vorlage = False 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\" 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\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" 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) If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = "" Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 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 [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_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! 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!
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", tc_id)
End If 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 End If
found = True End If
addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr) Case 3 'NOT FOUND
Case "TR109" 'VBD 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..
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) frmStartOptions.moveFile(d, ERROR_PFAD)
DS.da_vorlage = False dsNichtErkannt += 1
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
End If End If
found = True Else
addDGVEinarbeitung("PDF: VBD ", BezugsNr) 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 True Then
If Not alreadyMoved Then If Not alreadyMoved Then
If found 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") & "\") 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") & "\") frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
Else cntDatenEingelesen += 1
frmStartOptions.moveFile(d, ERROR_PFAD) Me.Refresh()
Else
'--wir oben im SELECT CASE GEREGELT -- > zusätzlicher Durchgang
End If
End If End If
End If End If
End If
Me.Refresh() End If
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1 End If
End If Catch ex As Exception
End If VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Catch ex As Exception End Try
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) Next
End Try
Next Next
End Sub End Sub
@@ -668,7 +736,11 @@ Public Class frmTCNachrichtenVerarbeitung
TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60 TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
TC.telanm_Status_KEWILL_Equivalent = 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 = TELOTEC_Worker.cTC_Statusliste.S_60
TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60 TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
Case Else Case Else
@@ -901,7 +973,7 @@ Public Class frmTCNachrichtenVerarbeitung
POS.ABGABEN.Add(ABG) POS.ABGABEN.Add(ABG)
Next Next
End If End If
TC.POSITIONSDATEN.Add(POS) TC.POSITIONSDATEN.Add(POS)
Next Next
End If End If