neu

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -1,4 +1,6 @@
-Imports System.Data.SqlClient
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports System.Data.SqlClient
 
 Public Class cAllgemein
     Public Shared FIRMA As String
@@ -191,27 +193,6 @@ Public Class cAllgemein
             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