diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index 77ddaf6..775515d 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -28,7 +28,7 @@ Public Class frmATEZ_EZA Dim id As Integer = -1 Dim dgv As DataGridView = Nothing Dim atez_data As cATEZ_NCTS_DATA - 'Dim atez = New cATEZ_NCTS_IN("atez_ncts") + Dim atez = New cATEZ_NCTS_IN("atez_ncts") Dim allSelected As Boolean = False Property BezugsNr As String = "" diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index da2bd2d..8a8d1fd 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -22,18 +22,17 @@ Partial Class frmGesamtsicherheitenNEU 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU)) 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.MRNNRÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlChangeATCNr = New System.Windows.Forms.Panel() - Me.txtDatumaendern = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox() Me.Label30 = New System.Windows.Forms.Label() Me.txtWarenwertContext = New System.Windows.Forms.TextBox() @@ -41,40 +40,25 @@ Partial Class frmGesamtsicherheitenNEU Me.txtUhrzeitaendern = 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.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.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip(Me.components) + 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() @@ -94,15 +78,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.Label31 = New System.Windows.Forms.Label() + Me.txtMRNNr = New System.Windows.Forms.TextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.txtSPosNr = New System.Windows.Forms.TextBox() 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() @@ -116,10 +100,6 @@ Partial Class frmGesamtsicherheitenNEU Me.cbx_offene = New System.Windows.Forms.CheckBox() Me.txtSuche = New System.Windows.Forms.TextBox() Me.Label21 = New System.Windows.Forms.Label() - 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() @@ -140,34 +120,65 @@ 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.txtDatumaendern = New VERAG_PROG_ALLGEMEIN.MyTextBox() + 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.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + 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.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.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStripGesSicherh.SuspendLayout() Me.Panel2.SuspendLayout() 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 ' - Me.ContextMenuStripGesSicherh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATBNraendernToolStripMenuItem}) + Me.ContextMenuStripGesSicherh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATBNraendernToolStripMenuItem, Me.MRNNRÄndernToolStripMenuItem, Me.LöschenToolStripMenuItem}) Me.ContextMenuStripGesSicherh.Name = "ContextMenuStrip1" - Me.ContextMenuStripGesSicherh.Size = New System.Drawing.Size(153, 26) + Me.ContextMenuStripGesSicherh.Size = New System.Drawing.Size(201, 92) ' 'ATBNraendernToolStripMenuItem ' Me.ATBNraendernToolStripMenuItem.Name = "ATBNraendernToolStripMenuItem" - Me.ATBNraendernToolStripMenuItem.Size = New System.Drawing.Size(152, 22) - Me.ATBNraendernToolStripMenuItem.Text = "ATB-Nr ändern" + Me.ATBNraendernToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.ATBNraendernToolStripMenuItem.Text = "Vorpapier/T1-Nr ändern" Me.ATBNraendernToolStripMenuItem.Visible = False ' + 'MRNNRÄndernToolStripMenuItem + ' + Me.MRNNRÄndernToolStripMenuItem.Name = "MRNNRÄndernToolStripMenuItem" + Me.MRNNRÄndernToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.MRNNRÄndernToolStripMenuItem.Text = "MRN-NR ändern" + ' 'Panel2 ' Me.Panel2.Controls.Add(Me.pnlChangeATCNr) @@ -179,7 +190,7 @@ Partial Class frmGesamtsicherheitenNEU Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Location = New System.Drawing.Point(0, 287) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(1584, 489) + Me.Panel2.Size = New System.Drawing.Size(1444, 489) Me.Panel2.TabIndex = 1 ' 'pnlChangeATCNr @@ -203,32 +214,6 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATCNr.TabIndex = 13 Me.pnlChangeATCNr.Visible = False ' - 'txtDatumaendern - ' - Me.txtDatumaendern._DateTimeOnly = False - Me.txtDatumaendern._numbersOnly = False - Me.txtDatumaendern._numbersOnlyKommastellen = "" - Me.txtDatumaendern._numbersOnlyTrennzeichen = True - Me.txtDatumaendern._Prozent = False - Me.txtDatumaendern._ShortDateNew = False - Me.txtDatumaendern._ShortDateOnly = True - Me.txtDatumaendern._TimeOnly = False - Me.txtDatumaendern._TimeOnly_Seconds = False - Me.txtDatumaendern._value = "" - Me.txtDatumaendern._Waehrung = False - Me.txtDatumaendern._WaehrungZeichen = True - Me.txtDatumaendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDatumaendern.ForeColor = System.Drawing.Color.Black - Me.txtDatumaendern.Location = New System.Drawing.Point(95, 72) - Me.txtDatumaendern.MaxLength = 10 - Me.txtDatumaendern.MaxLineLength = -1 - Me.txtDatumaendern.MaxLines_Warning = "" - Me.txtDatumaendern.MaxLines_Warning_Label = Nothing - Me.txtDatumaendern.Multiline = True - Me.txtDatumaendern.Name = "txtDatumaendern" - Me.txtDatumaendern.Size = New System.Drawing.Size(112, 24) - Me.txtDatumaendern.TabIndex = 61 - ' 'txtSicherheitsbetragContext ' Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -298,20 +283,6 @@ 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)) @@ -331,22 +302,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label34.TabIndex = 5 Me.Label34.Text = "Reg-Nr./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 @@ -371,20 +326,6 @@ 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)) @@ -404,22 +345,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label32.TabIndex = 5 Me.Label32.Text = "Reg-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 @@ -441,31 +366,6 @@ 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 @@ -476,20 +376,6 @@ 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 @@ -500,34 +386,6 @@ 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)) @@ -576,102 +434,16 @@ 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(822, 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(828, 0) - Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" - Me.dgvSicherheitsPos.ReadOnly = True - Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSicherheitsPos.Size = New System.Drawing.Size(756, 457) - Me.dgvSicherheitsPos.TabIndex = 1 - ' 'ContextMenuStripPosSicherheiten ' Me.ContextMenuStripPosSicherheiten.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATCMRNNraendernToolStripMenuItem}) Me.ContextMenuStripPosSicherheiten.Name = "ContextMenuStrip" - Me.ContextMenuStripPosSicherheiten.Size = New System.Drawing.Size(185, 26) + Me.ContextMenuStripPosSicherheiten.Size = New System.Drawing.Size(186, 26) ' 'ATCMRNNraendernToolStripMenuItem ' Me.ATCMRNNraendernToolStripMenuItem.Name = "ATCMRNNraendernToolStripMenuItem" - Me.ATCMRNNraendernToolStripMenuItem.Size = New System.Drawing.Size(184, 22) + Me.ATCMRNNraendernToolStripMenuItem.Size = New System.Drawing.Size(185, 22) Me.ATCMRNNraendernToolStripMenuItem.Text = "ATC/MRN-Nr ändern" Me.ATCMRNNraendernToolStripMenuItem.Visible = False ' @@ -693,57 +465,9 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlSummeGes.Dock = System.Windows.Forms.DockStyle.Bottom Me.pnlSummeGes.Location = New System.Drawing.Point(0, 457) Me.pnlSummeGes.Name = "pnlSummeGes" - Me.pnlSummeGes.Size = New System.Drawing.Size(1584, 32) + Me.pnlSummeGes.Size = New System.Drawing.Size(1444, 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 @@ -754,30 +478,6 @@ 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 @@ -788,30 +488,6 @@ 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) @@ -874,7 +550,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lblGestellungNr.AutoSize = True Me.lblGestellungNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblGestellungNr.ForeColor = System.Drawing.Color.Honeydew - Me.lblGestellungNr.Location = New System.Drawing.Point(212, 7) + Me.lblGestellungNr.Location = New System.Drawing.Point(72, 7) Me.lblGestellungNr.Name = "lblGestellungNr" Me.lblGestellungNr.Size = New System.Drawing.Size(177, 24) Me.lblGestellungNr.TabIndex = 1 @@ -887,16 +563,16 @@ Partial Class frmGesamtsicherheitenNEU Me.txtPosTime.Margin = New System.Windows.Forms.Padding(0) Me.txtPosTime.Name = "txtPosTime" Me.txtPosTime.Size = New System.Drawing.Size(55, 24) - Me.txtPosTime.TabIndex = 33 + Me.txtPosTime.TabIndex = 34 ' 'txtSicherheitTime ' Me.txtSicherheitTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitTime.Location = New System.Drawing.Point(415, 204) + Me.txtSicherheitTime.Location = New System.Drawing.Point(595, 200) Me.txtSicherheitTime.Margin = New System.Windows.Forms.Padding(0) Me.txtSicherheitTime.Name = "txtSicherheitTime" Me.txtSicherheitTime.Size = New System.Drawing.Size(55, 24) - Me.txtSicherheitTime.TabIndex = 28 + Me.txtSicherheitTime.TabIndex = 29 ' 'txtPosSicherheitsbetrag ' @@ -906,7 +582,7 @@ Partial Class frmGesamtsicherheitenNEU Me.txtPosSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) Me.txtPosSicherheitsbetrag.Name = "txtPosSicherheitsbetrag" Me.txtPosSicherheitsbetrag.Size = New System.Drawing.Size(104, 24) - Me.txtPosSicherheitsbetrag.TabIndex = 35 + Me.txtPosSicherheitsbetrag.TabIndex = 36 ' 'txtPosWarenwert ' @@ -915,43 +591,45 @@ Partial Class frmGesamtsicherheitenNEU Me.txtPosWarenwert.Margin = New System.Windows.Forms.Padding(0) Me.txtPosWarenwert.Name = "txtPosWarenwert" Me.txtPosWarenwert.Size = New System.Drawing.Size(100, 24) - Me.txtPosWarenwert.TabIndex = 34 + Me.txtPosWarenwert.TabIndex = 35 ' 'txtPositionenCRN ' + Me.txtPositionenCRN.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper Me.txtPositionenCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtPositionenCRN.Location = New System.Drawing.Point(943, 204) Me.txtPositionenCRN.Margin = New System.Windows.Forms.Padding(0) Me.txtPositionenCRN.Name = "txtPositionenCRN" Me.txtPositionenCRN.Size = New System.Drawing.Size(203, 24) - Me.txtPositionenCRN.TabIndex = 31 + Me.txtPositionenCRN.TabIndex = 32 ' 'txtSicherheitSicherheitsbetrag ' Me.txtSicherheitSicherheitsbetrag.Enabled = False Me.txtSicherheitSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitSicherheitsbetrag.Location = New System.Drawing.Point(624, 204) + Me.txtSicherheitSicherheitsbetrag.Location = New System.Drawing.Point(772, 201) Me.txtSicherheitSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) Me.txtSicherheitSicherheitsbetrag.Name = "txtSicherheitSicherheitsbetrag" - Me.txtSicherheitSicherheitsbetrag.Size = New System.Drawing.Size(106, 24) - Me.txtSicherheitSicherheitsbetrag.TabIndex = 30 + Me.txtSicherheitSicherheitsbetrag.Size = New System.Drawing.Size(90, 24) + Me.txtSicherheitSicherheitsbetrag.TabIndex = 31 ' 'txtSicherheitWarenwert ' Me.txtSicherheitWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitWarenwert.Location = New System.Drawing.Point(471, 204) + Me.txtSicherheitWarenwert.Location = New System.Drawing.Point(652, 200) Me.txtSicherheitWarenwert.Margin = New System.Windows.Forms.Padding(0) Me.txtSicherheitWarenwert.Name = "txtSicherheitWarenwert" - Me.txtSicherheitWarenwert.Size = New System.Drawing.Size(151, 24) - Me.txtSicherheitWarenwert.TabIndex = 29 + Me.txtSicherheitWarenwert.Size = New System.Drawing.Size(116, 24) + Me.txtSicherheitWarenwert.TabIndex = 30 ' 'txtSicherheitATBNr ' + Me.txtSicherheitATBNr.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper Me.txtSicherheitATBNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitATBNr.Location = New System.Drawing.Point(12, 204) + Me.txtSicherheitATBNr.Location = New System.Drawing.Point(90, 200) Me.txtSicherheitATBNr.Margin = New System.Windows.Forms.Padding(0) Me.txtSicherheitATBNr.Name = "txtSicherheitATBNr" - Me.txtSicherheitATBNr.Size = New System.Drawing.Size(252, 24) + Me.txtSicherheitATBNr.Size = New System.Drawing.Size(165, 24) Me.txtSicherheitATBNr.TabIndex = 25 ' 'lblZollsatz @@ -960,7 +638,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lblZollsatz.AutoSize = True Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew - Me.lblZollsatz.Location = New System.Drawing.Point(1152, 137) + Me.lblZollsatz.Location = New System.Drawing.Point(1012, 137) Me.lblZollsatz.Name = "lblZollsatz" Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) Me.lblZollsatz.TabIndex = 7 @@ -972,7 +650,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lblReferenzwert.AutoSize = True Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew - Me.lblReferenzwert.Location = New System.Drawing.Point(1152, 121) + Me.lblReferenzwert.Location = New System.Drawing.Point(1012, 121) Me.lblReferenzwert.Name = "lblReferenzwert" Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) Me.lblReferenzwert.TabIndex = 6 @@ -984,7 +662,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lblSaldo.AutoSize = True Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew - Me.lblSaldo.Location = New System.Drawing.Point(1339, 105) + Me.lblSaldo.Location = New System.Drawing.Point(1199, 105) Me.lblSaldo.Name = "lblSaldo" Me.lblSaldo.Size = New System.Drawing.Size(147, 24) Me.lblSaldo.TabIndex = 5 @@ -993,6 +671,10 @@ Partial Class frmGesamtsicherheitenNEU 'panOben ' Me.panOben.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.panOben.Controls.Add(Me.Label31) + Me.panOben.Controls.Add(Me.txtMRNNr) + Me.panOben.Controls.Add(Me.Label19) + Me.panOben.Controls.Add(Me.txtSPosNr) Me.panOben.Controls.Add(Me.txtSicherheitDat) Me.panOben.Controls.Add(Me.dtpSicherheitDat) Me.panOben.Controls.Add(Me.txtPosDat) @@ -1051,72 +733,59 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.Location = New System.Drawing.Point(0, 0) Me.panOben.Margin = New System.Windows.Forms.Padding(0) Me.panOben.Name = "panOben" - Me.panOben.Size = New System.Drawing.Size(1584, 287) + Me.panOben.Size = New System.Drawing.Size(1444, 287) Me.panOben.TabIndex = 0 ' - 'txtSicherheitDat + 'Label31 ' - 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(304, 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 + Me.Label31.AutoSize = True + Me.Label31.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label31.Location = New System.Drawing.Point(317, 187) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(79, 13) + Me.Label31.TabIndex = 57 + Me.Label31.Text = "MRN/SumA-Nr" + ' + 'txtMRNNr + ' + Me.txtMRNNr.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtMRNNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMRNNr.Location = New System.Drawing.Point(297, 200) + Me.txtMRNNr.Margin = New System.Windows.Forms.Padding(0) + Me.txtMRNNr.Name = "txtMRNNr" + Me.txtMRNNr.Size = New System.Drawing.Size(143, 24) + Me.txtMRNNr.TabIndex = 27 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label19.Location = New System.Drawing.Point(440, 188) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(35, 13) + Me.Label19.TabIndex = 55 + Me.Label19.Text = "S-Pos" + ' + 'txtSPosNr + ' + Me.txtSPosNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSPosNr.Location = New System.Drawing.Point(443, 201) + Me.txtSPosNr.Margin = New System.Windows.Forms.Padding(0) + Me.txtSPosNr.Name = "txtSPosNr" + Me.txtSPosNr.Size = New System.Drawing.Size(35, 24) + Me.txtSPosNr.TabIndex = 56 ' 'dtpSicherheitDat ' Me.dtpSicherheitDat.CustomFormat = "''" Me.dtpSicherheitDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dtpSicherheitDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.dtpSicherheitDat.Location = New System.Drawing.Point(304, 204) + Me.dtpSicherheitDat.Location = New System.Drawing.Point(483, 200) Me.dtpSicherheitDat.Margin = New System.Windows.Forms.Padding(0) Me.dtpSicherheitDat.Name = "dtpSicherheitDat" 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(1148, 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 = "''" @@ -1135,7 +804,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lbloffenerWarenwert.AutoSize = True Me.lbloffenerWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lbloffenerWarenwert.ForeColor = System.Drawing.Color.Red - Me.lbloffenerWarenwert.Location = New System.Drawing.Point(293, 109) + Me.lbloffenerWarenwert.Location = New System.Drawing.Point(153, 109) Me.lbloffenerWarenwert.Name = "lbloffenerWarenwert" Me.lbloffenerWarenwert.Size = New System.Drawing.Size(204, 24) Me.lbloffenerWarenwert.TabIndex = 51 @@ -1153,57 +822,18 @@ 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 - Me.btnSaveDatetime.Visible = False - ' 'lblId ' Me.lblId.Anchor = System.Windows.Forms.AnchorStyles.Right Me.lblId.AutoSize = True Me.lblId.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblId.ForeColor = System.Drawing.Color.Honeydew - Me.lblId.Location = New System.Drawing.Point(1429, 7) + Me.lblId.Location = New System.Drawing.Point(1289, 7) Me.lblId.Name = "lblId" Me.lblId.Size = New System.Drawing.Size(29, 24) 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(1091, 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 @@ -1234,7 +864,7 @@ Partial Class frmGesamtsicherheitenNEU Me.lbloffenerSaldo.AutoSize = True Me.lbloffenerSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lbloffenerSaldo.ForeColor = System.Drawing.Color.Red - Me.lbloffenerSaldo.Location = New System.Drawing.Point(293, 137) + Me.lbloffenerSaldo.Location = New System.Drawing.Point(153, 137) Me.lbloffenerSaldo.Name = "lbloffenerSaldo" Me.lbloffenerSaldo.Size = New System.Drawing.Size(253, 24) Me.lbloffenerSaldo.TabIndex = 4 @@ -1344,75 +974,11 @@ Partial Class frmGesamtsicherheitenNEU Me.Label21.TabIndex = 1 Me.Label21.Text = "Suche:" ' - '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(1540, 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(748, 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(1540, 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(748, 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 Me.Label15.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.Label15.Location = New System.Drawing.Point(267, 191) + Me.Label15.Location = New System.Drawing.Point(256, 187) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(25, 13) Me.Label15.TabIndex = 14 @@ -1421,7 +987,7 @@ Partial Class frmGesamtsicherheitenNEU 'txtAnzahlPos ' Me.txtAnzahlPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAnzahlPos.Location = New System.Drawing.Point(267, 204) + Me.txtAnzahlPos.Location = New System.Drawing.Point(259, 200) Me.txtAnzahlPos.Margin = New System.Windows.Forms.Padding(0) Me.txtAnzahlPos.Name = "txtAnzahlPos" Me.txtAnzahlPos.Size = New System.Drawing.Size(35, 24) @@ -1441,7 +1007,7 @@ Partial Class frmGesamtsicherheitenNEU ' Me.txtSicherheitEust.Enabled = False Me.txtSicherheitEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitEust.Location = New System.Drawing.Point(267, 246) + Me.txtSicherheitEust.Location = New System.Drawing.Point(267, 248) Me.txtSicherheitEust.Margin = New System.Windows.Forms.Padding(0) Me.txtSicherheitEust.Name = "txtSicherheitEust" Me.txtSicherheitEust.Size = New System.Drawing.Size(70, 24) @@ -1532,7 +1098,7 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label6.AutoSize = True Me.Label6.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.Label6.Location = New System.Drawing.Point(469, 233) + Me.Label6.Location = New System.Drawing.Point(599, 224) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(41, 13) Me.Label6.TabIndex = 40 @@ -1542,7 +1108,7 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label5.AutoSize = True Me.Label5.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.Label5.Location = New System.Drawing.Point(472, 191) + Me.Label5.Location = New System.Drawing.Point(649, 187) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(59, 13) Me.Label5.TabIndex = 17 @@ -1552,7 +1118,7 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label4.AutoSize = True Me.Label4.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.Label4.Location = New System.Drawing.Point(616, 191) + Me.Label4.Location = New System.Drawing.Point(779, 188) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(89, 13) Me.Label4.TabIndex = 18 @@ -1562,7 +1128,7 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label3.AutoSize = True Me.Label3.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.Label3.Location = New System.Drawing.Point(417, 191) + Me.Label3.Location = New System.Drawing.Point(591, 188) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(40, 13) Me.Label3.TabIndex = 16 @@ -1572,7 +1138,7 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label2.AutoSize = True Me.Label2.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.Label2.Location = New System.Drawing.Point(299, 191) + Me.Label2.Location = New System.Drawing.Point(481, 188) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(38, 13) Me.Label2.TabIndex = 15 @@ -1582,11 +1148,11 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.Label1.Location = New System.Drawing.Point(76, 191) + Me.Label1.Location = New System.Drawing.Point(96, 187) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(47, 13) + Me.Label1.Size = New System.Drawing.Size(70, 13) Me.Label1.TabIndex = 13 - Me.Label1.Text = "Reg. Nr." + Me.Label1.Text = "Vorpapier/T1" ' 'txtPosFreitext ' @@ -1600,17 +1166,507 @@ Partial Class frmGesamtsicherheitenNEU 'txtSicherheitFreitext ' Me.txtSicherheitFreitext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitFreitext.Location = New System.Drawing.Point(472, 250) + Me.txtSicherheitFreitext.Location = New System.Drawing.Point(602, 244) Me.txtSicherheitFreitext.Margin = New System.Windows.Forms.Padding(0) Me.txtSicherheitFreitext.Name = "txtSicherheitFreitext" Me.txtSicherheitFreitext.Size = New System.Drawing.Size(260, 24) Me.txtSicherheitFreitext.TabIndex = 46 ' + 'txtDatumaendern + ' + Me.txtDatumaendern._DateTimeOnly = False + Me.txtDatumaendern._numbersOnly = False + Me.txtDatumaendern._numbersOnlyKommastellen = "" + Me.txtDatumaendern._numbersOnlyTrennzeichen = True + Me.txtDatumaendern._Prozent = False + Me.txtDatumaendern._ShortDateNew = False + Me.txtDatumaendern._ShortDateOnly = True + Me.txtDatumaendern._TimeOnly = False + Me.txtDatumaendern._TimeOnly_Seconds = False + Me.txtDatumaendern._value = "" + Me.txtDatumaendern._Waehrung = False + Me.txtDatumaendern._WaehrungZeichen = True + Me.txtDatumaendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatumaendern.ForeColor = System.Drawing.Color.Black + Me.txtDatumaendern.Location = New System.Drawing.Point(95, 72) + Me.txtDatumaendern.MaxLength = 10 + Me.txtDatumaendern.MaxLineLength = -1 + Me.txtDatumaendern.MaxLines_Warning = "" + Me.txtDatumaendern.MaxLines_Warning_Label = Nothing + Me.txtDatumaendern.Multiline = True + Me.txtDatumaendern.Name = "txtDatumaendern" + Me.txtDatumaendern.Size = New System.Drawing.Size(112, 24) + Me.txtDatumaendern.TabIndex = 61 + ' + '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 = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image) + 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 = CType(resources.GetObject("FlatButton2.BackgroundImage"), System.Drawing.Image) + 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 = CType(resources.GetObject("btnClosePanOverlay.BackgroundImage"), System.Drawing.Image) + 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(922, 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(688, 0) + Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" + Me.dgvSicherheitsPos.ReadOnly = True + Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvSicherheitsPos.Size = New System.Drawing.Size(756, 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(483, 200) + 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 = 28 + ' + '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(1148, 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 = 33 + ' + '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, 156) + 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 + Me.btnSaveDatetime.Visible = 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(1091, 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 + ' + 'btnDeletePos + ' + Me.btnDeletePos.allowBorder = False + Me.btnDeletePos.BackColor = System.Drawing.Color.White + Me.btnDeletePos.BackgroundImage = CType(resources.GetObject("btnDeletePos.BackgroundImage"), System.Drawing.Image) + 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(1540, 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 = CType(resources.GetObject("btnDeleteSicherheit.BackgroundImage"), System.Drawing.Image) + 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(874, 164) + 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 = CType(resources.GetObject("btnUpdatePos.BackgroundImage"), System.Drawing.Image) + 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(1540, 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 = CType(resources.GetObject("btnUpdateSicherheit.BackgroundImage"), System.Drawing.Image) + 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(874, 245) + 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 Me.btnAddPos.BackColor = System.Drawing.Color.White - Me.btnAddPos.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddPos.BackgroundImage = CType(resources.GetObject("btnAddPos.BackgroundImage"), System.Drawing.Image) Me.btnAddPos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.btnAddPos.FlatAppearance.BorderSize = 0 Me.btnAddPos.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1618,34 +1674,40 @@ Partial Class frmGesamtsicherheitenNEU Me.btnAddPos.Location = New System.Drawing.Point(1540, 203) Me.btnAddPos.Name = "btnAddPos" Me.btnAddPos.Size = New System.Drawing.Size(24, 24) - Me.btnAddPos.TabIndex = 38 + Me.btnAddPos.TabIndex = 39 Me.btnAddPos.UseVisualStyleBackColor = False ' 'btnAddSicherheit ' Me.btnAddSicherheit.allowBorder = False Me.btnAddSicherheit.BackColor = System.Drawing.Color.White - Me.btnAddSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddSicherheit.BackgroundImage = CType(resources.GetObject("btnAddSicherheit.BackgroundImage"), System.Drawing.Image) Me.btnAddSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.btnAddSicherheit.FlatAppearance.BorderSize = 0 Me.btnAddSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAddSicherheit.ForeColor = System.Drawing.Color.Black - Me.btnAddSicherheit.Location = New System.Drawing.Point(748, 204) + Me.btnAddSicherheit.Location = New System.Drawing.Point(874, 203) Me.btnAddSicherheit.Name = "btnAddSicherheit" Me.btnAddSicherheit.Size = New System.Drawing.Size(24, 24) Me.btnAddSicherheit.TabIndex = 36 Me.btnAddSicherheit.UseVisualStyleBackColor = False ' + 'LöschenToolStripMenuItem + ' + Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" + Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.LöschenToolStripMenuItem.Text = "löschen" + ' 'frmGesamtsicherheitenNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1584, 776) + Me.ClientSize = New System.Drawing.Size(1444, 776) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.panOben) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.MaximumSize = New System.Drawing.Size(1600, 815) - Me.MinimumSize = New System.Drawing.Size(1600, 815) + Me.MaximumSize = New System.Drawing.Size(1700, 815) + Me.MinimumSize = New System.Drawing.Size(1438, 815) Me.Name = "frmGesamtsicherheitenNEU" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmGesSich" @@ -1657,8 +1719,6 @@ 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() @@ -1666,6 +1726,8 @@ 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 @@ -1783,4 +1845,10 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents btnRundungsdifAusgl As Button Friend WithEvents cbxRundPosanzeigen As CheckBox Friend WithEvents txtDatumaendern As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MRNNRÄndernToolStripMenuItem As ToolStripMenuItem + Friend WithEvents txtMRNNr As TextBox + Friend WithEvents Label19 As Label + Friend WithEvents txtSPosNr As TextBox + Friend WithEvents Label31 As Label + Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.resx b/Aviso/frmGesamtsicherheitenNEU.resx index a0688f2..f7d1075 100644 --- a/Aviso/frmGesamtsicherheitenNEU.resx +++ b/Aviso/frmGesamtsicherheitenNEU.resx @@ -120,10 +120,210 @@ 17, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHJSURBVEhLvZUxaxVBFIWfRm0STBNQkRQnYI5/IH8g + RSxioWnFxk6CWvgXEkljJwgRFKtY2FmmsBFrQUzszQHRBCshKObJwCwsZ+6+2fCMxdecmXM/2H1732A4 + HA7+J0XQIOK0Z/+CImgQMS3igufjUgQJEVdFPBfxqa9UxKnce+FnbYpAxBURb0UMM72k6RWI2Mydl37e + 4KVJEU9F/GoJq1IRl0Q8EvG91QmlXvxsoqpUxGURW8H9UOrl5pF0UUhFrIn4GdxteNMpzAM2glIhzT+Q + VyL+BHcajkTsjxQeQ/okyJ0DEStVYU9pGuZZmy8i7ok430vYU9rFrohrPq8qHEO6mhaBz+olzNLXwdCI + bRHLo/ZwEUSIeBgMj3jgXacITDQv4pmIH8HwiD3/Tp0iaMnOZZkPrVEsh6pQxIyIdduNx6FTWgQiZvMG + 8SHOhyCrSiPhYxGHwQDnTo9PJkkv1oRecj6KuC1iKt+vSVUT3gpKDd9E3Ag6XdL0v/p+pDAPuBmUv4q4 + 77uxIt0RsVAVBtL0Lpb8jtOS/s5bZ1HEmfadomQDGuldP+siS9+JmPOzRBE46Z2JOOv5KERcFzHheaII + TpoiOGn+Arb2yxeUX28vAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHJSURBVEhLvZUxaxVBFIWfRm0STBNQkRQnYI5/IH8g + RSxioWnFxk6CWvgXEkljJwgRFKtY2FmmsBFrQUzszQHRBCshKObJwCwsZ+6+2fCMxdecmXM/2H1732A4 + HA7+J0XQIOK0Z/+CImgQMS3igufjUgQJEVdFPBfxqa9UxKnce+FnbYpAxBURb0UMM72k6RWI2Mydl37e + 4KVJEU9F/GoJq1IRl0Q8EvG91QmlXvxsoqpUxGURW8H9UOrl5pF0UUhFrIn4GdxteNMpzAM2glIhzT+Q + VyL+BHcajkTsjxQeQ/okyJ0DEStVYU9pGuZZmy8i7ok430vYU9rFrohrPq8qHEO6mhaBz+olzNLXwdCI + bRHLo/ZwEUSIeBgMj3jgXacITDQv4pmIH8HwiD3/Tp0iaMnOZZkPrVEsh6pQxIyIdduNx6FTWgQiZvMG + 8SHOhyCrSiPhYxGHwQDnTo9PJkkv1oRecj6KuC1iKt+vSVUT3gpKDd9E3Ag6XdL0v/p+pDAPuBmUv4q4 + 77uxIt0RsVAVBtL0Lpb8jtOS/s5bZ1HEmfadomQDGuldP+siS9+JmPOzRBE46Z2JOOv5KERcFzHheaII + TpoiOGn+Arb2yxeUX28vAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHJSURBVEhLvZUxaxVBFIWfRm0STBNQkRQnYI5/IH8g + RSxioWnFxk6CWvgXEkljJwgRFKtY2FmmsBFrQUzszQHRBCshKObJwCwsZ+6+2fCMxdecmXM/2H1732A4 + HA7+J0XQIOK0Z/+CImgQMS3igufjUgQJEVdFPBfxqa9UxKnce+FnbYpAxBURb0UMM72k6RWI2Mydl37e + 4KVJEU9F/GoJq1IRl0Q8EvG91QmlXvxsoqpUxGURW8H9UOrl5pF0UUhFrIn4GdxteNMpzAM2glIhzT+Q + VyL+BHcajkTsjxQeQ/okyJ0DEStVYU9pGuZZmy8i7ok430vYU9rFrohrPq8qHEO6mhaBz+olzNLXwdCI + bRHLo/ZwEUSIeBgMj3jgXacITDQv4pmIH8HwiD3/Tp0iaMnOZZkPrVEsh6pQxIyIdduNx6FTWgQiZvMG + 8SHOhyCrSiPhYxGHwQDnTo9PJkkv1oRecj6KuC1iKt+vSVUT3gpKDd9E3Ag6XdL0v/p+pDAPuBmUv4q4 + 77uxIt0RsVAVBtL0Lpb8jtOS/s5bZ1HEmfadomQDGuldP+siS9+JmPOzRBE46Z2JOOv5KERcFzHheaII + TpoiOGn+Arb2yxeUX28vAAAAAElFTkSuQmCC + + 268, 15 - + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHJSURBVEhLvZUxaxVBFIWfRm0STBNQkRQnYI5/IH8g + RSxioWnFxk6CWvgXEkljJwgRFKtY2FmmsBFrQUzszQHRBCshKObJwCwsZ+6+2fCMxdecmXM/2H1732A4 + HA7+J0XQIOK0Z/+CImgQMS3igufjUgQJEVdFPBfxqa9UxKnce+FnbYpAxBURb0UMM72k6RWI2Mydl37e + 4KVJEU9F/GoJq1IRl0Q8EvG91QmlXvxsoqpUxGURW8H9UOrl5pF0UUhFrIn4GdxteNMpzAM2glIhzT+Q + VyL+BHcajkTsjxQeQ/okyJ0DEStVYU9pGuZZmy8i7ok430vYU9rFrohrPq8qHEO6mhaBz+olzNLXwdCI + bRHLo/ZwEUSIeBgMj3jgXacITDQv4pmIH8HwiD3/Tp0iaMnOZZkPrVEsh6pQxIyIdduNx6FTWgQiZvMG + 8SHOhyCrSiPhYxGHwQDnTo9PJkkv1oRecj6KuC1iKt+vSVUT3gpKDd9E3Ag6XdL0v/p+pDAPuBmUv4q4 + 77uxIt0RsVAVBtL0Lpb8jtOS/s5bZ1HEmfadomQDGuldP+siS9+JmPOzRBE46Z2JOOv5KERcFzHheaII + TpoiOGn+Arb2yxeUX28vAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHJSURBVEhLvZUxaxVBFIWfRm0STBNQkRQnYI5/IH8g + RSxioWnFxk6CWvgXEkljJwgRFKtY2FmmsBFrQUzszQHRBCshKObJwCwsZ+6+2fCMxdecmXM/2H1732A4 + HA7+J0XQIOK0Z/+CImgQMS3igufjUgQJEVdFPBfxqa9UxKnce+FnbYpAxBURb0UMM72k6RWI2Mydl37e + 4KVJEU9F/GoJq1IRl0Q8EvG91QmlXvxsoqpUxGURW8H9UOrl5pF0UUhFrIn4GdxteNMpzAM2glIhzT+Q + VyL+BHcajkTsjxQeQ/okyJ0DEStVYU9pGuZZmy8i7ok430vYU9rFrohrPq8qHEO6mhaBz+olzNLXwdCI + bRHLo/ZwEUSIeBgMj3jgXacITDQv4pmIH8HwiD3/Tp0iaMnOZZkPrVEsh6pQxIyIdduNx6FTWgQiZvMG + 8SHOhyCrSiPhYxGHwQDnTo9PJkkv1oRecj6KuC1iKt+vSVUT3gpKDd9E3Ag6XdL0v/p+pDAPuBmUv4q4 + 77uxIt0RsVAVBtL0Lpb8jtOS/s5bZ1HEmfadomQDGuldP+siS9+JmPOzRBE46Z2JOOv5KERcFzHheaII + TpoiOGn+Arb2yxeUX28vAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEQAACxEBf2RfkQAAAYBJREFUOE9jYKAAyLnI + BQX2BrZJSkqiS5EGGFkYmUP2hCyLvxT/H4QdpzqmcUlyMaGrIxoE7wyeDzMMhmMuxOSzC7CzoqslCqAb + Bjf0fEwYulqCIGhb0D10g+Iuxr0X1Rc1QVdLELjMcNmBxbAVyn7KUuhqCQKzSrNJ6IZFHY/aph2nzY+u + lihgVoFqYNCWoMt80nzoyogDGhEa2ciGxZyN+YmuBgMo+yrHxV6InS7nIieMLC5pKemK7lWj6UY8yGow + gIieiEXcpTiw4tgLsc0CKgJwDegGxlyIiUbVjQbY+dmF0F0QeyG2hImViYlbklsOTbyKW4qbE90MFIBu + GJJmH2QDYy/ETpW0lEQJDpxAVE9UM/5S/BV0Q5GxRqRGDro+gsAwz7AV3SAQtqi1mMzIwoiunDhg32vf + Hn8p/ivMsLiLcWdMK0w10dWRDGLOxPyIuxj30Xm6cya6HNkgeEfwA3SxgQUqKipM1dXVytOmTTNGxhMm + TFCztLTEn/6gAACeTwgqe9wYrQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEQAACxEBf2RfkQAAAYBJREFUOE9jYKAAyLnI + BQX2BrZJSkqiS5EGGFkYmUP2hCyLvxT/H4QdpzqmcUlyMaGrIxoE7wyeDzMMhmMuxOSzC7CzoqslCqAb + Bjf0fEwYulqCIGhb0D10g+Iuxr0X1Rc1QVdLELjMcNmBxbAVyn7KUuhqCQKzSrNJ6IZFHY/aph2nzY+u + lihgVoFqYNCWoMt80nzoyogDGhEa2ciGxZyN+YmuBgMo+yrHxV6InS7nIieMLC5pKemK7lWj6UY8yGow + gIieiEXcpTiw4tgLsc0CKgJwDegGxlyIiUbVjQbY+dmF0F0QeyG2hImViYlbklsOTbyKW4qbE90MFIBu + GJJmH2QDYy/ETpW0lEQJDpxAVE9UM/5S/BV0Q5GxRqRGDro+gsAwz7AV3SAQtqi1mMzIwoiunDhg32vf + Hn8p/ivMsLiLcWdMK0w10dWRDGLOxPyIuxj30Xm6cya6HNkgeEfwA3SxgQUqKipM1dXVytOmTTNGxhMm + TFCztLTEn/6gAACeTwgqe9wYrQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC + + AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAABILAAASCwAAAAAAAAAA diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index cc758bb..24603c1 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -1,6 +1,4 @@ - -Imports System.Web.UI.WebControls.Expressions -Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN Public Class frmGesamtsicherheitenNEU @@ -147,7 +145,7 @@ Public Class frmGesamtsicherheitenNEU If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gs_isRundungsdiff,0) = 0" End If - Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = " & gessicherheitID & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]" + Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_ATBNr],[gs_posNr],[gs_MRNNr], [gs_posSubNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = " & gessicherheitID & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]" dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,) dgvGesamtsicherheit.LOAD() @@ -166,12 +164,10 @@ Public Class frmGesamtsicherheitenNEU Select Case currentGesSichRef.brgakto_gs_ATR Case True - If Standort = "Verag GmbH" Then - .Columns("gs_ATBNr").HeaderText = "Reg-Nr." - Else - .Columns("gs_ATBNr").HeaderText = "T1 MRN" - End If - + .Columns("gs_ATBNr").HeaderText = "Vorpapier/T1" + .Columns("gs_MRNNr").HeaderText = "MRN /SumA" + .Columns("gs_posSubNr").HeaderText = "SPos" + .Columns("gs_posSubNr").Width = 35 .Columns("gs_ATBNr").Width = 130 .Columns("gs_atr").HeaderText = "ATR" .Columns("gs_atr").Visible = True @@ -181,7 +177,6 @@ Public Class frmGesamtsicherheitenNEU .Columns("gs_ust").DefaultCellStyle.Format = "c2" Case Else - If Standort = "Verag GmbH" Then .Columns("gs_ATBNr").HeaderText = "Reg-Nr." Else @@ -189,6 +184,8 @@ Public Class frmGesamtsicherheitenNEU End If .Columns("gs_ATBNr").Width = 150 End Select + + Label1.Text = .Columns("gs_ATBNr").HeaderText changeLabel(currentGesSichRef.brgakto_gs_ATR) .Columns("gs_posNr").Width = 35 @@ -583,7 +580,7 @@ Public Class frmGesamtsicherheitenNEU End Sub - Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSicherheitWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtAnzahlPos.KeyPress, txtZollsatzueberschreiben.KeyPress + Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSicherheitWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtAnzahlPos.KeyPress, txtSPosNr.KeyPress, txtZollsatzueberschreiben.KeyPress Select Case Asc(e.KeyChar) Case 48 To 57, 8, 44, 22 ' Zahlen, Backspace und , zulassen @@ -688,6 +685,8 @@ Public Class frmGesamtsicherheitenNEU .gs_gsNr = gessicherheitID .gs_ATBNr = txtSicherheitATBNr.Text .gs_posNr = count + .gs_MRNNr = txtMRNNr.Text + .gs_posSubNr = count .gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDat.Text, txtSicherheitTime.Text) .gs_warenwert = warenwert .gs_sicherheitsbetrag = sicherheitsbetrag @@ -714,6 +713,7 @@ Public Class frmGesamtsicherheitenNEU Case Else With OPEN .gs_posNr = getLatestPosNr(gessicherheitID, txtSicherheitATBNr.Text) + 1 + .gs_posSubNr = getLatestSubPosNr(gessicherheitID, txtMRNNr.Text) + 1 End With attachPosNrToExistingATB = True indexGsId = OPEN.SAVEOBJECT() @@ -775,6 +775,8 @@ Public Class frmGesamtsicherheitenNEU With OPEN .gs_gsNr = gessicherheitID .gs_ATBNr = "" + .gs_MRNNr = "" + .gs_posSubNr = Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1 .gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1 .gs_datum = DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text) .gs_warenwert = 0 @@ -964,7 +966,9 @@ Public Class frmGesamtsicherheitenNEU Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.CurrentRow.Cells("gs_gsId").Value, dgvGesamtsicherheit.CurrentRow.Cells("gs_posNr").Value) txtSicherheitATBNr.Text = Sicherh.gs_ATBNr + txtMRNNr.Text = Sicherh.gs_MRNNr txtAnzahlPos.Text = Sicherh.gs_posNr + txtSPosNr.Text = Sicherh.gs_posSubNr txtSicherheitWarenwert.Text = Sicherh.gs_warenwert txtSicherheitFreitext.Text = Sicherh.gs_freitext cboSicherheitATR.SelectedItem = Sicherh.gs_atr @@ -973,6 +977,7 @@ Public Class frmGesamtsicherheitenNEU currentSicherheit = Sicherh txtAnzahlPos.Enabled = False + txtSPosNr.Enabled = False If Sicherh.gs_isRundungsdiff = True Then btnAddSicherheit.Visible = False @@ -995,7 +1000,9 @@ Public Class frmGesamtsicherheitenNEU With currentSicherheit .gs_ATBNr = txtSicherheitATBNr.Text + .gs_MRNNr = txtMRNNr.Text .gs_posNr = Integer.Parse(setNullToZero(txtAnzahlPos.Text)) + .gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1) .gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDat.Text, txtSicherheitTime.Text) .gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text) .gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text) @@ -1013,6 +1020,7 @@ Public Class frmGesamtsicherheitenNEU currentSicherheit.gs_zuletztgeandert = Now() currentSicherheit.SAVE() txtAnzahlPos.Enabled = True + txtSPosNr.Enabled = True btnUpdateSicherheit.Visible = False btnAddSicherheit.Visible = True btnDeleteSicherheit.Visible = False @@ -1182,6 +1190,23 @@ Public Class frmGesamtsicherheitenNEU End Function + + Private Function getLatestSubPosNr(gs_gsnr As Integer, gs_MRNNr As String) As Integer + Dim posNr As Integer = 0 + Dim sqlq As String = "Select MAX([gs_posSubNr]) As MaxPosNr from [tblGesamtsicherheit] where gs_gsnr = " & gs_gsnr & " And gs_MRNNr = '" & gs_MRNNr & "'" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) + + If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + + posNr = dt.Rows(0).Item(0) + + End If + + Return posNr + + End Function + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Try If Me.Visible Then LoadDGVSicherheiten(True) @@ -1643,6 +1668,7 @@ Public Class frmGesamtsicherheitenNEU Else lblWarningATB.Text = "" End If + Label32.Text = "Vorpapier/T1-Nr" dgvGesamtsicherheit.Enabled = False txtATBNraendern.Text = ATBNr pnlChangeATBNr.Visible = True @@ -1696,19 +1722,44 @@ Public Class frmGesamtsicherheitenNEU End Sub Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click - If txtATBNraendern.Text = "" Then - MsgBox("Bitte ATR-Nr angeben!") - Exit Sub - End If - If dgvGesamtsicherheit.SelectedRows.Count > 0 Then - For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows - Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value) - sicherh.gs_ATBNr = txtATBNraendern.Text - sicherh.SAVE() + Select Case Label32.Text + + Case "MRN-Nr" + + If txtATBNraendern.Text = "" Then + MsgBox("Bitte MRN-Nr angeben!") + Exit Sub + End If + If dgvGesamtsicherheit.SelectedRows.Count > 0 Then + + For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows + Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value) + sicherh.gs_MRNNr = txtATBNraendern.Text + sicherh.SAVE() + + Next + End If + + Case Else + + + If txtATBNraendern.Text = "" Then + MsgBox("Bitte ATR-Nr angeben!") + Exit Sub + End If + If dgvGesamtsicherheit.SelectedRows.Count > 0 Then + + For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows + Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value) + sicherh.gs_ATBNr = txtATBNraendern.Text + sicherh.SAVE() + + Next + End If + + End Select - Next - End If pnlChangeATBNr.Visible = False @@ -1890,7 +1941,9 @@ Public Class frmGesamtsicherheitenNEU With OPEN .gs_gsNr = gessicherheitID .gs_ATBNr = "Korrekt. Rundungsdiff. " & gessicherheitID + .gs_MRNNr = "" .gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1 + .gs_posSubNr = Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1 .gs_datum = DateTime.Now .gs_warenwert = 0 .gs_sicherheitsbetrag = 0 @@ -2008,4 +2061,65 @@ Public Class frmGesamtsicherheitenNEU End If End Sub + Private Sub MRNNRÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MRNNRÄndernToolStripMenuItem.Click + Dim MRNNr As String + Dim mutlitpleMRNNr As Boolean = False + + MRNNr = dgvGesamtsicherheit.SelectedRows(dgvGesamtsicherheit.SelectedRows.Count - 1).Cells("gs_MRNNr").Value.ToString + + If dgvGesamtsicherheit.SelectedRows.Count > 0 Then + + For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows + If row.Cells("gs_MRNNr").Value.ToString <> MRNNr Then + mutlitpleMRNNr = True + End If + Next + End If + + If mutlitpleMRNNr Then + lblWarningATB.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. MRN-Nr. markiert!" + Else + lblWarningATB.Text = "" + End If + Label32.Text = "MRN-Nr" + dgvGesamtsicherheit.Enabled = False + txtATBNraendern.Text = MRNNr + pnlChangeATBNr.Visible = True + End Sub + + Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click + + + If dgvGesamtsicherheit.SelectedRows.Count > 0 Then + + If vbYes = MsgBox("Möchten Sie die " & dgvGesamtsicherheit.SelectedRows.Count & " Datensätze löschen?", vbYesNo) Then + For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows + + indexGsId = CInt(row.Cells("gs_gsid").Value) + indexPosNr = CInt(row.Cells("gs_posNr").Value) + currentSicherheit = New cSicherheiten(indexGsId, indexPosNr) + + Dim posNr = currentSicherheit.gs_posNr + Dim ATBNr = currentSicherheit.gs_ATBNr + Dim gsNr = currentSicherheit.gs_gsNr + If currentSicherheit.hasEntry Then + currentSicherheit.Delete() + rearangePosNr(gsNr, ATBNr, posNr) + End If + + + Next + + btnUpdateSicherheit.Visible = False + btnAddSicherheit.Visible = True + btnDeleteSicherheit.Visible = False + txtAnzahlPos.Enabled = True + AfterButton() + + End If + + End If + + + End Sub End Class diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index e62a23c..0aa3a40 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -417,6 +417,7 @@ Partial Class frmHauptfenster Me.Panel7 = New System.Windows.Forms.Panel() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.NewsletterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -650,7 +651,7 @@ Partial Class frmHauptfenster ' 'AdministrationToolStripMenuItem ' - Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem, Me.RoutenverwaltungToolStripMenuItem, Me.AnhangsartenToolStripMenuItem, Me.SpireLizenzPrüfenToolStripMenuItem}) + Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem, Me.RoutenverwaltungToolStripMenuItem, Me.AnhangsartenToolStripMenuItem, Me.SpireLizenzPrüfenToolStripMenuItem, Me.UNBescheinigungAusTFEinlesenToolStripMenuItem}) Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(213, 22) Me.AdministrationToolStripMenuItem.Text = "Administration" @@ -659,97 +660,97 @@ Partial Class frmHauptfenster 'KdNrZuordnenToolStripMenuItem ' Me.KdNrZuordnenToolStripMenuItem.Name = "KdNrZuordnenToolStripMenuItem" - Me.KdNrZuordnenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.KdNrZuordnenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.KdNrZuordnenToolStripMenuItem.Text = "KdNr Zuordnen" ' 'OptionenToolStripMenuItem1 ' Me.OptionenToolStripMenuItem1.Name = "OptionenToolStripMenuItem1" - Me.OptionenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) + Me.OptionenToolStripMenuItem1.Size = New System.Drawing.Size(257, 22) Me.OptionenToolStripMenuItem1.Text = "Optionen" ' 'VorlagenUploadToolStripMenuItem ' Me.VorlagenUploadToolStripMenuItem.Name = "VorlagenUploadToolStripMenuItem" - Me.VorlagenUploadToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.VorlagenUploadToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.VorlagenUploadToolStripMenuItem.Text = "Vorlagen Upload" ' 'BarcodeTestToolStripMenuItem ' Me.BarcodeTestToolStripMenuItem.Name = "BarcodeTestToolStripMenuItem" - Me.BarcodeTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.BarcodeTestToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.BarcodeTestToolStripMenuItem.Text = "Barcode Test" ' 'TabellenToolStripMenuItem ' Me.TabellenToolStripMenuItem.Name = "TabellenToolStripMenuItem" - Me.TabellenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.TabellenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.TabellenToolStripMenuItem.Text = "Tabellen" ' 'SMSTestToolStripMenuItem ' Me.SMSTestToolStripMenuItem.Name = "SMSTestToolStripMenuItem" - Me.SMSTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.SMSTestToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.SMSTestToolStripMenuItem.Text = "SMS Test" ' 'QSTeamsToolStripMenuItem ' Me.QSTeamsToolStripMenuItem.Name = "QSTeamsToolStripMenuItem" - Me.QSTeamsToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.QSTeamsToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.QSTeamsToolStripMenuItem.Text = "QS Teams" ' 'LeereRechnungToolStripMenuItem ' Me.LeereRechnungToolStripMenuItem.Name = "LeereRechnungToolStripMenuItem" - Me.LeereRechnungToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.LeereRechnungToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.LeereRechnungToolStripMenuItem.Text = "leere Rechnung TEST" ' 'EMAILTESTToolStripMenuItem ' Me.EMAILTESTToolStripMenuItem.Name = "EMAILTESTToolStripMenuItem" - Me.EMAILTESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.EMAILTESTToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.EMAILTESTToolStripMenuItem.Text = "EMAILTEST" ' 'FreigabeMailTestToolStripMenuItem ' Me.FreigabeMailTestToolStripMenuItem.Name = "FreigabeMailTestToolStripMenuItem" - Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.FreigabeMailTestToolStripMenuItem.Text = "FreigabeMail test" ' 'SDLProgrammStartenToolStripMenuItem ' Me.SDLProgrammStartenToolStripMenuItem.Name = "SDLProgrammStartenToolStripMenuItem" - Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.SDLProgrammStartenToolStripMenuItem.Text = "SDL Programm starten" ' 'TESTToolStripMenuItem ' Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem" - Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.TESTToolStripMenuItem.Text = "TEST" ' 'AlleStatusMailsSchickenToolStripMenuItem ' Me.AlleStatusMailsSchickenToolStripMenuItem.Name = "AlleStatusMailsSchickenToolStripMenuItem" - Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken" ' 'RoutenverwaltungToolStripMenuItem ' Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem" - Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung" ' 'AnhangsartenToolStripMenuItem ' Me.AnhangsartenToolStripMenuItem.Name = "AnhangsartenToolStripMenuItem" - Me.AnhangsartenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.AnhangsartenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.AnhangsartenToolStripMenuItem.Text = "Anhangsarten" ' 'SpireLizenzPrüfenToolStripMenuItem ' Me.SpireLizenzPrüfenToolStripMenuItem.Name = "SpireLizenzPrüfenToolStripMenuItem" - Me.SpireLizenzPrüfenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.SpireLizenzPrüfenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) Me.SpireLizenzPrüfenToolStripMenuItem.Text = "Spire-Lizenz prüfen" ' 'ToolStripSeparator4 @@ -924,26 +925,26 @@ Partial Class frmHauptfenster 'GenerelleGestellungenDurchsuchenToolStripMenuItem ' Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem" - Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen" Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False ' 'KundenVonFremdenSpeditionenToolStripMenuItem ' Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem" - Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen" ' 'KundenverwaltungToolStripMenuItem ' Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem" - Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung" ' 'MDMParkplatzkartenToolStripMenuItem ' Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem" - Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten" ' 'SMSSendenToolStripMenuItem @@ -951,7 +952,7 @@ Partial Class frmHauptfenster Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem}) Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2 Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem" - Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SMSSendenToolStripMenuItem.Text = "SMS" ' 'NeueSMSSendenToolStripMenuItem @@ -969,51 +970,51 @@ Partial Class frmHauptfenster 'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem ' Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem" - Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen" ' 'MRNBarcodedruckToolStripMenuItem ' Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem" - Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck" ' 'ToolStripSeparator12 ' Me.ToolStripSeparator12.Name = "ToolStripSeparator12" - Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6) ' 'tool_BRGXLS ' Me.tool_BRGXLS.Name = "tool_BRGXLS" - Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30) + Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22) Me.tool_BRGXLS.Text = "Bürgschaften Excel" ' 'ToolStripMenuItem4 ' Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel" Me.ToolStripMenuItem4.Visible = False ' 'ToolStripMenuItem5 ' Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel" Me.ToolStripMenuItem5.Visible = False ' 'BürgschaftenExcelToolStripMenuItem ' Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem" - Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel" Me.BürgschaftenExcelToolStripMenuItem.Visible = False ' 'ToolStripMenuItem6 ' Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" - Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel" Me.ToolStripMenuItem6.Visible = False ' @@ -1021,7 +1022,7 @@ Partial Class frmHauptfenster ' Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem, Me.ATAtillaToolStripMenuItem}) Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem" - Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten" Me.GesamtsicherheitenToolStripMenuItem.Visible = False ' @@ -1071,25 +1072,25 @@ Partial Class frmHauptfenster 'ToolStripMenuItem10 ' Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem10.Text = "TICKET Parkplatz" ' 'TICKETWaidhausToolStripMenuItem ' Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem" - Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz" ' 'ToolStripSeparator10 ' Me.ToolStripSeparator10.Name = "ToolStripSeparator10" - Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6) ' 'DAKOSYToolStripMenuItem ' Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem}) Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem" - Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DAKOSYToolStripMenuItem.Text = "DAKOSY" ' 'StammreferenzenVerwaltenToolStripMenuItem @@ -1101,25 +1102,25 @@ Partial Class frmHauptfenster 'ToolStripSeparator23 ' Me.ToolStripSeparator23.Name = "ToolStripSeparator23" - Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6) ' 'toolOriginalATR ' Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr Me.toolOriginalATR.Name = "toolOriginalATR" - Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30) + Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22) Me.toolOriginalATR.Text = "Original-ATR" ' 'SDLAbholaufträgeToolStripMenuItem ' Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem" - Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge" ' 'ToolStripMenuItem13 ' Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" - Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30) + Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22) Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)" ' 'VerträgeToolStripMenuItem @@ -1129,48 +1130,55 @@ Partial Class frmHauptfenster Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.VerträgeToolStripMenuItem.Text = "Verträge" ' + 'VerträgeToolStripMenuItem + ' + Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small + Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem" + Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.VerträgeToolStripMenuItem.Text = "Verträge" + ' 'VorauskassenToolStripMenuItem ' Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem" - Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" ' 'ToolStripSeparator11 ' Me.ToolStripSeparator11.Name = "ToolStripSeparator11" - Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6) ' 'EssensbestellungenToolStripMenuItem ' Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem" - Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen" Me.EssensbestellungenToolStripMenuItem.Visible = False ' 'AdministrationEssensbestellungenToolStripMenuItem ' Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem" - Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen" Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False ' 'ToolStripSeparator24 ' Me.ToolStripSeparator24.Name = "ToolStripSeparator24" - Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6) + Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6) ' 'WarenorteToolStripMenuItem ' Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem" - Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.WarenorteToolStripMenuItem.Text = "Warenorte" ' 'DatevBuchungsexportToolStripMenuItem ' Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem}) Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem" - Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport" Me.DatevBuchungsexportToolStripMenuItem.Visible = False ' @@ -1189,13 +1197,13 @@ Partial Class frmHauptfenster 'APIToolStripMenuItem ' Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem" - Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.APIToolStripMenuItem.Text = "API" ' 'FIBUSachkontenToolStripMenuItem ' Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem" - Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten" Me.FIBUSachkontenToolStripMenuItem.Visible = False ' @@ -3986,7 +3994,11 @@ Partial Class frmHauptfenster Me.UsrCntlTestsystem1.TabIndex = 8 ' 'NewsletterToolStripMenuItem + 'UNBescheinigungAusTFEinlesenToolStripMenuItem ' + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Name = "UNBescheinigungAusTFEinlesenToolStripMenuItem" + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22) + Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen" Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem" Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.NewsletterToolStripMenuItem.Text = "Newsletter" @@ -4451,4 +4463,5 @@ Partial Class frmHauptfenster Friend WithEvents MitarbeiterverzeichnisToolStripMenuItem As ToolStripMenuItem Friend WithEvents VerträgeToolStripMenuItem As ToolStripMenuItem Friend WithEvents NewsletterToolStripMenuItem As ToolStripMenuItem + Friend WithEvents UNBescheinigungAusTFEinlesenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 5b98090..418e212 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -7,13 +7,13 @@ Imports com.esendex.sdk.messaging Imports Newtonsoft.Json Imports System.Reflection Imports System.Drawing.Drawing2D -Imports SDL Imports Microsoft.Office.Interop Imports Spire.Pdf.Texts Imports System.Net Imports System.Text Imports System.IO.Pipes Imports System.Security.AccessControl +Imports SDL 'Imports UID Public Class frmHauptfenster @@ -3762,7 +3762,7 @@ ELSE_ATILLA: Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" ', "ATILLA" erst freischalten, wenn alles implementiert ist! + Case "IMEX", "ATILLA" pnlOptionen.Visible = Not pnlOptionen.Visible Case Else Dim s As New SDL.frmSecureLoginKassenbuch @@ -4215,8 +4215,14 @@ ELSE_ATILLA: pnlOptionen.Visible = False Dim s As New SDL.frmSecureLoginKassenbuch s.openKB = True - s.KassenbuchNr_tmp = 5030 s.disableCBO = False + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" : s.KassenbuchNr_tmp = 5033 + Case Else : s.KassenbuchNr_tmp = 5030 + + End Select + s.ShowDialog(Me) End Sub @@ -5267,10 +5273,18 @@ ELSE_ATILLA: Private Sub VerträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerträgeToolStripMenuItem.Click - Dim f As New SDL.cKundenSearchVertrag + Dim f As New cKundenSearchVertrag f.Show(Me) End Sub + Private Sub UNBescheinigungAusTFEinlesenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNBescheinigungAusTFEinlesenToolStripMenuItem.Click + + + VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("381") + + + End Sub + Private Sub NewsletterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewsletterToolStripMenuItem.Click Dim f As New SDL.frmNewsletter f.Show(Me) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index d4b950c..5991b2b 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -7674,7 +7674,7 @@ Public Class frmSendungsdetailsNEU For Each s As cSendungen In SENDUNG_LIST 'nur Betrag EUR - If s.tblSnd_Vorpapier = vorp Then + If s.tblSnd_Vorpapier = vorpT1 Then If s.tblSnd_WarenwertWaehrung = "EUR" AndAlso s.tblSnd_Warenwert > 0 AndAlso s.FilialenNr = SENDUNG_LIST(CURRENT_INDEX).FilialenNr Then calcWarenwerte += s.tblSnd_Warenwert Else