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
@@ -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