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

Compare commits

base: edv:735dc12e2af152f54f97ce10302a271380cdbfe4
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM
..
compare: edv:f7c39391b858898bbeed8ec4ce38b1a77cf8ced8
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM

2 Commits
735dc12e2a ... f7c39391b8

Author SHA1 Message Date
d.breimaier
f7c39391b8 CBAM Sprachen, etc. 2026-02-26 10:35:57 +01:00
d.breimaier
b92c370a3a CBAM-Sprache 2026-02-26 10:25:51 +01:00
2 changed files with 10 additions and 8 deletions
Expand all files Collapse all files

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

@@ -1857,16 +1857,18 @@ Public Class FormularManagerNEU
Dim Name As String = "CBAM_Checkliste" Dim Name As String = "CBAM_Checkliste"
If usrCntl.cbxNeukunde.Checked Then Name &= "_Neukunde" If usrCntl.cbxNeukunde.Checked Then Name &= "_Neukunde"
Dim Hinweismeldung As String = ""
If usrCntl.cbxNeukunde.Checked AndAlso usrCntl.cboSprache._value <> "DE" Then
Hinweismeldung = "CBAM Checklist für Neukunden nicht in " & usrCntl.cboSprache.SelectedItem.text & " verfügbar!"
End If
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" Case "EN", "TR"
If usrCntl.cbxNeukunde.Checked Then If Hinweismeldung <> "" Then MsgBox(Hinweismeldung)
MsgBox("Cbam Checklist für Neukunden nicht in ENGLSICH verfügbar!") Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name & "_" & usrCntl.cboSprache._value, listTowrite)
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 & "_EN", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
End Select End Select
Return "" Return ""

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.3.3")> <Assembly: AssemblyVersion("1.5.3.4")>
<Assembly: AssemblyFileVersion("1.5.3.3")> <Assembly: AssemblyFileVersion("1.5.3.4")>