NCTS_TR CC015B, ATLAS Codelisten, BugFixes DY Nachrichtenverarbeitung, EZOLL: Zollbeleg versenden
This commit is contained in:
@@ -915,141 +915,149 @@ Public Class cDakosyNCTSOut
|
||||
|
||||
notFound = False
|
||||
|
||||
|
||||
'Ermittlung ob T1 oder T2
|
||||
If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then
|
||||
If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then
|
||||
SPEDITIONSBUCH.Abfertigungsart = 6
|
||||
For Each s In DY.ncts_SICHERHEITSANGABEN
|
||||
Select Case If(s.nctsSA_GRN, "")
|
||||
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34
|
||||
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
|
||||
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
|
||||
End Select
|
||||
Next
|
||||
ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then
|
||||
'For Each s In DY.ncts_SICHERHEITSANGABEN
|
||||
' If If(s.nctsSA_ArtCode, "") = "B" Then
|
||||
' SPEDITIONSBUCH.Abfertigungsart = 8
|
||||
' End If
|
||||
'Next
|
||||
If DY.ncts_BestimmungslandCode = "TR" Then
|
||||
SPEDITIONSBUCH.Abfertigungsart = 12
|
||||
Else
|
||||
SPEDITIONSBUCH.Abfertigungsart = 8
|
||||
End If
|
||||
|
||||
Else
|
||||
If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then
|
||||
SPEDITIONSBUCH.Abfertigungsart = 6
|
||||
For Each s In DY.ncts_SICHERHEITSANGABEN
|
||||
Select Case If(s.nctsSA_GRN, "")
|
||||
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34
|
||||
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
|
||||
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
|
||||
End Select
|
||||
Next
|
||||
ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then
|
||||
'For Each s In DY.ncts_SICHERHEITSANGABEN
|
||||
' If If(s.nctsSA_ArtCode, "") = "B" Then
|
||||
' SPEDITIONSBUCH.Abfertigungsart = 8
|
||||
' End If
|
||||
'Next
|
||||
If DY.ncts_BestimmungslandCode = "TR" Then
|
||||
SPEDITIONSBUCH.Abfertigungsart = 12
|
||||
Else
|
||||
SPEDITIONSBUCH.Abfertigungsart = 8
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
SPEDITIONSBUCH.Abfertigungsart = 5
|
||||
End If
|
||||
|
||||
SPEDITIONSBUCH.Abfertigungsart = 5
|
||||
End If
|
||||
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
||||
Try
|
||||
|
||||
Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID)
|
||||
SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId
|
||||
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("ERR: " & ex.Message & ex.StackTrace)
|
||||
MsgBox("ERR: " & ex.Message & ex.StackTrace)
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString
|
||||
|
||||
SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_BestimmungsstelleDienststellennummer
|
||||
SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode
|
||||
SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode
|
||||
SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode
|
||||
SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode
|
||||
|
||||
If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
||||
SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
|
||||
If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
||||
SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
|
||||
|
||||
Dim sumBrg As Double = 0
|
||||
For Each S In DY.ncts_SICHERHEITSANGABEN
|
||||
sumBrg += If(S.nctsSA_AbgabenBetrag, 0)
|
||||
Next
|
||||
If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg
|
||||
End If
|
||||
'SPEDITIONSBUCH.Abfertigungsdatum=
|
||||
Dim sumBrg As Double = 0
|
||||
For Each S In DY.ncts_SICHERHEITSANGABEN
|
||||
sumBrg += If(S.nctsSA_AbgabenBetrag, 0)
|
||||
Next
|
||||
If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg
|
||||
End If
|
||||
'SPEDITIONSBUCH.Abfertigungsdatum=
|
||||
|
||||
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
|
||||
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
|
||||
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
|
||||
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
|
||||
|
||||
Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL)
|
||||
If AD IsNot Nothing Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
|
||||
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then
|
||||
If If(DY.ncts_SumA_Versender_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Absender = If(DY.ncts_SumA_Versender_Name, "")
|
||||
SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "")
|
||||
Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, DY.ncts_SumA_Versender_NLNR, SQL)
|
||||
If AD IsNot Nothing Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
|
||||
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then
|
||||
If If(DY.ncts_SumA_Versender_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Absender = If(DY.ncts_SumA_Versender_Name, "")
|
||||
SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "")
|
||||
ElseIf DY.ncts_WARENPOS.Count > 0 Then
|
||||
Dim WP = DY.ncts_WARENPOS(0)
|
||||
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL)
|
||||
If AD_pos IsNot Nothing Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
|
||||
SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff
|
||||
Dim WP = DY.ncts_WARENPOS(0)
|
||||
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, WP.nctsWP_SumAVersender_NLNR, SQL)
|
||||
If AD_pos IsNot Nothing Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
|
||||
SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff
|
||||
End If
|
||||
If If(WP.nctsWP_SumAVersender_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Absender = If(WP.nctsWP_SumAVersender_Name, "")
|
||||
SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsWP_SumAVersender_Land, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_PLZ, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_Ort, "")
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsWP_SumAVersender_EORI, "")).ToString.Trim
|
||||
End If
|
||||
If If(WP.nctsWP_SumAVersender_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Absender = If(WP.nctsWP_SumAVersender_Name, "")
|
||||
SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsWP_SumAVersender_Land, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_PLZ, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_Ort, "")
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsWP_SumAVersender_EORI, "")).ToString.Trim
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_SumA_Versender_EORI, "")).ToString.Trim
|
||||
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_SumA_Versender_EORI, "")).ToString.Trim
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL)
|
||||
If AD2 IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Empfänger, "") = "" Then
|
||||
If If(DY.ncts_SumA_Empfaenger_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Empfänger = If(DY.ncts_SumA_Empfaenger_Name, "")
|
||||
SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_SumA_Empfaenger_Land, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_PLZ, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "")
|
||||
ElseIf DY.ncts_WARENPOS.Count > 0 Then
|
||||
Dim WP = DY.ncts_WARENPOS(0)
|
||||
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL)
|
||||
If AD_pos IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff
|
||||
End If
|
||||
|
||||
If AD2 IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
|
||||
End If
|
||||
|
||||
If If(WP.nctsWP_SumAEmpfaenger_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Empfänger = If(WP.nctsWP_SumAEmpfaenger_Name, "")
|
||||
SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsWP_SumAEmpfaenger_Land, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_PLZ, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_Ort, "")
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsWP_SumAEmpfaenger_EORI, "")).ToString.Trim
|
||||
Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, DY.ncts_SumA_Empfaenger_NLNR, SQL)
|
||||
If AD2 IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_SumA_Empfaenger_EORI, "")).ToString.Trim
|
||||
If If(SPEDITIONSBUCH.Empfänger, "") = "" Then
|
||||
If If(DY.ncts_SumA_Empfaenger_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Empfänger = If(DY.ncts_SumA_Empfaenger_Name, "")
|
||||
SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_SumA_Empfaenger_Land, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_PLZ, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "")
|
||||
ElseIf DY.ncts_WARENPOS.Count > 0 Then
|
||||
Dim WP = DY.ncts_WARENPOS(0)
|
||||
Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, WP.nctsWP_SumAEmpfaenger_NLNR, SQL)
|
||||
If AD_pos IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff
|
||||
End If
|
||||
|
||||
End If
|
||||
If AD2 IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
|
||||
End If
|
||||
|
||||
If If(WP.nctsWP_SumAEmpfaenger_Name, "").ToString.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Empfänger = If(WP.nctsWP_SumAEmpfaenger_Name, "")
|
||||
SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsWP_SumAEmpfaenger_Land, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_PLZ, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_Ort, "")
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsWP_SumAEmpfaenger_EORI, "")).ToString.Trim
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_SumA_Empfaenger_EORI, "")).ToString.Trim
|
||||
|
||||
End If
|
||||
|
||||
If If(SPEDITIONSBUCH.Empfänger, "").ToString.Length > 35 Then
|
||||
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 35)
|
||||
End If
|
||||
|
||||
Dim packSt = ""
|
||||
|
||||
|
||||
If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. "
|
||||
|
||||
Dim packSt = ""
|
||||
If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. "
|
||||
|
||||
If DY.ncts_WARENPOS.Count > 0 Then
|
||||
If DY.ncts_WARENPOS.Count > 0 Then
|
||||
'SPEDITIONSBUCH.Währungsschlüssel = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "")
|
||||
SPEDITIONSBUCH.Währungsschlüssel = "900"
|
||||
If DY.ncts_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, "")
|
||||
@@ -1063,11 +1071,12 @@ Public Class cDakosyNCTSOut
|
||||
|
||||
If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GesamtRohmasse).ToString("N1") & " kg"
|
||||
|
||||
If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
|
||||
If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
|
||||
'Personal Abfertigung:
|
||||
Try
|
||||
If DY.ncts_Bearbeiter IsNot Nothing Then
|
||||
Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.ncts_Bearbeiter & "'", "ADMIN")
|
||||
|
||||
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user