From 341c8a9667b043939d496e3448f22117a1085446 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 7 Feb 2024 10:32:33 +0100 Subject: [PATCH] =?UTF-8?q?Sicherheitspr=C3=BCfung=20bei=20Offerten?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/kunden/usrCntlOfferte.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index a07ddae6..3a2b7600 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -415,9 +415,12 @@ Public Class usrCntlOfferte Private Sub btnStandardLaden_Click(sender As Object, e As EventArgs) Handles btnStandardLaden.Click + + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) + If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub edit = True handleEditMode(edit) @@ -431,7 +434,6 @@ Public Class usrCntlOfferte currentOffert.LOAD_POSITIONEN() If currentOffert.POSITIONEN.Count = 0 Then ' currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP) - End If dgvOfferteNew.GetOrder()