Sicherheitsprüfung bei Offerten

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()