edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BU, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-05-14 16:11:05 +02:00
parent 81550cff7c
commit f6a7af91a3
3 changed files with 42 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/cProgramFunctions.vb
View File

@@ -1418,7 +1418,7 @@ Public Class cProgramFunctions
End Sub
Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String, reportName As String, Optional _option As String = "", Optional _firmenid As Integer = -1)
Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String, reportName As String, Optional _option As String = "", Optional _firmenid As Integer = -1, Optional dict As Dictionary(Of String, String) = Nothing)
If lan = "" Then Exit Sub
If lan = "DE" Then Exit Sub
'o... Form
@@ -1472,9 +1472,23 @@ Public Class cProgramFunctions
If obj IsNot Nothing Then
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.Label) Then
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs_text
If dict IsNot Nothing Then
For Each pair In dict
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
Next
End If
End If
If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = TXT.trs_text
If dict IsNot Nothing Then
For Each pair In dict
DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text.ToString.Replace("%" & pair.Key & "%", pair.Value)
Next
End If
End If
End If
End If