Offerten

SDL/kunden/frmOffertenBearbeiten.vb

@@ -54,12 +54,14 @@
                 ' MsgBox(c._value)
                 If c.enabled And c.checked Then
                     Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(kdnr, c._value, False)
+                    o.Art = "Neuanlage"
                     o.SAVE() 'speichern
                     o.LOAD_POSITIONEN() 'positionen Laden
                     If o.POSITIONEN.Count = 0 Then 'wenn keine POS --> neues Offert
                         o.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP) '--> Standartofferten laden
                     End If
 
+
                     'SQL.doSQL("INSERT INTO Offertenpositionen WHERE KundenNr=" & kdnr & " AND  [OffertenNr]=" & kdnr & "")
 
                 Else