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

cbam check

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-25 11:10:18 +01:00
parent 7ae69d8aaa
commit bbdefcf0eb
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.vb
View File

@@ -75,7 +75,7 @@ Public Class usrcntlCBAM_Checkliste
initControlsHandler() initControlsHandler()
cboSprache.Items.Clear() cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cboFirma.Items.Clear() cboFirma.Items.Clear()

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

@@ -1860,9 +1860,12 @@ Public Class FormularManagerNEU
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite) If usrCntl.cbxNeukunde.Checked Then
MsgBox("Cbam Checklist für Neukunden nicht in ENGLSICH verfügbar!")
End If
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name & "_EN", listTowrite)
Case Else Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name & "_EN", listTowrite)
End Select End Select
Return "" Return ""