Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb

@@ -15,6 +15,20 @@ Public Class cTextkonserve_LIST
 
     End Sub
 
+    Sub New(txt_Type As Integer, txt_sprache As String, txt_FIRMA As String)
+
+        LOAD_LIST_TYPE(txt_Type, txt_sprache, txt_FIRMA)
+
+    End Sub
+
+
+    Sub New(txt_Type As Integer, txt_sprache As String, FIRMAID As Integer)
+
+        Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(FIRMAID)
+        LOAD_LIST_TYPE(txt_Type, txt_sprache, FIRMA.Firmengruppe)
+
+    End Sub
+
     Sub New(txt_FIRMA As String)
 
         LOAD_SPRACHENLIST(txt_FIRMA)
@@ -39,6 +53,26 @@ Public Class cTextkonserve_LIST
         End Try
     End Sub
 
+    Public Sub LOAD_LIST_TYPE(txt_type As Integer, txt_sprache As String, txt_FIRMA As String)
+        Try
+
+            LIST.Clear()
+            Dim sqlSprache As String = ""
+            If txt_sprache <> "" Then sqlSprache = " And txt_sprache = '" & txt_sprache & "'"
+
+
+            For Each r In SQL.loadDgvBySql("Select txt_Id FROM [tblTextkonserve] WHERE txt_typ='" & txt_type & "' AND txt_FIRMA = '" & txt_FIRMA & "' and txt_dynMailvorlage = 1" & sqlSprache & " ORDER BY txt_kategorie asc", "FMZOLL").Rows
+                LIST.Add(New VERAG_PROG_ALLGEMEIN.cTextkonserve(r("txt_Id")))
+            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
+
+
+
+
 
     Public Sub LOAD_SPRACHENLIST(txt_FIRMA As String)
         Try
@@ -74,6 +108,7 @@ Public Class cTextkonserve
     Property txt_sendungsvermerkId As Integer
     Property txt_sendungsvermerkText As String
     Property txt_fixerEmpfaengerEmail As String
+    Property txt_typ As Object
 
 
 
@@ -119,6 +154,7 @@ Public Class cTextkonserve
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkId", txt_sendungsvermerkId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkText", txt_sendungsvermerkText))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_fixerEmpfaengerEmail", txt_fixerEmpfaengerEmail))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_typ", txt_typ))
 
         Return list
     End Function