Qualitaetskontrolle, Barbelege + Qualitätskontrolle, ProgrammID wird nun beim start korrekt geladen, etc.

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -127,7 +127,7 @@ Public Class cAllgemein
         End If
 
 
-
+        LOAD_PROGRAMM()
         LOAD_PARAM()
         LOAD_TRANSLATE()
         LOAD_TRANSLATE_AUTO()
@@ -154,6 +154,21 @@ Public Class cAllgemein
 
     End Sub
 
+    Public Shared Sub LOAD_PROGRAMM()
+        Dim prog_Name = My.Application.Info.ProductName
+
+
+        Select Case prog_Name.ToUpper
+            Case "AVISO"
+                PROGID = 16
+            Case "SDL"
+                PROGID = 7
+            Case Else
+                PROGID = SQL.getValueTxtBySql("SELECT isnull([prog_id],0)  FROM [tblProgramme] WHERe [prog_codename]='" & prog_Name & "'", "ADMIN")
+        End Select
+        PROGNAME = SQL.getValueTxtBySql("SELECT prog_name  FROM [tblProgramme] WHERe [prog_id]='" & PROGID & "'", "ADMIN")
+    End Sub
+
     Public Shared Sub LOAD_PARAM()
         PARAMS = New cParameterList(PROGID, FIRMA)
     End Sub