From f7c39391b858898bbeed8ec4ce38b1a77cf8ced8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 26 Feb 2026 10:35:57 +0100 Subject: [PATCH] CBAM Sprachen, etc. --- SDL/Formulare/KDFormulare/frmFormulare.vb | 12 +++++++----- SDL/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index ba3343f9..40b254b5 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -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 diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index fc94fe5e..a04d87d3 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +