diff --git a/Aviso/UsrCntlEssensbestellungen.Designer.vb b/Aviso/UsrCntlEssensbestellungen.Designer.vb index 15a5817..e26f688 100644 --- a/Aviso/UsrCntlEssensbestellungen.Designer.vb +++ b/Aviso/UsrCntlEssensbestellungen.Designer.vb @@ -146,7 +146,7 @@ Partial Class UsrCntlessensbestellungen ' 'txtMenu_dienstag ' - Me.txtMenu_dienstag.Location = New System.Drawing.Point(0, 39) + Me.txtMenu_dienstag.Location = New System.Drawing.Point(3, 39) Me.txtMenu_dienstag.Name = "txtMenu_dienstag" Me.txtMenu_dienstag.Size = New System.Drawing.Size(188, 32) Me.txtMenu_dienstag.TabIndex = 30 @@ -177,7 +177,7 @@ Partial Class UsrCntlessensbestellungen Me.txtAlt_dienstag._Waehrung = False Me.txtAlt_dienstag._WaehrungZeichen = True Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black - Me.txtAlt_dienstag.Location = New System.Drawing.Point(0, 93) + Me.txtAlt_dienstag.Location = New System.Drawing.Point(3, 93) Me.txtAlt_dienstag.MaxLineLength = -1 Me.txtAlt_dienstag.MaxLines_Warning = "" Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing @@ -235,7 +235,7 @@ Partial Class UsrCntlessensbestellungen ' 'txtMenu_montag ' - Me.txtMenu_montag.Location = New System.Drawing.Point(6, 39) + Me.txtMenu_montag.Location = New System.Drawing.Point(3, 39) Me.txtMenu_montag.Name = "txtMenu_montag" Me.txtMenu_montag.Size = New System.Drawing.Size(188, 32) Me.txtMenu_montag.TabIndex = 29 @@ -279,7 +279,7 @@ Partial Class UsrCntlessensbestellungen ' Me.rbMenuAlt_montag.AutoSize = True Me.rbMenuAlt_montag.GroupName = "GroupBox1" - Me.rbMenuAlt_montag.Location = New System.Drawing.Point(6, 74) + Me.rbMenuAlt_montag.Location = New System.Drawing.Point(3, 74) Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag" Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_montag.TabIndex = 1 @@ -346,7 +346,7 @@ Partial Class UsrCntlessensbestellungen Me.txtAlt_freitag._Waehrung = False Me.txtAlt_freitag._WaehrungZeichen = True Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black - Me.txtAlt_freitag.Location = New System.Drawing.Point(-3, 97) + Me.txtAlt_freitag.Location = New System.Drawing.Point(3, 97) Me.txtAlt_freitag.MaxLineLength = -1 Me.txtAlt_freitag.MaxLines_Warning = "" Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing @@ -359,7 +359,7 @@ Partial Class UsrCntlessensbestellungen ' Me.rbMenuAlt_freitag.AutoSize = True Me.rbMenuAlt_freitag.GroupName = "Freitag" - Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(0, 78) + Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(3, 78) Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag" Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_freitag.TabIndex = 1 @@ -413,7 +413,7 @@ Partial Class UsrCntlessensbestellungen ' 'txtMenu_mittwoch ' - Me.txtMenu_mittwoch.Location = New System.Drawing.Point(0, 39) + Me.txtMenu_mittwoch.Location = New System.Drawing.Point(3, 39) Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch" Me.txtMenu_mittwoch.Size = New System.Drawing.Size(188, 32) Me.txtMenu_mittwoch.TabIndex = 31 @@ -444,7 +444,7 @@ Partial Class UsrCntlessensbestellungen Me.txtAlt_mittwoch._Waehrung = False Me.txtAlt_mittwoch._WaehrungZeichen = True Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black - Me.txtAlt_mittwoch.Location = New System.Drawing.Point(0, 93) + Me.txtAlt_mittwoch.Location = New System.Drawing.Point(3, 93) Me.txtAlt_mittwoch.MaxLineLength = -1 Me.txtAlt_mittwoch.MaxLines_Warning = "" Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing @@ -524,7 +524,7 @@ Partial Class UsrCntlessensbestellungen Me.txtAlt_donnerstag._Waehrung = False Me.txtAlt_donnerstag._WaehrungZeichen = True Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black - Me.txtAlt_donnerstag.Location = New System.Drawing.Point(1, 97) + Me.txtAlt_donnerstag.Location = New System.Drawing.Point(3, 97) Me.txtAlt_donnerstag.MaxLineLength = -1 Me.txtAlt_donnerstag.MaxLines_Warning = "" Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing @@ -537,7 +537,7 @@ Partial Class UsrCntlessensbestellungen ' Me.rbMenuAlt_donnerstag.AutoSize = True Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag" - Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(4, 78) + Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(3, 78) Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag" Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_donnerstag.TabIndex = 1 diff --git a/Aviso/UsrCntlEssensbestellungen.vb b/Aviso/UsrCntlEssensbestellungen.vb index 31b4240..9549f3e 100644 --- a/Aviso/UsrCntlEssensbestellungen.vb +++ b/Aviso/UsrCntlEssensbestellungen.vb @@ -9,8 +9,8 @@ Public Class UsrCntlessensbestellungen 'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"} Private ToolTipFont As New Font("Courier New", 12) Dim preisProMahlzeit As Double = 3 - Dim menu As String = "Menu" - Dim aLaCarte As String = "a La Carte" + Dim menu As String = "Menü" + Dim alacarte As String = "A La Carte" @@ -208,12 +208,12 @@ Public Class UsrCntlessensbestellungen If TypeOf gb Is GroupBox Then For Each c As Control In gb.Controls - If c.Text.ToLower.StartsWith("menu") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then + If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c If rb.Checked Then countMenus = countMenus + 1 End If - If c.Text.ToLower.StartsWith("a la carte") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then + If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c If rb.Checked Then countlaCarte = countlaCarte + 1 End If @@ -567,7 +567,7 @@ Public Class UsrCntlessensbestellungen rbMenu__freitag.Checked = True Else rbMenuAlt_freitag.Checked = True - If essen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_freitag.ToString + If essen.eb_freitag IsNot Nothing Then txtAlt_freitag.Text = essen.eb_freitag.ToString End If Else cb_freitag.Checked = False diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb index c445076..bfffd4c 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb @@ -419,6 +419,7 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.cbxWarenort._allowedValuesFreiText = Nothing Me.cbxWarenort._allowFreiText = False Me.cbxWarenort._value = "" + Me.cbxWarenort.DropDownWidth = 500 Me.cbxWarenort.FormattingEnabled = True Me.cbxWarenort.Location = New System.Drawing.Point(132, 69) Me.cbxWarenort.Name = "cbxWarenort" @@ -441,6 +442,7 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.cbxStandort._allowedValuesFreiText = Nothing Me.cbxStandort._allowFreiText = False Me.cbxStandort._value = "" + Me.cbxStandort.DropDownWidth = 200 Me.cbxStandort.FormattingEnabled = True Me.cbxStandort.Location = New System.Drawing.Point(32, 69) Me.cbxStandort.Name = "cbxStandort" diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 1f8d1b0..24921e3 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -8,12 +8,23 @@ Public Class frmGesamtsicherheitenMenuNEU Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten Public dataTable As DataTable Public Property Standort As String = "" + Public firmaId As Integer Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + + Select Case Standort + Case "Verag GmbH" : firmaId = 2 + Case "VERAG AG" : firmaId = 1 + Case "IMEX" : firmaId = 20 + Case "Verag CS" : firmaId = 11 + End Select + + cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) 'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) - cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) + cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) cbxWarenort.DropDownWidth = 150 Me.Text = "Gesamtsicherheiten " & Standort frmHauptfenster.EnableDoubleBuffered(dgvListe) @@ -150,6 +161,7 @@ Public Class frmGesamtsicherheitenMenuNEU .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value .avisoID = dgvListe.CurrentRow.Cells("gs_avisoId").Value .dataTable = Me.dataTable + .firmaId = Me.firmaId End With AddHandler frm.FormClosing, Function() @@ -169,6 +181,7 @@ Public Class frmGesamtsicherheitenMenuNEU .datum = Date.Now .Neu = True .dataTable = Me.dataTable + .firmaId = Me.firmaId End With AddHandler frm.FormClosing, Function() GesSichRef.CalcSaldo() diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index 7697a79..0282538 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -41,40 +41,25 @@ Partial Class frmGesamtsicherheitenNEU Me.txtDatumaendern = New System.Windows.Forms.TextBox() Me.Label26 = New System.Windows.Forms.Label() Me.lblATCwarning = New System.Windows.Forms.Label() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtATCaendern = New System.Windows.Forms.TextBox() Me.Label34 = New System.Windows.Forms.Label() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlChangeATBNr = New System.Windows.Forms.Panel() Me.lblWarningATB = New System.Windows.Forms.Label() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtATBNraendern = New System.Windows.Forms.TextBox() Me.Label32 = New System.Windows.Forms.Label() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.panOverlay = New System.Windows.Forms.Panel() - Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label23 = New System.Windows.Forms.Label() - Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblWarenort = New System.Windows.Forms.Label() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtLKWKZ = New System.Windows.Forms.TextBox() Me.txtAbfertNum = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() - Me.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.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 +79,11 @@ Partial Class frmGesamtsicherheitenNEU Me.lblReferenzwert = New System.Windows.Forms.Label() Me.lblSaldo = New System.Windows.Forms.Label() Me.panOben = New System.Windows.Forms.Panel() - Me.txtSicherheitDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.dtpSicherheitDat = New System.Windows.Forms.DateTimePicker() - Me.txtPosDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.dtpPosDat = New System.Windows.Forms.DateTimePicker() Me.lbloffenerWarenwert = New System.Windows.Forms.Label() Me.txtGestellInfo = New System.Windows.Forms.TextBox() - Me.btnSaveDatetime = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblId = New System.Windows.Forms.Label() - Me.txtZollsatzueberschreiben = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxZollsatzueberschreiben = New System.Windows.Forms.CheckBox() Me.btnNext = New System.Windows.Forms.Button() Me.lbloffenerSaldo = New System.Windows.Forms.Label() @@ -113,15 +94,9 @@ Partial Class frmGesamtsicherheitenNEU Me.btnNew = New System.Windows.Forms.Button() Me.cbx_offene = New System.Windows.Forms.CheckBox() Me.btnSuche = New System.Windows.Forms.Button() - Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label19 = New System.Windows.Forms.Label() Me.txt_Suche = New System.Windows.Forms.TextBox() Me.Label21 = New System.Windows.Forms.Label() - Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label15 = New System.Windows.Forms.Label() Me.txtAnzahlPos = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() @@ -142,6 +117,31 @@ Partial Class frmGesamtsicherheitenNEU Me.Label1 = New System.Windows.Forms.Label() Me.txtPosFreitext = New System.Windows.Forms.TextBox() Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSicherheitDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPosDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnSaveDatetime = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtZollsatzueberschreiben = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.ContextMenuStripGesSicherh.SuspendLayout() @@ -149,12 +149,12 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATCNr.SuspendLayout() Me.pnlChangeATBNr.SuspendLayout() Me.panOverlay.SuspendLayout() - CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStripPosSicherheiten.SuspendLayout() Me.pnlSummeGes.SuspendLayout() Me.panOben.SuspendLayout() Me.Panel1.SuspendLayout() + CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ContextMenuStripGesSicherh @@ -283,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)) @@ -316,22 +302,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label34.TabIndex = 5 Me.Label34.Text = "ATC/MRN" ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackColor = System.Drawing.Color.White - Me.FlatButton4.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.FlatButton4.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Location = New System.Drawing.Point(261, 3) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(24, 24) - Me.FlatButton4.TabIndex = 0 - Me.FlatButton4.UseVisualStyleBackColor = False - ' 'pnlChangeATBNr ' Me.pnlChangeATBNr.BackColor = System.Drawing.SystemColors.ButtonHighlight @@ -356,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)) @@ -389,22 +345,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label32.TabIndex = 5 Me.Label32.Text = "ATB-Nr" ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackColor = System.Drawing.Color.White - Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.FlatButton2.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(261, 3) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(24, 24) - Me.FlatButton2.TabIndex = 0 - Me.FlatButton2.UseVisualStyleBackColor = False - ' 'panOverlay ' Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight @@ -426,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 @@ -461,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 = 300 - 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 @@ -485,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)) @@ -561,92 +434,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label16.TabIndex = 3 Me.Label16.Text = "Filial-Nummer:" ' - 'btnClosePanOverlay - ' - Me.btnClosePanOverlay.allowBorder = False - Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White - Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 - Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black - Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) - Me.btnClosePanOverlay.Name = "btnClosePanOverlay" - Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) - Me.btnClosePanOverlay.TabIndex = 0 - Me.btnClosePanOverlay.UseVisualStyleBackColor = False - ' - 'dgvGesamtsicherheit - ' - Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvGesamtsicherheit.AllowUserToAddRows = False - Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStripGesSicherh - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2 - Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left - Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0) - Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit" - Me.dgvGesamtsicherheit.ReadOnly = True - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 - Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 457) - Me.dgvGesamtsicherheit.TabIndex = 0 - ' - 'dgvSicherheitsPos - ' - Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvSicherheitsPos.AllowUserToAddRows = False - Me.dgvSicherheitsPos.AllowUserToDeleteRows = False - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 - Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvSicherheitsPos.ContextMenuStrip = Me.ContextMenuStripPosSicherheiten - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5 - Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right - Me.dgvSicherheitsPos.Location = New System.Drawing.Point(748, 0) - Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" - Me.dgvSicherheitsPos.ReadOnly = True - Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 457) - Me.dgvSicherheitsPos.TabIndex = 1 - ' 'ContextMenuStripPosSicherheiten ' Me.ContextMenuStripPosSicherheiten.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATCMRNNraendernToolStripMenuItem}) @@ -681,54 +468,6 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlSummeGes.Size = New System.Drawing.Size(1384, 32) Me.pnlSummeGes.TabIndex = 3 ' - 'txtPosSicherheitsbGes - ' - Me.txtPosSicherheitsbGes._DateTimeOnly = False - Me.txtPosSicherheitsbGes._numbersOnly = False - Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = "" - Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False - Me.txtPosSicherheitsbGes._Prozent = False - Me.txtPosSicherheitsbGes._ShortDateNew = False - Me.txtPosSicherheitsbGes._ShortDateOnly = False - Me.txtPosSicherheitsbGes._TimeOnly = False - Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False - Me.txtPosSicherheitsbGes._value = "" - Me.txtPosSicherheitsbGes._Waehrung = True - Me.txtPosSicherheitsbGes._WaehrungZeichen = True - Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black - Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(1272, 6) - Me.txtPosSicherheitsbGes.MaxLineLength = -1 - Me.txtPosSicherheitsbGes.MaxLines_Warning = "" - Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing - Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes" - Me.txtPosSicherheitsbGes.ReadOnly = True - Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20) - Me.txtPosSicherheitsbGes.TabIndex = 5 - ' - 'txtSicherheitsbGes - ' - Me.txtSicherheitsbGes._DateTimeOnly = False - Me.txtSicherheitsbGes._numbersOnly = False - Me.txtSicherheitsbGes._numbersOnlyKommastellen = "" - Me.txtSicherheitsbGes._numbersOnlyTrennzeichen = False - Me.txtSicherheitsbGes._Prozent = False - Me.txtSicherheitsbGes._ShortDateNew = False - Me.txtSicherheitsbGes._ShortDateOnly = False - Me.txtSicherheitsbGes._TimeOnly = False - Me.txtSicherheitsbGes._TimeOnly_Seconds = False - Me.txtSicherheitsbGes._value = "" - Me.txtSicherheitsbGes._Waehrung = True - Me.txtSicherheitsbGes._WaehrungZeichen = True - Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black - Me.txtSicherheitsbGes.Location = New System.Drawing.Point(615, 5) - Me.txtSicherheitsbGes.MaxLineLength = -1 - Me.txtSicherheitsbGes.MaxLines_Warning = "" - Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing - Me.txtSicherheitsbGes.Name = "txtSicherheitsbGes" - Me.txtSicherheitsbGes.ReadOnly = True - Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20) - Me.txtSicherheitsbGes.TabIndex = 5 - ' 'Label28 ' Me.Label28.AutoSize = True @@ -739,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 @@ -773,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) @@ -1039,32 +730,6 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.Size = New System.Drawing.Size(1384, 287) Me.panOben.TabIndex = 0 ' - 'txtSicherheitDat - ' - Me.txtSicherheitDat._DateTimeOnly = False - Me.txtSicherheitDat._numbersOnly = False - Me.txtSicherheitDat._numbersOnlyKommastellen = "" - Me.txtSicherheitDat._numbersOnlyTrennzeichen = True - Me.txtSicherheitDat._Prozent = False - Me.txtSicherheitDat._ShortDateNew = False - Me.txtSicherheitDat._ShortDateOnly = True - Me.txtSicherheitDat._TimeOnly = False - Me.txtSicherheitDat._TimeOnly_Seconds = False - Me.txtSicherheitDat._value = "" - Me.txtSicherheitDat._Waehrung = False - Me.txtSicherheitDat._WaehrungZeichen = True - Me.txtSicherheitDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitDat.ForeColor = System.Drawing.Color.Black - Me.txtSicherheitDat.Location = New System.Drawing.Point(279, 204) - Me.txtSicherheitDat.MaxLength = 10 - Me.txtSicherheitDat.MaxLineLength = -1 - Me.txtSicherheitDat.MaxLines_Warning = "" - Me.txtSicherheitDat.MaxLines_Warning_Label = Nothing - Me.txtSicherheitDat.Multiline = True - Me.txtSicherheitDat.Name = "txtSicherheitDat" - Me.txtSicherheitDat.Size = New System.Drawing.Size(78, 24) - Me.txtSicherheitDat.TabIndex = 27 - ' 'dtpSicherheitDat ' Me.dtpSicherheitDat.CustomFormat = "''" @@ -1076,32 +741,6 @@ Partial Class frmGesamtsicherheitenNEU Me.dtpSicherheitDat.Size = New System.Drawing.Size(110, 24) Me.dtpSicherheitDat.TabIndex = 54 ' - 'txtPosDat - ' - Me.txtPosDat._DateTimeOnly = False - Me.txtPosDat._numbersOnly = False - Me.txtPosDat._numbersOnlyKommastellen = "" - Me.txtPosDat._numbersOnlyTrennzeichen = True - Me.txtPosDat._Prozent = False - Me.txtPosDat._ShortDateNew = False - Me.txtPosDat._ShortDateOnly = True - Me.txtPosDat._TimeOnly = False - Me.txtPosDat._TimeOnly_Seconds = False - Me.txtPosDat._value = "" - Me.txtPosDat._Waehrung = False - Me.txtPosDat._WaehrungZeichen = True - Me.txtPosDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPosDat.ForeColor = System.Drawing.Color.Black - Me.txtPosDat.Location = New System.Drawing.Point(965, 204) - Me.txtPosDat.MaxLength = 10 - Me.txtPosDat.MaxLineLength = -1 - Me.txtPosDat.MaxLines_Warning = "" - Me.txtPosDat.MaxLines_Warning_Label = Nothing - Me.txtPosDat.Multiline = True - Me.txtPosDat.Name = "txtPosDat" - Me.txtPosDat.Size = New System.Drawing.Size(78, 24) - Me.txtPosDat.TabIndex = 32 - ' 'dtpPosDat ' Me.dtpPosDat.CustomFormat = "''" @@ -1138,20 +777,6 @@ Partial Class frmGesamtsicherheitenNEU Me.txtGestellInfo.Size = New System.Drawing.Size(863, 22) Me.txtGestellInfo.TabIndex = 50 ' - 'btnSaveDatetime - ' - Me.btnSaveDatetime.allowBorder = False - Me.btnSaveDatetime.BackColor = System.Drawing.Color.White - Me.btnSaveDatetime.FlatAppearance.BorderSize = 0 - Me.btnSaveDatetime.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSaveDatetime.ForeColor = System.Drawing.Color.Black - Me.btnSaveDatetime.Location = New System.Drawing.Point(12, 165) - Me.btnSaveDatetime.Name = "btnSaveDatetime" - Me.btnSaveDatetime.Size = New System.Drawing.Size(75, 23) - Me.btnSaveDatetime.TabIndex = 11 - Me.btnSaveDatetime.Text = "speichern" - Me.btnSaveDatetime.UseVisualStyleBackColor = False - ' 'lblId ' Me.lblId.Anchor = System.Windows.Forms.AnchorStyles.Right @@ -1164,30 +789,6 @@ Partial Class frmGesamtsicherheitenNEU Me.lblId.TabIndex = 0 Me.lblId.Text = "ID" ' - 'txtZollsatzueberschreiben - ' - Me.txtZollsatzueberschreiben._DateTimeOnly = False - Me.txtZollsatzueberschreiben._numbersOnly = True - Me.txtZollsatzueberschreiben._numbersOnlyKommastellen = "" - Me.txtZollsatzueberschreiben._numbersOnlyTrennzeichen = True - Me.txtZollsatzueberschreiben._Prozent = False - Me.txtZollsatzueberschreiben._ShortDateNew = False - Me.txtZollsatzueberschreiben._ShortDateOnly = False - Me.txtZollsatzueberschreiben._TimeOnly = False - Me.txtZollsatzueberschreiben._TimeOnly_Seconds = False - Me.txtZollsatzueberschreiben._value = "" - Me.txtZollsatzueberschreiben._Waehrung = False - Me.txtZollsatzueberschreiben._WaehrungZeichen = True - Me.txtZollsatzueberschreiben.Enabled = False - Me.txtZollsatzueberschreiben.ForeColor = System.Drawing.Color.Black - Me.txtZollsatzueberschreiben.Location = New System.Drawing.Point(908, 156) - Me.txtZollsatzueberschreiben.MaxLineLength = -1 - Me.txtZollsatzueberschreiben.MaxLines_Warning = "" - Me.txtZollsatzueberschreiben.MaxLines_Warning_Label = Nothing - Me.txtZollsatzueberschreiben.Name = "txtZollsatzueberschreiben" - Me.txtZollsatzueberschreiben.Size = New System.Drawing.Size(30, 20) - Me.txtZollsatzueberschreiben.TabIndex = 10 - ' 'cbxZollsatzueberschreiben ' Me.cbxZollsatzueberschreiben.AutoSize = True @@ -1304,21 +905,6 @@ Partial Class frmGesamtsicherheitenNEU Me.btnSuche.Text = "Suche starten" Me.btnSuche.UseVisualStyleBackColor = True ' - 'cbx_Suche_Warenort - ' - Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing - Me.cbx_Suche_Warenort._allowFreiText = False - Me.cbx_Suche_Warenort._value = "" - Me.cbx_Suche_Warenort.DropDownWidth = 300 - Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbx_Suche_Warenort.FormattingEnabled = True - Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(274, 20) - Me.cbx_Suche_Warenort.MaxLength = 4 - Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" - Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) - Me.cbx_Suche_Warenort.TabIndex = 6 - Me.cbx_Suche_Warenort.Visible = False - ' 'Label19 ' Me.Label19.AutoSize = True @@ -1349,84 +935,6 @@ Partial Class frmGesamtsicherheitenNEU Me.Label21.TabIndex = 1 Me.Label21.Text = "Suche:" ' - 'btn_resetSearch - ' - Me.btn_resetSearch.allowBorder = False - Me.btn_resetSearch.BackColor = System.Drawing.Color.White - Me.btn_resetSearch.FlatAppearance.BorderSize = 0 - Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black - Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh - Me.btn_resetSearch.Location = New System.Drawing.Point(660, 10) - Me.btn_resetSearch.Name = "btn_resetSearch" - Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) - Me.btn_resetSearch.TabIndex = 4 - Me.btn_resetSearch.UseVisualStyleBackColor = False - ' - 'btnDeletePos - ' - Me.btnDeletePos.allowBorder = False - Me.btnDeletePos.BackColor = System.Drawing.Color.White - Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeletePos.FlatAppearance.BorderSize = 0 - Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeletePos.ForeColor = System.Drawing.Color.Black - Me.btnDeletePos.Location = New System.Drawing.Point(1357, 164) - Me.btnDeletePos.Name = "btnDeletePos" - Me.btnDeletePos.Size = New System.Drawing.Size(24, 24) - Me.btnDeletePos.TabIndex = 24 - Me.btnDeletePos.UseVisualStyleBackColor = False - Me.btnDeletePos.Visible = False - ' - 'btnDeleteSicherheit - ' - Me.btnDeleteSicherheit.allowBorder = False - Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White - Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 - Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0 - Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black - Me.btnDeleteSicherheit.Location = New System.Drawing.Point(665, 165) - Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit" - Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24) - Me.btnDeleteSicherheit.TabIndex = 12 - Me.btnDeleteSicherheit.UseVisualStyleBackColor = False - Me.btnDeleteSicherheit.Visible = False - ' - 'btnUpdatePos - ' - Me.btnUpdatePos.allowBorder = False - Me.btnUpdatePos.BackColor = System.Drawing.Color.White - Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdatePos.FlatAppearance.BorderSize = 0 - Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black - Me.btnUpdatePos.Location = New System.Drawing.Point(1357, 245) - Me.btnUpdatePos.Name = "btnUpdatePos" - Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24) - Me.btnUpdatePos.TabIndex = 49 - Me.btnUpdatePos.UseVisualStyleBackColor = False - Me.btnUpdatePos.Visible = False - ' - 'btnUpdateSicherheit - ' - Me.btnUpdateSicherheit.allowBorder = False - Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White - Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok - Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch - Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0 - Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black - Me.btnUpdateSicherheit.Location = New System.Drawing.Point(665, 246) - Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit" - Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24) - Me.btnUpdateSicherheit.TabIndex = 41 - Me.btnUpdateSicherheit.UseVisualStyleBackColor = False - Me.btnUpdateSicherheit.Visible = False - ' 'Label15 ' Me.Label15.AutoSize = True @@ -1625,6 +1133,498 @@ Partial Class frmGesamtsicherheitenNEU Me.txtSicherheitFreitext.Size = New System.Drawing.Size(260, 24) Me.txtSicherheitFreitext.TabIndex = 46 ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.BackColor = System.Drawing.Color.Gainsboro + Me.FlatButton3.FlatAppearance.BorderSize = 0 + Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton3.ForeColor = System.Drawing.Color.Black + Me.FlatButton3.Location = New System.Drawing.Point(210, 160) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(75, 23) + Me.FlatButton3.TabIndex = 10 + Me.FlatButton3.Text = "Ändern" + Me.FlatButton3.UseVisualStyleBackColor = False + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackColor = System.Drawing.Color.White + Me.FlatButton4.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.FlatButton4.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Location = New System.Drawing.Point(261, 3) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(24, 24) + Me.FlatButton4.TabIndex = 0 + Me.FlatButton4.UseVisualStyleBackColor = False + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackColor = System.Drawing.Color.Gainsboro + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Location = New System.Drawing.Point(210, 77) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(75, 23) + Me.FlatButton1.TabIndex = 9 + Me.FlatButton1.Text = "Ändern" + Me.FlatButton1.UseVisualStyleBackColor = False + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.BackColor = System.Drawing.Color.White + Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.FlatButton2.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Location = New System.Drawing.Point(261, 3) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(24, 24) + Me.FlatButton2.TabIndex = 0 + Me.FlatButton2.UseVisualStyleBackColor = False + ' + 'txtlkwIdSearch + ' + Me.txtlkwIdSearch._allowFreitext = True + Me.txtlkwIdSearch._AllowSetValue = False + Me.txtlkwIdSearch._allowSpaceAsSplitter = False + Me.txtlkwIdSearch._autoSizeGross = False + Me.txtlkwIdSearch._hideIfListEmpty = True + Me.txtlkwIdSearch._value = Nothing + Me.txtlkwIdSearch.conn_art = "FMZOLL" + Me.txtlkwIdSearch.dgvpos = "LEFT" + Me.txtlkwIdSearch.DISPLAY_PARAM = Nothing + Me.txtlkwIdSearch.INVISIBLE_COLUMNS = Nothing + Me.txtlkwIdSearch.key_visible = False + Me.txtlkwIdSearch.KEYPARAM = Nothing + Me.txtlkwIdSearch.Location = New System.Drawing.Point(279, 184) + Me.txtlkwIdSearch.Name = "txtlkwIdSearch" + Me.txtlkwIdSearch.searchActive = True + Me.txtlkwIdSearch.Size = New System.Drawing.Size(186, 20) + Me.txtlkwIdSearch.SQL_ORDER_BY = Nothing + Me.txtlkwIdSearch.SQL_SELECT = Nothing + Me.txtlkwIdSearch.SQL_WHERE = Nothing + Me.txtlkwIdSearch.SQL_WhereParamList = Nothing + Me.txtlkwIdSearch.TabIndex = 7 + Me.txtlkwIdSearch.usrcntl = Nothing + ' + 'cboWarenort + ' + Me.cboWarenort._allowedValuesFreiText = Nothing + Me.cboWarenort._allowFreiText = False + Me.cboWarenort._value = "" + Me.cboWarenort.DropDownWidth = 400 + Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboWarenort.FormattingEnabled = True + Me.cboWarenort.Location = New System.Drawing.Point(278, 64) + Me.cboWarenort.MaxLength = 4 + Me.cboWarenort.Name = "cboWarenort" + Me.cboWarenort.Size = New System.Drawing.Size(186, 24) + Me.cboWarenort.TabIndex = 2 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(279, 103) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(186, 24) + Me.cboFiliale.TabIndex = 4 + ' + 'btnSave + ' + Me.btnSave.allowBorder = False + Me.btnSave.BackColor = System.Drawing.Color.Gainsboro + Me.btnSave.FlatAppearance.BorderSize = 0 + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Location = New System.Drawing.Point(389, 252) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 9 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = False + ' + 'btnClosePanOverlay + ' + Me.btnClosePanOverlay.allowBorder = False + Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White + Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 + Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black + Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) + Me.btnClosePanOverlay.Name = "btnClosePanOverlay" + Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) + Me.btnClosePanOverlay.TabIndex = 0 + Me.btnClosePanOverlay.UseVisualStyleBackColor = False + ' + 'dgvGesamtsicherheit + ' + Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheit.AllowUserToAddRows = False + Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStripGesSicherh + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0) + Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit" + Me.dgvGesamtsicherheit.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 457) + Me.dgvGesamtsicherheit.TabIndex = 0 + ' + 'dgvSicherheitsPos + ' + Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvSicherheitsPos.AllowUserToAddRows = False + Me.dgvSicherheitsPos.AllowUserToDeleteRows = False + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvSicherheitsPos.ContextMenuStrip = Me.ContextMenuStripPosSicherheiten + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right + Me.dgvSicherheitsPos.Location = New System.Drawing.Point(748, 0) + Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" + Me.dgvSicherheitsPos.ReadOnly = True + Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 457) + Me.dgvSicherheitsPos.TabIndex = 1 + ' + 'txtPosSicherheitsbGes + ' + Me.txtPosSicherheitsbGes._DateTimeOnly = False + Me.txtPosSicherheitsbGes._numbersOnly = False + Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = "" + Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False + Me.txtPosSicherheitsbGes._Prozent = False + Me.txtPosSicherheitsbGes._ShortDateNew = False + Me.txtPosSicherheitsbGes._ShortDateOnly = False + Me.txtPosSicherheitsbGes._TimeOnly = False + Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False + Me.txtPosSicherheitsbGes._value = "" + Me.txtPosSicherheitsbGes._Waehrung = True + Me.txtPosSicherheitsbGes._WaehrungZeichen = True + Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black + Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(1272, 6) + Me.txtPosSicherheitsbGes.MaxLineLength = -1 + Me.txtPosSicherheitsbGes.MaxLines_Warning = "" + Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing + Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes" + Me.txtPosSicherheitsbGes.ReadOnly = True + Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20) + Me.txtPosSicherheitsbGes.TabIndex = 5 + ' + 'txtSicherheitsbGes + ' + Me.txtSicherheitsbGes._DateTimeOnly = False + Me.txtSicherheitsbGes._numbersOnly = False + Me.txtSicherheitsbGes._numbersOnlyKommastellen = "" + Me.txtSicherheitsbGes._numbersOnlyTrennzeichen = False + Me.txtSicherheitsbGes._Prozent = False + Me.txtSicherheitsbGes._ShortDateNew = False + Me.txtSicherheitsbGes._ShortDateOnly = False + Me.txtSicherheitsbGes._TimeOnly = False + Me.txtSicherheitsbGes._TimeOnly_Seconds = False + Me.txtSicherheitsbGes._value = "" + Me.txtSicherheitsbGes._Waehrung = True + Me.txtSicherheitsbGes._WaehrungZeichen = True + Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black + Me.txtSicherheitsbGes.Location = New System.Drawing.Point(615, 5) + Me.txtSicherheitsbGes.MaxLineLength = -1 + Me.txtSicherheitsbGes.MaxLines_Warning = "" + Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing + Me.txtSicherheitsbGes.Name = "txtSicherheitsbGes" + Me.txtSicherheitsbGes.ReadOnly = True + Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20) + Me.txtSicherheitsbGes.TabIndex = 5 + ' + 'txtPosWarenwertGes + ' + Me.txtPosWarenwertGes._DateTimeOnly = False + Me.txtPosWarenwertGes._numbersOnly = False + Me.txtPosWarenwertGes._numbersOnlyKommastellen = "" + Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False + Me.txtPosWarenwertGes._Prozent = False + Me.txtPosWarenwertGes._ShortDateNew = False + Me.txtPosWarenwertGes._ShortDateOnly = False + Me.txtPosWarenwertGes._TimeOnly = False + Me.txtPosWarenwertGes._TimeOnly_Seconds = False + Me.txtPosWarenwertGes._value = "" + Me.txtPosWarenwertGes._Waehrung = True + Me.txtPosWarenwertGes._WaehrungZeichen = True + Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black + Me.txtPosWarenwertGes.Location = New System.Drawing.Point(1018, 6) + Me.txtPosWarenwertGes.MaxLineLength = -1 + Me.txtPosWarenwertGes.MaxLines_Warning = "" + Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing + Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes" + Me.txtPosWarenwertGes.ReadOnly = True + Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20) + Me.txtPosWarenwertGes.TabIndex = 3 + ' + 'txtWarenwertGes + ' + Me.txtWarenwertGes._DateTimeOnly = False + Me.txtWarenwertGes._numbersOnly = False + Me.txtWarenwertGes._numbersOnlyKommastellen = "" + Me.txtWarenwertGes._numbersOnlyTrennzeichen = False + Me.txtWarenwertGes._Prozent = False + Me.txtWarenwertGes._ShortDateNew = False + Me.txtWarenwertGes._ShortDateOnly = False + Me.txtWarenwertGes._TimeOnly = False + Me.txtWarenwertGes._TimeOnly_Seconds = False + Me.txtWarenwertGes._value = "" + Me.txtWarenwertGes._Waehrung = True + Me.txtWarenwertGes._WaehrungZeichen = True + Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black + Me.txtWarenwertGes.Location = New System.Drawing.Point(326, 6) + Me.txtWarenwertGes.MaxLineLength = -1 + Me.txtWarenwertGes.MaxLines_Warning = "" + Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing + Me.txtWarenwertGes.Name = "txtWarenwertGes" + Me.txtWarenwertGes.ReadOnly = True + Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20) + Me.txtWarenwertGes.TabIndex = 3 + ' + 'txtSicherheitDat + ' + Me.txtSicherheitDat._DateTimeOnly = False + Me.txtSicherheitDat._numbersOnly = False + Me.txtSicherheitDat._numbersOnlyKommastellen = "" + Me.txtSicherheitDat._numbersOnlyTrennzeichen = True + Me.txtSicherheitDat._Prozent = False + Me.txtSicherheitDat._ShortDateNew = False + Me.txtSicherheitDat._ShortDateOnly = True + Me.txtSicherheitDat._TimeOnly = False + Me.txtSicherheitDat._TimeOnly_Seconds = False + Me.txtSicherheitDat._value = "" + Me.txtSicherheitDat._Waehrung = False + Me.txtSicherheitDat._WaehrungZeichen = True + Me.txtSicherheitDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSicherheitDat.ForeColor = System.Drawing.Color.Black + Me.txtSicherheitDat.Location = New System.Drawing.Point(279, 204) + Me.txtSicherheitDat.MaxLength = 10 + Me.txtSicherheitDat.MaxLineLength = -1 + Me.txtSicherheitDat.MaxLines_Warning = "" + Me.txtSicherheitDat.MaxLines_Warning_Label = Nothing + Me.txtSicherheitDat.Multiline = True + Me.txtSicherheitDat.Name = "txtSicherheitDat" + Me.txtSicherheitDat.Size = New System.Drawing.Size(78, 24) + Me.txtSicherheitDat.TabIndex = 27 + ' + 'txtPosDat + ' + Me.txtPosDat._DateTimeOnly = False + Me.txtPosDat._numbersOnly = False + Me.txtPosDat._numbersOnlyKommastellen = "" + Me.txtPosDat._numbersOnlyTrennzeichen = True + Me.txtPosDat._Prozent = False + Me.txtPosDat._ShortDateNew = False + Me.txtPosDat._ShortDateOnly = True + Me.txtPosDat._TimeOnly = False + Me.txtPosDat._TimeOnly_Seconds = False + Me.txtPosDat._value = "" + Me.txtPosDat._Waehrung = False + Me.txtPosDat._WaehrungZeichen = True + Me.txtPosDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosDat.ForeColor = System.Drawing.Color.Black + Me.txtPosDat.Location = New System.Drawing.Point(965, 204) + Me.txtPosDat.MaxLength = 10 + Me.txtPosDat.MaxLineLength = -1 + Me.txtPosDat.MaxLines_Warning = "" + Me.txtPosDat.MaxLines_Warning_Label = Nothing + Me.txtPosDat.Multiline = True + Me.txtPosDat.Name = "txtPosDat" + Me.txtPosDat.Size = New System.Drawing.Size(78, 24) + Me.txtPosDat.TabIndex = 32 + ' + 'btnSaveDatetime + ' + Me.btnSaveDatetime.allowBorder = False + Me.btnSaveDatetime.BackColor = System.Drawing.Color.White + Me.btnSaveDatetime.FlatAppearance.BorderSize = 0 + Me.btnSaveDatetime.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSaveDatetime.ForeColor = System.Drawing.Color.Black + Me.btnSaveDatetime.Location = New System.Drawing.Point(12, 165) + Me.btnSaveDatetime.Name = "btnSaveDatetime" + Me.btnSaveDatetime.Size = New System.Drawing.Size(75, 23) + Me.btnSaveDatetime.TabIndex = 11 + Me.btnSaveDatetime.Text = "speichern" + Me.btnSaveDatetime.UseVisualStyleBackColor = False + ' + 'txtZollsatzueberschreiben + ' + Me.txtZollsatzueberschreiben._DateTimeOnly = False + Me.txtZollsatzueberschreiben._numbersOnly = True + Me.txtZollsatzueberschreiben._numbersOnlyKommastellen = "" + Me.txtZollsatzueberschreiben._numbersOnlyTrennzeichen = True + Me.txtZollsatzueberschreiben._Prozent = False + Me.txtZollsatzueberschreiben._ShortDateNew = False + Me.txtZollsatzueberschreiben._ShortDateOnly = False + Me.txtZollsatzueberschreiben._TimeOnly = False + Me.txtZollsatzueberschreiben._TimeOnly_Seconds = False + Me.txtZollsatzueberschreiben._value = "" + Me.txtZollsatzueberschreiben._Waehrung = False + Me.txtZollsatzueberschreiben._WaehrungZeichen = True + Me.txtZollsatzueberschreiben.Enabled = False + Me.txtZollsatzueberschreiben.ForeColor = System.Drawing.Color.Black + Me.txtZollsatzueberschreiben.Location = New System.Drawing.Point(908, 156) + Me.txtZollsatzueberschreiben.MaxLineLength = -1 + Me.txtZollsatzueberschreiben.MaxLines_Warning = "" + Me.txtZollsatzueberschreiben.MaxLines_Warning_Label = Nothing + Me.txtZollsatzueberschreiben.Name = "txtZollsatzueberschreiben" + Me.txtZollsatzueberschreiben.Size = New System.Drawing.Size(30, 20) + Me.txtZollsatzueberschreiben.TabIndex = 10 + ' + 'cbx_Suche_Warenort + ' + Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing + Me.cbx_Suche_Warenort._allowFreiText = False + Me.cbx_Suche_Warenort._value = "" + Me.cbx_Suche_Warenort.DropDownWidth = 300 + Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_Suche_Warenort.FormattingEnabled = True + Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(274, 20) + Me.cbx_Suche_Warenort.MaxLength = 4 + Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" + Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) + Me.cbx_Suche_Warenort.TabIndex = 6 + Me.cbx_Suche_Warenort.Visible = False + ' + 'btn_resetSearch + ' + Me.btn_resetSearch.allowBorder = False + Me.btn_resetSearch.BackColor = System.Drawing.Color.White + Me.btn_resetSearch.FlatAppearance.BorderSize = 0 + Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black + Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh + Me.btn_resetSearch.Location = New System.Drawing.Point(660, 10) + Me.btn_resetSearch.Name = "btn_resetSearch" + Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) + Me.btn_resetSearch.TabIndex = 4 + Me.btn_resetSearch.UseVisualStyleBackColor = False + ' + 'btnDeletePos + ' + Me.btnDeletePos.allowBorder = False + Me.btnDeletePos.BackColor = System.Drawing.Color.White + Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeletePos.FlatAppearance.BorderSize = 0 + Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeletePos.ForeColor = System.Drawing.Color.Black + Me.btnDeletePos.Location = New System.Drawing.Point(1357, 164) + Me.btnDeletePos.Name = "btnDeletePos" + Me.btnDeletePos.Size = New System.Drawing.Size(24, 24) + Me.btnDeletePos.TabIndex = 24 + Me.btnDeletePos.UseVisualStyleBackColor = False + Me.btnDeletePos.Visible = False + ' + 'btnDeleteSicherheit + ' + Me.btnDeleteSicherheit.allowBorder = False + Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White + Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0 + Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnDeleteSicherheit.Location = New System.Drawing.Point(665, 165) + Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit" + Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteSicherheit.TabIndex = 12 + Me.btnDeleteSicherheit.UseVisualStyleBackColor = False + Me.btnDeleteSicherheit.Visible = False + ' + 'btnUpdatePos + ' + Me.btnUpdatePos.allowBorder = False + Me.btnUpdatePos.BackColor = System.Drawing.Color.White + Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdatePos.FlatAppearance.BorderSize = 0 + Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black + Me.btnUpdatePos.Location = New System.Drawing.Point(1357, 245) + Me.btnUpdatePos.Name = "btnUpdatePos" + Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24) + Me.btnUpdatePos.TabIndex = 49 + Me.btnUpdatePos.UseVisualStyleBackColor = False + Me.btnUpdatePos.Visible = False + ' + 'btnUpdateSicherheit + ' + Me.btnUpdateSicherheit.allowBorder = False + Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White + Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0 + Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black + Me.btnUpdateSicherheit.Location = New System.Drawing.Point(665, 246) + Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit" + Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateSicherheit.TabIndex = 41 + Me.btnUpdateSicherheit.UseVisualStyleBackColor = False + Me.btnUpdateSicherheit.Visible = False + ' 'btnAddPos ' Me.btnAddPos.allowBorder = False @@ -1676,8 +1676,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() @@ -1685,6 +1683,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 diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 26110e1..9c8aefa 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -44,6 +44,9 @@ Public Class frmGesamtsicherheitenNEU Public dtSicherheiten As New DataTable() + Public firmaId As Integer + + Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -63,7 +66,7 @@ Public Class frmGesamtsicherheitenNEU panOverlay.Visible = True cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) + cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) If datum = Nothing Then datum = Date.Now nextGessicherheitID = -1 diff --git a/Aviso/frmWarenorte.Designer.vb b/Aviso/frmWarenorte.Designer.vb index c828933..d2683ac 100644 --- a/Aviso/frmWarenorte.Designer.vb +++ b/Aviso/frmWarenorte.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmWarenorte Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class frmWarenorte 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. '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(frmWarenorte)) @@ -44,6 +44,11 @@ Partial Class frmWarenorte Me.Label8 = New System.Windows.Forms.Label() Me.txtCluster = New System.Windows.Forms.TextBox() Me.mainPanel = New System.Windows.Forms.Panel() + Me.GroupBoxFK = New System.Windows.Forms.GroupBox() + Me.cxIM = New System.Windows.Forms.CheckBox() + Me.cxEX = New System.Windows.Forms.CheckBox() + Me.cxZE = New System.Windows.Forms.CheckBox() + Me.cxZV = New System.Windows.Forms.CheckBox() Me.txtStrasse = New System.Windows.Forms.TextBox() Me.Label10 = New System.Windows.Forms.Label() Me.cbxFirmaChange = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -53,8 +58,10 @@ Partial Class frmWarenorte Me.btnSave = New System.Windows.Forms.Button() Me.cbxGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.dgvWarenorteNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.pnlTop.SuspendLayout() Me.mainPanel.SuspendLayout() + Me.GroupBoxFK.SuspendLayout() CType(Me.dgvWarenorteNew, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -68,7 +75,7 @@ Partial Class frmWarenorte Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top Me.pnlTop.Location = New System.Drawing.Point(0, 0) Me.pnlTop.Name = "pnlTop" - Me.pnlTop.Size = New System.Drawing.Size(620, 48) + Me.pnlTop.Size = New System.Drawing.Size(690, 48) Me.pnlTop.TabIndex = 2 ' 'lblWarning @@ -96,7 +103,7 @@ Partial Class frmWarenorte ' Me.Label3.AutoSize = True Me.Label3.ForeColor = System.Drawing.Color.White - Me.Label3.Location = New System.Drawing.Point(483, 3) + Me.Label3.Location = New System.Drawing.Point(555, 8) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(32, 13) Me.Label3.TabIndex = 5 @@ -109,9 +116,9 @@ Partial Class frmWarenorte Me.cbxFirma._value = "" Me.cbxFirma.DropDownWidth = 150 Me.cbxFirma.FormattingEnabled = True - Me.cbxFirma.Location = New System.Drawing.Point(486, 18) + Me.cbxFirma.Location = New System.Drawing.Point(558, 24) Me.cbxFirma.Name = "cbxFirma" - Me.cbxFirma.Size = New System.Drawing.Size(122, 21) + Me.cbxFirma.Size = New System.Drawing.Size(128, 21) Me.cbxFirma.TabIndex = 13 ' 'btnAdd @@ -119,7 +126,7 @@ Partial Class frmWarenorte Me.btnAdd.BackgroundImage = Global.AVISO.My.Resources.Resources.plus Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAdd.Location = New System.Drawing.Point(196, 283) + Me.btnAdd.Location = New System.Drawing.Point(267, 360) Me.btnAdd.Name = "btnAdd" Me.btnAdd.Size = New System.Drawing.Size(24, 20) Me.btnAdd.TabIndex = 97 @@ -130,7 +137,7 @@ Partial Class frmWarenorte Me.btnDelete.BackgroundImage = Global.AVISO.My.Resources.Resources.del Me.btnDelete.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDelete.Location = New System.Drawing.Point(219, 283) + Me.btnDelete.Location = New System.Drawing.Point(290, 360) Me.btnDelete.Name = "btnDelete" Me.btnDelete.Size = New System.Drawing.Size(24, 20) Me.btnDelete.TabIndex = 96 @@ -237,6 +244,7 @@ Partial Class frmWarenorte ' 'mainPanel ' + Me.mainPanel.Controls.Add(Me.GroupBoxFK) Me.mainPanel.Controls.Add(Me.txtStrasse) Me.mainPanel.Controls.Add(Me.Label10) Me.mainPanel.Controls.Add(Me.cbxFirmaChange) @@ -257,11 +265,64 @@ Partial Class frmWarenorte Me.mainPanel.Controls.Add(Me.Label5) Me.mainPanel.Controls.Add(Me.txtKennr) Me.mainPanel.Controls.Add(Me.Label6) - Me.mainPanel.Location = New System.Drawing.Point(249, 54) + Me.mainPanel.Location = New System.Drawing.Point(320, 55) Me.mainPanel.Name = "mainPanel" - Me.mainPanel.Size = New System.Drawing.Size(359, 248) + Me.mainPanel.Size = New System.Drawing.Size(366, 241) Me.mainPanel.TabIndex = 17 ' + 'GroupBoxFK + ' + Me.GroupBoxFK.Controls.Add(Me.cxIM) + Me.GroupBoxFK.Controls.Add(Me.cxEX) + Me.GroupBoxFK.Controls.Add(Me.cxZE) + Me.GroupBoxFK.Controls.Add(Me.cxZV) + Me.GroupBoxFK.Location = New System.Drawing.Point(12, 159) + Me.GroupBoxFK.Name = "GroupBoxFK" + Me.GroupBoxFK.Size = New System.Drawing.Size(183, 74) + Me.GroupBoxFK.TabIndex = 25 + Me.GroupBoxFK.TabStop = False + Me.GroupBoxFK.Text = "Förmlichkeiten" + ' + 'cxIM + ' + Me.cxIM.AutoSize = True + Me.cxIM.Location = New System.Drawing.Point(117, 41) + Me.cxIM.Name = "cxIM" + Me.cxIM.Size = New System.Drawing.Size(55, 17) + Me.cxIM.TabIndex = 7 + Me.cxIM.Text = "Import" + Me.cxIM.UseVisualStyleBackColor = True + ' + 'cxEX + ' + Me.cxEX.AutoSize = True + Me.cxEX.Location = New System.Drawing.Point(117, 16) + Me.cxEX.Name = "cxEX" + Me.cxEX.Size = New System.Drawing.Size(56, 17) + Me.cxEX.TabIndex = 6 + Me.cxEX.Text = "Export" + Me.cxEX.UseVisualStyleBackColor = True + ' + 'cxZE + ' + Me.cxZE.AutoSize = True + Me.cxZE.Location = New System.Drawing.Point(3, 41) + Me.cxZE.Name = "cxZE" + Me.cxZE.Size = New System.Drawing.Size(100, 17) + Me.cxZE.TabIndex = 5 + Me.cxZE.Text = "zug. Empfänger" + Me.cxZE.UseVisualStyleBackColor = True + ' + 'cxZV + ' + Me.cxZV.AutoSize = True + Me.cxZV.Location = New System.Drawing.Point(3, 18) + Me.cxZV.Name = "cxZV" + Me.cxZV.Size = New System.Drawing.Size(97, 17) + Me.cxZV.TabIndex = 4 + Me.cxZV.Text = "zug. Versender" + Me.cxZV.UseVisualStyleBackColor = True + ' 'txtStrasse ' Me.txtStrasse.Location = New System.Drawing.Point(12, 75) @@ -286,7 +347,7 @@ Partial Class frmWarenorte Me.cbxFirmaChange.DropDownWidth = 120 Me.cbxFirmaChange.Enabled = False Me.cbxFirmaChange.FormattingEnabled = True - Me.cbxFirmaChange.Location = New System.Drawing.Point(12, 175) + Me.cbxFirmaChange.Location = New System.Drawing.Point(252, 175) Me.cbxFirmaChange.Name = "cbxFirmaChange" Me.cbxFirmaChange.Size = New System.Drawing.Size(100, 21) Me.cbxFirmaChange.TabIndex = 21 @@ -295,7 +356,7 @@ Partial Class frmWarenorte 'Label ' Me.Label.AutoSize = True - Me.Label.Location = New System.Drawing.Point(9, 159) + Me.Label.Location = New System.Drawing.Point(249, 159) Me.Label.Name = "Label" Me.Label.Size = New System.Drawing.Size(32, 13) Me.Label.TabIndex = 20 @@ -320,7 +381,7 @@ Partial Class frmWarenorte ' 'btnSave ' - Me.btnSave.Location = New System.Drawing.Point(281, 219) + Me.btnSave.Location = New System.Drawing.Point(277, 210) Me.btnSave.Name = "btnSave" Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.TabIndex = 10 @@ -348,14 +409,34 @@ Partial Class frmWarenorte Me.dgvWarenorteNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvWarenorteNew.Location = New System.Drawing.Point(0, 49) Me.dgvWarenorteNew.Name = "dgvWarenorteNew" - Me.dgvWarenorteNew.Size = New System.Drawing.Size(243, 254) + Me.dgvWarenorteNew.Size = New System.Drawing.Size(314, 331) Me.dgvWarenorteNew.TabIndex = 98 ' + 'UsrcntlPDFScanList1 + ' + Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = "" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = "" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = "" + Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False + Me.UsrcntlPDFScanList1._TYPE = "PDF" + Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White + Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Default + Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(320, 299) + Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0) + Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1" + Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(366, 81) + Me.UsrcntlPDFScanList1.TabIndex = 99 + ' 'frmWarenorte ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(620, 309) + Me.ClientSize = New System.Drawing.Size(690, 382) + Me.Controls.Add(Me.UsrcntlPDFScanList1) Me.Controls.Add(Me.mainPanel) Me.Controls.Add(Me.btnAdd) Me.Controls.Add(Me.btnDelete) @@ -369,6 +450,8 @@ Partial Class frmWarenorte Me.pnlTop.PerformLayout() Me.mainPanel.ResumeLayout(False) Me.mainPanel.PerformLayout() + Me.GroupBoxFK.ResumeLayout(False) + Me.GroupBoxFK.PerformLayout() CType(Me.dgvWarenorteNew, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -403,4 +486,11 @@ Partial Class frmWarenorte Friend WithEvents Label As Label Friend WithEvents txtStrasse As TextBox Friend WithEvents Label10 As Label + Friend WithEvents Label11 As Label + Friend WithEvents GroupBoxFK As GroupBox + Friend WithEvents cxIM As CheckBox + Friend WithEvents cxEX As CheckBox + Friend WithEvents cxZE As CheckBox + Friend WithEvents cxZV As CheckBox + Friend WithEvents UsrcntlPDFScanList1 As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList End Class diff --git a/Aviso/frmWarenorte.vb b/Aviso/frmWarenorte.vb index 613acf1..1c66bd9 100644 --- a/Aviso/frmWarenorte.vb +++ b/Aviso/frmWarenorte.vb @@ -1,5 +1,5 @@ -Imports DocumentFormat.OpenXml.Drawing.Diagrams -Imports Org.BouncyCastle.Crypto.Modes + +Imports com Imports VERAG_PROG_ALLGEMEIN Public Class frmWarenorte @@ -11,7 +11,6 @@ Public Class frmWarenorte cbxGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True) cbxGrenzstelle.changeItem("") cbxFirma.fillWithSQL("SELECT [Firma_id],[Firma_Bez] FROM [tblFirma] WHERE ISNULL(Firma_Warenort,0) = 1 ", False, "FMZOLL", True) - 'cbxFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) cbxFirmaChange.Items.AddRange(cbxFirma.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) End Sub @@ -62,11 +61,13 @@ Public Class frmWarenorte End If End If + If Not IsDBNull(row.Cells("wo_aktiv").Value) Then - If Not row.Cells("wo_aktiv").Value Then - row.DefaultCellStyle.BackColor = Color.IndianRed - End If + If Not row.Cells("wo_aktiv").Value Then + row.DefaultCellStyle.BackColor = Color.IndianRed End If + End If + Next @@ -142,6 +143,8 @@ Public Class frmWarenorte If dgvWarenorteNew.SelectedRows.Count < 1 Then mainPanel.Enabled = False + If cbxFirma._value <> "" Then UsrcntlPDFScanList1.INIT(-1, "WARENORTE", New VERAG_PROG_ALLGEMEIN.cFirmen(cbxFirma._value).Firma_Bez.ToString) + Exit Sub Else mainPanel.Enabled = True @@ -160,6 +163,26 @@ Public Class frmWarenorte txtKennr.Text = Warenort.wo_knnr txtReihenfolge.Text = Warenort.wo_reihenfolge txtStrasse.Text = Warenort.wo_strasse + cxEX.Checked = IIf(IsDBNull(Warenort.wo_ex), False, Warenort.wo_ex) + cxIM.Checked = IIf(IsDBNull(Warenort.wo_im), False, Warenort.wo_im) + cxZE.Checked = IIf(IsDBNull(Warenort.wo_ze), False, Warenort.wo_ze) + cxZV.Checked = IIf(IsDBNull(Warenort.wo_zv), False, Warenort.wo_zv) + + If checkIfFirmaIsFilled(False, False) = False Then + + UsrcntlPDFScanList1.Enabled = False + UsrcntlPDFScanList1.INIT(-1, "WARENORTE", "") + + Else + UsrcntlPDFScanList1.Enabled = True + If cbxFirma._value = "" Then + + UsrcntlPDFScanList1.INIT(-1, "WARENORTE", New VERAG_PROG_ALLGEMEIN.cFirmen(Warenort.wo_firma).Firma_Bez.ToString) + + End If + + End If + End Sub @@ -180,6 +203,11 @@ Public Class frmWarenorte WarenortNew.wo_reihenfolge = txtReihenfolge.Text WarenortNew.wo_strasse = txtStrasse.Text + WarenortNew.wo_ex = cxEX.Checked + WarenortNew.wo_im = cxIM.Checked + WarenortNew.wo_ze = cxZE.Checked + WarenortNew.wo_zv = cxZV.Checked + If cbxGrenzstelle._value = "" Then lblWarning.Text = "Grenzstelle muss ausgewählt werden!" Exit Sub @@ -200,16 +228,23 @@ Public Class frmWarenorte dgvWarenorteNew.GetOrder() initDGVWarenort(cbxFirma._value) dgvWarenorteNew.SetOrder() + + End Sub - Private Function checkIfFirmaIsFilled(initialSave As Boolean) + Private Function checkIfFirmaIsFilled(initialSave As Boolean, Optional setWarning As Boolean = True) If cbxFirma._value = "" Then - If (dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value Is DBNull.Value Or dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value Is Nothing) Or initialSave Then + If ((dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value Is DBNull.Value Or dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value Is Nothing Or dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value = "") And initialSave = False) Then + + If setWarning Then + lblWarning.Text = "Bitte Firma auswählen!" + Else + lblWarning.Text = "" + End If - lblWarning.Text = "Bitte Firma auswählen!" Return False End If lblWarning.Text = "" @@ -226,4 +261,5 @@ Public Class frmWarenorte Return False End Function + End Class \ No newline at end of file