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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-05 11:02:45 +01:00
parent cc92167508 5149713da7
commit e906e35876
9 changed files with 615 additions and 204 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1862,10 +1862,10 @@ Public Class FormularManagerNEU
Hinweismeldung = "CBAM Checklist für Neukunden nicht in " & usrCntl.cboSprache.SelectedItem.text & " verfügbar!"
End If
If Hinweismeldung <> "" Then MsgBox(Hinweismeldung)
Select Case usrCntl.cboSprache._value
Case "EN", "TR"
If Hinweismeldung <> "" Then MsgBox(Hinweismeldung)
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name & "_" & usrCntl.cboSprache._value, listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
@@ -1902,10 +1902,8 @@ Public Class FormularManagerNEU
' Dim firma=getUO2()
Select Case usrCntl.cboSprache._value
Case "TR"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_TR", listTowrite)
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_EN", listTowrite)
Case "TR", "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_" & usrCntl.cboSprache._value, listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt", listTowrite)
End Select