Testkonserve und Kundenblatt

SDL/kunden/frmKundenblatt.Designer.vb

@@ -2094,7 +2094,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '

SDL/kunden/frmKundenblatt.vb

@@ -262,6 +262,7 @@ Public Class frmKundenblatt
                         Case "tbUSTVDokumente"
                             scanUSTVFABest.INIT(kdNr, "KUNDENDATEN", "FA_Bestaetigungen")
                             scanUSTVVollmachten.INIT(kdNr, "KUNDENDATEN", "USTV_Vollmachten")
+                            scanUSTVsonstigeDokumente.INIT(kdNr, "KUNDENDATEN", "sonst_Dokumente")
 
 
                         Case "tbUSTVAntrage" : initTABUSTVAntraege()

VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb

@@ -5,6 +5,7 @@ Imports System.Reflection
 Public Class cTextkonserve_LIST
 
     Public LIST As New List(Of cTextkonserve)
+    Public SPRACHENLIST As New List(Of String)
     Dim SQL As New SQL
 
 
@@ -14,6 +15,12 @@ Public Class cTextkonserve_LIST
 
     End Sub
 
+    Sub New(txt_FIRMA As String)
+
+        LOAD_SPRACHENLIST(txt_FIRMA)
+
+    End Sub
+
 
     Public Sub LOAD_LIST(txt_kategorie As String, txt_sprache As String, txt_FIRMA As String)
         Try
@@ -33,8 +40,24 @@ Public Class cTextkonserve_LIST
     End Sub
 
 
+    Public Sub LOAD_SPRACHENLIST(txt_FIRMA As String)
+        Try
+
+            SPRACHENLIST.Clear()
+            For Each r In SQL.loadDgvBySql("Select distinct(txt_sprache) FROM [tblTextkonserve] WHERE txt_FIRMA = '" & txt_FIRMA & "' order by txt_sprache", "FMZOLL").Rows
+                SPRACHENLIST.Add(r("txt_sprache"))
+            Next
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
 
 End Class
+
+
 Public Class cTextkonserve
     Property txt_Id As Integer
     Property txt_kategorie As String