neu

SDL/cProgramFunctions.vb

@@ -1259,11 +1259,48 @@ Public Class cProgramFunctions
             Next
         End If
     End Sub
+
+
+    Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String)
+    If lan = "" Then Exit Sub
+    If lan = "DE" Then Exit Sub
+    'o... Form
+    's... SubContainer
+    'c... Control
+
+    Dim MEname = "rptRechnungDruck" 'rpt.Name
+    Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan)
+
+    If TextTmp IsNot Nothing Then
+        For Each TXT As VERAG_PROG_ALLGEMEIN.cTranslate In TextTmp
+            Dim found As GrapeCity.ActiveReports.SectionReportModel.ARControl = Nothing
+            For Each search As GrapeCity.ActiveReports.SectionReportModel.ARControl In o
+                If search.Name = TXT.trs_control Then
+                    found = search
+                End If
+            Next
+
+            '   MsgBox(TXT.trs_control)
+            If found IsNot Nothing Then
+                '   MsgBox("JA")
+                Dim obj As GrapeCity.ActiveReports.SectionReportModel.ARControl = found
+                If obj IsNot Nothing Then
+                    If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.Label) Then
+                        DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs_text
+                    End If
+                    If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then
+                        DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = TXT.trs_text
+                    End If
+                End If
+            End If
+        Next
+    End If
+
+End Sub
+
 End Class
 
 
-
-
 Public Class MyListItem_DELETE
     Private mText As String
     Private mValue As String