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

czollsys

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-16 11:52:13 +02:00
parent 49197e5804
commit 14eb7b5e69
1 changed files with 85 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

170
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -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 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_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") 'If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2")
Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") 'Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
ATCMRN = If(EZA.eza_ANR, "") 'ATCMRN = If(EZA.eza_ANR, "")
' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "") '' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
'Property Absender As String ''Property Absender As String
'Property Empfaenger As String ''Property Empfaenger As String
'Property Anmelder As String ''Property Anmelder As String
Dim RG_List As New List(Of String) 'Dim RG_List As New List(Of String)
Dim ATR_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 PAR_List As New List(Of String) ' präfAufRg
Dim Colli As Integer = 0 'Dim Colli As Integer = 0
Dim cnt As Integer = 0 'Dim cnt As Integer = 0
If EZA.eza_WARENPOS.Count > 0 Then 'If EZA.eza_WARENPOS.Count > 0 Then
Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: " ' Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: "
Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *") ' 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 POS In EZA.eza_WARENPOS
For Each UL In POS.ezaWP_UNTERLAGEN ' For Each UL In POS.ezaWP_UNTERLAGEN
If UL.ezaWpUl_Art IsNot Nothing Then ' If UL.ezaWpUl_Art IsNot Nothing Then
Select Case UL.ezaWpUl_Art ' Select Case UL.ezaWpUl_Art
Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim) ' 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 "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 "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) ' Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
End Select ' End Select
End If ' End If
Next ' Next
If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl ' If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl
cnt += 1 ' cnt += 1
Next ' Next
End If 'End If
ANZ_POS = EZA.eza_WARENPOS.Count 'ANZ_POS = EZA.eza_WARENPOS.Count
For Each A In EZA.eza_AUFSCHUB 'For Each A In EZA.eza_AUFSCHUB
If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then ' If If(A.ezaAfb_AbgabeArt, "") = "B0000" Then
ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag) ' ABGABEN_EUST += CDbl(A.ezaAfb_Abgabenbetrag)
Else ' Else
ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag) ' ABGABEN_ZOLL += CDbl(A.ezaAfb_Abgabenbetrag)
End If ' End If
Next 'Next
num_Colli = Colli 'num_Colli = Colli
Me.Colli = Colli & " Pk." 'Me.Colli = Colli & " Pk."
For Each AD In EZA.eza_ADRESSEN 'For Each AD In EZA.eza_ADRESSEN
If AD.ezaAd_AdressTyp IsNot Nothing Then ' If AD.ezaAd_AdressTyp IsNot Nothing Then
Dim Anschrift = "" ' Dim Anschrift = ""
If If(AD.ezaAd_TeilnehmerEORI, "") <> "" Then ' 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 ' 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 ' If Anschrift = "" Then Anschrift = AD.ezaAd_TeilnehmerEORI
Else ' Else
Anschrift = If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "").ToString.Trim ' Anschrift = If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "").ToString.Trim
End If ' End If
Select Case AD.ezaAd_AdressTyp ' Select Case AD.ezaAd_AdressTyp
Case "CZ" : Absender = ""'Anschrift --> nicht benötigt ' Case "CZ" : Absender = ""'Anschrift --> nicht benötigt
Case "CN" : Empfaenger = Anschrift ' Case "CN" : Empfaenger = Anschrift
Case "DT" : Anmelder = Anschrift ' Case "DT" : Anmelder = Anschrift
Case "CB" : Vertreter = "" ' Anschrift - -> nicht benötigt ' Case "CB" : Vertreter = "" ' Anschrift - -> nicht benötigt
End Select ' End Select
End If ' End If
Next 'Next
Sachbearbeiter = If(EZA.eza_Bearbeiter, "") 'Sachbearbeiter = If(EZA.eza_Bearbeiter, "")
VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "") 'VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "")
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "") 'If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
If If(EZA.eza_Bestimmungsland, "") = "DE" Then 'If If(EZA.eza_Bestimmungsland, "") = "DE" Then
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle ' If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle
Else 'Else
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle ' If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle
End If 'End If
Handelsrechnung = listToString(RG_List) 'Handelsrechnung = listToString(RG_List)
Praeferenznachweis = listToString(ATR_List) 'Praeferenznachweis = listToString(ATR_List)
PräferenzAufRechnung = listToString(PAR_List) 'PräferenzAufRechnung = listToString(PAR_List)
Dim AUFSCHUB_List As New List(Of String) 'Dim AUFSCHUB_List As New List(Of String)
For Each AB In EZA.eza_AUFSCHUB 'For Each AB In EZA.eza_AUFSCHUB
Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim ' Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim
addIfNotExists(AUFSCHUB_List, kto & " " & load_KdFromAKto(kto)) ' addIfNotExists(AUFSCHUB_List, kto & " " & load_KdFromAKto(kto))
Next 'Next
If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then 'If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then
Vorpapier = EZA.eza_VorpapierArtCode ' Vorpapier = EZA.eza_VorpapierArtCode
If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr ' If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr
End If 'End If
AbgabenKonto = listToString(AUFSCHUB_List) 'AbgabenKonto = listToString(AUFSCHUB_List)
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing Return False
End Try End Try
Exit Sub Return True
'------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------
@@ -551,12 +551,12 @@ Public Class cZollsysteme_Aktenbeschriftung
Next Next
End If End If
UniqueId = AnmID ' UniqueId = AnmID
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing Return Nothing
End Try End Try
Return VERAG_NCTS Return True
End Function End Function