From 139c1b93ae33d57a44aec69a660ed10aee3f246d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 20 Jan 2023 13:45:49 +0100 Subject: [PATCH] Rundungsdifferenzausgleich implementiert. --- Aviso/frmGesamtsicherheitenMenuNEU.vb | 6 +- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 1059 ++++++++++---------- Aviso/frmGesamtsicherheitenNEU.vb | 100 +- 3 files changed, 635 insertions(+), 530 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 24921e3..39906d8 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -57,7 +57,7 @@ Public Class frmGesamtsicherheitenMenuNEU Public Function LoadDGV() Dim sqladdon As String = "" - If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €' AND gs_SicherheitsSaldo != '0,01 €' AND gs_SicherheitsSaldo != '-0,01 €'" + If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €'" If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'" If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'" @@ -126,7 +126,7 @@ Public Class frmGesamtsicherheitenMenuNEU For Each row As DataGridViewRow In dgvListe.Rows If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then - If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then + If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True) row.DefaultCellStyle.BackColor = Color.IndianRed @@ -367,7 +367,7 @@ Public Class frmGesamtsicherheitenMenuNEU ) as Sicherheitssaldo From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2 - Where gs_standort = '" & Standort & "' AND Sicherheitssaldo > '0.01' AND gs_datum < '" & Date.Now().AddDays(-85) & "'" + Where gs_standort = '" & Standort & "' AND gs_datum < '" & Date.Now().AddDays(-85) & "'" dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True) diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index 0282538..df2c7b3 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -22,14 +22,13 @@ Partial Class frmGesamtsicherheitenNEU 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 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() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU)) - Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip() Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlChangeATCNr = New System.Windows.Forms.Panel() @@ -41,25 +40,40 @@ Partial Class frmGesamtsicherheitenNEU Me.txtDatumaendern = New System.Windows.Forms.TextBox() Me.Label26 = New System.Windows.Forms.Label() Me.lblATCwarning = New System.Windows.Forms.Label() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtATCaendern = New System.Windows.Forms.TextBox() Me.Label34 = New System.Windows.Forms.Label() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlChangeATBNr = New System.Windows.Forms.Panel() Me.lblWarningATB = New System.Windows.Forms.Label() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtATBNraendern = New System.Windows.Forms.TextBox() Me.Label32 = New System.Windows.Forms.Label() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.panOverlay = New System.Windows.Forms.Panel() + Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label23 = New System.Windows.Forms.Label() + Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblWarenort = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtLKWKZ = New System.Windows.Forms.TextBox() Me.txtAbfertNum = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() - Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip() Me.ATCMRNNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlSummeGes = New System.Windows.Forms.Panel() + Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label28 = New System.Windows.Forms.Label() + Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label29 = New System.Windows.Forms.Label() + Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPosAnzalPosGes = New System.Windows.Forms.TextBox() Me.txtAnzalPosGes = New System.Windows.Forms.TextBox() Me.Label27 = New System.Windows.Forms.Label() @@ -79,11 +93,15 @@ Partial Class frmGesamtsicherheitenNEU Me.lblReferenzwert = New System.Windows.Forms.Label() Me.lblSaldo = New System.Windows.Forms.Label() Me.panOben = New System.Windows.Forms.Panel() + Me.txtSicherheitDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.dtpSicherheitDat = New System.Windows.Forms.DateTimePicker() + Me.txtPosDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.dtpPosDat = New System.Windows.Forms.DateTimePicker() Me.lbloffenerWarenwert = New System.Windows.Forms.Label() Me.txtGestellInfo = New System.Windows.Forms.TextBox() + Me.btnSaveDatetime = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblId = New System.Windows.Forms.Label() + Me.txtZollsatzueberschreiben = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxZollsatzueberschreiben = New System.Windows.Forms.CheckBox() Me.btnNext = New System.Windows.Forms.Button() Me.lbloffenerSaldo = New System.Windows.Forms.Label() @@ -91,12 +109,19 @@ Partial Class frmGesamtsicherheitenNEU Me.Label20 = New System.Windows.Forms.Label() Me.txtPosNr = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnRundungsdifAusgl = New System.Windows.Forms.Button() Me.btnNew = New System.Windows.Forms.Button() Me.cbx_offene = New System.Windows.Forms.CheckBox() Me.btnSuche = New System.Windows.Forms.Button() + Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label19 = New System.Windows.Forms.Label() Me.txt_Suche = New System.Windows.Forms.TextBox() Me.Label21 = New System.Windows.Forms.Label() + Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label15 = New System.Windows.Forms.Label() Me.txtAnzahlPos = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() @@ -117,31 +142,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label1 = New System.Windows.Forms.Label() Me.txtPosFreitext = New System.Windows.Forms.TextBox() Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSicherheitDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPosDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnSaveDatetime = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtZollsatzueberschreiben = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.ContextMenuStripGesSicherh.SuspendLayout() @@ -149,12 +149,12 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATCNr.SuspendLayout() Me.pnlChangeATBNr.SuspendLayout() Me.panOverlay.SuspendLayout() + CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStripPosSicherheiten.SuspendLayout() Me.pnlSummeGes.SuspendLayout() Me.panOben.SuspendLayout() Me.Panel1.SuspendLayout() - CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ContextMenuStripGesSicherh @@ -283,6 +283,20 @@ Partial Class frmGesamtsicherheitenNEU Me.lblATCwarning.Size = New System.Drawing.Size(0, 13) Me.lblATCwarning.TabIndex = 10 ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.BackColor = System.Drawing.Color.Gainsboro + 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(210, 160) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(75, 23) + Me.FlatButton3.TabIndex = 10 + Me.FlatButton3.Text = "Ändern" + Me.FlatButton3.UseVisualStyleBackColor = False + ' 'txtATCaendern ' Me.txtATCaendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -302,6 +316,22 @@ Partial Class frmGesamtsicherheitenNEU Me.Label34.TabIndex = 5 Me.Label34.Text = "ATC/MRN" ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackColor = System.Drawing.Color.White + Me.FlatButton4.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.FlatButton4.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Location = New System.Drawing.Point(261, 3) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(24, 24) + Me.FlatButton4.TabIndex = 0 + Me.FlatButton4.UseVisualStyleBackColor = False + ' 'pnlChangeATBNr ' Me.pnlChangeATBNr.BackColor = System.Drawing.SystemColors.ButtonHighlight @@ -326,6 +356,20 @@ Partial Class frmGesamtsicherheitenNEU Me.lblWarningATB.Size = New System.Drawing.Size(0, 13) Me.lblWarningATB.TabIndex = 10 ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackColor = System.Drawing.Color.Gainsboro + 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(210, 77) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(75, 23) + Me.FlatButton1.TabIndex = 9 + Me.FlatButton1.Text = "Ändern" + Me.FlatButton1.UseVisualStyleBackColor = False + ' 'txtATBNraendern ' Me.txtATBNraendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -345,6 +389,22 @@ Partial Class frmGesamtsicherheitenNEU Me.Label32.TabIndex = 5 Me.Label32.Text = "ATB-Nr" ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.BackColor = System.Drawing.Color.White + Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.FlatButton2.DialogResult = System.Windows.Forms.DialogResult.Cancel + 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(261, 3) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(24, 24) + Me.FlatButton2.TabIndex = 0 + Me.FlatButton2.UseVisualStyleBackColor = False + ' 'panOverlay ' Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight @@ -366,6 +426,31 @@ Partial Class frmGesamtsicherheitenNEU Me.panOverlay.TabIndex = 2 Me.panOverlay.Visible = False ' + 'txtlkwIdSearch + ' + Me.txtlkwIdSearch._allowFreitext = True + Me.txtlkwIdSearch._AllowSetValue = False + Me.txtlkwIdSearch._allowSpaceAsSplitter = False + Me.txtlkwIdSearch._autoSizeGross = False + Me.txtlkwIdSearch._hideIfListEmpty = True + Me.txtlkwIdSearch._value = Nothing + Me.txtlkwIdSearch.conn_art = "FMZOLL" + Me.txtlkwIdSearch.dgvpos = "LEFT" + Me.txtlkwIdSearch.DISPLAY_PARAM = Nothing + Me.txtlkwIdSearch.INVISIBLE_COLUMNS = Nothing + Me.txtlkwIdSearch.key_visible = False + Me.txtlkwIdSearch.KEYPARAM = Nothing + Me.txtlkwIdSearch.Location = New System.Drawing.Point(279, 184) + Me.txtlkwIdSearch.Name = "txtlkwIdSearch" + Me.txtlkwIdSearch.searchActive = True + Me.txtlkwIdSearch.Size = New System.Drawing.Size(186, 20) + Me.txtlkwIdSearch.SQL_ORDER_BY = Nothing + Me.txtlkwIdSearch.SQL_SELECT = Nothing + Me.txtlkwIdSearch.SQL_WHERE = Nothing + Me.txtlkwIdSearch.SQL_WhereParamList = Nothing + Me.txtlkwIdSearch.TabIndex = 7 + Me.txtlkwIdSearch.usrcntl = Nothing + ' 'Label23 ' Me.Label23.AutoSize = True @@ -376,6 +461,20 @@ Partial Class frmGesamtsicherheitenNEU Me.Label23.TabIndex = 10 Me.Label23.Text = "LKW-Id:" ' + 'cboWarenort + ' + Me.cboWarenort._allowedValuesFreiText = Nothing + Me.cboWarenort._allowFreiText = False + Me.cboWarenort._value = "" + Me.cboWarenort.DropDownWidth = 400 + Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboWarenort.FormattingEnabled = True + Me.cboWarenort.Location = New System.Drawing.Point(278, 64) + Me.cboWarenort.MaxLength = 4 + Me.cboWarenort.Name = "cboWarenort" + Me.cboWarenort.Size = New System.Drawing.Size(186, 24) + Me.cboWarenort.TabIndex = 2 + ' 'lblWarenort ' Me.lblWarenort.AutoSize = True @@ -386,6 +485,34 @@ Partial Class frmGesamtsicherheitenNEU Me.lblWarenort.TabIndex = 1 Me.lblWarenort.Text = "Warenort:" ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(279, 103) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(186, 24) + Me.cboFiliale.TabIndex = 4 + ' + 'btnSave + ' + Me.btnSave.allowBorder = False + Me.btnSave.BackColor = System.Drawing.Color.Gainsboro + Me.btnSave.FlatAppearance.BorderSize = 0 + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Location = New System.Drawing.Point(389, 252) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 9 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = False + ' 'txtLKWKZ ' Me.txtLKWKZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -434,6 +561,92 @@ Partial Class frmGesamtsicherheitenNEU Me.Label16.TabIndex = 3 Me.Label16.Text = "Filial-Nummer:" ' + 'btnClosePanOverlay + ' + Me.btnClosePanOverlay.allowBorder = False + Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White + Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 + Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black + Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) + Me.btnClosePanOverlay.Name = "btnClosePanOverlay" + Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) + Me.btnClosePanOverlay.TabIndex = 0 + Me.btnClosePanOverlay.UseVisualStyleBackColor = False + ' + 'dgvGesamtsicherheit + ' + Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheit.AllowUserToAddRows = False + Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStripGesSicherh + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0) + Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit" + Me.dgvGesamtsicherheit.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 457) + Me.dgvGesamtsicherheit.TabIndex = 0 + ' + 'dgvSicherheitsPos + ' + Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvSicherheitsPos.AllowUserToAddRows = False + Me.dgvSicherheitsPos.AllowUserToDeleteRows = False + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvSicherheitsPos.ContextMenuStrip = Me.ContextMenuStripPosSicherheiten + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right + Me.dgvSicherheitsPos.Location = New System.Drawing.Point(748, 0) + Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" + Me.dgvSicherheitsPos.ReadOnly = True + Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 457) + Me.dgvSicherheitsPos.TabIndex = 1 + ' 'ContextMenuStripPosSicherheiten ' Me.ContextMenuStripPosSicherheiten.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATCMRNNraendernToolStripMenuItem}) @@ -468,6 +681,54 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlSummeGes.Size = New System.Drawing.Size(1384, 32) Me.pnlSummeGes.TabIndex = 3 ' + 'txtPosSicherheitsbGes + ' + Me.txtPosSicherheitsbGes._DateTimeOnly = False + Me.txtPosSicherheitsbGes._numbersOnly = False + Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = "" + Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False + Me.txtPosSicherheitsbGes._Prozent = False + Me.txtPosSicherheitsbGes._ShortDateNew = False + Me.txtPosSicherheitsbGes._ShortDateOnly = False + Me.txtPosSicherheitsbGes._TimeOnly = False + Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False + Me.txtPosSicherheitsbGes._value = "" + Me.txtPosSicherheitsbGes._Waehrung = True + Me.txtPosSicherheitsbGes._WaehrungZeichen = True + Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black + Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(1272, 6) + Me.txtPosSicherheitsbGes.MaxLineLength = -1 + Me.txtPosSicherheitsbGes.MaxLines_Warning = "" + Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing + Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes" + Me.txtPosSicherheitsbGes.ReadOnly = True + Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20) + Me.txtPosSicherheitsbGes.TabIndex = 5 + ' + 'txtSicherheitsbGes + ' + Me.txtSicherheitsbGes._DateTimeOnly = False + Me.txtSicherheitsbGes._numbersOnly = False + Me.txtSicherheitsbGes._numbersOnlyKommastellen = "" + Me.txtSicherheitsbGes._numbersOnlyTrennzeichen = False + Me.txtSicherheitsbGes._Prozent = False + Me.txtSicherheitsbGes._ShortDateNew = False + Me.txtSicherheitsbGes._ShortDateOnly = False + Me.txtSicherheitsbGes._TimeOnly = False + Me.txtSicherheitsbGes._TimeOnly_Seconds = False + Me.txtSicherheitsbGes._value = "" + Me.txtSicherheitsbGes._Waehrung = True + Me.txtSicherheitsbGes._WaehrungZeichen = True + Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black + Me.txtSicherheitsbGes.Location = New System.Drawing.Point(615, 5) + Me.txtSicherheitsbGes.MaxLineLength = -1 + Me.txtSicherheitsbGes.MaxLines_Warning = "" + Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing + Me.txtSicherheitsbGes.Name = "txtSicherheitsbGes" + Me.txtSicherheitsbGes.ReadOnly = True + Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20) + Me.txtSicherheitsbGes.TabIndex = 5 + ' 'Label28 ' Me.Label28.AutoSize = True @@ -478,6 +739,30 @@ Partial Class frmGesamtsicherheitenNEU Me.Label28.TabIndex = 4 Me.Label28.Text = "Sicherheitsbetrag Summe:" ' + 'txtPosWarenwertGes + ' + Me.txtPosWarenwertGes._DateTimeOnly = False + Me.txtPosWarenwertGes._numbersOnly = False + Me.txtPosWarenwertGes._numbersOnlyKommastellen = "" + Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False + Me.txtPosWarenwertGes._Prozent = False + Me.txtPosWarenwertGes._ShortDateNew = False + Me.txtPosWarenwertGes._ShortDateOnly = False + Me.txtPosWarenwertGes._TimeOnly = False + Me.txtPosWarenwertGes._TimeOnly_Seconds = False + Me.txtPosWarenwertGes._value = "" + Me.txtPosWarenwertGes._Waehrung = True + Me.txtPosWarenwertGes._WaehrungZeichen = True + Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black + Me.txtPosWarenwertGes.Location = New System.Drawing.Point(1018, 6) + Me.txtPosWarenwertGes.MaxLineLength = -1 + Me.txtPosWarenwertGes.MaxLines_Warning = "" + Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing + Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes" + Me.txtPosWarenwertGes.ReadOnly = True + Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20) + Me.txtPosWarenwertGes.TabIndex = 3 + ' 'Label29 ' Me.Label29.AutoSize = True @@ -488,6 +773,30 @@ Partial Class frmGesamtsicherheitenNEU Me.Label29.TabIndex = 2 Me.Label29.Text = "Warentwert Summe:" ' + 'txtWarenwertGes + ' + Me.txtWarenwertGes._DateTimeOnly = False + Me.txtWarenwertGes._numbersOnly = False + Me.txtWarenwertGes._numbersOnlyKommastellen = "" + Me.txtWarenwertGes._numbersOnlyTrennzeichen = False + Me.txtWarenwertGes._Prozent = False + Me.txtWarenwertGes._ShortDateNew = False + Me.txtWarenwertGes._ShortDateOnly = False + Me.txtWarenwertGes._TimeOnly = False + Me.txtWarenwertGes._TimeOnly_Seconds = False + Me.txtWarenwertGes._value = "" + Me.txtWarenwertGes._Waehrung = True + Me.txtWarenwertGes._WaehrungZeichen = True + Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black + Me.txtWarenwertGes.Location = New System.Drawing.Point(326, 6) + Me.txtWarenwertGes.MaxLineLength = -1 + Me.txtWarenwertGes.MaxLines_Warning = "" + Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing + Me.txtWarenwertGes.Name = "txtWarenwertGes" + Me.txtWarenwertGes.ReadOnly = True + Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20) + Me.txtWarenwertGes.TabIndex = 3 + ' 'txtPosAnzalPosGes ' Me.txtPosAnzalPosGes.Location = New System.Drawing.Point(830, 6) @@ -730,6 +1039,32 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.Size = New System.Drawing.Size(1384, 287) Me.panOben.TabIndex = 0 ' + 'txtSicherheitDat + ' + Me.txtSicherheitDat._DateTimeOnly = False + Me.txtSicherheitDat._numbersOnly = False + Me.txtSicherheitDat._numbersOnlyKommastellen = "" + Me.txtSicherheitDat._numbersOnlyTrennzeichen = True + Me.txtSicherheitDat._Prozent = False + Me.txtSicherheitDat._ShortDateNew = False + Me.txtSicherheitDat._ShortDateOnly = True + Me.txtSicherheitDat._TimeOnly = False + Me.txtSicherheitDat._TimeOnly_Seconds = False + Me.txtSicherheitDat._value = "" + Me.txtSicherheitDat._Waehrung = False + Me.txtSicherheitDat._WaehrungZeichen = True + Me.txtSicherheitDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSicherheitDat.ForeColor = System.Drawing.Color.Black + Me.txtSicherheitDat.Location = New System.Drawing.Point(279, 204) + Me.txtSicherheitDat.MaxLength = 10 + Me.txtSicherheitDat.MaxLineLength = -1 + Me.txtSicherheitDat.MaxLines_Warning = "" + Me.txtSicherheitDat.MaxLines_Warning_Label = Nothing + Me.txtSicherheitDat.Multiline = True + Me.txtSicherheitDat.Name = "txtSicherheitDat" + Me.txtSicherheitDat.Size = New System.Drawing.Size(78, 24) + Me.txtSicherheitDat.TabIndex = 27 + ' 'dtpSicherheitDat ' Me.dtpSicherheitDat.CustomFormat = "''" @@ -741,6 +1076,32 @@ Partial Class frmGesamtsicherheitenNEU Me.dtpSicherheitDat.Size = New System.Drawing.Size(110, 24) Me.dtpSicherheitDat.TabIndex = 54 ' + 'txtPosDat + ' + Me.txtPosDat._DateTimeOnly = False + Me.txtPosDat._numbersOnly = False + Me.txtPosDat._numbersOnlyKommastellen = "" + Me.txtPosDat._numbersOnlyTrennzeichen = True + Me.txtPosDat._Prozent = False + Me.txtPosDat._ShortDateNew = False + Me.txtPosDat._ShortDateOnly = True + Me.txtPosDat._TimeOnly = False + Me.txtPosDat._TimeOnly_Seconds = False + Me.txtPosDat._value = "" + Me.txtPosDat._Waehrung = False + Me.txtPosDat._WaehrungZeichen = True + Me.txtPosDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosDat.ForeColor = System.Drawing.Color.Black + Me.txtPosDat.Location = New System.Drawing.Point(965, 204) + Me.txtPosDat.MaxLength = 10 + Me.txtPosDat.MaxLineLength = -1 + Me.txtPosDat.MaxLines_Warning = "" + Me.txtPosDat.MaxLines_Warning_Label = Nothing + Me.txtPosDat.Multiline = True + Me.txtPosDat.Name = "txtPosDat" + Me.txtPosDat.Size = New System.Drawing.Size(78, 24) + Me.txtPosDat.TabIndex = 32 + ' 'dtpPosDat ' Me.dtpPosDat.CustomFormat = "''" @@ -777,6 +1138,20 @@ Partial Class frmGesamtsicherheitenNEU Me.txtGestellInfo.Size = New System.Drawing.Size(863, 22) Me.txtGestellInfo.TabIndex = 50 ' + 'btnSaveDatetime + ' + Me.btnSaveDatetime.allowBorder = False + Me.btnSaveDatetime.BackColor = System.Drawing.Color.White + Me.btnSaveDatetime.FlatAppearance.BorderSize = 0 + Me.btnSaveDatetime.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSaveDatetime.ForeColor = System.Drawing.Color.Black + Me.btnSaveDatetime.Location = New System.Drawing.Point(12, 165) + Me.btnSaveDatetime.Name = "btnSaveDatetime" + Me.btnSaveDatetime.Size = New System.Drawing.Size(75, 23) + Me.btnSaveDatetime.TabIndex = 11 + Me.btnSaveDatetime.Text = "speichern" + Me.btnSaveDatetime.UseVisualStyleBackColor = False + ' 'lblId ' Me.lblId.Anchor = System.Windows.Forms.AnchorStyles.Right @@ -789,6 +1164,30 @@ Partial Class frmGesamtsicherheitenNEU Me.lblId.TabIndex = 0 Me.lblId.Text = "ID" ' + 'txtZollsatzueberschreiben + ' + Me.txtZollsatzueberschreiben._DateTimeOnly = False + Me.txtZollsatzueberschreiben._numbersOnly = True + Me.txtZollsatzueberschreiben._numbersOnlyKommastellen = "" + Me.txtZollsatzueberschreiben._numbersOnlyTrennzeichen = True + Me.txtZollsatzueberschreiben._Prozent = False + Me.txtZollsatzueberschreiben._ShortDateNew = False + Me.txtZollsatzueberschreiben._ShortDateOnly = False + Me.txtZollsatzueberschreiben._TimeOnly = False + Me.txtZollsatzueberschreiben._TimeOnly_Seconds = False + Me.txtZollsatzueberschreiben._value = "" + Me.txtZollsatzueberschreiben._Waehrung = False + Me.txtZollsatzueberschreiben._WaehrungZeichen = True + Me.txtZollsatzueberschreiben.Enabled = False + Me.txtZollsatzueberschreiben.ForeColor = System.Drawing.Color.Black + Me.txtZollsatzueberschreiben.Location = New System.Drawing.Point(908, 156) + Me.txtZollsatzueberschreiben.MaxLineLength = -1 + Me.txtZollsatzueberschreiben.MaxLines_Warning = "" + Me.txtZollsatzueberschreiben.MaxLines_Warning_Label = Nothing + Me.txtZollsatzueberschreiben.Name = "txtZollsatzueberschreiben" + Me.txtZollsatzueberschreiben.Size = New System.Drawing.Size(30, 20) + Me.txtZollsatzueberschreiben.TabIndex = 10 + ' 'cbxZollsatzueberschreiben ' Me.cbxZollsatzueberschreiben.AutoSize = True @@ -861,6 +1260,7 @@ Partial Class frmGesamtsicherheitenNEU 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.Panel1.Controls.Add(Me.btnRundungsdifAusgl) Me.Panel1.Controls.Add(Me.btnNew) Me.Panel1.Controls.Add(Me.cbx_offene) Me.Panel1.Controls.Add(Me.btnSuche) @@ -874,6 +1274,15 @@ Partial Class frmGesamtsicherheitenNEU Me.Panel1.Size = New System.Drawing.Size(1384, 61) Me.Panel1.TabIndex = 2 ' + 'btnRundungsdifAusgl + ' + Me.btnRundungsdifAusgl.Location = New System.Drawing.Point(1133, 7) + Me.btnRundungsdifAusgl.Name = "btnRundungsdifAusgl" + Me.btnRundungsdifAusgl.Size = New System.Drawing.Size(122, 42) + Me.btnRundungsdifAusgl.TabIndex = 51 + Me.btnRundungsdifAusgl.Text = "Rundungsdif. ausgleichen" + Me.btnRundungsdifAusgl.UseVisualStyleBackColor = True + ' 'btnNew ' Me.btnNew.Location = New System.Drawing.Point(1265, 13) @@ -905,6 +1314,21 @@ Partial Class frmGesamtsicherheitenNEU Me.btnSuche.Text = "Suche starten" Me.btnSuche.UseVisualStyleBackColor = True ' + 'cbx_Suche_Warenort + ' + Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing + Me.cbx_Suche_Warenort._allowFreiText = False + Me.cbx_Suche_Warenort._value = "" + Me.cbx_Suche_Warenort.DropDownWidth = 300 + Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_Suche_Warenort.FormattingEnabled = True + Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(274, 20) + Me.cbx_Suche_Warenort.MaxLength = 4 + Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" + Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) + Me.cbx_Suche_Warenort.TabIndex = 6 + Me.cbx_Suche_Warenort.Visible = False + ' 'Label19 ' Me.Label19.AutoSize = True @@ -935,6 +1359,84 @@ Partial Class frmGesamtsicherheitenNEU Me.Label21.TabIndex = 1 Me.Label21.Text = "Suche:" ' + 'btn_resetSearch + ' + Me.btn_resetSearch.allowBorder = False + Me.btn_resetSearch.BackColor = System.Drawing.Color.White + Me.btn_resetSearch.FlatAppearance.BorderSize = 0 + Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black + Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh + Me.btn_resetSearch.Location = New System.Drawing.Point(660, 10) + Me.btn_resetSearch.Name = "btn_resetSearch" + Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) + Me.btn_resetSearch.TabIndex = 4 + Me.btn_resetSearch.UseVisualStyleBackColor = False + ' + 'btnDeletePos + ' + Me.btnDeletePos.allowBorder = False + Me.btnDeletePos.BackColor = System.Drawing.Color.White + Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeletePos.FlatAppearance.BorderSize = 0 + Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeletePos.ForeColor = System.Drawing.Color.Black + Me.btnDeletePos.Location = New System.Drawing.Point(1357, 164) + Me.btnDeletePos.Name = "btnDeletePos" + Me.btnDeletePos.Size = New System.Drawing.Size(24, 24) + Me.btnDeletePos.TabIndex = 24 + Me.btnDeletePos.UseVisualStyleBackColor = False + Me.btnDeletePos.Visible = False + ' + 'btnDeleteSicherheit + ' + Me.btnDeleteSicherheit.allowBorder = False + Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White + Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0 + Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnDeleteSicherheit.Location = New System.Drawing.Point(665, 165) + Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit" + Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteSicherheit.TabIndex = 12 + Me.btnDeleteSicherheit.UseVisualStyleBackColor = False + Me.btnDeleteSicherheit.Visible = False + ' + 'btnUpdatePos + ' + Me.btnUpdatePos.allowBorder = False + Me.btnUpdatePos.BackColor = System.Drawing.Color.White + Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdatePos.FlatAppearance.BorderSize = 0 + Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black + Me.btnUpdatePos.Location = New System.Drawing.Point(1357, 245) + Me.btnUpdatePos.Name = "btnUpdatePos" + Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24) + Me.btnUpdatePos.TabIndex = 49 + Me.btnUpdatePos.UseVisualStyleBackColor = False + Me.btnUpdatePos.Visible = False + ' + 'btnUpdateSicherheit + ' + Me.btnUpdateSicherheit.allowBorder = False + Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White + Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0 + Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnUpdateSicherheit.Location = New System.Drawing.Point(665, 246) + Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit" + Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateSicherheit.TabIndex = 41 + Me.btnUpdateSicherheit.UseVisualStyleBackColor = False + Me.btnUpdateSicherheit.Visible = False + ' 'Label15 ' Me.Label15.AutoSize = True @@ -1133,498 +1635,6 @@ Partial Class frmGesamtsicherheitenNEU Me.txtSicherheitFreitext.Size = New System.Drawing.Size(260, 24) Me.txtSicherheitFreitext.TabIndex = 46 ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.BackColor = System.Drawing.Color.Gainsboro - 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(210, 160) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(75, 23) - Me.FlatButton3.TabIndex = 10 - Me.FlatButton3.Text = "Ändern" - Me.FlatButton3.UseVisualStyleBackColor = False - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackColor = System.Drawing.Color.White - Me.FlatButton4.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.FlatButton4.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Location = New System.Drawing.Point(261, 3) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(24, 24) - Me.FlatButton4.TabIndex = 0 - Me.FlatButton4.UseVisualStyleBackColor = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackColor = System.Drawing.Color.Gainsboro - 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(210, 77) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(75, 23) - Me.FlatButton1.TabIndex = 9 - Me.FlatButton1.Text = "Ändern" - Me.FlatButton1.UseVisualStyleBackColor = False - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackColor = System.Drawing.Color.White - Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.FlatButton2.DialogResult = System.Windows.Forms.DialogResult.Cancel - 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(261, 3) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(24, 24) - Me.FlatButton2.TabIndex = 0 - Me.FlatButton2.UseVisualStyleBackColor = False - ' - 'txtlkwIdSearch - ' - Me.txtlkwIdSearch._allowFreitext = True - Me.txtlkwIdSearch._AllowSetValue = False - Me.txtlkwIdSearch._allowSpaceAsSplitter = False - Me.txtlkwIdSearch._autoSizeGross = False - Me.txtlkwIdSearch._hideIfListEmpty = True - Me.txtlkwIdSearch._value = Nothing - Me.txtlkwIdSearch.conn_art = "FMZOLL" - Me.txtlkwIdSearch.dgvpos = "LEFT" - Me.txtlkwIdSearch.DISPLAY_PARAM = Nothing - Me.txtlkwIdSearch.INVISIBLE_COLUMNS = Nothing - Me.txtlkwIdSearch.key_visible = False - Me.txtlkwIdSearch.KEYPARAM = Nothing - Me.txtlkwIdSearch.Location = New System.Drawing.Point(279, 184) - Me.txtlkwIdSearch.Name = "txtlkwIdSearch" - Me.txtlkwIdSearch.searchActive = True - Me.txtlkwIdSearch.Size = New System.Drawing.Size(186, 20) - Me.txtlkwIdSearch.SQL_ORDER_BY = Nothing - Me.txtlkwIdSearch.SQL_SELECT = Nothing - Me.txtlkwIdSearch.SQL_WHERE = Nothing - Me.txtlkwIdSearch.SQL_WhereParamList = Nothing - Me.txtlkwIdSearch.TabIndex = 7 - Me.txtlkwIdSearch.usrcntl = Nothing - ' - 'cboWarenort - ' - Me.cboWarenort._allowedValuesFreiText = Nothing - Me.cboWarenort._allowFreiText = False - Me.cboWarenort._value = "" - Me.cboWarenort.DropDownWidth = 400 - Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboWarenort.FormattingEnabled = True - Me.cboWarenort.Location = New System.Drawing.Point(278, 64) - Me.cboWarenort.MaxLength = 4 - Me.cboWarenort.Name = "cboWarenort" - Me.cboWarenort.Size = New System.Drawing.Size(186, 24) - Me.cboWarenort.TabIndex = 2 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 300 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(279, 103) - Me.cboFiliale.MaxLength = 4 - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(186, 24) - Me.cboFiliale.TabIndex = 4 - ' - 'btnSave - ' - Me.btnSave.allowBorder = False - Me.btnSave.BackColor = System.Drawing.Color.Gainsboro - Me.btnSave.FlatAppearance.BorderSize = 0 - Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSave.ForeColor = System.Drawing.Color.Black - Me.btnSave.Location = New System.Drawing.Point(389, 252) - Me.btnSave.Name = "btnSave" - Me.btnSave.Size = New System.Drawing.Size(75, 23) - Me.btnSave.TabIndex = 9 - Me.btnSave.Text = "Speichern" - Me.btnSave.UseVisualStyleBackColor = False - ' - 'btnClosePanOverlay - ' - Me.btnClosePanOverlay.allowBorder = False - Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White - Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 - Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black - Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) - Me.btnClosePanOverlay.Name = "btnClosePanOverlay" - Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) - Me.btnClosePanOverlay.TabIndex = 0 - Me.btnClosePanOverlay.UseVisualStyleBackColor = False - ' - 'dgvGesamtsicherheit - ' - Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvGesamtsicherheit.AllowUserToAddRows = False - Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStripGesSicherh - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2 - Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left - Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0) - Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit" - Me.dgvGesamtsicherheit.ReadOnly = True - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 - Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 457) - Me.dgvGesamtsicherheit.TabIndex = 0 - ' - 'dgvSicherheitsPos - ' - Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvSicherheitsPos.AllowUserToAddRows = False - Me.dgvSicherheitsPos.AllowUserToDeleteRows = False - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 - Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvSicherheitsPos.ContextMenuStrip = Me.ContextMenuStripPosSicherheiten - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5 - Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right - Me.dgvSicherheitsPos.Location = New System.Drawing.Point(748, 0) - Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" - Me.dgvSicherheitsPos.ReadOnly = True - Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 457) - Me.dgvSicherheitsPos.TabIndex = 1 - ' - 'txtPosSicherheitsbGes - ' - Me.txtPosSicherheitsbGes._DateTimeOnly = False - Me.txtPosSicherheitsbGes._numbersOnly = False - Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = "" - Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False - Me.txtPosSicherheitsbGes._Prozent = False - Me.txtPosSicherheitsbGes._ShortDateNew = False - Me.txtPosSicherheitsbGes._ShortDateOnly = False - Me.txtPosSicherheitsbGes._TimeOnly = False - Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False - Me.txtPosSicherheitsbGes._value = "" - Me.txtPosSicherheitsbGes._Waehrung = True - Me.txtPosSicherheitsbGes._WaehrungZeichen = True - Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black - Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(1272, 6) - Me.txtPosSicherheitsbGes.MaxLineLength = -1 - Me.txtPosSicherheitsbGes.MaxLines_Warning = "" - Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing - Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes" - Me.txtPosSicherheitsbGes.ReadOnly = True - Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20) - Me.txtPosSicherheitsbGes.TabIndex = 5 - ' - 'txtSicherheitsbGes - ' - Me.txtSicherheitsbGes._DateTimeOnly = False - Me.txtSicherheitsbGes._numbersOnly = False - Me.txtSicherheitsbGes._numbersOnlyKommastellen = "" - Me.txtSicherheitsbGes._numbersOnlyTrennzeichen = False - Me.txtSicherheitsbGes._Prozent = False - Me.txtSicherheitsbGes._ShortDateNew = False - Me.txtSicherheitsbGes._ShortDateOnly = False - Me.txtSicherheitsbGes._TimeOnly = False - Me.txtSicherheitsbGes._TimeOnly_Seconds = False - Me.txtSicherheitsbGes._value = "" - Me.txtSicherheitsbGes._Waehrung = True - Me.txtSicherheitsbGes._WaehrungZeichen = True - Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black - Me.txtSicherheitsbGes.Location = New System.Drawing.Point(615, 5) - Me.txtSicherheitsbGes.MaxLineLength = -1 - Me.txtSicherheitsbGes.MaxLines_Warning = "" - Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing - Me.txtSicherheitsbGes.Name = "txtSicherheitsbGes" - Me.txtSicherheitsbGes.ReadOnly = True - Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20) - Me.txtSicherheitsbGes.TabIndex = 5 - ' - 'txtPosWarenwertGes - ' - Me.txtPosWarenwertGes._DateTimeOnly = False - Me.txtPosWarenwertGes._numbersOnly = False - Me.txtPosWarenwertGes._numbersOnlyKommastellen = "" - Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False - Me.txtPosWarenwertGes._Prozent = False - Me.txtPosWarenwertGes._ShortDateNew = False - Me.txtPosWarenwertGes._ShortDateOnly = False - Me.txtPosWarenwertGes._TimeOnly = False - Me.txtPosWarenwertGes._TimeOnly_Seconds = False - Me.txtPosWarenwertGes._value = "" - Me.txtPosWarenwertGes._Waehrung = True - Me.txtPosWarenwertGes._WaehrungZeichen = True - Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black - Me.txtPosWarenwertGes.Location = New System.Drawing.Point(1018, 6) - Me.txtPosWarenwertGes.MaxLineLength = -1 - Me.txtPosWarenwertGes.MaxLines_Warning = "" - Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing - Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes" - Me.txtPosWarenwertGes.ReadOnly = True - Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20) - Me.txtPosWarenwertGes.TabIndex = 3 - ' - 'txtWarenwertGes - ' - Me.txtWarenwertGes._DateTimeOnly = False - Me.txtWarenwertGes._numbersOnly = False - Me.txtWarenwertGes._numbersOnlyKommastellen = "" - Me.txtWarenwertGes._numbersOnlyTrennzeichen = False - Me.txtWarenwertGes._Prozent = False - Me.txtWarenwertGes._ShortDateNew = False - Me.txtWarenwertGes._ShortDateOnly = False - Me.txtWarenwertGes._TimeOnly = False - Me.txtWarenwertGes._TimeOnly_Seconds = False - Me.txtWarenwertGes._value = "" - Me.txtWarenwertGes._Waehrung = True - Me.txtWarenwertGes._WaehrungZeichen = True - Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black - Me.txtWarenwertGes.Location = New System.Drawing.Point(326, 6) - Me.txtWarenwertGes.MaxLineLength = -1 - Me.txtWarenwertGes.MaxLines_Warning = "" - Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing - Me.txtWarenwertGes.Name = "txtWarenwertGes" - Me.txtWarenwertGes.ReadOnly = True - Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20) - Me.txtWarenwertGes.TabIndex = 3 - ' - 'txtSicherheitDat - ' - Me.txtSicherheitDat._DateTimeOnly = False - Me.txtSicherheitDat._numbersOnly = False - Me.txtSicherheitDat._numbersOnlyKommastellen = "" - Me.txtSicherheitDat._numbersOnlyTrennzeichen = True - Me.txtSicherheitDat._Prozent = False - Me.txtSicherheitDat._ShortDateNew = False - Me.txtSicherheitDat._ShortDateOnly = True - Me.txtSicherheitDat._TimeOnly = False - Me.txtSicherheitDat._TimeOnly_Seconds = False - Me.txtSicherheitDat._value = "" - Me.txtSicherheitDat._Waehrung = False - Me.txtSicherheitDat._WaehrungZeichen = True - Me.txtSicherheitDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitDat.ForeColor = System.Drawing.Color.Black - Me.txtSicherheitDat.Location = New System.Drawing.Point(279, 204) - Me.txtSicherheitDat.MaxLength = 10 - Me.txtSicherheitDat.MaxLineLength = -1 - Me.txtSicherheitDat.MaxLines_Warning = "" - Me.txtSicherheitDat.MaxLines_Warning_Label = Nothing - Me.txtSicherheitDat.Multiline = True - Me.txtSicherheitDat.Name = "txtSicherheitDat" - Me.txtSicherheitDat.Size = New System.Drawing.Size(78, 24) - Me.txtSicherheitDat.TabIndex = 27 - ' - 'txtPosDat - ' - Me.txtPosDat._DateTimeOnly = False - Me.txtPosDat._numbersOnly = False - Me.txtPosDat._numbersOnlyKommastellen = "" - Me.txtPosDat._numbersOnlyTrennzeichen = True - Me.txtPosDat._Prozent = False - Me.txtPosDat._ShortDateNew = False - Me.txtPosDat._ShortDateOnly = True - Me.txtPosDat._TimeOnly = False - Me.txtPosDat._TimeOnly_Seconds = False - Me.txtPosDat._value = "" - Me.txtPosDat._Waehrung = False - Me.txtPosDat._WaehrungZeichen = True - Me.txtPosDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPosDat.ForeColor = System.Drawing.Color.Black - Me.txtPosDat.Location = New System.Drawing.Point(965, 204) - Me.txtPosDat.MaxLength = 10 - Me.txtPosDat.MaxLineLength = -1 - Me.txtPosDat.MaxLines_Warning = "" - Me.txtPosDat.MaxLines_Warning_Label = Nothing - Me.txtPosDat.Multiline = True - Me.txtPosDat.Name = "txtPosDat" - Me.txtPosDat.Size = New System.Drawing.Size(78, 24) - Me.txtPosDat.TabIndex = 32 - ' - 'btnSaveDatetime - ' - Me.btnSaveDatetime.allowBorder = False - Me.btnSaveDatetime.BackColor = System.Drawing.Color.White - Me.btnSaveDatetime.FlatAppearance.BorderSize = 0 - Me.btnSaveDatetime.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSaveDatetime.ForeColor = System.Drawing.Color.Black - Me.btnSaveDatetime.Location = New System.Drawing.Point(12, 165) - Me.btnSaveDatetime.Name = "btnSaveDatetime" - Me.btnSaveDatetime.Size = New System.Drawing.Size(75, 23) - Me.btnSaveDatetime.TabIndex = 11 - Me.btnSaveDatetime.Text = "speichern" - Me.btnSaveDatetime.UseVisualStyleBackColor = False - ' - 'txtZollsatzueberschreiben - ' - Me.txtZollsatzueberschreiben._DateTimeOnly = False - Me.txtZollsatzueberschreiben._numbersOnly = True - Me.txtZollsatzueberschreiben._numbersOnlyKommastellen = "" - Me.txtZollsatzueberschreiben._numbersOnlyTrennzeichen = True - Me.txtZollsatzueberschreiben._Prozent = False - Me.txtZollsatzueberschreiben._ShortDateNew = False - Me.txtZollsatzueberschreiben._ShortDateOnly = False - Me.txtZollsatzueberschreiben._TimeOnly = False - Me.txtZollsatzueberschreiben._TimeOnly_Seconds = False - Me.txtZollsatzueberschreiben._value = "" - Me.txtZollsatzueberschreiben._Waehrung = False - Me.txtZollsatzueberschreiben._WaehrungZeichen = True - Me.txtZollsatzueberschreiben.Enabled = False - Me.txtZollsatzueberschreiben.ForeColor = System.Drawing.Color.Black - Me.txtZollsatzueberschreiben.Location = New System.Drawing.Point(908, 156) - Me.txtZollsatzueberschreiben.MaxLineLength = -1 - Me.txtZollsatzueberschreiben.MaxLines_Warning = "" - Me.txtZollsatzueberschreiben.MaxLines_Warning_Label = Nothing - Me.txtZollsatzueberschreiben.Name = "txtZollsatzueberschreiben" - Me.txtZollsatzueberschreiben.Size = New System.Drawing.Size(30, 20) - Me.txtZollsatzueberschreiben.TabIndex = 10 - ' - 'cbx_Suche_Warenort - ' - Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing - Me.cbx_Suche_Warenort._allowFreiText = False - Me.cbx_Suche_Warenort._value = "" - Me.cbx_Suche_Warenort.DropDownWidth = 300 - Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbx_Suche_Warenort.FormattingEnabled = True - Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(274, 20) - Me.cbx_Suche_Warenort.MaxLength = 4 - Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" - Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) - Me.cbx_Suche_Warenort.TabIndex = 6 - Me.cbx_Suche_Warenort.Visible = False - ' - 'btn_resetSearch - ' - Me.btn_resetSearch.allowBorder = False - Me.btn_resetSearch.BackColor = System.Drawing.Color.White - Me.btn_resetSearch.FlatAppearance.BorderSize = 0 - Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black - Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh - Me.btn_resetSearch.Location = New System.Drawing.Point(660, 10) - Me.btn_resetSearch.Name = "btn_resetSearch" - Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) - Me.btn_resetSearch.TabIndex = 4 - Me.btn_resetSearch.UseVisualStyleBackColor = False - ' - 'btnDeletePos - ' - Me.btnDeletePos.allowBorder = False - Me.btnDeletePos.BackColor = System.Drawing.Color.White - Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeletePos.FlatAppearance.BorderSize = 0 - Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeletePos.ForeColor = System.Drawing.Color.Black - Me.btnDeletePos.Location = New System.Drawing.Point(1357, 164) - Me.btnDeletePos.Name = "btnDeletePos" - Me.btnDeletePos.Size = New System.Drawing.Size(24, 24) - Me.btnDeletePos.TabIndex = 24 - Me.btnDeletePos.UseVisualStyleBackColor = False - Me.btnDeletePos.Visible = False - ' - 'btnDeleteSicherheit - ' - Me.btnDeleteSicherheit.allowBorder = False - Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White - Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0 - Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black - Me.btnDeleteSicherheit.Location = New System.Drawing.Point(665, 165) - Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit" - Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24) - Me.btnDeleteSicherheit.TabIndex = 12 - Me.btnDeleteSicherheit.UseVisualStyleBackColor = False - Me.btnDeleteSicherheit.Visible = False - ' - 'btnUpdatePos - ' - Me.btnUpdatePos.allowBorder = False - Me.btnUpdatePos.BackColor = System.Drawing.Color.White - Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdatePos.FlatAppearance.BorderSize = 0 - Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black - Me.btnUpdatePos.Location = New System.Drawing.Point(1357, 245) - Me.btnUpdatePos.Name = "btnUpdatePos" - Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24) - Me.btnUpdatePos.TabIndex = 49 - Me.btnUpdatePos.UseVisualStyleBackColor = False - Me.btnUpdatePos.Visible = False - ' - 'btnUpdateSicherheit - ' - Me.btnUpdateSicherheit.allowBorder = False - Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White - Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0 - Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black - Me.btnUpdateSicherheit.Location = New System.Drawing.Point(665, 246) - Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit" - Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24) - Me.btnUpdateSicherheit.TabIndex = 41 - Me.btnUpdateSicherheit.UseVisualStyleBackColor = False - Me.btnUpdateSicherheit.Visible = False - ' 'btnAddPos ' Me.btnAddPos.allowBorder = False @@ -1676,6 +1686,8 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATBNr.PerformLayout() Me.panOverlay.ResumeLayout(False) Me.panOverlay.PerformLayout() + CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStripPosSicherheiten.ResumeLayout(False) Me.pnlSummeGes.ResumeLayout(False) Me.pnlSummeGes.PerformLayout() @@ -1683,8 +1695,6 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() - CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -1804,4 +1814,5 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents dtpSicherheitDat As DateTimePicker Friend WithEvents txtSicherheitsbetragContext As TextBox Friend WithEvents Label30 As Label + Friend WithEvents btnRundungsdifAusgl As Button End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 9c8aefa..37b4df1 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -38,6 +38,8 @@ Public Class frmGesamtsicherheitenNEU Dim isOpen As Boolean = False + Dim rundungsdiff As Double = 0 + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Public dataTable As New DataTable() @@ -50,6 +52,12 @@ Public Class frmGesamtsicherheitenNEU Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT_RUNDUNGSKORREKTUR", "AVISO") Then + btnRundungsdifAusgl.Visible = True + Else + btnRundungsdifAusgl.Visible = False + End If + currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") @@ -810,8 +818,14 @@ Public Class frmGesamtsicherheitenNEU currentSicherheit = Sicherh txtAnzahlPos.Enabled = False - btnAddSicherheit.Visible = False - btnUpdateSicherheit.Visible = True + If Sicherh.gs_isRundungsdiff = True Then + btnAddSicherheit.Visible = False + btnUpdateSicherheit.Visible = False + Else + btnAddSicherheit.Visible = False + btnUpdateSicherheit.Visible = True + End If + btnDeleteSicherheit.Visible = True End Sub @@ -878,7 +892,7 @@ Public Class frmGesamtsicherheitenNEU Private Sub dgvGesamtsicherheitPositionen_CellCellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellDoubleClick Dim sPos As New cGesamtsicherheitsPositionen(dgvSicherheitsPos.CurrentRow.Cells("gsp_gsId").Value, dgvSicherheitsPos.CurrentRow.Cells("gsp_gspPosId").Value) - + If sPos.gsp_isPosRundungsdiff = True Then Exit Sub txtPosNr.Text = sPos.gsp_gspPosId txtPosFreitext.Text = sPos.gsp_freitext txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag @@ -1373,6 +1387,14 @@ Public Class frmGesamtsicherheitenNEU lbloffenerWarenwert.Text = "offener Warenwert: €" lbloffenerWarenwert.Text &= Math.Round(countWarenwert, 2) - Math.Round(countWarenwertPos, 2) + If (Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) < 0.1 AndAlso Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) <> 0) Then + btnRundungsdifAusgl.Enabled = True + rundungsdiff = Math.Round(countSicherheitsbetrag - countSicherheitsbetragPos, 2) + Else + btnRundungsdifAusgl.Enabled = False + End If + + End Sub @@ -1645,4 +1667,76 @@ Public Class frmGesamtsicherheitenNEU End If End Sub + + Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click + + Try + If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then + + Dim OPEN As New cSicherheiten() + + With OPEN + .gs_gsNr = gessicherheitID + .gs_ATBNr = "Korrekt. Rundungsdiff. " & gessicherheitID + .gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1 + .gs_datum = DateTime.Now + .gs_warenwert = 0 + .gs_sicherheitsbetrag = 0 + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_erstellungsdatum = DateTime.Now + .gs_freitext = "" + .gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo + .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) + .gs_zollsatz = Me.Zollsatz + .gs_avisoId = Me.avisoID + .gs_isRundungsdiff = True + setEnviromentDataToObject(OPEN, Me) + End With + + Dim gs_gsId = OPEN.SAVEOBJECT() + + Dim SicherheitsPos As New cGesamtsicherheitsPositionen() + With SicherheitsPos + .gsp_gsId = gs_gsId + .gsp_gspPosId = OPEN.gs_posNr + .gsp_warenwert = 0 + .gsp_sicherheitsbetrag = rundungsdiff + .gsp_freitext = "" + .gsp_filialenNr = currentSicherheit.gs_filialenNr + .gsp_art = "CLOSE" + .gsp_gsNr = gessicherheitID + .gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr + .gsp_datum = DateTime.Now + .gsp_erstellungsdatum = DateTime.Now + .gsp_ust = currentSicherheit.gs_ust + .gsp_ATCNr = "Korrekt. Rundungsdiff. " & gessicherheitID + .gsp_isPosRundungsdiff = True + .gsp_avisoId = Me.avisoID + End With + + SicherheitsPos.SAVE() + + AfterButton() + + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + + End Sub + + Private Function checkIfRundungsPosExists() + + If dgvGesamtsicherheit.Rows.Count < 1 Then Return False + + For Each Row In dgvGesamtsicherheit.Rows + Dim sicherh As New cSicherheiten(Row.Cells("gs_gsId").Value, Row.Cells("gs_posNr").Value) + + If sicherh.gs_isRundungsdiff Then Return True + + Next + Return False + + End Function End Class