Mahnlauf, Verkn. in Wiki für Statusmeldungen

SDL/kunden/frmKundenblatt.vb

@@ -2,6 +2,7 @@
 Imports System.ComponentModel
 Imports System.Reflection
 Imports javax.xml.bind.annotation
+Imports VERAG_PROG_ALLGEMEIN
 
 
 Public Class frmKundenblatt
@@ -291,6 +292,20 @@ Public Class frmKundenblatt
                 Case "tbOfferte" : UsrCntlOfferte1.init(kdNr, isVerag360)
 
             End Select
+
+
+            If tbcntrMDM.SelectedTab.Name = "tbDokumente" Then
+                Dim ADR As New cAdressen(kdNr)
+                Dim isEU As Boolean = True
+                If Not IsDBNull(ADR.LandKz) Then
+                    isEU = SQL.getValueTxtBySql("select MitgliedslandEU as bit from Währungstabelle where LandKz ='" & ADR.LandKz & "'", "FMZOLL")
+                End If
+                If Not isEU Then
+                    scanEULizenz._TEXT_PDF = "Transportlizenz"
+                    scanEULizenz.Name = scanEULizenz._TEXT_PDF
+                End If
+            End If
+
         End If
         'tbcntrMDM.ResumeLayout()
     End Sub
@@ -2080,8 +2095,5 @@ Public Class frmKundenblatt
 
     End Sub
 
-    Private Sub scanEULizenz_Load(sender As Object, e As EventArgs) Handles scanEULizenz.Load
-
-    End Sub
 End Class