neu

DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb

@@ -201,12 +201,20 @@
 
             For Each AD In EZA.eza_ADRESSEN
                 If AD.ezaAd_AdressTyp IsNot Nothing Then
-                    Dim Anschrift = (If(AD.ezaAd_TeilnehmerEORI, "") & " " & If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "")).ToString.Trim
+                    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
+                        Case "CZ" : Absender = ""'Anschrift --> nicht benötigt
                         Case "CN" : Empfaenger = Anschrift
                         Case "DT" : Anmelder = Anschrift
-                        Case "CB" : Vertreter = Anschrift
+                        Case "CB" : Vertreter = "" ' Anschrift - -> nicht benötigt
                     End Select
                 End If
             Next
@@ -228,7 +236,7 @@
             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))
+                addIfNotExists(AUFSCHUB_List, kto & "  " & load_KdFromAKto(kto))
             Next
 
             If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then