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

CBAM Sprachen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-26 10:35:57 +01:00
parent b92c370a3a
commit f7c39391b8
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1857,14 +1857,16 @@ Public Class FormularManagerNEU
Dim Name As String = "CBAM_Checkliste"
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
Case "EN"
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 & usrCntl.cboSprache._value, listTowrite)
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)
End Select

4
SDL/My Project/AssemblyInfo.vb
View File

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