diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb
index 84158e3a..c447f39e 100644
--- a/SDL/kunden/usrCntlOfferte.vb
+++ b/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
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
index c2ad95ac..21772576 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
@@ -401,6 +401,7 @@ Public Class cOfferteArchiv
     Property Gesperrt_Datum As Object = Nothing
     Property Gesperrt_Grund As Object = Nothing
     Property SSMA_TimeStamp As Object = Nothing
+    Property Art As Object = Nothing
     Property POSITIONEN As New List(Of cOffertPosition) '= Nothing
 
     Dim SQL As New SQL
@@ -429,6 +430,7 @@ Public Class cOfferteArchiv
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Datum", Gesperrt_Datum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Grund", Gesperrt_Grund))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Art", Art))
 
         Return list
     End Function