IDS-Dieselpreise, etc.

This commit is contained in:
2025-08-26 10:38:21 +02:00
parent 868a2abec3
commit 5937ba8067
6 changed files with 492 additions and 637 deletions

View File

@@ -27,27 +27,16 @@ Partial Class usrCntlIDSPreise
Me.lblOffert = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.dgvOfferteDetails = New System.Windows.Forms.DataGridView()
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.btnHinzufuegen = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblLeistunAddErr = New System.Windows.Forms.Label()
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.cboLeistungenAdd = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnDeleteOfferte = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.sbLeistungAdd = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.btnCreateOffert = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnEditIDS = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.dgvIDS = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxTypes = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnCloseEditMode = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblEditMode = New System.Windows.Forms.Label()
CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxtAddSdl.SuspendLayout()
Me.pnlEdit.SuspendLayout()
CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -95,32 +84,6 @@ Partial Class usrCntlIDSPreise
Me.dgvOfferteDetails.Size = New System.Drawing.Size(796, 475)
Me.dgvOfferteDetails.TabIndex = 5
'
'btnDeleteLeistung
'
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, 228)
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
'
'btnAddLeistung
'
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, 228)
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
'
Me.cntxtAddSdl.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DToolStripMenuItem})
@@ -140,196 +103,29 @@ Partial Class usrCntlIDSPreise
Me.btnOfferteSpeichern.ForeColor = System.Drawing.Color.Black
Me.btnOfferteSpeichern.Image = Global.SDL.My.Resources.Resources.save
Me.btnOfferteSpeichern.ImageAlign = System.Drawing.ContentAlignment.TopLeft
Me.btnOfferteSpeichern.Location = New System.Drawing.Point(664, 0)
Me.btnOfferteSpeichern.Location = New System.Drawing.Point(899, 514)
Me.btnOfferteSpeichern.Name = "btnOfferteSpeichern"
Me.btnOfferteSpeichern.Size = New System.Drawing.Size(132, 36)
Me.btnOfferteSpeichern.TabIndex = 15
Me.btnOfferteSpeichern.Tag = ""
Me.btnOfferteSpeichern.Text = "Speichern"
Me.btnOfferteSpeichern.UseVisualStyleBackColor = True
Me.btnOfferteSpeichern.Visible = False
'
'btnHinzufuegen
'btnEditIDS
'
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
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(105, 13)
Me.Label1.TabIndex = 10
Me.Label1.Text = "Leistung hinzufügen:"
'
'lblLeistunAddErr
'
Me.lblLeistunAddErr.AutoSize = True
Me.lblLeistunAddErr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLeistunAddErr.ForeColor = System.Drawing.Color.Red
Me.lblLeistunAddErr.Location = New System.Drawing.Point(179, 3)
Me.lblLeistunAddErr.Name = "lblLeistunAddErr"
Me.lblLeistunAddErr.Size = New System.Drawing.Size(50, 13)
Me.lblLeistunAddErr.TabIndex = 11
Me.lblLeistunAddErr.Text = "Auswahl!"
Me.lblLeistunAddErr.Visible = False
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Red
Me.Label2.Location = New System.Drawing.Point(420, 283)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(50, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Auswahl!"
Me.Label2.Visible = False
'
'lblLeistunAddErr2
'
Me.lblLeistunAddErr2.AutoSize = True
Me.lblLeistunAddErr2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLeistunAddErr2.ForeColor = System.Drawing.Color.Red
Me.lblLeistunAddErr2.Location = New System.Drawing.Point(2, 38)
Me.lblLeistunAddErr2.Name = "lblLeistunAddErr2"
Me.lblLeistunAddErr2.Size = New System.Drawing.Size(174, 13)
Me.lblLeistunAddErr2.TabIndex = 16
Me.lblLeistunAddErr2.Text = "Diese Bezeichnung existiert bereits!"
Me.lblLeistunAddErr2.Visible = False
'
'pnlEdit
'
Me.pnlEdit.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlEdit.Controls.Add(Me.Label3)
Me.pnlEdit.Controls.Add(Me.Label1)
Me.pnlEdit.Controls.Add(Me.btnHinzufuegen)
Me.pnlEdit.Controls.Add(Me.lblLeistunAddErr2)
Me.pnlEdit.Controls.Add(Me.lblLeistunAddErr)
Me.pnlEdit.Controls.Add(Me.btnOfferteSpeichern)
Me.pnlEdit.Controls.Add(Me.cboLeistungenAdd)
Me.pnlEdit.Controls.Add(Me.MyTextBox1)
Me.pnlEdit.Location = New System.Drawing.Point(244, 513)
Me.pnlEdit.Name = "pnlEdit"
Me.pnlEdit.Size = New System.Drawing.Size(797, 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
'
'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
'
'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
'
'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
Me.btnEditIDS.allowBorder = False
Me.btnEditIDS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnEditIDS.BackgroundImage = Global.SDL.My.Resources.Resources.stift
Me.btnEditIDS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnEditIDS.FlatAppearance.BorderSize = 0
Me.btnEditIDS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEditIDS.ForeColor = System.Drawing.Color.Black
Me.btnEditIDS.Location = New System.Drawing.Point(965, 6)
Me.btnEditIDS.Name = "btnEditIDS"
Me.btnEditIDS.Size = New System.Drawing.Size(20, 20)
Me.btnEditIDS.TabIndex = 1
Me.btnEditIDS.UseVisualStyleBackColor = True
'
'dgvIDS
'
@@ -347,33 +143,69 @@ Partial Class usrCntlIDSPreise
Me.dgvIDS.Name = "dgvIDS"
Me.dgvIDS.ReadOnly = True
Me.dgvIDS.RowHeadersVisible = False
Me.dgvIDS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvIDS.Size = New System.Drawing.Size(228, 444)
Me.dgvIDS.TabIndex = 30
'
'cbxTypes
'
Me.cbxTypes._allowedValuesFreiText = Nothing
Me.cbxTypes._allowFreiText = False
Me.cbxTypes._value = ""
Me.cbxTypes.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbxTypes.DropDownWidth = 350
Me.cbxTypes.FormattingEnabled = True
Me.cbxTypes.Location = New System.Drawing.Point(0, 36)
Me.cbxTypes.Name = "cbxTypes"
Me.cbxTypes.Size = New System.Drawing.Size(149, 21)
Me.cbxTypes.TabIndex = 18
'
'btnCloseEditMode
'
Me.btnCloseEditMode.allowBorder = False
Me.btnCloseEditMode.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCloseEditMode.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnCloseEditMode.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnCloseEditMode.FlatAppearance.BorderSize = 0
Me.btnCloseEditMode.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCloseEditMode.ForeColor = System.Drawing.Color.Black
Me.btnCloseEditMode.Location = New System.Drawing.Point(1000, 8)
Me.btnCloseEditMode.Name = "btnCloseEditMode"
Me.btnCloseEditMode.Size = New System.Drawing.Size(20, 20)
Me.btnCloseEditMode.TabIndex = 31
Me.btnCloseEditMode.UseVisualStyleBackColor = True
Me.btnCloseEditMode.Visible = False
'
'lblEditMode
'
Me.lblEditMode.AutoSize = True
Me.lblEditMode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEditMode.ForeColor = System.Drawing.Color.Red
Me.lblEditMode.Location = New System.Drawing.Point(551, 13)
Me.lblEditMode.Name = "lblEditMode"
Me.lblEditMode.Size = New System.Drawing.Size(64, 13)
Me.lblEditMode.TabIndex = 32
Me.lblEditMode.Text = "Edit Mode"
Me.lblEditMode.Visible = False
'
'usrCntlIDSPreise
'
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.lblEditMode)
Me.Controls.Add(Me.btnCloseEditMode)
Me.Controls.Add(Me.cbxTypes)
Me.Controls.Add(Me.dgvIDS)
Me.Controls.Add(Me.btnDeleteOfferte)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.sbLeistungAdd)
Me.Controls.Add(Me.btnDeleteLeistung)
Me.Controls.Add(Me.btnAddLeistung)
Me.Controls.Add(Me.btnCreateOffert)
Me.Controls.Add(Me.btnOfferteSpeichern)
Me.Controls.Add(Me.btnEditIDS)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.lblOffert)
Me.Controls.Add(Me.dgvOfferteDetails)
Me.Controls.Add(Me.pnlEdit)
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "usrCntlIDSPreise"
Me.Size = New System.Drawing.Size(1041, 576)
CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).EndInit()
Me.cntxtAddSdl.ResumeLayout(False)
Me.pnlEdit.ResumeLayout(False)
Me.pnlEdit.PerformLayout()
CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -382,23 +214,12 @@ Partial Class usrCntlIDSPreise
Friend WithEvents lblOffert As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents dgvOfferteDetails As System.Windows.Forms.DataGridView
Friend WithEvents btnCreateOffert As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnDeleteLeistung As Button
Friend WithEvents btnAddLeistung As Button
Friend WithEvents btnEditIDS As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents cntxtAddSdl As ContextMenuStrip
Friend WithEvents DToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnOfferteSpeichern As Button
Friend WithEvents btnHinzufuegen As Button
Friend WithEvents Label1 As Label
Friend WithEvents sbLeistungAdd As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents lblLeistunAddErr As Label
Friend WithEvents cboLeistungenAdd As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
Friend WithEvents lblLeistunAddErr2 As Label
Friend WithEvents pnlEdit As Panel
' Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService
Friend WithEvents Label3 As Label
Friend WithEvents btnDeleteOfferte As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents dgvIDS As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbxTypes As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnCloseEditMode As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblEditMode As Label
End Class