From 5af6234a9b18f17cb258bef3d663f73dae2cf67d Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Thu, 3 Oct 2024 11:04:01 +0200 Subject: [PATCH] Forumlarmanager Vorauszahlung EUST default Wert leer Fehlermeldung wenn EUST ist Leer --- .../FormulareBaukasten/usrcntlVorauskasse.vb | 74 ++++++++++++------- SDL/Formulare/KDFormulare/frmFormulare.vb | 10 ++- 2 files changed, 53 insertions(+), 31 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index 1b6d9d96..dd75f051 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -210,22 +210,24 @@ Public Class usrcntlVorauskasse If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then - txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0")) + txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "0,0")) + txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0,0")) 'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05")) 'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20")) - txtEustProzent.changeItem("0,19") + ' txtEustProzent.changeItem("0,19") ' txtEustProzent.changeItem("0,16") Else + txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "0,0")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10%", "0,10")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20")) - txtEustProzent.changeItem("0,19") + ' txtEustProzent.changeItem("0,19") End If cboFirma.Items.Clear() @@ -425,22 +427,23 @@ Public Class usrcntlVorauskasse 'Select Case FIRMA_TMP.Firma_LandKz lblWaehrung.Text = "EUR" Select Case cboFirma._value - Case "11", - txtEustProzent.changeItem("0,20") + Case "11" + 'txtEustProzent.changeItem("0,20") + txtEustProzent.changeItem("0,0") Case "26" - txtEustProzent.changeItem("0,20") + txtEustProzent.changeItem("0,0") lblWaehrung.Text = "GBP" Case "24" cboSprache.Visible = True Label17.Visible = True - txtEustProzent.changeItem("0,19") + txtEustProzent.changeItem("0,0") Case Else 'If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then ' txtEustProzent.changeItem("0,16") 'Else ' txtEustProzent.changeItem("0,19") 'End If - txtEustProzent.changeItem("0,19") + txtEustProzent.changeItem("0,0") End Select End If initBerechnung() @@ -451,27 +454,39 @@ Public Class usrcntlVorauskasse End Sub Private Sub btnSaveFD_Click(sender As Object, e As EventArgs) Handles btnSaveFD.Click - If txtVorlage.Text = "" Then MsgBox("Bitte ein Vorlagenbezeichnung eingeben!") : Exit Sub - Dim FV As cFormularVorlagen - If FV_ID > -1 Then - If MsgBox("Möchten Sie die Vorlage überschreiben?", vbYesNoCancel) <> MsgBoxResult.Yes Then Exit Sub - FV = New cFormularVorlagen(FV_ID) - Else - FV = New cFormularVorlagen - FV.tblform_art = Me.GetType.ToString - FV.tblform_begriff = txtVorlage.Text - End If - FV.tblform_KundenNr = If(KdNR > 0, KdNR, Nothing) - FV.tblform_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - FV.tblform_letzeAenderung = Now + If checkEustProzent() Then + If txtVorlage.Text = "" Then MsgBox("Bitte ein Vorlagenbezeichnung eingeben!") : Exit Sub + Dim FV As cFormularVorlagen + If FV_ID > -1 Then + If MsgBox("Möchten Sie die Vorlage überschreiben?", vbYesNoCancel) <> MsgBoxResult.Yes Then Exit Sub + FV = New cFormularVorlagen(FV_ID) + Else + FV = New cFormularVorlagen + FV.tblform_art = Me.GetType.ToString + FV.tblform_begriff = txtVorlage.Text + End If + FV.tblform_KundenNr = If(KdNR > 0, KdNR, Nothing) + FV.tblform_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + FV.tblform_letzeAenderung = Now - If FV.SAVE() Then - getValues(FV) - If FV.SAVE_VALUES() Then initControlsSave(FV) + If FV.SAVE() Then + getValues(FV) + If FV.SAVE_VALUES() Then initControlsSave(FV) + End If End If - End Sub + Public Function checkEustProzent() As Boolean + If txtEustProzent.Text = "" Then + txtEustProzent.Focus() + txtEustProzent.BackColor = Color.LightCoral + MsgBox("EUST-Wert erforderlich. Erstellen ist nicht möglich.", vbCritical, "Fehler") + Return False + Else + txtEustProzent.BackColor = SystemColors.Window + Return True + End If + End Function Sub getValues(ByVal FV As cFormularVorlagen) FV.VALUES.Clear() @@ -582,10 +597,13 @@ Public Class usrcntlVorauskasse End Sub Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click - If FormularManagerNEU.saveVorauskasse(Me) Then - lblCRsaved.Text = "(gespeichert)" - lblCRsaved.ForeColor = Color.Green + If checkEustProzent() Then + If FormularManagerNEU.saveVorauskasse(Me) Then + lblCRsaved.Text = "(gespeichert)" + lblCRsaved.ForeColor = Color.Green + End If End If + End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 807553ad..a6ee9b85 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -4331,17 +4331,21 @@ Public Class FormularManagerNEU + If usrCntl.checkEustProzent Then + saveVorauskasse(usrCntl) + Else + Exit Function + End If + If usrCntl.cbxLKWWartet.Checked Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , itextsharp.text.Element.ALIGN_LEFT)) End If If usrCntl.cbxBeimErstellenSpeichern.Checked Then ' If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then - saveVorauskasse(usrCntl) - 'End If End If - Dim destPath = "" + Dim destPath = "" If usrCntl.cboFirma._value = "26" Then 'VERAG-UNISPED LTD destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG-UNISPED", "", "Importaviso_VK", listTowrite) Else