Verbesserungen für Mestan

UID/frmMain/usrcntlFirmen.vb

@@ -24,8 +24,22 @@ Public Class usrcntlFirmen
         cboRolle.Items.Add(New MyListItem("Entladestelle", "3"))
         cboRolle.Items.Add(New MyListItem("Frachtführer", "4"))
         cboRolle.Items.Add(New MyListItem("Transportunternehmen", "5"))
-
+        FillcboLandWithLaender()
         showDGVKunden()
+
+    End Sub
+
+    Private Sub FillcboLandWithLaender()
+        cboLand.Items.Clear()
+        Dim Kundenlaender As New List(Of Object)
+        Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
+        Kundenlaender = vpasql.loadCboBySql("SELECT DISTINCT kd_land FROM [tblKunden]", "DISPO")
+
+        For Each Land As String In Kundenlaender
+            If Land.Length > 0 Then cboLand.Items.Add(Land)
+        Next
+        cboLand.Items.Add("-")
+
     End Sub
 
     Private Sub initDGVKunden(bindingString As String)