neu

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -24,7 +24,7 @@ Public Class cAllgemein
     Public Shared TESTSYSTEM As Boolean = True
 
     Public Shared PROGNAME = ""
-    Public Shared PROGID As Integer
+    Public Shared PROGID As Integer = 16
     Public Shared PROGVERSION As String = ""
 
     Public Shared USRNAME As String
@@ -42,6 +42,8 @@ Public Class cAllgemein
 
     Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing
     Public Shared PARAMS As cParameterList = Nothing
+    Public Shared TRANSLATE As cTranslate_LIST = Nothing
+    Public Shared _LAN As String = "" '"EN"
 
     Public Shared SESSION As New cSession
 
@@ -98,6 +100,7 @@ Public Class cAllgemein
             MITARBEITER = Nothing
         End If
         LOAD_PARAM()
+        LOAD_TRANSLATE()
     End Sub
 
     Public Shared Sub LOAD_BER()
@@ -109,6 +112,62 @@ Public Class cAllgemein
         PARAMS = New cParameterList(PROGID, FIRMA)
     End Sub
 
+    Public Shared Sub LOAD_TRANSLATE()
+        TRANSLATE = New cTranslate_LIST(PROGID)
+    End Sub
+
+    Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control)
+        _TRANSLATE(o, o, _LAN)
+    End Sub
+
+    Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, lan As String)
+        _TRANSLATE(o, o, lan)
+    End Sub
+    Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, s As System.Windows.Forms.Control, lan As String)
+        If lan = "" Then Exit Sub
+        If lan = "DE" Then Exit Sub
+        'o... Form
+        's... SubContainer
+        'c... Control
+
+        Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan)
+        If TextTmp IsNot Nothing Then
+            For Each TXT As cTranslate In TextTmp
+                Dim found = o.Controls.Find(TXT.trs_control, True)
+                If found IsNot Nothing AndAlso found.Count > 0 Then
+                    Dim obj As System.Windows.Forms.Control = found(0)
+                    If obj IsNot Nothing Then
+                        If (TypeOf obj Is System.Windows.Forms.Label) Then
+                            DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
+                        End If
+                    End If
+                End If
+            Next
+        End If
+
+
+
+        'Exit Sub
+        'If lan = "DE" Then Exit Sub
+        'For Each c As System.Windows.Forms.Control In s.Controls
+        '    If c.Controls.Count > 0 Then
+        '        _TRANSLATE(o, c, lan)
+        '    Else
+
+        '        'MsgBox(o.Name & " - " & c.Name & " - " & lan)
+        '        Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = o.Name And x.trs_control = c.Name And x.trs_sprache = lan)
+
+        '        If TextTmp IsNot Nothing Then
+        '            MsgBox(TextTmp.trs_text)
+        '            If (TypeOf c Is System.Windows.Forms.Label) Then
+
+        '                DirectCast(c, System.Windows.Forms.Label).Text = TextTmp.trs_text
+        '            End If
+        '        End If
+        '    End If
+        'Next
+    End Sub
+
 
     Public Shared Function getMaxPosNrIncrement(FilialeNr As Integer, year As Integer) As Integer
         Dim cnt = 0
@@ -196,6 +255,8 @@ Public Class cAllgemein
     End Class
 
 
+
+
     Public Shared Sub buildConnectionDATENARCHIV()
         Exit Sub