Feature: Offerten
This commit is contained in:
417
SDL/kunden/usrCntlOfferte.Designer.vb
generated
417
SDL/kunden/usrCntlOfferte.Designer.vb
generated
@@ -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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 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.btn = New System.Windows.Forms.Button()
|
||||
Me.btnDeleteLeistung = 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))
|
||||
Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
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))
|
||||
Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
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.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.del
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(348, 226)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(28, 23)
|
||||
Me.Button1.TabIndex = 8
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
Me.Button1.Visible = False
|
||||
Me.btnDeleteLeistung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnDeleteLeistung.BackgroundImage = Global.SDL.My.Resources.Resources.del
|
||||
Me.btnDeleteLeistung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnDeleteLeistung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDeleteLeistung.Location = New System.Drawing.Point(348, 226)
|
||||
Me.btnDeleteLeistung.Name = "btnDeleteLeistung"
|
||||
Me.btnDeleteLeistung.Size = New System.Drawing.Size(28, 23)
|
||||
Me.btnDeleteLeistung.TabIndex = 8
|
||||
Me.btnDeleteLeistung.UseVisualStyleBackColor = True
|
||||
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.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(375, 226)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(28, 23)
|
||||
Me.btn.TabIndex = 9
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
Me.btn.Visible = False
|
||||
Me.btnAddLeistung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnAddLeistung.BackgroundImage = Global.SDL.My.Resources.Resources.plus
|
||||
Me.btnAddLeistung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnAddLeistung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAddLeistung.Location = New System.Drawing.Point(375, 226)
|
||||
Me.btnAddLeistung.Name = "btnAddLeistung"
|
||||
Me.btnAddLeistung.Size = New System.Drawing.Size(28, 23)
|
||||
Me.btnAddLeistung.TabIndex = 9
|
||||
Me.btnAddLeistung.UseVisualStyleBackColor = True
|
||||
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.Button2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(235, 1)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(106, 36)
|
||||
Me.Button2.TabIndex = 14
|
||||
Me.Button2.Tag = ""
|
||||
Me.Button2.Text = "Hinzufügen"
|
||||
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
Me.btnHinzufuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnHinzufuegen.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnHinzufuegen.Image = Global.SDL.My.Resources.Resources.plus
|
||||
Me.btnHinzufuegen.ImageAlign = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.btnHinzufuegen.Location = New System.Drawing.Point(235, 1)
|
||||
Me.btnHinzufuegen.Name = "btnHinzufuegen"
|
||||
Me.btnHinzufuegen.Size = New System.Drawing.Size(106, 36)
|
||||
Me.btnHinzufuegen.TabIndex = 14
|
||||
Me.btnHinzufuegen.Tag = ""
|
||||
Me.btnHinzufuegen.Text = "Hinzufügen"
|
||||
Me.btnHinzufuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
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.btn)
|
||||
Me.Controls.Add(Me.FlatButton2)
|
||||
Me.Controls.Add(Me.FlatButton1)
|
||||
Me.Controls.Add(Me.btnDeleteLeistung)
|
||||
Me.Controls.Add(Me.btnAddLeistung)
|
||||
Me.Controls.Add(Me.fbtnBearbeiten)
|
||||
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 FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
|
||||
Friend WithEvents btnCreateOffert 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 btn As Button
|
||||
Friend WithEvents btnDeleteLeistung 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
|
||||
|
||||
@@ -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>
|
||||
@@ -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,10 +99,14 @@
|
||||
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
|
||||
If edit Then
|
||||
c.ReadOnly = False
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
End If
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
End If
|
||||
Next
|
||||
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()
|
||||
RaiseEvent OfferteChanged()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Private Sub btnHinzufuegen_Click_1(sender As Object, e As EventArgs) Handles btnHinzufuegen.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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user