From 14eb7b5e69131d8e3d9b6b809d0a57253625d54f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 16 Jun 2025 11:52:13 +0200 Subject: [PATCH] czollsys --- .../cZollsysteme_Aktenbeschriftung.vb | 170 +++++++++--------- 1 file changed, 85 insertions(+), 85 deletions(-) diff --git a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb index 8503a9b..ea76271 100644 --- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb +++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb @@ -179,7 +179,7 @@ Public Class cZollsysteme_Aktenbeschriftung - Function load_EZA_FromEZOLL(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts + Function load_EZA_FromEZOLL(AnmID As String, Optional checkValidStatus As Boolean = False) As Boolean Try @@ -253,109 +253,109 @@ Public Class cZollsysteme_Aktenbeschriftung - If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") - If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2") - Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") - ATCMRN = If(EZA.eza_ANR, "") + ' If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") + 'If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2") + 'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") + 'ATCMRN = If(EZA.eza_ANR, "") - ' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") - 'Property Absender As String - 'Property Empfaenger As String - 'Property Anmelder As String + '' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") + ''Property Absender As String + ''Property Empfaenger As String + ''Property Anmelder As String - Dim RG_List As New List(Of String) - Dim ATR_List As New List(Of String) - Dim PAR_List As New List(Of String) ' präfAufRg - Dim Colli As Integer = 0 - Dim cnt As Integer = 0 - If EZA.eza_WARENPOS.Count > 0 Then - Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: " - Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *") - For Each POS In EZA.eza_WARENPOS - For Each UL In POS.ezaWP_UNTERLAGEN - If UL.ezaWpUl_Art IsNot Nothing Then - Select Case UL.ezaWpUl_Art - Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) - 'case "4EEQ" : addIfNotExists(ATR_List, "4EEQ: " & (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) - Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) - Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) - End Select - End If - Next - If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl - cnt += 1 - Next - End If - ANZ_POS = EZA.eza_WARENPOS.Count - For Each A In EZA.eza_AUFSCHUB - If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then - ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag) - Else - ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag) - End If - Next + 'Dim RG_List As New List(Of String) + 'Dim ATR_List As New List(Of String) + 'Dim PAR_List As New List(Of String) ' präfAufRg + 'Dim Colli As Integer = 0 + 'Dim cnt As Integer = 0 + 'If EZA.eza_WARENPOS.Count > 0 Then + ' Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: " + ' Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *") + ' For Each POS In EZA.eza_WARENPOS + ' For Each UL In POS.ezaWP_UNTERLAGEN + ' If UL.ezaWpUl_Art IsNot Nothing Then + ' Select Case UL.ezaWpUl_Art + ' Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) + ' 'case "4EEQ" : addIfNotExists(ATR_List, "4EEQ: " & (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) + ' Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) + ' Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) + ' End Select + ' End If + ' Next + ' If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl + ' cnt += 1 + ' Next + 'End If + 'ANZ_POS = EZA.eza_WARENPOS.Count + 'For Each A In EZA.eza_AUFSCHUB + ' If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then + ' ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag) + ' Else + ' ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag) + ' End If + 'Next - num_Colli = Colli - Me.Colli = Colli & " Pk." + 'num_Colli = Colli + 'Me.Colli = Colli & " Pk." - For Each AD In EZA.eza_ADRESSEN - If AD.ezaAd_AdressTyp IsNot Nothing Then - Dim Anschrift = "" - If If(AD.ezaAd_TeilnehmerEORI, "") <> "" Then - Anschrift = (SQL.getValueTxtBySql("SELECT Ordnungsbegriff FROM [Adressen] inner join Kunden on AdressenNr=KundenNr where EORITIN='" & AD.ezaAd_TeilnehmerEORI & "'", "FMZOLL")).Trim - If Anschrift = "" Then Anschrift = AD.ezaAd_TeilnehmerEORI - Else - Anschrift = If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "").ToString.Trim - End If + 'For Each AD In EZA.eza_ADRESSEN + ' If AD.ezaAd_AdressTyp IsNot Nothing Then + ' Dim Anschrift = "" + ' If If(AD.ezaAd_TeilnehmerEORI, "") <> "" Then + ' Anschrift = (SQL.getValueTxtBySql("SELECT Ordnungsbegriff FROM [Adressen] inner join Kunden on AdressenNr=KundenNr where EORITIN='" & AD.ezaAd_TeilnehmerEORI & "'", "FMZOLL")).Trim + ' If Anschrift = "" Then Anschrift = AD.ezaAd_TeilnehmerEORI + ' Else + ' Anschrift = If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "").ToString.Trim + ' End If - Select Case AD.ezaAd_AdressTyp - Case "CZ" : Absender = ""'Anschrift --> nicht benötigt - Case "CN" : Empfaenger = Anschrift - Case "DT" : Anmelder = Anschrift - Case "CB" : Vertreter = "" ' Anschrift - -> nicht benötigt - End Select - End If - Next - Sachbearbeiter = If(EZA.eza_Bearbeiter, "") + ' Select Case AD.ezaAd_AdressTyp + ' Case "CZ" : Absender = ""'Anschrift --> nicht benötigt + ' Case "CN" : Empfaenger = Anschrift + ' Case "DT" : Anmelder = Anschrift + ' Case "CB" : Vertreter = "" ' Anschrift - -> nicht benötigt + ' End Select + ' End If + 'Next + 'Sachbearbeiter = If(EZA.eza_Bearbeiter, "") - VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "") - If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "") - If If(EZA.eza_Bestimmungsland, "") = "DE" Then - If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle - Else - If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle - End If + 'VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "") + 'If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "") + 'If If(EZA.eza_Bestimmungsland, "") = "DE" Then + ' If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle + 'Else + ' If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle + 'End If - Handelsrechnung = listToString(RG_List) - Praeferenznachweis = listToString(ATR_List) - PräferenzAufRechnung = listToString(PAR_List) + 'Handelsrechnung = listToString(RG_List) + 'Praeferenznachweis = listToString(ATR_List) + 'PräferenzAufRechnung = listToString(PAR_List) - Dim AUFSCHUB_List As New List(Of String) - For Each AB In EZA.eza_AUFSCHUB - Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim - addIfNotExists(AUFSCHUB_List, kto & " " & load_KdFromAKto(kto)) - Next + 'Dim AUFSCHUB_List As New List(Of String) + 'For Each AB In EZA.eza_AUFSCHUB + ' Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim + ' addIfNotExists(AUFSCHUB_List, kto & " " & load_KdFromAKto(kto)) + 'Next - If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then - Vorpapier = EZA.eza_VorpapierArtCode - If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr - End If + 'If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then + ' Vorpapier = EZA.eza_VorpapierArtCode + ' If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr + 'End If - AbgabenKonto = listToString(AUFSCHUB_List) + 'AbgabenKonto = listToString(AUFSCHUB_List) Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Return Nothing + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False End Try - Exit Sub + Return True '------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------ @@ -551,12 +551,12 @@ Public Class cZollsysteme_Aktenbeschriftung Next End If - UniqueId = AnmID + ' UniqueId = AnmID Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return Nothing End Try - Return VERAG_NCTS + Return True End Function