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

BH, nacherfassung leihgeld, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-04 15:26:49 +01:00
parent 18b089d9ab
commit 05edf96d95
12 changed files with 3380 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/cProgramFunctions.vb
View File

@@ -1508,7 +1508,12 @@ Public Class cProgramFunctions
's... SubContainer
'c... Control
Dim MEname = reportName 'rpt.Name (geht ned) '"rptRechnungDruck"
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan)
'Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = MEname And x.trs_sprache = lan)
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list _
.Where(Function(x) x.trs_object = MEname AndAlso x.trs_sprache = lan) _
.OrderBy(Function(x) If(IsDBNull(x.trs_Option) OrElse x.trs_Option Is Nothing, IIf(_option <> "", 0, 1), IIf(_option <> "", 1, 0))) _
.ThenBy(Function(x) x.trs_Option) _
.ToList()
If TextTmp IsNot Nothing Then
For Each TXT As VERAG_PROG_ALLGEMEIN.cTranslate In TextTmp
@@ -1518,11 +1523,13 @@ Public Class cProgramFunctions
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
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
found = search
GoTo gefunden
Else
If _option = TXT.trs_Option Then
found = search
GoTo gefunden
End If
End If
@@ -1533,9 +1540,11 @@ Public Class cProgramFunctions
If IsDBNull(TXT.trs_Option) OrElse TXT.trs_Option = "" Then
found = search
GoTo gefunden
Else
If _option = TXT.trs_Option Then
found = search
GoTo gefunden
End If
End If
@@ -1548,22 +1557,23 @@ Public Class cProgramFunctions
Next
' MsgBox(TXT.trs_control)
gefunden:
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
'If DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs 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
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
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