Testkonserve und Kundenblatt

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