Feature: Offerten

SDL/kunden/usrCntlOfferte.vb

@@ -325,7 +325,7 @@ Public Class usrCntlOfferte
         edit = False
         handleEditMode(edit)
         checkPerimissionsDGVDetails()
-        If isStandard = False Then OfferteArchivieren()
+        If isStandard = False Then OfferteArchivieren("Geändert")
         OFFERTEBind.updateBinding()
         RaiseEvent OfferteChanged()
     End Sub
@@ -339,7 +339,7 @@ Public Class usrCntlOfferte
 
     End Sub
 
-    Private Sub OfferteArchivieren()
+    Private Sub OfferteArchivieren(Optional Art As String = "")
         If DGVHasChaged = False Then Exit Sub
 
         currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
@@ -355,6 +355,7 @@ Public Class usrCntlOfferte
         currentOffertArchiv.Gesperrt = currentOffert.Gesperrt
         currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum
         currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund
+        currentOffertArchiv.Art = Art
         Dim ofID As Integer = currentOffertArchiv.SAVERETURNID()
 
         If ofID > 0 Then
@@ -386,16 +387,21 @@ Public Class usrCntlOfferte
     End Sub
 
     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)
+
+
         edit = True
         handleEditMode(edit)
         saveCurrentOffert()
-        OfferteArchivieren()
+        OfferteArchivieren("Neuer Standard")
         If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
 
             currentOffert.SAVE()
             currentOffert.LOAD_POSITIONEN()
             If currentOffert.POSITIONEN.Count = 0 Then '
-                currentOffert.RESET_STANDARTOFFERTEN(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+                currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
 
             End If
             isStandard = True
@@ -434,7 +440,7 @@ Public Class usrCntlOfferte
             cbxArchivierteOfferten.SelectedIndex = -1
             cbxArchivierteOfferten.Items.Clear()
             cbxArchivierteOfferten.Visible = True
-            cbxArchivierteOfferten.fillWithSQL("SELECT OfID, Cast([Archiviert am] AS DATE) as Archivierungsdatum FROM [tblOffertenArchiv] WHERE KundenNr='" & kdNr & "' and OffertenNr='" & dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value & "'", True, "FMZOLL", True)
+            cbxArchivierteOfferten.fillWithSQL("SELECT OfID, Concat(Cast([Archiviert am] AS DATE),' ' ,Art) as Archivierungsdatum, Art FROM [tblOffertenArchiv] WHERE KundenNr='" & kdNr & "' and OffertenNr='" & dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value & "'", False, "FMZOLL", True)
             fbtnBearbeiten.Visible = False
 
         Else