Feature: Offerten

SDL/kunden/usrCntlOfferte.Designer.vb

@@ -23,8 +23,8 @@ Partial Class usrCntlOfferte
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.lblBesonderheiten = New System.Windows.Forms.Label()
         Me.rtbBesonderheiten = New System.Windows.Forms.RichTextBox()
         Me.lblOffert = New System.Windows.Forms.TextBox()
@@ -35,29 +35,31 @@ Partial Class usrCntlOfferte
         Me.cbxSperreSetzen = New System.Windows.Forms.CheckBox()
         Me.Label36 = New System.Windows.Forms.Label()
         Me.Label67 = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnDeleteLeistung = New System.Windows.Forms.Button()
-        Me.btn = New System.Windows.Forms.Button()
+        Me.btnAddLeistung = New System.Windows.Forms.Button()
         Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnOfferteSpeichern = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnHinzufuegen = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.pnlSperre = New System.Windows.Forms.Panel()
         Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblLeistunAddErr = New System.Windows.Forms.Label()
-        Me.cboLeistungenAdd = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.sbLeistungAdd = New VERAG_PROG_ALLGEMEIN.MySearchBox()
-        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.lblLeistunAddErr2 = New System.Windows.Forms.Label()
         Me.pnlEdit = New System.Windows.Forms.Panel()
-        Me.Label3 = New System.Windows.Forms.Label()
-        'Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService()
-        Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cboLeistungenAdd = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.btnStandardLaden = New System.Windows.Forms.Button()
+        Me.btnDeleteOfferte = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.sbLeistungAdd = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.fbtnBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.btnCreateOffert = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.cbxArchivierteOfferten = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxArchivierteOffertenAnzeigen = New System.Windows.Forms.CheckBox()
         CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cntxtAddSdl.SuspendLayout()
@@ -114,8 +116,8 @@ Partial Class usrCntlOfferte
         Me.dgvOfferteDetails.AllowUserToDeleteRows = False
         Me.dgvOfferteDetails.AllowUserToOrderColumns = True
         Me.dgvOfferteDetails.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -135,8 +137,8 @@ Partial Class usrCntlOfferte
         Me.dgvOfferte.AllowUserToDeleteRows = False
         Me.dgvOfferte.AllowUserToOrderColumns = True
         Me.dgvOfferte.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvOfferte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
@@ -198,31 +200,31 @@ Partial Class usrCntlOfferte
         Me.Label67.TabIndex = 3
         Me.Label67.Text = "Datum:"
         '
-        'Button1
+        'btnDeleteLeistung
         '
-        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnDeleteLeistung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.btnDeleteLeistung.BackgroundImage = Global.SDL.My.Resources.Resources.del
-        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDeleteLeistung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDeleteLeistung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(348, 226)
+        Me.btnDeleteLeistung.Location = New System.Drawing.Point(348, 226)
-        Me.Button1.Name = "Button1"
+        Me.btnDeleteLeistung.Name = "btnDeleteLeistung"
-        Me.Button1.Size = New System.Drawing.Size(28, 23)
+        Me.btnDeleteLeistung.Size = New System.Drawing.Size(28, 23)
-        Me.Button1.TabIndex = 8
+        Me.btnDeleteLeistung.TabIndex = 8
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnDeleteLeistung.UseVisualStyleBackColor = True
-        Me.Button1.Visible = False
+        Me.btnDeleteLeistung.Visible = False
         '
-        'btn
+        'btnAddLeistung
         '
-        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnAddLeistung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.btnAddLeistung.BackgroundImage = Global.SDL.My.Resources.Resources.plus
-        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAddLeistung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAddLeistung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn.Location = New System.Drawing.Point(375, 226)
+        Me.btnAddLeistung.Location = New System.Drawing.Point(375, 226)
-        Me.btn.Name = "btn"
+        Me.btnAddLeistung.Name = "btnAddLeistung"
-        Me.btn.Size = New System.Drawing.Size(28, 23)
+        Me.btnAddLeistung.Size = New System.Drawing.Size(28, 23)
-        Me.btn.TabIndex = 9
+        Me.btnAddLeistung.TabIndex = 9
-        Me.btn.UseVisualStyleBackColor = True
+        Me.btnAddLeistung.UseVisualStyleBackColor = True
-        Me.btn.Visible = False
+        Me.btnAddLeistung.Visible = False
         '
         'cntxtAddSdl
         '
@@ -251,20 +253,20 @@ Partial Class usrCntlOfferte
         Me.btnOfferteSpeichern.Text = "Speichern"
         Me.btnOfferteSpeichern.UseVisualStyleBackColor = True
         '
-        'Button2
+        'btnHinzufuegen
         '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnHinzufuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.btnHinzufuegen.ForeColor = System.Drawing.Color.Black
-        Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
+        Me.btnHinzufuegen.Image = Global.SDL.My.Resources.Resources.plus
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopLeft
+        Me.btnHinzufuegen.ImageAlign = System.Drawing.ContentAlignment.TopLeft
-        Me.Button2.Location = New System.Drawing.Point(235, 1)
+        Me.btnHinzufuegen.Location = New System.Drawing.Point(235, 1)
-        Me.Button2.Name = "Button2"
+        Me.btnHinzufuegen.Name = "btnHinzufuegen"
-        Me.Button2.Size = New System.Drawing.Size(106, 36)
+        Me.btnHinzufuegen.Size = New System.Drawing.Size(106, 36)
-        Me.Button2.TabIndex = 14
+        Me.btnHinzufuegen.TabIndex = 14
-        Me.Button2.Tag = ""
+        Me.btnHinzufuegen.Tag = ""
-        Me.Button2.Text = "Hinzufügen"
+        Me.btnHinzufuegen.Text = "Hinzufügen"
-        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnHinzufuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.btnHinzufuegen.UseVisualStyleBackColor = True
         '
         'Label1
         '
@@ -295,10 +297,12 @@ Partial Class usrCntlOfferte
         Me.txtSperreDat._DateTimeOnly = False
         Me.txtSperreDat._numbersOnly = False
         Me.txtSperreDat._numbersOnlyKommastellen = ""
+        Me.txtSperreDat._numbersOnlyTrennzeichen = True
         Me.txtSperreDat._Prozent = False
         Me.txtSperreDat._ShortDateNew = False
         Me.txtSperreDat._ShortDateOnly = False
         Me.txtSperreDat._TimeOnly = False
+        Me.txtSperreDat._TimeOnly_Seconds = False
         Me.txtSperreDat._value = Nothing
         Me.txtSperreDat._Waehrung = False
         Me.txtSperreDat._WaehrungZeichen = True
@@ -319,10 +323,12 @@ Partial Class usrCntlOfferte
         Me.txtSperreGrund._DateTimeOnly = False
         Me.txtSperreGrund._numbersOnly = False
         Me.txtSperreGrund._numbersOnlyKommastellen = ""
+        Me.txtSperreGrund._numbersOnlyTrennzeichen = True
         Me.txtSperreGrund._Prozent = False
         Me.txtSperreGrund._ShortDateNew = False
         Me.txtSperreGrund._ShortDateOnly = False
         Me.txtSperreGrund._TimeOnly = False
+        Me.txtSperreGrund._TimeOnly_Seconds = False
         Me.txtSperreGrund._value = Nothing
         Me.txtSperreGrund._Waehrung = False
         Me.txtSperreGrund._WaehrungZeichen = True
@@ -348,95 +354,6 @@ Partial Class usrCntlOfferte
         Me.lblLeistunAddErr.Text = "Auswahl!"
         Me.lblLeistunAddErr.Visible = False
         '
-        'cboLeistungenAdd
-        '
-        Me.cboLeistungenAdd._allowedValuesFreiText = Nothing
-        Me.cboLeistungenAdd._allowFreiText = False
-        Me.cboLeistungenAdd._value = ""
-        Me.cboLeistungenAdd.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboLeistungenAdd.DropDownWidth = 350
-        Me.cboLeistungenAdd.FormattingEnabled = True
-        Me.cboLeistungenAdd.Location = New System.Drawing.Point(6, 16)
-        Me.cboLeistungenAdd.Name = "cboLeistungenAdd"
-        Me.cboLeistungenAdd.Size = New System.Drawing.Size(47, 21)
-        Me.cboLeistungenAdd.TabIndex = 12
-        '
-        'sbLeistungAdd
-        '
-        Me.sbLeistungAdd._allowFreitext = False
-        Me.sbLeistungAdd._AllowSetValue = False
-        Me.sbLeistungAdd._autoSizeGross = False
-        Me.sbLeistungAdd._hideIfListEmpty = True
-        Me.sbLeistungAdd._value = Nothing
-        Me.sbLeistungAdd.conn_art = "FMZOLL"
-        Me.sbLeistungAdd.dgvpos = "LEFT"
-        Me.sbLeistungAdd.DISPLAY_PARAM = Nothing
-        Me.sbLeistungAdd.INVISIBLE_COLUMNS = Nothing
-        Me.sbLeistungAdd.key_visible = False
-        Me.sbLeistungAdd.KEYPARAM = Nothing
-        Me.sbLeistungAdd.Location = New System.Drawing.Point(348, 255)
-        Me.sbLeistungAdd.Name = "sbLeistungAdd"
-        Me.sbLeistungAdd.searchActive = True
-        Me.sbLeistungAdd.Size = New System.Drawing.Size(223, 20)
-        Me.sbLeistungAdd.SQL_ORDER_BY = Nothing
-        Me.sbLeistungAdd.SQL_SELECT = Nothing
-        Me.sbLeistungAdd.SQL_WHERE = Nothing
-        Me.sbLeistungAdd.SQL_WhereParamList = Nothing
-        Me.sbLeistungAdd.TabIndex = 6
-        Me.sbLeistungAdd.usrcntl = Nothing
-        Me.sbLeistungAdd.Visible = False
-        '
-        'FlatButton2
-        '
-        Me.FlatButton2.allowBorder = False
-        Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.stift
-        Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.FlatButton2.FlatAppearance.BorderSize = 0
-        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton2.Location = New System.Drawing.Point(861, 10)
-        Me.FlatButton2.Name = "FlatButton2"
-        Me.FlatButton2.Size = New System.Drawing.Size(20, 20)
-        Me.FlatButton2.TabIndex = 3
-        Me.FlatButton2.UseVisualStyleBackColor = True
-        Me.FlatButton2.Visible = False
-        '
-        'FlatButton1
-        '
-        Me.FlatButton1.allowBorder = False
-        Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.Resources.stift
-        Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.FlatButton1.FlatAppearance.BorderSize = 0
-        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton1.Location = New System.Drawing.Point(208, 10)
-        Me.FlatButton1.Name = "FlatButton1"
-        Me.FlatButton1.Size = New System.Drawing.Size(20, 20)
-        Me.FlatButton1.TabIndex = 1
-        Me.FlatButton1.UseVisualStyleBackColor = True
-        '
-        'MyTextBox1
-        '
-        Me.MyTextBox1._DateTimeOnly = False
-        Me.MyTextBox1._numbersOnly = False
-        Me.MyTextBox1._numbersOnlyKommastellen = ""
-        Me.MyTextBox1._Prozent = False
-        Me.MyTextBox1._ShortDateNew = False
-        Me.MyTextBox1._ShortDateOnly = False
-        Me.MyTextBox1._TimeOnly = False
-        Me.MyTextBox1._value = Nothing
-        Me.MyTextBox1._Waehrung = False
-        Me.MyTextBox1._WaehrungZeichen = True
-        Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
-        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox1.Location = New System.Drawing.Point(52, 16)
-        Me.MyTextBox1.MaxLineLength = -1
-        Me.MyTextBox1.MaxLines_Warning = ""
-        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox1.Name = "MyTextBox1"
-        Me.MyTextBox1.Size = New System.Drawing.Size(177, 21)
-        Me.MyTextBox1.TabIndex = 13
-        '
         'Label2
         '
         Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -469,7 +386,7 @@ Partial Class usrCntlOfferte
         Me.pnlEdit.Controls.Add(Me.cbxAutoFakturierung)
         Me.pnlEdit.Controls.Add(Me.Label3)
         Me.pnlEdit.Controls.Add(Me.Label1)
-        Me.pnlEdit.Controls.Add(Me.Button2)
+        Me.pnlEdit.Controls.Add(Me.btnHinzufuegen)
         Me.pnlEdit.Controls.Add(Me.lblLeistunAddErr2)
         Me.pnlEdit.Controls.Add(Me.lblLeistunAddErr)
         Me.pnlEdit.Controls.Add(Me.btnOfferteSpeichern)
@@ -480,39 +397,6 @@ Partial Class usrCntlOfferte
         Me.pnlEdit.Size = New System.Drawing.Size(646, 60)
         Me.pnlEdit.TabIndex = 20
         '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.ForeColor = System.Drawing.Color.Red
-        Me.Label3.Location = New System.Drawing.Point(55, 40)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(110, 13)
-        Me.Label3.TabIndex = 17
-        Me.Label3.Text = "Zuerst Offert anlegen!"
-        Me.Label3.Visible = False
-        '
-        'CheckVatService1
-        '
-        'Me.CheckVatService1.Credentials = Nothing
-        'Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService"
-        'Me.CheckVatService1.UseDefaultCredentials = False
-        '
-        'FlatButton3
-        '
-        Me.FlatButton3.allowBorder = False
-        Me.FlatButton3.BackgroundImage = Global.SDL.My.Resources.Resources.del_small
-        Me.FlatButton3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.FlatButton3.FlatAppearance.BorderSize = 0
-        Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.FlatButton3.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton3.Location = New System.Drawing.Point(182, 9)
-        Me.FlatButton3.Name = "FlatButton3"
-        Me.FlatButton3.Size = New System.Drawing.Size(20, 20)
-        Me.FlatButton3.TabIndex = 21
-        Me.FlatButton3.UseVisualStyleBackColor = True
-        Me.FlatButton3.Visible = False
-        '
         'cbxAutoFakturierung
         '
         Me.cbxAutoFakturierung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -525,19 +409,173 @@ Partial Class usrCntlOfferte
         Me.cbxAutoFakturierung.Text = "AUTO Fakturierung"
         Me.cbxAutoFakturierung.UseVisualStyleBackColor = True
         '
-        'c
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.Red
+        Me.Label3.Location = New System.Drawing.Point(55, 40)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(110, 13)
+        Me.Label3.TabIndex = 17
+        Me.Label3.Text = "Zuerst Offert anlegen!"
+        Me.Label3.Visible = False
+        '
+        'cboLeistungenAdd
+        '
+        Me.cboLeistungenAdd._allowedValuesFreiText = Nothing
+        Me.cboLeistungenAdd._allowFreiText = False
+        Me.cboLeistungenAdd._value = ""
+        Me.cboLeistungenAdd.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboLeistungenAdd.DropDownWidth = 350
+        Me.cboLeistungenAdd.FormattingEnabled = True
+        Me.cboLeistungenAdd.Location = New System.Drawing.Point(6, 16)
+        Me.cboLeistungenAdd.Name = "cboLeistungenAdd"
+        Me.cboLeistungenAdd.Size = New System.Drawing.Size(47, 21)
+        Me.cboLeistungenAdd.TabIndex = 12
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = False
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
+        Me.MyTextBox1._value = Nothing
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox1.Location = New System.Drawing.Point(52, 16)
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(177, 21)
+        Me.MyTextBox1.TabIndex = 13
+        '
+        'btnStandardLaden
+        '
+        Me.btnStandardLaden.Location = New System.Drawing.Point(287, 6)
+        Me.btnStandardLaden.Name = "btnStandardLaden"
+        Me.btnStandardLaden.Size = New System.Drawing.Size(154, 23)
+        Me.btnStandardLaden.TabIndex = 23
+        Me.btnStandardLaden.Text = "Standardoffert laden"
+        Me.btnStandardLaden.UseVisualStyleBackColor = True
+        Me.btnStandardLaden.Visible = False
+        '
+        'btnDeleteOfferte
+        '
+        Me.btnDeleteOfferte.allowBorder = False
+        Me.btnDeleteOfferte.BackgroundImage = Global.SDL.My.Resources.Resources.del_small
+        Me.btnDeleteOfferte.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDeleteOfferte.FlatAppearance.BorderSize = 0
+        Me.btnDeleteOfferte.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDeleteOfferte.ForeColor = System.Drawing.Color.Black
+        Me.btnDeleteOfferte.Location = New System.Drawing.Point(182, 9)
+        Me.btnDeleteOfferte.Name = "btnDeleteOfferte"
+        Me.btnDeleteOfferte.Size = New System.Drawing.Size(20, 20)
+        Me.btnDeleteOfferte.TabIndex = 21
+        Me.btnDeleteOfferte.UseVisualStyleBackColor = True
+        Me.btnDeleteOfferte.Visible = False
+        '
+        'sbLeistungAdd
+        '
+        Me.sbLeistungAdd._allowFreitext = False
+        Me.sbLeistungAdd._AllowSetValue = False
+        Me.sbLeistungAdd._allowSpaceAsSplitter = False
+        Me.sbLeistungAdd._autoSizeGross = False
+        Me.sbLeistungAdd._hideIfListEmpty = True
+        Me.sbLeistungAdd._value = Nothing
+        Me.sbLeistungAdd.conn_art = "FMZOLL"
+        Me.sbLeistungAdd.dgvpos = "LEFT"
+        Me.sbLeistungAdd.DISPLAY_PARAM = Nothing
+        Me.sbLeistungAdd.INVISIBLE_COLUMNS = Nothing
+        Me.sbLeistungAdd.key_visible = False
+        Me.sbLeistungAdd.KEYPARAM = Nothing
+        Me.sbLeistungAdd.Location = New System.Drawing.Point(348, 255)
+        Me.sbLeistungAdd.Name = "sbLeistungAdd"
+        Me.sbLeistungAdd.searchActive = True
+        Me.sbLeistungAdd.Size = New System.Drawing.Size(223, 20)
+        Me.sbLeistungAdd.SQL_ORDER_BY = Nothing
+        Me.sbLeistungAdd.SQL_SELECT = Nothing
+        Me.sbLeistungAdd.SQL_WHERE = Nothing
+        Me.sbLeistungAdd.SQL_WhereParamList = Nothing
+        Me.sbLeistungAdd.TabIndex = 6
+        Me.sbLeistungAdd.usrcntl = Nothing
+        Me.sbLeistungAdd.Visible = False
+        '
+        'fbtnBearbeiten
+        '
+        Me.fbtnBearbeiten.allowBorder = False
+        Me.fbtnBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.stift
+        Me.fbtnBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.fbtnBearbeiten.FlatAppearance.BorderSize = 0
+        Me.fbtnBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.fbtnBearbeiten.ForeColor = System.Drawing.Color.Black
+        Me.fbtnBearbeiten.Location = New System.Drawing.Point(860, 7)
+        Me.fbtnBearbeiten.Name = "fbtnBearbeiten"
+        Me.fbtnBearbeiten.Size = New System.Drawing.Size(20, 20)
+        Me.fbtnBearbeiten.TabIndex = 3
+        Me.fbtnBearbeiten.UseVisualStyleBackColor = True
+        Me.fbtnBearbeiten.Visible = False
+        '
+        'btnCreateOffert
+        '
+        Me.btnCreateOffert.allowBorder = False
+        Me.btnCreateOffert.BackgroundImage = Global.SDL.My.Resources.Resources.stift
+        Me.btnCreateOffert.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnCreateOffert.FlatAppearance.BorderSize = 0
+        Me.btnCreateOffert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCreateOffert.ForeColor = System.Drawing.Color.Black
+        Me.btnCreateOffert.Location = New System.Drawing.Point(208, 10)
+        Me.btnCreateOffert.Name = "btnCreateOffert"
+        Me.btnCreateOffert.Size = New System.Drawing.Size(20, 20)
+        Me.btnCreateOffert.TabIndex = 1
+        Me.btnCreateOffert.UseVisualStyleBackColor = True
+        '
+        'cbxArchivierteOfferten
+        '
+        Me.cbxArchivierteOfferten._allowedValuesFreiText = Nothing
+        Me.cbxArchivierteOfferten._allowFreiText = False
+        Me.cbxArchivierteOfferten._value = ""
+        Me.cbxArchivierteOfferten.FormattingEnabled = True
+        Me.cbxArchivierteOfferten.Location = New System.Drawing.Point(705, 8)
+        Me.cbxArchivierteOfferten.Name = "cbxArchivierteOfferten"
+        Me.cbxArchivierteOfferten.Size = New System.Drawing.Size(121, 21)
+        Me.cbxArchivierteOfferten.TabIndex = 24
+        Me.cbxArchivierteOfferten.Visible = False
+        '
+        'cbxArchivierteOffertenAnzeigen
+        '
+        Me.cbxArchivierteOffertenAnzeigen.AutoSize = True
+        Me.cbxArchivierteOffertenAnzeigen.Location = New System.Drawing.Point(514, 10)
+        Me.cbxArchivierteOffertenAnzeigen.Name = "cbxArchivierteOffertenAnzeigen"
+        Me.cbxArchivierteOffertenAnzeigen.Size = New System.Drawing.Size(162, 17)
+        Me.cbxArchivierteOffertenAnzeigen.TabIndex = 25
+        Me.cbxArchivierteOffertenAnzeigen.Text = "archivierte Offerten anzeigen"
+        Me.cbxArchivierteOffertenAnzeigen.UseVisualStyleBackColor = True
+        '
+        'usrCntlOfferte
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.Controls.Add(Me.FlatButton3)
+        Me.Controls.Add(Me.cbxArchivierteOffertenAnzeigen)
+        Me.Controls.Add(Me.cbxArchivierteOfferten)
+        Me.Controls.Add(Me.btnStandardLaden)
+        Me.Controls.Add(Me.btnDeleteOfferte)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.pnlSperre)
         Me.Controls.Add(Me.sbLeistungAdd)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btnDeleteLeistung)
-        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.btnAddLeistung)
-        Me.Controls.Add(Me.FlatButton2)
+        Me.Controls.Add(Me.fbtnBearbeiten)
-        Me.Controls.Add(Me.FlatButton1)
+        Me.Controls.Add(Me.btnCreateOffert)
         Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.lblBesonderheiten)
         Me.Controls.Add(Me.rtbBesonderheiten)
@@ -546,7 +584,7 @@ Partial Class usrCntlOfferte
         Me.Controls.Add(Me.dgvOfferte)
         Me.Controls.Add(Me.pnlEdit)
         Me.Margin = New System.Windows.Forms.Padding(2)
-        Me.Name = "c"
+        Me.Name = "usrCntlOfferte"
         Me.Size = New System.Drawing.Size(891, 574)
         CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).EndInit()
@@ -565,20 +603,20 @@ Partial Class usrCntlOfferte
     Friend WithEvents Label11 As System.Windows.Forms.Label
     Friend WithEvents dgvOfferteDetails As System.Windows.Forms.DataGridView
     Friend WithEvents dgvOfferte As System.Windows.Forms.DataGridView
-    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents btnCreateOffert As VERAG_PROG_ALLGEMEIN.FlatButton
-    Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents fbtnBearbeiten As VERAG_PROG_ALLGEMEIN.FlatButton
     Friend WithEvents FlatButton5 As Button
     Friend WithEvents txtSperreGrund As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents txtSperreDat As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cbxSperreSetzen As CheckBox
     Friend WithEvents Label36 As Label
     Friend WithEvents Label67 As Label
-    Friend WithEvents Button1 As Button
+    Friend WithEvents btnDeleteLeistung As Button
-    Friend WithEvents btn As Button
+    Friend WithEvents btnAddLeistung As Button
     Friend WithEvents cntxtAddSdl As ContextMenuStrip
     Friend WithEvents DToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents btnOfferteSpeichern As Button
-    Friend WithEvents Button2 As Button
+    Friend WithEvents btnHinzufuegen As Button
     Friend WithEvents Label1 As Label
     Friend WithEvents sbLeistungAdd As VERAG_PROG_ALLGEMEIN.MySearchBox
     Friend WithEvents pnlSperre As Panel
@@ -590,6 +628,9 @@ Partial Class usrCntlOfferte
     Friend WithEvents pnlEdit As Panel
     '  Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService
     Friend WithEvents Label3 As Label
-    Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents btnDeleteOfferte As VERAG_PROG_ALLGEMEIN.FlatButton
     Friend WithEvents cbxAutoFakturierung As CheckBox
+    Friend WithEvents btnStandardLaden As Button
+    Friend WithEvents cbxArchivierteOfferten As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxArchivierteOffertenAnzeigen As CheckBox
 End Class

SDL/kunden/usrCntlOfferte.resx

@@ -120,7 +120,4 @@
   <metadata name="cntxtAddSdl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="CheckVatService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>135, 17</value>
-  </metadata>
 </root>

SDL/kunden/usrCntlOfferte.vb

@@ -1,4 +1,7 @@
-Public Class usrCntlOfferte
+Imports System.Web.UI.WebControls.Expressions
+Imports DocumentFormat.OpenXml.Presentation
+
+Public Class usrCntlOfferte
 
     Dim FUNC As New cProgramFunctions
     Public kdNr As Integer = -1
@@ -6,9 +9,13 @@
     Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
     Public Event OfferteChanged()
 
+
     Dim OFFERTEBind As cEasyBinding
     Dim table
     Public BIND_DB = "FMZOLL"
+    Dim tmpDataTable As New DataTable
+    Dim currentOffert As VERAG_PROG_ALLGEMEIN.cOfferte
+    Dim edit As Boolean
 
     Dim loaded = False
 
@@ -25,9 +32,10 @@
     Public Sub init(kdNr)
         Me.kdNr = kdNr
         initDGVOfferte()
-
+        edit = False
         KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
         cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung
+
     End Sub
     Sub initDGVOfferte()
         dgvOfferteDetails.Columns.Clear()
@@ -91,7 +99,11 @@
             Else
                 For Each c As DataGridViewColumn In .Columns
                     If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
-                        c.ReadOnly = False
+                        If edit Then
+                            c.ReadOnly = False
+                        Else
+                            c.ReadOnly = True
+                        End If
                     Else
                         c.ReadOnly = True
                     End If
@@ -171,14 +183,20 @@
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then
             pnlEdit.Visible = False
             pnlSperre.Visible = False
-            FlatButton1.Visible = False
+            btnCreateOffert.Visible = False
             dgvOfferte.ReadOnly = True
+            fbtnBearbeiten.Visible = False
+            btnStandardLaden.Visible = False
         Else
             dgvOfferteDetails.AllowUserToAddRows = True
             dgvOfferteDetails.AllowUserToDeleteRows = True
             dgvOfferteDetails.RowHeadersVisible = True
+            fbtnBearbeiten.Visible = True
+            btnStandardLaden.Visible = True
+
+
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_LOESCHEN", "SDL") Then
-                FlatButton3.Visible = True
+                btnDeleteOfferte.Visible = True
             End If
         End If
 
@@ -194,15 +212,16 @@
 
     End Sub
 
-    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+    Private Sub btnCreateOffert_Click(sender As Object, e As EventArgs) Handles btnCreateOffert.Click
         Dim f As New frmOffertenBearbeiten(kdNr)
         If f.ShowDialog() = DialogResult.OK Then
             initDGVOfferte()
             RaiseEvent OfferteChanged()
+            dgvOfferte.Enabled = True
         End If
     End Sub
 
-    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+    Private Sub btnAddLeistung_Click(sender As Object, e As EventArgs) Handles btnAddLeistung.Click
 
 
         Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where  KundenNr=" & kdNr & " and  [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
@@ -222,7 +241,7 @@
 
 
 
-        btn.ContextMenuStrip = cntxtAddSdl
+        btnAddLeistung.ContextMenuStrip = cntxtAddSdl
         ' cntxtAddSdl
         Dim ptLowerLeft As New Point(sender.width, sender.Height)
         ptLowerLeft = sender.PointToScreen(ptLowerLeft)
@@ -241,15 +260,8 @@
 
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click
-        KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
-        KD_ERW.SAVE()
 
-        OFFERTEBind.updateBinding()
+    Private Sub btnHinzufuegen_Click_1(sender As Object, e As EventArgs) Handles btnHinzufuegen.Click
-        RaiseEvent OfferteChanged()
-    End Sub
-
-    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
         lblLeistunAddErr.Visible = False
         lblLeistunAddErr2.Visible = False
         Label3.Visible = False
@@ -294,7 +306,7 @@
 
     Private Sub cboLeistungenAdd_KeyDown(sender As Object, e As KeyEventArgs) Handles cboLeistungenAdd.KeyDown, MyTextBox1.KeyDown
         If e.KeyCode = Keys.Return Then
-            Button2.PerformClick()
+            btnHinzufuegen.PerformClick()
         End If
     End Sub
 
@@ -315,7 +327,7 @@
 
     End Sub
 
-    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
+    Private Sub btnDeleteOfferte_Click(sender As Object, e As EventArgs) Handles btnDeleteOfferte.Click
         If dgvOfferte.SelectedRows.Count = 1 Then
             If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferte.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then
                 If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
@@ -325,4 +337,74 @@
             End If
         End If
     End Sub
+
+    Private Sub btnOfferteSpeichern_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click
+        KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
+        KD_ERW.SAVE()
+        edit = False
+        dgvOfferte.Enabled = True
+
+        OFFERTEBind.updateBinding()
+        RaiseEvent OfferteChanged()
+    End Sub
+
+    Private Sub fbtnBearbeiten_Click(sender As Object, e As EventArgs) Handles fbtnBearbeiten.Click
+
+        edit = True
+        dgvOfferte.Enabled = False
+
+        currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value, True)
+        tmpDataTable = dgvOfferteDetails.DataSource
+
+    End Sub
+
+    Private Sub OffertenArchivieren()
+
+        If currentOffert.SAVETOARCHIVE() Then
+            For Each row As DataRow In tmpDataTable.Rows
+                Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPosition
+                oP.KundenNr = currentOffert.KundenNr
+                oP.LeistungsNr = row("LeistungsNr")
+                oP.LeistungsBez = row("LeistungsBez")
+                oP.OffertenNr = currentOffert.OffertenNr
+                oP.BerechnungsartNr = row("BerechnungsartNr")
+                oP.Preis = row("Preis")
+                oP.Anzahl = row("Anzahl")
+                oP.BGebLeistungsNr = row("BGebLeistungsNr")
+                oP.BGebProzent = row("BGebProzent")
+                oP.BGebMinBetrag = row("BGebMinBetrag")
+                oP.Eingegeben_am = row("Eingegeben am")
+                oP.Geändert_am = row("Geändert am")
+                oP.Sachbearbeiter = row("Sachbearbeiter")
+                oP.Preisänderung = row("Preisänderung")
+                oP.PreisänderungProzent = row("PreisänderungProzent")
+                oP.PreisAlt = row("PreisAlt")
+                oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert")
+                oP.INSERTTOARCHIVE()
+            Next
+
+        End If
+
+    End Sub
+
+    Private Sub btnStandardLaden_Click(sender As Object, e As EventArgs) Handles btnStandardLaden.Click
+        edit = True
+        dgvOfferte.Enabled = False
+        currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value, True)
+        tmpDataTable = dgvOfferteDetails.DataSource
+
+
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxArchivierteOfferten.SelectedIndexChanged
+
+    End Sub
+
+    Private Sub cbxArchivierteOffertenAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxArchivierteOffertenAnzeigen.CheckedChanged
+        If cbxArchivierteOffertenAnzeigen.Checked Then
+            cbxArchivierteOfferten.Visible = True
+        Else
+            cbxArchivierteOfferten.Visible = False
+        End If
+    End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb

@@ -77,7 +77,7 @@ Public Class cOfferte
     Property Gesperrt As Object = Nothing
     Property Gesperrt_Datum As Object = Nothing
     Property Gesperrt_Grund As Object = Nothing
-
+    Property SSMA_TimeStamp As Object = Nothing
     Property POSITIONEN As New List(Of cOffertPosition) '= Nothing
 
     Dim SQL As New SQL
@@ -304,6 +304,40 @@ Public Class cOfferte
     End Function
 
 
+
+    Public Function SAVETOARCHIVE() As Boolean
+
+        Dim sqlstr = "BEGIN TRAN " &
+                        "BEGIN " & getInsertToArchiveCmd() & " END " &
+                     " commit tran "
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Function getInsertToArchiveCmd() As String
+        Try
+            Me.Eingegeben_am = Now
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblOffertenArchiv  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
 End Class
 
 
@@ -325,6 +359,7 @@ Public Class cOffertPosition
     Property PreisänderungProzent As Object = Nothing
     Property PreisAlt As Object = Nothing
     Property BerechnungsartPosInkludiert As Object = Nothing
+    Property SSMA_TimeStamp As Object = Nothing
 
     Dim SQL As New SQL
 
@@ -360,6 +395,13 @@ Public Class cOffertPosition
         Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
     End Function
 
+
+    Public Function INSERTTOARCHIVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
+        Return SQL.doSQLVarList(getInsertToArchiveCmd, "FMZOLL", , list)
+    End Function
+
     Public Function getInsertCmd() As String
         Try
             Me.Eingegeben_am = Now
@@ -380,4 +422,27 @@ Public Class cOffertPosition
         End Try
         Return ""
     End Function
+
+
+    Public Function getInsertToArchiveCmd() As String
+        Try
+            Me.Eingegeben_am = Now
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblOffertenPositionenArchiv (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
 End Class