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

Mahnlauf, Mahnungen, Kundenblatt, CMR, Datenverarbeitung

Browse Source
This commit is contained in:
d.breimaier
2024-08-27 17:24:39 +02:00
parent 8f2a8d15bf
commit 94fc588c11
18 changed files with 603 additions and 484 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
SDL/cProgramFunctions.vb
View File

@@ -1364,7 +1364,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)
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)
If lan = "" Then Exit Sub
If lan = "DE" Then Exit Sub
'o... Form
@@ -1378,8 +1378,37 @@ Public Class cProgramFunctions
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
If Not IsDBNull(TXT.trs_FirmaID) AndAlso TXT.trs_FirmaID > 0 Then
If TXT.trs_FirmaID = _firmenid Then
If IsDBNull(TXT.trs_Option) AndAlso TXT.trs_Option = "" Then
found = search
Else
If _option = TXT.trs_Option Then
found = search
End If
End If
End If
Else
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
found = search
Else
If _option = TXT.trs_Option Then
found = search
End If
End If
End If
End If
Next
' MsgBox(TXT.trs_control)