From 3d5f7302dd64e47e2a2aab449c834544c0cc055e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 21 Oct 2022 17:01:56 +0200 Subject: [PATCH] feature_gesamtsicherheiten --- Aviso/Aviso.vbproj | 9 + Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmGesamtsicherheiten.vb | 2 +- .../frmGesamtsicherheitenMenuNEU.Designer.vb | 697 ++++++++++++++++++ Aviso/frmGesamtsicherheitenMenuNEU.resx | 200 +++++ Aviso/frmGesamtsicherheitenMenuNEU.vb | 336 +++++++++ Aviso/frmGesamtsicherheitenNEU.Designer.vb | 638 ++++------------ Aviso/frmGesamtsicherheitenNEU.vb | 433 +++++------ Aviso/frmHauptfenster.vb | 2 +- 9 files changed, 1617 insertions(+), 704 deletions(-) create mode 100644 Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb create mode 100644 Aviso/frmGesamtsicherheitenMenuNEU.resx create mode 100644 Aviso/frmGesamtsicherheitenMenuNEU.vb diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 304bf68..532619e 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -545,6 +545,12 @@ Form + + frmGesamtsicherheitenMenuNEU.vb + + + Form + frmGesamtsicherheitenNEU.vb @@ -1079,6 +1085,9 @@ frmFreigabeSetzenAnhaenge.vb + + frmGesamtsicherheitenMenuNEU.vb + frmGesamtsicherheitenNEU.vb diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 7d145a6..016910b 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheiten.vb b/Aviso/frmGesamtsicherheiten.vb index 13ef88e..f4885c7 100644 --- a/Aviso/frmGesamtsicherheiten.vb +++ b/Aviso/frmGesamtsicherheiten.vb @@ -611,7 +611,7 @@ Public Class frmGesamtsicherheiten sicherheiten.gs_filialenNr = gessich.FilialNummer sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer - sicherheiten.gs_LKWID = gessich.LKWID + sicherheiten.gs_LKWKZ = gessich.LKWID sicherheiten.gs_warenort = gessich.warenortID End Sub diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb new file mode 100644 index 0000000..8e8b12a --- /dev/null +++ b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb @@ -0,0 +1,697 @@ + +Partial Class frmGesamtsicherheitenMenuNEU + 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 + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + '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(frmGesamtsicherheitenMenuNEU)) + Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.btnBisTag = New System.Windows.Forms.Button() + Me.btnVonTag = New System.Windows.Forms.Button() + Me.btnTag = New System.Windows.Forms.Button() + Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label24 = New System.Windows.Forms.Label() + Me.btnJahr = New System.Windows.Forms.Button() + Me.btnBisJahr = New System.Windows.Forms.Button() + Me.btnVonJahr = New System.Windows.Forms.Button() + Me.btnMonat = New System.Windows.Forms.Button() + Me.btnBisMonat = New System.Windows.Forms.Button() + Me.btnVonMonat = New System.Windows.Forms.Button() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label25 = New System.Windows.Forms.Label() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.cbxStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblFiliale = New System.Windows.Forms.Label() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtSuchbegriff = New System.Windows.Forms.TextBox() + Me.chkOffen = New System.Windows.Forms.CheckBox() + Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.lblSaldo = New System.Windows.Forms.Label() + Me.lblZollsatz = New System.Windows.Forms.Label() + Me.lblReferenzwert = New System.Windows.Forms.Label() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'dgvListe + ' + Me.dgvListe.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvListe.AllowUserToAddRows = False + Me.dgvListe.AllowUserToDeleteRows = False + Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvListe.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvListe.Location = New System.Drawing.Point(0, 313) + Me.dgvListe.Name = "dgvListe" + Me.dgvListe.ReadOnly = True + Me.dgvListe.Size = New System.Drawing.Size(502, 408) + Me.dgvListe.TabIndex = 1 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Controls.Add(Me.txtDatBis) + Me.Panel1.Controls.Add(Me.Label26) + Me.Panel1.Controls.Add(Me.btnBisTag) + Me.Panel1.Controls.Add(Me.btnVonTag) + Me.Panel1.Controls.Add(Me.btnTag) + Me.Panel1.Controls.Add(Me.txtDatVon) + Me.Panel1.Controls.Add(Me.Label24) + Me.Panel1.Controls.Add(Me.btnJahr) + Me.Panel1.Controls.Add(Me.btnBisJahr) + Me.Panel1.Controls.Add(Me.btnVonJahr) + Me.Panel1.Controls.Add(Me.btnMonat) + Me.Panel1.Controls.Add(Me.btnBisMonat) + Me.Panel1.Controls.Add(Me.btnVonMonat) + Me.Panel1.Controls.Add(Me.DateTimePicker2) + Me.Panel1.Controls.Add(Me.Label25) + Me.Panel1.Controls.Add(Me.DateTimePicker1) + Me.Panel1.Controls.Add(Me.cbxWarenort) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.cbxStandort) + Me.Panel1.Controls.Add(Me.lblFiliale) + Me.Panel1.Controls.Add(Me.FlatButton2) + Me.Panel1.Controls.Add(Me.btnSucheStarten) + Me.Panel1.Controls.Add(Me.txtbis) + Me.Panel1.Controls.Add(Me.txtVon) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.FlatButton1) + Me.Panel1.Controls.Add(Me.txtSuchbegriff) + Me.Panel1.Controls.Add(Me.chkOffen) + Me.Panel1.Controls.Add(Me.btnNeu) + Me.Panel1.Controls.Add(Me.lblSaldo) + Me.Panel1.Controls.Add(Me.lblZollsatz) + Me.Panel1.Controls.Add(Me.lblReferenzwert) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(502, 313) + Me.Panel1.TabIndex = 0 + ' + 'txtDatBis + ' + Me.txtDatBis._DateTimeOnly = False + Me.txtDatBis._numbersOnly = False + Me.txtDatBis._numbersOnlyKommastellen = "" + Me.txtDatBis._numbersOnlyTrennzeichen = True + Me.txtDatBis._Prozent = False + Me.txtDatBis._ShortDateNew = False + Me.txtDatBis._ShortDateOnly = True + Me.txtDatBis._TimeOnly = False + Me.txtDatBis._TimeOnly_Seconds = False + Me.txtDatBis._value = "" + Me.txtDatBis._Waehrung = False + Me.txtDatBis._WaehrungZeichen = True + Me.txtDatBis.Enabled = False + Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatBis.ForeColor = System.Drawing.Color.Black + Me.txtDatBis.Location = New System.Drawing.Point(51, 170) + Me.txtDatBis.MaxLength = 10 + Me.txtDatBis.MaxLineLength = -1 + Me.txtDatBis.MaxLines_Warning = "" + Me.txtDatBis.MaxLines_Warning_Label = Nothing + Me.txtDatBis.Name = "txtDatBis" + Me.txtDatBis.Size = New System.Drawing.Size(63, 20) + Me.txtDatBis.TabIndex = 52 + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.ForeColor = System.Drawing.Color.White + Me.Label26.Location = New System.Drawing.Point(22, 120) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(43, 13) + Me.Label26.TabIndex = 51 + Me.Label26.Text = "Datum" + ' + 'btnBisTag + ' + Me.btnBisTag.BackColor = System.Drawing.Color.White + Me.btnBisTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisTag.ForeColor = System.Drawing.Color.Black + Me.btnBisTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisTag.Location = New System.Drawing.Point(282, 115) + Me.btnBisTag.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisTag.Name = "btnBisTag" + Me.btnBisTag.Size = New System.Drawing.Size(34, 23) + Me.btnBisTag.TabIndex = 43 + Me.btnBisTag.Text = ">>" + Me.btnBisTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisTag.UseVisualStyleBackColor = False + ' + 'btnVonTag + ' + Me.btnVonTag.BackColor = System.Drawing.Color.White + Me.btnVonTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonTag.ForeColor = System.Drawing.Color.Black + Me.btnVonTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonTag.Location = New System.Drawing.Point(163, 115) + Me.btnVonTag.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonTag.Name = "btnVonTag" + Me.btnVonTag.Size = New System.Drawing.Size(34, 23) + Me.btnVonTag.TabIndex = 41 + Me.btnVonTag.Text = "<<" + Me.btnVonTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonTag.UseVisualStyleBackColor = False + ' + 'btnTag + ' + Me.btnTag.BackColor = System.Drawing.Color.White + Me.btnTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnTag.ForeColor = System.Drawing.Color.Black + Me.btnTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTag.Location = New System.Drawing.Point(196, 115) + Me.btnTag.Margin = New System.Windows.Forms.Padding(0) + Me.btnTag.Name = "btnTag" + Me.btnTag.Size = New System.Drawing.Size(87, 23) + Me.btnTag.TabIndex = 42 + Me.btnTag.Text = "Heute" + Me.btnTag.UseVisualStyleBackColor = False + ' + 'txtDatVon + ' + Me.txtDatVon._DateTimeOnly = False + Me.txtDatVon._numbersOnly = False + Me.txtDatVon._numbersOnlyKommastellen = "" + Me.txtDatVon._numbersOnlyTrennzeichen = True + Me.txtDatVon._Prozent = False + Me.txtDatVon._ShortDateNew = False + Me.txtDatVon._ShortDateOnly = True + Me.txtDatVon._TimeOnly = False + Me.txtDatVon._TimeOnly_Seconds = False + Me.txtDatVon._value = "" + Me.txtDatVon._Waehrung = False + Me.txtDatVon._WaehrungZeichen = True + Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatVon.ForeColor = System.Drawing.Color.Black + Me.txtDatVon.Location = New System.Drawing.Point(51, 146) + Me.txtDatVon.MaxLength = 10 + Me.txtDatVon.MaxLineLength = -1 + Me.txtDatVon.MaxLines_Warning = "" + Me.txtDatVon.MaxLines_Warning_Label = Nothing + Me.txtDatVon.Name = "txtDatVon" + Me.txtDatVon.Size = New System.Drawing.Size(63, 20) + Me.txtDatVon.TabIndex = 37 + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.ForeColor = System.Drawing.Color.White + Me.Label24.Location = New System.Drawing.Point(22, 173) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(23, 13) + Me.Label24.TabIndex = 40 + Me.Label24.Text = "bis:" + ' + 'btnJahr + ' + Me.btnJahr.BackColor = System.Drawing.Color.White + Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnJahr.ForeColor = System.Drawing.Color.Black + Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnJahr.Location = New System.Drawing.Point(196, 167) + Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnJahr.Name = "btnJahr" + Me.btnJahr.Size = New System.Drawing.Size(87, 23) + Me.btnJahr.TabIndex = 49 + Me.btnJahr.Text = "2016" + Me.btnJahr.UseVisualStyleBackColor = False + ' + 'btnBisJahr + ' + Me.btnBisJahr.BackColor = System.Drawing.Color.White + Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisJahr.ForeColor = System.Drawing.Color.Black + Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.Location = New System.Drawing.Point(282, 167) + Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisJahr.Name = "btnBisJahr" + Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) + Me.btnBisJahr.TabIndex = 50 + Me.btnBisJahr.Text = ">>" + Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.UseVisualStyleBackColor = False + ' + 'btnVonJahr + ' + Me.btnVonJahr.BackColor = System.Drawing.Color.White + Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonJahr.ForeColor = System.Drawing.Color.Black + Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.Location = New System.Drawing.Point(163, 167) + Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonJahr.Name = "btnVonJahr" + Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) + Me.btnVonJahr.TabIndex = 48 + Me.btnVonJahr.Text = "<<" + Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.UseVisualStyleBackColor = False + ' + 'btnMonat + ' + Me.btnMonat.BackColor = System.Drawing.Color.White + Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnMonat.ForeColor = System.Drawing.Color.Black + Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMonat.Location = New System.Drawing.Point(196, 141) + Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnMonat.Name = "btnMonat" + Me.btnMonat.Size = New System.Drawing.Size(87, 23) + Me.btnMonat.TabIndex = 46 + Me.btnMonat.Text = "September" + Me.btnMonat.UseVisualStyleBackColor = False + ' + 'btnBisMonat + ' + Me.btnBisMonat.BackColor = System.Drawing.Color.White + Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisMonat.ForeColor = System.Drawing.Color.Black + Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.Location = New System.Drawing.Point(282, 141) + Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisMonat.Name = "btnBisMonat" + Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) + Me.btnBisMonat.TabIndex = 47 + Me.btnBisMonat.Text = ">>" + Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.UseVisualStyleBackColor = False + ' + 'btnVonMonat + ' + Me.btnVonMonat.BackColor = System.Drawing.Color.White + Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonMonat.ForeColor = System.Drawing.Color.Black + Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.Location = New System.Drawing.Point(163, 141) + Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonMonat.Name = "btnVonMonat" + Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) + Me.btnVonMonat.TabIndex = 45 + Me.btnVonMonat.Text = "<<" + Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.UseVisualStyleBackColor = False + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(51, 170) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker2.TabIndex = 39 + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.ForeColor = System.Drawing.Color.White + Me.Label25.Location = New System.Drawing.Point(22, 149) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(28, 13) + Me.Label25.TabIndex = 44 + Me.Label25.Text = "von:" + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(51, 145) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker1.TabIndex = 38 + ' + 'cbxWarenort + ' + Me.cbxWarenort._allowedValuesFreiText = Nothing + Me.cbxWarenort._allowFreiText = False + Me.cbxWarenort._value = "" + Me.cbxWarenort.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.cbxWarenort.FormattingEnabled = True + Me.cbxWarenort.Location = New System.Drawing.Point(112, 67) + Me.cbxWarenort.Name = "cbxWarenort" + Me.cbxWarenort.Size = New System.Drawing.Size(81, 21) + Me.cbxWarenort.TabIndex = 17 + ' + 'Label4 + ' + Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label4.ForeColor = System.Drawing.Color.Honeydew + Me.Label4.Location = New System.Drawing.Point(112, 49) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(60, 15) + Me.Label4.TabIndex = 16 + Me.Label4.Text = "Warenort:" + ' + 'cbxStandort + ' + Me.cbxStandort._allowedValuesFreiText = Nothing + Me.cbxStandort._allowFreiText = False + Me.cbxStandort._value = "" + Me.cbxStandort.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.cbxStandort.FormattingEnabled = True + Me.cbxStandort.Location = New System.Drawing.Point(12, 67) + Me.cbxStandort.Name = "cbxStandort" + Me.cbxStandort.Size = New System.Drawing.Size(81, 21) + Me.cbxStandort.TabIndex = 15 + ' + 'lblFiliale + ' + Me.lblFiliale.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblFiliale.AutoSize = True + Me.lblFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.lblFiliale.ForeColor = System.Drawing.Color.Honeydew + Me.lblFiliale.Location = New System.Drawing.Point(12, 49) + Me.lblFiliale.Name = "lblFiliale" + Me.lblFiliale.Size = New System.Drawing.Size(43, 15) + Me.lblFiliale.TabIndex = 14 + Me.lblFiliale.Text = "Filiale:" + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.FlatButton2.BackColor = System.Drawing.Color.White + 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(395, 281) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(81, 20) + Me.FlatButton2.TabIndex = 10 + Me.FlatButton2.Text = "jedes Datum" + Me.FlatButton2.UseVisualStyleBackColor = False + Me.FlatButton2.Visible = False + ' + 'btnSucheStarten + ' + Me.btnSucheStarten.allowBorder = False + Me.btnSucheStarten.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.btnSucheStarten.BackColor = System.Drawing.Color.White + Me.btnSucheStarten.FlatAppearance.BorderSize = 0 + Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black + Me.btnSucheStarten.Location = New System.Drawing.Point(28, 269) + Me.btnSucheStarten.Name = "btnSucheStarten" + Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20) + Me.btnSucheStarten.TabIndex = 11 + Me.btnSucheStarten.Text = "Suche starten" + Me.btnSucheStarten.UseVisualStyleBackColor = False + ' + 'txtbis + ' + Me.txtbis._DateTimeOnly = False + Me.txtbis._numbersOnly = False + Me.txtbis._numbersOnlyKommastellen = "" + Me.txtbis._numbersOnlyTrennzeichen = True + Me.txtbis._Prozent = False + Me.txtbis._ShortDateNew = False + Me.txtbis._ShortDateOnly = False + Me.txtbis._TimeOnly = False + Me.txtbis._TimeOnly_Seconds = False + Me.txtbis._value = "" + Me.txtbis._Waehrung = False + Me.txtbis._WaehrungZeichen = True + Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.txtbis.ForeColor = System.Drawing.Color.Black + Me.txtbis.Location = New System.Drawing.Point(395, 257) + Me.txtbis.MaxLineLength = -1 + Me.txtbis.MaxLines_Warning = "" + Me.txtbis.MaxLines_Warning_Label = Nothing + Me.txtbis.Name = "txtbis" + Me.txtbis.Size = New System.Drawing.Size(81, 20) + Me.txtbis.TabIndex = 8 + Me.txtbis.Visible = False + ' + 'txtVon + ' + Me.txtVon._DateTimeOnly = False + Me.txtVon._numbersOnly = False + Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = True + Me.txtVon._Prozent = False + Me.txtVon._ShortDateNew = False + Me.txtVon._ShortDateOnly = False + Me.txtVon._TimeOnly = False + Me.txtVon._TimeOnly_Seconds = False + Me.txtVon._value = "" + Me.txtVon._Waehrung = False + Me.txtVon._WaehrungZeichen = True + Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.txtVon.ForeColor = System.Drawing.Color.Black + Me.txtVon.Location = New System.Drawing.Point(295, 257) + Me.txtVon.MaxLineLength = -1 + Me.txtVon.MaxLines_Warning = "" + Me.txtVon.MaxLines_Warning_Label = Nothing + Me.txtVon.Name = "txtVon" + Me.txtVon.Size = New System.Drawing.Size(81, 20) + Me.txtVon.TabIndex = 7 + Me.txtVon.Visible = False + ' + 'Label3 + ' + Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label3.ForeColor = System.Drawing.Color.Honeydew + Me.Label3.Location = New System.Drawing.Point(392, 238) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(24, 15) + Me.Label3.TabIndex = 5 + Me.Label3.Text = "Bis" + Me.Label3.Visible = False + ' + 'Label2 + ' + Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label2.ForeColor = System.Drawing.Color.Honeydew + Me.Label2.Location = New System.Drawing.Point(295, 238) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(28, 15) + Me.Label2.TabIndex = 4 + Me.Label2.Text = "Von" + Me.Label2.Visible = False + ' + 'Label1 + ' + Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label1.ForeColor = System.Drawing.Color.Honeydew + Me.Label1.Location = New System.Drawing.Point(12, 8) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(45, 15) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Suche:" + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.FlatButton1.BackColor = System.Drawing.Color.White + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh + Me.FlatButton1.Location = New System.Drawing.Point(233, 24) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(32, 33) + Me.FlatButton1.TabIndex = 2 + Me.FlatButton1.UseVisualStyleBackColor = False + ' + 'txtSuchbegriff + ' + Me.txtSuchbegriff.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 26) + Me.txtSuchbegriff.Name = "txtSuchbegriff" + Me.txtSuchbegriff.Size = New System.Drawing.Size(181, 20) + Me.txtSuchbegriff.TabIndex = 1 + ' + 'chkOffen + ' + Me.chkOffen.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.chkOffen.AutoSize = True + Me.chkOffen.Checked = True + Me.chkOffen.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkOffen.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.chkOffen.Location = New System.Drawing.Point(28, 221) + Me.chkOffen.Name = "chkOffen" + Me.chkOffen.Size = New System.Drawing.Size(120, 17) + Me.chkOffen.TabIndex = 12 + Me.chkOffen.Text = "nur offene anzeigen" + Me.chkOffen.UseVisualStyleBackColor = True + ' + 'btnNeu + ' + Me.btnNeu.allowBorder = False + Me.btnNeu.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.btnNeu.BackColor = System.Drawing.Color.White + Me.btnNeu.FlatAppearance.BorderSize = 0 + Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNeu.ForeColor = System.Drawing.Color.Black + Me.btnNeu.Location = New System.Drawing.Point(163, 269) + Me.btnNeu.Name = "btnNeu" + Me.btnNeu.Size = New System.Drawing.Size(75, 23) + Me.btnNeu.TabIndex = 13 + Me.btnNeu.Text = "Neu" + Me.btnNeu.UseVisualStyleBackColor = False + ' + 'lblSaldo + ' + Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right + 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(294, 23) + Me.lblSaldo.Name = "lblSaldo" + Me.lblSaldo.Size = New System.Drawing.Size(147, 24) + Me.lblSaldo.TabIndex = 3 + Me.lblSaldo.Text = "Saldo: €80.000" + ' + 'lblZollsatz + ' + Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right + 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(295, 85) + Me.lblZollsatz.Name = "lblZollsatz" + Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) + Me.lblZollsatz.TabIndex = 9 + Me.lblZollsatz.Text = "Zollsatz: 12%" + ' + 'lblReferenzwert + ' + Me.lblReferenzwert.Anchor = System.Windows.Forms.AnchorStyles.Right + 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(295, 58) + Me.lblReferenzwert.Name = "lblReferenzwert" + Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) + Me.lblReferenzwert.TabIndex = 6 + Me.lblReferenzwert.Text = "Referenzwert: €80.000" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26) + ' + 'ExportCSVToolStripMenuItem + ' + Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem" + Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22) + Me.ExportCSVToolStripMenuItem.Text = "Export CSV" + ' + 'frmGesamtsicherheitenMenuNEU + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(502, 721) + Me.Controls.Add(Me.dgvListe) + Me.Controls.Add(Me.Panel1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximumSize = New System.Drawing.Size(800, 760) + Me.MinimumSize = New System.Drawing.Size(499, 760) + Me.Name = "frmGesamtsicherheitenMenuNEU" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "frmGesSichMenu" + CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents dgvListe As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Panel1 As Panel + Friend WithEvents lblSaldo As Label + Friend WithEvents lblZollsatz As Label + Friend WithEvents lblReferenzwert As Label + Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents chkOffen As CheckBox + Friend WithEvents txtSuchbegriff As TextBox + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents txtbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents ExportCSVToolStripMenuItem As ToolStripMenuItem + Friend WithEvents lblFiliale As Label + Friend WithEvents cbxStandort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label4 As Label + Friend WithEvents txtDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label26 As Label + Friend WithEvents btnBisTag As Button + Friend WithEvents btnVonTag As Button + Friend WithEvents btnTag As Button + Friend WithEvents txtDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label24 As Label + Friend WithEvents btnJahr As Button + Friend WithEvents btnBisJahr As Button + Friend WithEvents btnVonJahr As Button + Friend WithEvents btnMonat As Button + Friend WithEvents btnBisMonat As Button + Friend WithEvents btnVonMonat As Button + Friend WithEvents DateTimePicker2 As DateTimePicker + Friend WithEvents Label25 As Label + Friend WithEvents DateTimePicker1 As DateTimePicker +End Class diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.resx b/Aviso/frmGesamtsicherheitenMenuNEU.resx new file mode 100644 index 0000000..2cbc5c2 --- /dev/null +++ b/Aviso/frmGesamtsicherheitenMenuNEU.resx @@ -0,0 +1,200 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAABILAAASCwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAgAAAAMAAAAEAAAAChEAEQ8NAA0TAAAAFgAA + ABkAAAAbAAAAGgAAABgAAAAUAAAADgAAAAwAAAAIAAAABAAAAAMAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAUgICAIEhISDg0NDRQAAAAbAAAAJAAA + ACsAAAAvAAAAMgAAADQAAAAzAAAAMAAAACsAAAAmAAAAHgAAABYAAAAQAAAACwAAAAYAAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACg8PDxEJCQkbBwcHJQUF + BTEEBAQ9AAAARwAAAE0AAABSAAAAUwAAAFIAAABOAAAESAAABD8AAAAzAAAAKAAAAB0AAAAUAAAADQAA + AAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAgAAAAQCgAKGg0G + DSgJDgk4BwcHSAYGBlsCAgVqAAAAcgAAAHUAAAB0AAAAcwAAAnAAAAVoAwMGWwMDA0wEAAA8AAAALQAA + AB4AAAAUAAAADAAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACgwM + DBUICAgiCgoKMwMHB0oFBQViCggCfmhWALWZfwDXpIYA37mXAOyxkQDmqIcA25d8AMlbSgCYAAMAZAMD + AE0ABAA6AAAAKAAAABoAAAAQAAAABwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAYAAAAMFhYWFw0NDScFBQU3RjgAX7SUAM/XsQD/37YA/9+0AP/ftQD/37UA/9+1AP/etgD/3rUA/9+2 + AP/UrQD5qosArSMjAEEABgYqAAAAHAAAABEAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABgAAAAsMDAwWGhoJHcCdAJ7ctwD/3rYA/9+2AP/htgD/4rcA/+K3AP/itwD/4rcA/+K3 + AP/itwD/4bYA/9+2AP/etgD/2bMA9LKTAG0NDQ0UAAAAEAAAAAgAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAAB3ZiAA3YtADF3rYA/+C2AP/iuAD/5LgA/+W5AP/mugD/57oA/+e6 + AP/nugD/57oA/+a5AP/luQD/47gA/+K3AP/ftgD/3bYA/9eyAJEAAAAAAAAABAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAA3bcA1963AP/iuAD/5LoA/+e7AP/nvAD/6LwA/+m8 + AP/rvQD/7L4A/+2+AP/svwD/7L4A/+q8AP/ovAD/5rsA/+O6AP/huAD/3bYA/+C6AJsAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOC6ALXfuAD/4roA/+a8AP/nvAD/6b0A/+u+ + AP/svwD/7MAA/76cAP+NdwD/e2sb/3JkIv+HcwD/p4kA/+K5AP/qvQD/57wA/+W8AP/hugD/3rgA/965 + AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfugBn3rkA/+K7AP/mvgD/6b4A/+u/ + AP/rwAD/78QA/8CeAP9WTzL/QEBB/0JERf9ERUX/QUFB/zs8PP81NTX/Qzwn//DDAP/rvwD/6L4A/+a9 + AP/huwD/3bgA/9WxACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd25AO/hvAD/5r4A/+nA + AP/rwQD/7MIA//DEAP+ykwD/Ozw+/0VGRv9JSUn/SEtK/0dHSP9BQkT/Ozs8/zQ0NP9vYBP/8MUA/+zC + AP/rwQD/6L8A/+W+AP/huwD/27gAugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADduQB44bwA/+a+ + AP/pwQD/7MMA/+7EAP/wxQD/1a8A/zw+Pv9HR0f/TU5O/05PUP+QgC7/uJsA/9WwAP/DowD/m4MA/6yQ + AP/xxQD/78QA/+7EAP/rwgD/6MAA/+W9AP/guwD/3LkALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN26 + ANrkvgD/6MEA/+vEAP/uxAD/8MUA//TJAP9wYiv/Q0ZG/05PT/9RVFX/up0Q//TJAP/xxwD/8ccA//HH + AP/yxwD/8scA//DGAP/wxgD/8MUA/+3FAP/rwwD/58AA/+K+AP/euwCZAAAAAAAAAAAAAAAAAAAAAAAA + AADcuQAW4L4A/+XBAP/qxQD/7cYA/+/IAP/1ywD/7cQA/z9BQP9MTU3/VVZW/351TP/4zwD/9MsA//XL + AP/1ywD/9csA//TLAP/xyQD/8ckA//HJAP/wyQD/78cA/+3GAP/pxAD/5cAA/969AOoAAAAAAAAAAAAA + AAAAAAAAAAAAAN27AEvjwAD/6MQA/+zGAP/vyAD/9swA/0xEHv8yMjT/QkRE/09QUP9XWFj/Wltb/1dZ + XP9SVFb/Sk1P/0JERv86Ojv/ZFgr//bNAP/zygD/88oA//PKAP/xygD/78gA/+vFAP/nwwD/4b8A/8aq + AAkAAAAAAAAAAAAAAAAAAAAA378Jb+TCAP/qxgD/7skA//DMAP/1zwD/dmUf/0xHNP9CRET/T1BQ/1dY + WP9zblX/e3NR/3dvTP9yaUb/bGI+/2NcNf+Ccyf/9tAA//PNAP/zzQD/880A//LMAP/wywD/7cgA/+jG + AP/jwQD/274GKwAAAAAAAAAAAAAAAAAAAADfvx545MQT/+rHAv/uywD/8s0A//TPAP/evAD/kn4q/0BB + Qf9OTk7/VVZX/7ykOv/fwBH/3b4V/9y9Ev/buxb/2roK/9++AP/10AD/9M8A//TPAP/0zwD/884A//HM + AP/uygD/6cYF/+TDFf/fvxs4AAAAAAAAAAAAAAAAAAAAAODCJXXlxiL/68oX//DND//zzwH/+NMA/0pD + If8tLi7/PDw8/0hKSf9SUlL/VVdY/1VXWf9RVFb/S05R/0VGSf87PD//Zlwz//nUAP/20QD/9tEA//bR + AP/10QD/888B/+7MEv/qyRn/5MQk/968IS4AAAAAAAAAAAAAAAAAAAAA4cMwVeXGLv/ryyn/8M4l//PR + Iv/31CH/lIEg/31tLf80NTX/QUFB/0pMTP9lYVD/m41J/5mISf+XiEb/lINB/5B/Of+ljzD/+NUf//fT + Hv/30x7/9tMe//XRIf/y0CP/7s0m/+rKKv/kxTD/2b8mFAAAAAAAAAAAAAAAAAAAAADixTMj5cY4/+vM + M//w0DL/9NIw//bUMf/51zD//9sw/0pELf83Nzf/QUJC/05OSv/y0TH/+9ct//rXLf/61y3/+tcw//rX + MP/41i//+NYv//jWL//31TD/9tQx//PRMf/vzzP/6ss0/+LFNvcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADkxj/06sw//+/QPv/z0z7/9tY8//jXPf/62D//tJw1/ywtLf83Nzf/QEBA/2pjSP/lyEL//No9//rZ + Pv/72T7//Ns8//TTPv/51z3/+Nc9//jXPf/21Tz/8tI+/+7PPf/oyj7/4sU+qAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAOHFRJLoy0T/7s9F//LTRv/21kf/+NdF//nYR//+3Ej/a2Aw/ywsLP81NTX/Ozs7/0VG + QP9vZ0X/k4VH/3dtQf9DQDT/s50+//vbR//52Ef/+NdF//bWR//x0kX/7c5G/+fJRf/hw0JNAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA379AEObKSv/sz0v/8dNM//XXTv/32U7/+dtN//rcTv/52k3/cGQy/ygo + KP8uLi7/MjQ0/zU2Nv81NTX/MTIy/ywsLP97bjf//NxQ//naTf/32E//9NZM//DSTf/rzkv/5MhI2AAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5clNiOnNUf/v0VP/89ZV//fZVf/521j/+txX//vc + Wf//4Vr/wqpJ/1xTL/8lJSX/KCkp/ygpKf8mJib/Ly0n/4Z3Of/93Vj/+dpX//bYVv/y1VT/7dFT/+fM + Uf/hyE5FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/v0AE5spS3ezQVf/w1Fj/9dda//fa + XP/53Fz/+t1d//veXf/932D//+Fg/+zQWP/ZwFP/2cFU/93DVf/+4l7//d9e//ncXP/22Vz/89da/+/S + V//qzlT/5MpTowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADbwlUV5stY9+zR + W//w1V7/9dhg//fbYv/53GL/+t1k//veY//73mX//OBk//zgZf/832b//N9k//ndY//53GP/9tpg//PX + Xv/w1F3/69Ba/+XKV9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADizFcj5stb7ezRXv/w1GL/89dj//XZZf/322b/+Nxn//ncZ//53Gf/+dxn//ncZ//43Gf/99tm//XZ + ZP/y12P/79Ng/+vQXf/my1rJ1apVBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADVv1UM5stcxevQYP/u02L/8NZk//PXZv/02Wf/9dpo//XaaP/12mj/9dpo//TZ + Z//y12X/8NVk/+3SYv/pz1//5stdjwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5ctfWebNYOLq0WP/7NJk/+7UZv/w1Wf/8NZn//DW + Z//v1Wb/7tRl/+vSZP/q0GL/58xfvuLMXyMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOLLYyzlzGOB5s1izefP + ZNTp0GP/6dBj/ejOY9HmzWLA5sthcefCYRUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA+AAAf/AAAB/wAAAP4AAAD+AAAA/gAAAP4AAAB+AAAE/0AAA/+AAAH/AA + AA/gAAAP4AAAB+AAAAfAAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAH4AAAB+AAAAfgAAAP8AAAD/AA + AB/4AAA//AAAP/4AAP//gAH//+AH//////8= + + + \ No newline at end of file diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb new file mode 100644 index 0000000..661d9b9 --- /dev/null +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -0,0 +1,336 @@ +Imports System.Reflection + +Public Class frmGesamtsicherheitenMenuNEU + + Public SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz + Dim dt As DataTable + Public Property Standort As String = "" + Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 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) + Me.Text = "Gesamtsicherheiten " & Standort + frmHauptfenster.EnableDoubleBuffered(dgvListe) + GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) + 'GesSichRef.LOAD("standort", Standort) + lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") + + 'txtDatVon._ShortDateOnly = True + 'txtDatBis._ShortDateOnly = True + + txtDatVon.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString + txtDatBis.Text = Now.ToShortDateString + + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + + 'txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy") + 'txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy") + ShowStandort() + LoadDGV() + End Sub + + Public Function LoadDGV() + Dim sqladdon As String = "" + If chkOffen.Checked Then sqladdon &= " AND gs_Sicherheitssaldo != '0,00 €'" + If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'" + If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'" + + Dim sqlstring As String = + " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, + max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(SUM( + Case + when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) + when gs_art = 'Close' then gs_sicherheitsbetrag + End) , 'C', 'de-DE')As gs_SicherheitsSaldo + + From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where + gs_freitext like '%" & txtSuchbegriff.Text & "%' OR + gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR + gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR + gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR + gs_warenort like '%" & txtSuchbegriff.Text & "%' + ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2 + Where gs_standort = '" & Standort & "' " & sqladdon & " + AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "' + AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" + + dgvListe.SET_SQL(sqlstring, "AVISO") + dgvListe.LOAD() + + With dgvListe + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .RowHeadersWidth = 6 + .Columns("gs_standort").Visible = False + .Columns("gs_gsnr").HeaderText = "#" + .Columns("gs_gsnr").Width = 36 + .Columns("gs_filialenNr").HeaderText = "Filiale" + .Columns("gs_filialenNr").Width = 43 + .Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr." + .Columns("gs_abfertigungsNr").Width = 107 + .Columns("gs_datum").Width = 112 + .Columns("gs_SicherheitsSaldo").Width = 106 + .Columns("gs_Warenort").Width = 96 + .Columns("gs_Warenort").HeaderText = "Warenort" + + End With + + For Each row As DataGridViewRow In dgvListe.Rows + If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then + row.DefaultCellStyle.BackColor = Color.Red + Else + row.DefaultCellStyle.BackColor = Color.Green + End If + Next + + End Function + + Public Sub ShowStandort() + 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") + lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() + lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" + lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") + End Sub + + + + + Private Sub OpenFRM(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListe.CellDoubleClick + Dim frm As New frmGesamtsicherheitenNEU + With frm + .currentGesSichRef = GesSichRef + .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value + .Standort = Me.Standort + .datum = dgvListe.CurrentRow.Cells("gs_datum").Value + .LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value + .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value + .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value + .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value + End With + + AddHandler frm.FormClosing, Function() + GesSichRef.CalcSaldo() + ShowStandort() + LoadDGV() + Me.BringToFront() + End Function + frm.Show() + End Sub + + Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click + Dim frm As New frmGesamtsicherheitenNEU + With frm + .currentGesSichRef = GesSichRef + .Standort = Me.Standort + .datum = Date.Now + .Neu = True + End With + AddHandler frm.FormClosing, Function() + GesSichRef.CalcSaldo() + ShowStandort() + LoadDGV() + Me.BringToFront() + End Function + frm.Show() + End Sub + + Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click + lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") + LoadDGV() + End Sub + + Private Sub chkOffen_CheckedChanged(sender As Object, e As EventArgs) + If Me.Visible Then LoadDGV() + End Sub + Private Sub Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) + Select Case Asc(e.KeyChar) + Case 48 To 57, 8, 46, 58, 32, 44, 65 To 90, 97 To 122 + ' Zahlen, Backspace, . und : zulassen + + Case Else + ' alle anderen Eingaben unterdrücken + e.Handled = True + End Select + End Sub + + Private Sub resetSearchfields_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + txtSuchbegriff.Text = "" : chkOffen.Checked = True + txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy") + txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy") + cbxStandort._value = "" + cbxWarenort._value = "" + btnSucheStarten_Click(sender, e) + End Sub + + Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click + Try + Date.Parse(txtDatVon.Text) + Date.Parse(txtDatBis.Text) + If Me.Visible Then LoadDGV() + Catch ex As Exception + MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.") + End Try + End Sub + + 'Private Sub FlatButton2_Click(sender As Object, e As EventArgs) + ' txtDatVon.Text = Date.Parse("01.01.1970") + ' txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy") + 'End Sub + + Private Sub ExportCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) + csvexport(dgvListe) + End Sub + + Public Shared Function csvexport(quelldgv As DataGridView) + Dim savefiledialog As New SaveFileDialog + Dim firstin As String + Dim out As String + Dim in2 As String + Dim header As String + + savefiledialog.Filter = "CSV files (*.csv)|*.CSV" + savefiledialog.InitialDirectory = "C:\Verag" + savefiledialog.ShowDialog() + + + Try + For r As Integer = 0 To quelldgv.Rows.Count - 1 + For c As Integer = 0 To quelldgv.Columns.Count + 'test &= r & c & vbCrLf + Try + 'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf") + firstin = quelldgv.Rows(r).Cells(c).Value.ToString + 'in2 = """" & firstin & """" & ";" + in2 = firstin & ";" + out &= Replace(in2, vbCrLf, "##vbCrLf##") + Catch ex As Exception + out &= "" + End Try + + Next + + out &= "nZ" + Next + For c As Integer = 0 To quelldgv.Columns.Count - 1 + header &= quelldgv.Columns(c).Name & ";" + Next + out = Replace(out, "nZ", vbCrLf) + 'MsgBox(out) + Using sw As New IO.StreamWriter(savefiledialog.FileName) + sw.WriteLine(header) + sw.WriteLine(out) + End Using + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Function + + Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + Dim TAG As Date = CDate(Now.ToShortDateString) + Dim JAHR As Date = CDate("01.01." & Now.Year) + + + Sub initBtns(MonatJahr) + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + Select Case MonatJahr + Case "Monat" + DateTimePicker1.Value = MONAT + DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) + Case "Jahr" + + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + 'End If + Case "Tag" + + DateTimePicker1.Value = TAG + DateTimePicker2.Value = TAG + If TAG = Now.ToShortDateString Then + btnTag.Text = "Heute" + ElseIf TAG = Now.AddDays(-1).ToShortDateString Then + btnTag.Text = "Gestern" + ElseIf TAG = Now.AddDays(-2).ToShortDateString Then + btnTag.Text = "Vorgestern" + ElseIf TAG = Now.AddDays(1).ToShortDateString Then + btnTag.Text = "Morgen" + Else + btnTag.Text = TAG.ToString("dd.MM") + End If + + 'End If + Case "" + DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) + DateTimePicker2.Value = Now + End Select + + End Sub + + + Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click + initBtns("Jahr") + End Sub + + Private Sub btnPlusJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub btnMinusJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click + JAHR = JAHR.AddYears(-1) + initBtns("Jahr") + End Sub + + Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click + initBtns("Monat") + End Sub + + Private Sub btnPlusMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click + MONAT = MONAT.AddMonths(1) + initBtns("Monat") + End Sub + + Private Sub btnMinusMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click + MONAT = MONAT.AddMonths(-1) + initBtns("Monat") + End Sub + + + Private Sub btnTag_Click(sender As Object, e As EventArgs) Handles btnTag.Click + initBtns("Tag") + End Sub + + Private Sub btnMinusTag_Click(sender As Object, e As EventArgs) Handles btnVonTag.Click + TAG = TAG.AddDays(-1) + initBtns("Tag") + End Sub + + Private Sub btnPlusTag_Click(sender As Object, e As EventArgs) Handles btnBisTag.Click + TAG = TAG.AddDays(1) + initBtns("Tag") + End Sub + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtDatVon._value = CDate(sender.value).ToShortDateString + btnSucheStarten_Click(sender, e) + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtDatBis._value = CDate(sender.value).ToShortDateString + btnSucheStarten_Click(sender, e) + End Sub + + Function setNullToZero(s As String, Optional type As String = "") + + If s = "" Then + Dim zero As Double = 0 + + Return zero + Else + Return s + End If + End Function + + +End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index 814441b..dceae8b 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -48,61 +48,41 @@ Partial Class frmGesamtsicherheitenNEU Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblGestellungNr = New System.Windows.Forms.Label() - Me.txtCRNTime = New System.Windows.Forms.TextBox() - Me.txtCRNDate = New System.Windows.Forms.TextBox() - Me.txtMRNTime = New System.Windows.Forms.TextBox() - Me.txtMRNDate = New System.Windows.Forms.TextBox() + Me.txtPosTime = New System.Windows.Forms.TextBox() + Me.txtPosDate = New System.Windows.Forms.TextBox() + Me.txtSicherheitTime = New System.Windows.Forms.TextBox() + Me.txtSicherheitDate = New System.Windows.Forms.TextBox() Me.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtPosSicherheitsbetrag = New System.Windows.Forms.TextBox() Me.txtPosWarenwert = New System.Windows.Forms.TextBox() Me.txtPositionenCRN = New System.Windows.Forms.TextBox() - Me.txtMRNSicherheitsbetrag = New System.Windows.Forms.TextBox() - Me.txtMRNWarenwert = New System.Windows.Forms.TextBox() - Me.txtMRN = New System.Windows.Forms.TextBox() + Me.txtSicherheitSicherheitsbetrag = New System.Windows.Forms.TextBox() + Me.txtSicherheitWarenwert = New System.Windows.Forms.TextBox() + Me.txtSicherheitATBNr = New System.Windows.Forms.TextBox() Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lblZollsatz = New System.Windows.Forms.Label() Me.lblReferenzwert = New System.Windows.Forms.Label() Me.lblSaldo = New System.Windows.Forms.Label() Me.panOben = New System.Windows.Forms.Panel() Me.Label20 = New System.Windows.Forms.Label() - Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.txtPosNr = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() - Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnSuche = New System.Windows.Forms.Button() - Me.Label26 = New System.Windows.Forms.Label() - Me.btnBisTag = New System.Windows.Forms.Button() - Me.btnVonTag = New System.Windows.Forms.Button() - Me.btnTag = New System.Windows.Forms.Button() - Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label24 = New System.Windows.Forms.Label() - Me.btnJahr = New System.Windows.Forms.Button() - Me.btnBisJahr = New System.Windows.Forms.Button() - Me.btnVonJahr = New System.Windows.Forms.Button() - Me.btnMonat = New System.Windows.Forms.Button() - Me.btnBisMonat = New System.Windows.Forms.Button() - Me.btnVonMonat = New System.Windows.Forms.Button() - Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() - Me.Label25 = New System.Windows.Forms.Label() - Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() - Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label23 = New System.Windows.Forms.Label() Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label19 = New System.Windows.Forms.Label() - Me.cbx_Suche_Filiale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txt_Suche = New System.Windows.Forms.TextBox() Me.Label21 = New System.Windows.Forms.Label() - Me.Label22 = 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.txtPos = New System.Windows.Forms.TextBox() + Me.txtAnzahlPos = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() - Me.txtEust = New System.Windows.Forms.TextBox() + Me.txtSicherheitEust = New System.Windows.Forms.TextBox() Me.Label13 = New System.Windows.Forms.Label() - Me.cboATR = New System.Windows.Forms.ComboBox() + Me.cboSicherheitATR = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() @@ -116,7 +96,8 @@ Partial Class frmGesamtsicherheitenNEU Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtPosFreitext = New System.Windows.Forms.TextBox() - Me.txtFreitextOpen = New System.Windows.Forms.TextBox() + Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() + Me.lbloffenerSaldo = New System.Windows.Forms.Label() CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -395,43 +376,45 @@ Partial Class frmGesamtsicherheitenNEU Me.lblGestellungNr.TabIndex = 2 Me.lblGestellungNr.Text = "Gesamtsicherheit" ' - 'txtCRNTime + 'txtPosTime ' - Me.txtCRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCRNTime.Location = New System.Drawing.Point(1006, 204) - Me.txtCRNTime.Margin = New System.Windows.Forms.Padding(0) - Me.txtCRNTime.Name = "txtCRNTime" - Me.txtCRNTime.Size = New System.Drawing.Size(55, 24) - Me.txtCRNTime.TabIndex = 27 + Me.txtPosTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosTime.Location = New System.Drawing.Point(1006, 204) + 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 = 27 ' - 'txtCRNDate + 'txtPosDate ' - Me.txtCRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCRNDate.Location = New System.Drawing.Point(921, 204) - Me.txtCRNDate.Margin = New System.Windows.Forms.Padding(0) - Me.txtCRNDate.Name = "txtCRNDate" - Me.txtCRNDate.Size = New System.Drawing.Size(85, 24) - Me.txtCRNDate.TabIndex = 26 + Me.txtPosDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append + Me.txtPosDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource + Me.txtPosDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosDate.Location = New System.Drawing.Point(921, 204) + Me.txtPosDate.Margin = New System.Windows.Forms.Padding(0) + Me.txtPosDate.Name = "txtPosDate" + Me.txtPosDate.Size = New System.Drawing.Size(85, 24) + Me.txtPosDate.TabIndex = 26 ' - 'txtMRNTime + 'txtSicherheitTime ' - Me.txtMRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMRNTime.Location = New System.Drawing.Point(368, 204) - Me.txtMRNTime.Margin = New System.Windows.Forms.Padding(0) - Me.txtMRNTime.Name = "txtMRNTime" - Me.txtMRNTime.Size = New System.Drawing.Size(55, 24) - Me.txtMRNTime.TabIndex = 22 + 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(368, 204) + 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 = 22 ' - 'txtMRNDate + 'txtSicherheitDate ' - Me.txtMRNDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append - Me.txtMRNDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource - Me.txtMRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMRNDate.Location = New System.Drawing.Point(283, 204) - Me.txtMRNDate.Margin = New System.Windows.Forms.Padding(0) - Me.txtMRNDate.Name = "txtMRNDate" - Me.txtMRNDate.Size = New System.Drawing.Size(85, 24) - Me.txtMRNDate.TabIndex = 21 + Me.txtSicherheitDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append + Me.txtSicherheitDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource + Me.txtSicherheitDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSicherheitDate.Location = New System.Drawing.Point(283, 204) + Me.txtSicherheitDate.Margin = New System.Windows.Forms.Padding(0) + Me.txtSicherheitDate.Name = "txtSicherheitDate" + Me.txtSicherheitDate.Size = New System.Drawing.Size(85, 24) + Me.txtSicherheitDate.TabIndex = 21 ' 'btnSaveOben ' @@ -475,33 +458,33 @@ Partial Class frmGesamtsicherheitenNEU Me.txtPositionenCRN.Size = New System.Drawing.Size(205, 24) Me.txtPositionenCRN.TabIndex = 25 ' - 'txtMRNSicherheitsbetrag + 'txtSicherheitSicherheitsbetrag ' - Me.txtMRNSicherheitsbetrag.Enabled = False - Me.txtMRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMRNSicherheitsbetrag.Location = New System.Drawing.Point(523, 204) - Me.txtMRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) - Me.txtMRNSicherheitsbetrag.Name = "txtMRNSicherheitsbetrag" - Me.txtMRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24) - Me.txtMRNSicherheitsbetrag.TabIndex = 24 + 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(523, 204) + Me.txtSicherheitSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) + Me.txtSicherheitSicherheitsbetrag.Name = "txtSicherheitSicherheitsbetrag" + Me.txtSicherheitSicherheitsbetrag.Size = New System.Drawing.Size(100, 24) + Me.txtSicherheitSicherheitsbetrag.TabIndex = 24 ' - 'txtMRNWarenwert + 'txtSicherheitWarenwert ' - Me.txtMRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMRNWarenwert.Location = New System.Drawing.Point(423, 204) - Me.txtMRNWarenwert.Margin = New System.Windows.Forms.Padding(0) - Me.txtMRNWarenwert.Name = "txtMRNWarenwert" - Me.txtMRNWarenwert.Size = New System.Drawing.Size(100, 24) - Me.txtMRNWarenwert.TabIndex = 23 + 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(423, 204) + Me.txtSicherheitWarenwert.Margin = New System.Windows.Forms.Padding(0) + Me.txtSicherheitWarenwert.Name = "txtSicherheitWarenwert" + Me.txtSicherheitWarenwert.Size = New System.Drawing.Size(100, 24) + Me.txtSicherheitWarenwert.TabIndex = 23 ' - 'txtMRN + 'txtSicherheitATBNr ' - Me.txtMRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMRN.Location = New System.Drawing.Point(34, 204) - Me.txtMRN.Margin = New System.Windows.Forms.Padding(0) - Me.txtMRN.Name = "txtMRN" - Me.txtMRN.Size = New System.Drawing.Size(205, 24) - Me.txtMRN.TabIndex = 19 + 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(34, 204) + Me.txtSicherheitATBNr.Margin = New System.Windows.Forms.Padding(0) + Me.txtSicherheitATBNr.Name = "txtSicherheitATBNr" + Me.txtSicherheitATBNr.Size = New System.Drawing.Size(205, 24) + Me.txtSicherheitATBNr.TabIndex = 19 ' 'btn_resetSearch ' @@ -511,7 +494,7 @@ Partial Class frmGesamtsicherheitenNEU 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(610, 33) + Me.btn_resetSearch.Location = New System.Drawing.Point(813, 8) Me.btn_resetSearch.Name = "btn_resetSearch" Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33) Me.btn_resetSearch.TabIndex = 3 @@ -547,7 +530,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(1225, 152) + Me.lblSaldo.Location = New System.Drawing.Point(1025, 108) Me.lblSaldo.Name = "lblSaldo" Me.lblSaldo.Size = New System.Drawing.Size(147, 24) Me.lblSaldo.TabIndex = 5 @@ -556,19 +539,20 @@ 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.lbloffenerSaldo) Me.panOben.Controls.Add(Me.Label20) - Me.panOben.Controls.Add(Me.TextBox1) + Me.panOben.Controls.Add(Me.txtPosNr) Me.panOben.Controls.Add(Me.Panel1) Me.panOben.Controls.Add(Me.btnDeletePos) Me.panOben.Controls.Add(Me.btnDeleteSicherheit) Me.panOben.Controls.Add(Me.btnUpdatePos) Me.panOben.Controls.Add(Me.btnUpdateSicherheit) Me.panOben.Controls.Add(Me.Label15) - Me.panOben.Controls.Add(Me.txtPos) + Me.panOben.Controls.Add(Me.txtAnzahlPos) Me.panOben.Controls.Add(Me.Label14) - Me.panOben.Controls.Add(Me.txtEust) + Me.panOben.Controls.Add(Me.txtSicherheitEust) Me.panOben.Controls.Add(Me.Label13) - Me.panOben.Controls.Add(Me.cboATR) + Me.panOben.Controls.Add(Me.cboSicherheitATR) Me.panOben.Controls.Add(Me.Label7) Me.panOben.Controls.Add(Me.Label8) Me.panOben.Controls.Add(Me.Label9) @@ -582,21 +566,21 @@ Partial Class frmGesamtsicherheitenNEU Me.panOben.Controls.Add(Me.Label2) Me.panOben.Controls.Add(Me.Label1) Me.panOben.Controls.Add(Me.txtPosFreitext) - Me.panOben.Controls.Add(Me.txtFreitextOpen) + Me.panOben.Controls.Add(Me.txtSicherheitFreitext) Me.panOben.Controls.Add(Me.btnAddPos) Me.panOben.Controls.Add(Me.btnAddSicherheit) Me.panOben.Controls.Add(Me.lblGestellungNr) - Me.panOben.Controls.Add(Me.txtCRNTime) - Me.panOben.Controls.Add(Me.txtCRNDate) - Me.panOben.Controls.Add(Me.txtMRNTime) - Me.panOben.Controls.Add(Me.txtMRNDate) + Me.panOben.Controls.Add(Me.txtPosTime) + Me.panOben.Controls.Add(Me.txtPosDate) + Me.panOben.Controls.Add(Me.txtSicherheitTime) + Me.panOben.Controls.Add(Me.txtSicherheitDate) Me.panOben.Controls.Add(Me.btnSaveOben) Me.panOben.Controls.Add(Me.txtPosSicherheitsbetrag) Me.panOben.Controls.Add(Me.txtPosWarenwert) Me.panOben.Controls.Add(Me.txtPositionenCRN) - Me.panOben.Controls.Add(Me.txtMRNSicherheitsbetrag) - Me.panOben.Controls.Add(Me.txtMRNWarenwert) - Me.panOben.Controls.Add(Me.txtMRN) + Me.panOben.Controls.Add(Me.txtSicherheitSicherheitsbetrag) + Me.panOben.Controls.Add(Me.txtSicherheitWarenwert) + Me.panOben.Controls.Add(Me.txtSicherheitATBNr) Me.panOben.Controls.Add(Me.lblZollsatz) Me.panOben.Controls.Add(Me.lblReferenzwert) Me.panOben.Controls.Add(Me.lblSaldo) @@ -617,319 +601,50 @@ Partial Class frmGesamtsicherheitenNEU Me.Label20.TabIndex = 42 Me.Label20.Text = "Pos" ' - 'TextBox1 + 'txtPosNr ' - Me.TextBox1.Enabled = False - Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TextBox1.Location = New System.Drawing.Point(921, 250) - Me.TextBox1.Margin = New System.Windows.Forms.Padding(0) - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(37, 24) - Me.TextBox1.TabIndex = 43 + Me.txtPosNr.Enabled = False + Me.txtPosNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPosNr.Location = New System.Drawing.Point(921, 250) + Me.txtPosNr.Margin = New System.Windows.Forms.Padding(0) + Me.txtPosNr.Name = "txtPosNr" + Me.txtPosNr.Size = New System.Drawing.Size(37, 24) + Me.txtPosNr.TabIndex = 43 ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight - Me.Panel1.Controls.Add(Me.txtDatBis) Me.Panel1.Controls.Add(Me.btnSuche) - Me.Panel1.Controls.Add(Me.Label26) - Me.Panel1.Controls.Add(Me.btnBisTag) - Me.Panel1.Controls.Add(Me.btnVonTag) - Me.Panel1.Controls.Add(Me.btnTag) - Me.Panel1.Controls.Add(Me.txtDatVon) - Me.Panel1.Controls.Add(Me.Label24) - Me.Panel1.Controls.Add(Me.btnJahr) - Me.Panel1.Controls.Add(Me.btnBisJahr) - Me.Panel1.Controls.Add(Me.btnVonJahr) - Me.Panel1.Controls.Add(Me.btnMonat) - Me.Panel1.Controls.Add(Me.btnBisMonat) - Me.Panel1.Controls.Add(Me.btnVonMonat) - Me.Panel1.Controls.Add(Me.DateTimePicker2) - Me.Panel1.Controls.Add(Me.Label25) - Me.Panel1.Controls.Add(Me.DateTimePicker1) - Me.Panel1.Controls.Add(Me.btnSucheStarten) Me.Panel1.Controls.Add(Me.Label23) Me.Panel1.Controls.Add(Me.cbx_Suche_Warenort) Me.Panel1.Controls.Add(Me.Label19) - Me.Panel1.Controls.Add(Me.cbx_Suche_Filiale) - Me.Panel1.Controls.Add(Me.btnNeu) Me.Panel1.Controls.Add(Me.txt_Suche) Me.Panel1.Controls.Add(Me.Label21) - Me.Panel1.Controls.Add(Me.Label22) Me.Panel1.Controls.Add(Me.btn_resetSearch) Me.Panel1.Location = New System.Drawing.Point(0, 44) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1384, 97) + Me.Panel1.Size = New System.Drawing.Size(1384, 61) Me.Panel1.TabIndex = 10 ' - 'txtDatBis - ' - Me.txtDatBis._DateTimeOnly = False - Me.txtDatBis._numbersOnly = False - Me.txtDatBis._numbersOnlyKommastellen = "" - Me.txtDatBis._numbersOnlyTrennzeichen = True - Me.txtDatBis._Prozent = False - Me.txtDatBis._ShortDateNew = False - Me.txtDatBis._ShortDateOnly = True - Me.txtDatBis._TimeOnly = False - Me.txtDatBis._TimeOnly_Seconds = False - Me.txtDatBis._value = "" - Me.txtDatBis._Waehrung = False - Me.txtDatBis._WaehrungZeichen = True - Me.txtDatBis.Enabled = False - Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDatBis.ForeColor = System.Drawing.Color.Black - Me.txtDatBis.Location = New System.Drawing.Point(53, 63) - Me.txtDatBis.MaxLength = 10 - Me.txtDatBis.MaxLineLength = -1 - Me.txtDatBis.MaxLines_Warning = "" - Me.txtDatBis.MaxLines_Warning_Label = Nothing - Me.txtDatBis.Name = "txtDatBis" - Me.txtDatBis.Size = New System.Drawing.Size(63, 20) - Me.txtDatBis.TabIndex = 36 - ' 'btnSuche ' Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSuche.Location = New System.Drawing.Point(692, 20) + Me.btnSuche.Location = New System.Drawing.Point(893, 3) Me.btnSuche.Name = "btnSuche" Me.btnSuche.Size = New System.Drawing.Size(162, 52) Me.btnSuche.TabIndex = 35 - Me.btnSuche.Text = "Gesamtsicherheit Suche starten" + Me.btnSuche.Text = "Suche starten" Me.btnSuche.UseVisualStyleBackColor = True ' - 'Label26 - ' - Me.Label26.AutoSize = True - Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label26.Location = New System.Drawing.Point(24, 12) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(43, 13) - Me.Label26.TabIndex = 34 - Me.Label26.Text = "Datum" - ' - 'btnBisTag - ' - Me.btnBisTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBisTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnBisTag.ForeColor = System.Drawing.Color.Black - Me.btnBisTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisTag.Location = New System.Drawing.Point(284, 7) - Me.btnBisTag.Margin = New System.Windows.Forms.Padding(0) - Me.btnBisTag.Name = "btnBisTag" - Me.btnBisTag.Size = New System.Drawing.Size(34, 23) - Me.btnBisTag.TabIndex = 26 - Me.btnBisTag.Text = ">>" - Me.btnBisTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisTag.UseVisualStyleBackColor = True - ' - 'btnVonTag - ' - Me.btnVonTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVonTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnVonTag.ForeColor = System.Drawing.Color.Black - Me.btnVonTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonTag.Location = New System.Drawing.Point(165, 7) - Me.btnVonTag.Margin = New System.Windows.Forms.Padding(0) - Me.btnVonTag.Name = "btnVonTag" - Me.btnVonTag.Size = New System.Drawing.Size(34, 23) - Me.btnVonTag.TabIndex = 24 - Me.btnVonTag.Text = "<<" - Me.btnVonTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonTag.UseVisualStyleBackColor = True - ' - 'btnTag - ' - Me.btnTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnTag.ForeColor = System.Drawing.Color.Black - Me.btnTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTag.Location = New System.Drawing.Point(198, 7) - Me.btnTag.Margin = New System.Windows.Forms.Padding(0) - Me.btnTag.Name = "btnTag" - Me.btnTag.Size = New System.Drawing.Size(87, 23) - Me.btnTag.TabIndex = 25 - Me.btnTag.Text = "Heute" - Me.btnTag.UseVisualStyleBackColor = True - ' - 'txtDatVon - ' - Me.txtDatVon._DateTimeOnly = False - Me.txtDatVon._numbersOnly = False - Me.txtDatVon._numbersOnlyKommastellen = "" - Me.txtDatVon._numbersOnlyTrennzeichen = True - Me.txtDatVon._Prozent = False - Me.txtDatVon._ShortDateNew = False - Me.txtDatVon._ShortDateOnly = True - Me.txtDatVon._TimeOnly = False - Me.txtDatVon._TimeOnly_Seconds = False - Me.txtDatVon._value = "" - Me.txtDatVon._Waehrung = False - Me.txtDatVon._WaehrungZeichen = True - Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDatVon.ForeColor = System.Drawing.Color.Black - Me.txtDatVon.Location = New System.Drawing.Point(53, 37) - Me.txtDatVon.MaxLength = 10 - Me.txtDatVon.MaxLineLength = -1 - Me.txtDatVon.MaxLines_Warning = "" - Me.txtDatVon.MaxLines_Warning_Label = Nothing - Me.txtDatVon.Name = "txtDatVon" - Me.txtDatVon.Size = New System.Drawing.Size(63, 20) - Me.txtDatVon.TabIndex = 20 - ' - 'Label24 - ' - Me.Label24.AutoSize = True - Me.Label24.Location = New System.Drawing.Point(24, 65) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(23, 13) - Me.Label24.TabIndex = 23 - Me.Label24.Text = "bis:" - ' - 'btnJahr - ' - Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnJahr.ForeColor = System.Drawing.Color.Black - Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnJahr.Location = New System.Drawing.Point(198, 59) - Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnJahr.Name = "btnJahr" - Me.btnJahr.Size = New System.Drawing.Size(87, 23) - Me.btnJahr.TabIndex = 32 - Me.btnJahr.Text = "2016" - Me.btnJahr.UseVisualStyleBackColor = True - ' - 'btnBisJahr - ' - Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnBisJahr.ForeColor = System.Drawing.Color.Black - Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisJahr.Location = New System.Drawing.Point(284, 59) - Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnBisJahr.Name = "btnBisJahr" - Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) - Me.btnBisJahr.TabIndex = 33 - Me.btnBisJahr.Text = ">>" - Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisJahr.UseVisualStyleBackColor = True - ' - 'btnVonJahr - ' - Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnVonJahr.ForeColor = System.Drawing.Color.Black - Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonJahr.Location = New System.Drawing.Point(165, 59) - Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnVonJahr.Name = "btnVonJahr" - Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) - Me.btnVonJahr.TabIndex = 31 - Me.btnVonJahr.Text = "<<" - Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonJahr.UseVisualStyleBackColor = True - ' - 'btnMonat - ' - Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnMonat.ForeColor = System.Drawing.Color.Black - Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnMonat.Location = New System.Drawing.Point(198, 33) - Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnMonat.Name = "btnMonat" - Me.btnMonat.Size = New System.Drawing.Size(87, 23) - Me.btnMonat.TabIndex = 29 - Me.btnMonat.Text = "September" - Me.btnMonat.UseVisualStyleBackColor = True - ' - 'btnBisMonat - ' - Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnBisMonat.ForeColor = System.Drawing.Color.Black - Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisMonat.Location = New System.Drawing.Point(284, 33) - Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnBisMonat.Name = "btnBisMonat" - Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) - Me.btnBisMonat.TabIndex = 30 - Me.btnBisMonat.Text = ">>" - Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisMonat.UseVisualStyleBackColor = True - ' - 'btnVonMonat - ' - Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnVonMonat.ForeColor = System.Drawing.Color.Black - Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonMonat.Location = New System.Drawing.Point(165, 33) - Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnVonMonat.Name = "btnVonMonat" - Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) - Me.btnVonMonat.TabIndex = 28 - Me.btnVonMonat.Text = "<<" - Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonMonat.UseVisualStyleBackColor = True - ' - 'DateTimePicker2 - ' - Me.DateTimePicker2.CustomFormat = "''" - Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker2.Location = New System.Drawing.Point(53, 62) - Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) - Me.DateTimePicker2.Name = "DateTimePicker2" - Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20) - Me.DateTimePicker2.TabIndex = 22 - ' - 'Label25 - ' - Me.Label25.AutoSize = True - Me.Label25.Location = New System.Drawing.Point(24, 41) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(28, 13) - Me.Label25.TabIndex = 27 - Me.Label25.Text = "von:" - ' - 'DateTimePicker1 - ' - Me.DateTimePicker1.CustomFormat = "''" - Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker1.Location = New System.Drawing.Point(53, 37) - Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) - Me.DateTimePicker1.Name = "DateTimePicker1" - Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20) - Me.DateTimePicker1.TabIndex = 21 - ' - 'btnSucheStarten - ' - Me.btnSucheStarten.allowBorder = False - Me.btnSucheStarten.Anchor = System.Windows.Forms.AnchorStyles.Right - Me.btnSucheStarten.BackColor = System.Drawing.Color.White - Me.btnSucheStarten.FlatAppearance.BorderSize = 0 - Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black - Me.btnSucheStarten.Location = New System.Drawing.Point(1262, 60) - Me.btnSucheStarten.Name = "btnSucheStarten" - Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20) - Me.btnSucheStarten.TabIndex = 17 - Me.btnSucheStarten.Text = "Suche starten" - Me.btnSucheStarten.UseVisualStyleBackColor = False - Me.btnSucheStarten.Visible = False - ' 'Label23 ' Me.Label23.Anchor = System.Windows.Forms.AnchorStyles.Right Me.Label23.AutoSize = True Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label23.ForeColor = System.Drawing.Color.Honeydew - Me.Label23.Location = New System.Drawing.Point(207, 5) + Me.Label23.Location = New System.Drawing.Point(207, -13) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(24, 15) Me.Label23.TabIndex = 13 @@ -943,7 +658,7 @@ Partial Class frmGesamtsicherheitenNEU 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(345, 20) + Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(660, 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) @@ -953,44 +668,16 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label19.AutoSize = True Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(342, 7) + Me.Label19.Location = New System.Drawing.Point(657, 3) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(63, 13) Me.Label19.TabIndex = 8 Me.Label19.Text = "Warenort:" ' - 'cbx_Suche_Filiale - ' - Me.cbx_Suche_Filiale._allowedValuesFreiText = Nothing - Me.cbx_Suche_Filiale._allowFreiText = False - Me.cbx_Suche_Filiale._value = "" - Me.cbx_Suche_Filiale.DropDownWidth = 300 - Me.cbx_Suche_Filiale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbx_Suche_Filiale.FormattingEnabled = True - Me.cbx_Suche_Filiale.Location = New System.Drawing.Point(493, 21) - Me.cbx_Suche_Filiale.MaxLength = 4 - Me.cbx_Suche_Filiale.Name = "cbx_Suche_Filiale" - Me.cbx_Suche_Filiale.Size = New System.Drawing.Size(95, 21) - Me.cbx_Suche_Filiale.TabIndex = 2 - ' - 'btnNeu - ' - Me.btnNeu.allowBorder = False - Me.btnNeu.BackColor = System.Drawing.Color.Gainsboro - Me.btnNeu.FlatAppearance.BorderSize = 0 - Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnNeu.ForeColor = System.Drawing.Color.Black - Me.btnNeu.Location = New System.Drawing.Point(1262, 31) - Me.btnNeu.Name = "btnNeu" - Me.btnNeu.Size = New System.Drawing.Size(75, 23) - Me.btnNeu.TabIndex = 7 - Me.btnNeu.Text = "Neu" - Me.btnNeu.UseVisualStyleBackColor = False - ' 'txt_Suche ' Me.txt_Suche.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txt_Suche.Location = New System.Drawing.Point(345, 68) + Me.txt_Suche.Location = New System.Drawing.Point(379, 19) Me.txt_Suche.Margin = New System.Windows.Forms.Padding(0) Me.txt_Suche.Name = "txt_Suche" Me.txt_Suche.Size = New System.Drawing.Size(243, 24) @@ -1000,22 +687,12 @@ Partial Class frmGesamtsicherheitenNEU ' Me.Label21.AutoSize = True Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label21.Location = New System.Drawing.Point(342, 52) + Me.Label21.Location = New System.Drawing.Point(376, 3) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(47, 13) Me.Label21.TabIndex = 3 Me.Label21.Text = "Suche:" ' - 'Label22 - ' - Me.Label22.AutoSize = True - Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label22.Location = New System.Drawing.Point(490, 5) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(44, 13) - Me.Label22.TabIndex = 1 - Me.Label22.Text = "Filiale:" - ' 'btnDeletePos ' Me.btnDeletePos.allowBorder = False @@ -1090,14 +767,14 @@ Partial Class frmGesamtsicherheitenNEU Me.Label15.TabIndex = 9 Me.Label15.Text = "Pos" ' - 'txtPos + 'txtAnzahlPos ' - Me.txtPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPos.Location = New System.Drawing.Point(242, 204) - Me.txtPos.Margin = New System.Windows.Forms.Padding(0) - Me.txtPos.Name = "txtPos" - Me.txtPos.Size = New System.Drawing.Size(35, 24) - Me.txtPos.TabIndex = 20 + 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(242, 204) + Me.txtAnzahlPos.Margin = New System.Windows.Forms.Padding(0) + Me.txtAnzahlPos.Name = "txtAnzahlPos" + Me.txtAnzahlPos.Size = New System.Drawing.Size(35, 24) + Me.txtAnzahlPos.TabIndex = 20 ' 'Label14 ' @@ -1110,15 +787,15 @@ Partial Class frmGesamtsicherheitenNEU Me.Label14.TabIndex = 33 Me.Label14.Text = "19% EUST" ' - 'txtEust + 'txtSicherheitEust ' - Me.txtEust.Enabled = False - Me.txtEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtEust.Location = New System.Drawing.Point(197, 250) - Me.txtEust.Margin = New System.Windows.Forms.Padding(0) - Me.txtEust.Name = "txtEust" - Me.txtEust.Size = New System.Drawing.Size(100, 24) - Me.txtEust.TabIndex = 39 + 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(197, 250) + Me.txtSicherheitEust.Margin = New System.Windows.Forms.Padding(0) + Me.txtSicherheitEust.Name = "txtSicherheitEust" + Me.txtSicherheitEust.Size = New System.Drawing.Size(100, 24) + Me.txtSicherheitEust.TabIndex = 39 ' 'Label13 ' @@ -1131,16 +808,16 @@ Partial Class frmGesamtsicherheitenNEU Me.Label13.TabIndex = 32 Me.Label13.Text = "A.TR Ja/Nein" ' - 'cboATR + 'cboSicherheitATR ' - Me.cboATR.Enabled = False - Me.cboATR.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!) - Me.cboATR.FormattingEnabled = True - Me.cboATR.Items.AddRange(New Object() {"JA", "NEIN"}) - Me.cboATR.Location = New System.Drawing.Point(74, 250) - Me.cboATR.Name = "cboATR" - Me.cboATR.Size = New System.Drawing.Size(120, 26) - Me.cboATR.TabIndex = 38 + Me.cboSicherheitATR.Enabled = False + Me.cboSicherheitATR.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!) + Me.cboSicherheitATR.FormattingEnabled = True + Me.cboSicherheitATR.Items.AddRange(New Object() {"JA", "NEIN"}) + Me.cboSicherheitATR.Location = New System.Drawing.Point(74, 250) + Me.cboSicherheitATR.Name = "cboSicherheitATR" + Me.cboSicherheitATR.Size = New System.Drawing.Size(120, 26) + Me.cboSicherheitATR.TabIndex = 38 ' 'Label7 ' @@ -1271,14 +948,26 @@ Partial Class frmGesamtsicherheitenNEU Me.txtPosFreitext.Size = New System.Drawing.Size(255, 24) Me.txtPosFreitext.TabIndex = 41 ' - 'txtFreitextOpen + 'txtSicherheitFreitext ' - Me.txtFreitextOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFreitextOpen.Location = New System.Drawing.Point(367, 250) - Me.txtFreitextOpen.Margin = New System.Windows.Forms.Padding(0) - Me.txtFreitextOpen.Name = "txtFreitextOpen" - Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24) - Me.txtFreitextOpen.TabIndex = 40 + 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(367, 250) + Me.txtSicherheitFreitext.Margin = New System.Windows.Forms.Padding(0) + Me.txtSicherheitFreitext.Name = "txtSicherheitFreitext" + Me.txtSicherheitFreitext.Size = New System.Drawing.Size(256, 24) + Me.txtSicherheitFreitext.TabIndex = 40 + ' + 'lbloffenerSaldo + ' + Me.lbloffenerSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right + 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(238, 108) + Me.lbloffenerSaldo.Name = "lbloffenerSaldo" + Me.lbloffenerSaldo.Size = New System.Drawing.Size(146, 24) + Me.lbloffenerSaldo.TabIndex = 44 + Me.lbloffenerSaldo.Text = "offener Saldo: " ' 'frmGesamtsicherheitenNEU ' @@ -1313,28 +1002,28 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents btnAddPos As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnAddSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents lblGestellungNr As Label - Friend WithEvents txtCRNTime As TextBox - Friend WithEvents txtCRNDate As TextBox - Friend WithEvents txtMRNTime As TextBox - Friend WithEvents txtMRNDate As TextBox + Friend WithEvents txtPosTime As TextBox + Friend WithEvents txtPosDate As TextBox + Friend WithEvents txtSicherheitTime As TextBox + Friend WithEvents txtSicherheitDate As TextBox Friend WithEvents btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents txtPosSicherheitsbetrag As TextBox Friend WithEvents txtPosWarenwert As TextBox Friend WithEvents txtPositionenCRN As TextBox - Friend WithEvents txtMRNSicherheitsbetrag As TextBox - Friend WithEvents txtMRNWarenwert As TextBox - Friend WithEvents txtMRN As TextBox + Friend WithEvents txtSicherheitSicherheitsbetrag As TextBox + Friend WithEvents txtSicherheitWarenwert As TextBox + Friend WithEvents txtSicherheitATBNr As TextBox Friend WithEvents btn_resetSearch As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents lblZollsatz As Label Friend WithEvents lblReferenzwert As Label Friend WithEvents lblSaldo As Label Friend WithEvents panOben As Panel Friend WithEvents txtPosFreitext As TextBox - Friend WithEvents txtFreitextOpen As TextBox + Friend WithEvents txtSicherheitFreitext As TextBox Friend WithEvents Label14 As Label - Friend WithEvents txtEust As TextBox + Friend WithEvents txtSicherheitEust As TextBox Friend WithEvents Label13 As Label - Friend WithEvents cboATR As ComboBox + Friend WithEvents cboSicherheitATR As ComboBox Friend WithEvents Label7 As Label Friend WithEvents Label8 As Label Friend WithEvents Label9 As Label @@ -1348,7 +1037,7 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents Label2 As Label Friend WithEvents Label1 As Label Friend WithEvents Label15 As Label - Friend WithEvents txtPos As TextBox + Friend WithEvents txtAnzahlPos As TextBox Friend WithEvents panOverlay As Panel Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents txtLKWID As TextBox @@ -1369,30 +1058,11 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents Panel1 As Panel Friend WithEvents cbx_Suche_Warenort As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label19 As Label - Friend WithEvents cbx_Suche_Filiale As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents txt_Suche As TextBox Friend WithEvents Label21 As Label - Friend WithEvents Label22 As Label - Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents Label23 As Label - Friend WithEvents Label26 As Label - Friend WithEvents btnBisTag As Button - Friend WithEvents btnVonTag As Button - Friend WithEvents btnTag As Button - Friend WithEvents txtDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label24 As Label - Friend WithEvents btnJahr As Button - Friend WithEvents btnBisJahr As Button - Friend WithEvents btnVonJahr As Button - Friend WithEvents btnMonat As Button - Friend WithEvents btnBisMonat As Button - Friend WithEvents btnVonMonat As Button - Friend WithEvents DateTimePicker2 As DateTimePicker - Friend WithEvents Label25 As Label - Friend WithEvents DateTimePicker1 As DateTimePicker Friend WithEvents btnSuche As Button - Friend WithEvents txtDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label20 As Label - Friend WithEvents TextBox1 As TextBox + Friend WithEvents txtPosNr As TextBox + Friend WithEvents lbloffenerSaldo As Label End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index e37b04d..2ab3568 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -1,17 +1,15 @@ Imports System.Reflection +Imports System.Web.UI.WebControls.Expressions Imports DocumentFormat.OpenXml.Bibliography Imports DocumentFormat.OpenXml.Presentation Imports DocumentFormat.OpenXml.Spreadsheet +Imports Spire.Pdf.General.Render.Decode Imports VERAG_PROG_ALLGEMEIN Public Class frmGesamtsicherheitenNEU - 'Dim openopened As cSicherheiten - - 'Dim closedopened As cSicherheiten - - Dim currentSicherheit As cSicherheiten + Property currentSicherheit As cSicherheiten Property currentSPos As cGesamtsicherheitsPositionen Property currentGesSichRef As cGesamtsicherheitsReferenz Public Property gessicherheitID As Integer @@ -30,58 +28,52 @@ Public Class frmGesamtsicherheitenNEU Public Abfertigungsnummer As String - Public LKWID As String + Public LKWKZ As String Public warenortID As String - Dim indexGsId As Integer = 0 + Dim indexGsId As Integer + + Dim indexGspPosId As Integer Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) - - Dim srcTAG As Date = CDate(Now.ToShortDateString) - - Dim JAHR As Date = CDate("01.01." & Now.Year) - - Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N") + Me.Text = "Gesamtsicherheit " & Standort - If setNullToZero(gessicherheitID) = 0 Or Neu = True Then - 'panOben.Enabled = False : panOben.Enabled = False + cbx_Suche_Warenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + + If setNullToZero(gessicherheitID) = "" Or Neu = True Then + + panOben.Enabled = False : panOben.Enabled = False Panel1.Enabled = True - 'panOverlay.Visible = True + 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 [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) - cbx_Suche_Filiale.Items.AddRange(cboFiliale.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) - cbx_Suche_Warenort.Items.AddRange(cboWarenort.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) - If datum = Nothing Then datum = Date.Now + Else LoadDGVSicherheiten() End If LoadStandort() - cboATR.Enabled = currentGesSichRef.gsr_ATR + cboSicherheitATR.Enabled = currentGesSichRef.gsr_ATR Zollsatz = currentGesSichRef.gsr_zollsatz - txtDatVon.Text = Date.Today.ToString("dd.MM.yyyy") - txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy") - - btnMonat.Text = MONAT.ToString("MMMM") - btnJahr.Text = JAHR.Year Me.Text = "Gesamtsicherheit " & Standort frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos) End Sub + Public Sub LoadDGVSicherheiten() lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString() @@ -89,32 +81,33 @@ Public Class frmGesamtsicherheitenNEU Dim sqladd1 As String = "" If currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust" If currentGesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]" + If txt_Suche.Text <> "" Or cbx_Suche_Warenort._value <> "" Then Dim sqlSearchSting As String = "" Dim addtosqlstring As String = "" - Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & - sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] - where gs_standort = '" & Standort & "'And gs_datum > '" & Date.Parse(txtDatVon.Text) & "' And gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" & - "AND (gs_abfertigungsNr Like '%" & txt_Suche.Text & "%' OR" & - " gs_ATBNr like '%" & txt_Suche.Text & "%' OR" & - " gs_LKWID like '%" & txt_Suche.Text & "%' OR" & - " gs_warenort like '%" & cbx_Suche_Warenort.Text & "%') order by [gs_datum]" + 'Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & + ' sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] + ' where gs_standort = '" & Standort & "'And gs_datum > '" & Date.Parse(txtDatVon.Text) & "' And gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" & + ' "AND (gs_abfertigungsNr Like '%" & txt_Suche.Text & "%' OR" & + ' " gs_ATBNr like '%" & txt_Suche.Text & "%' OR" & + ' " gs_LKWKZ like '%" & txt_Suche.Text & "%' OR" & + ' " gs_warenort like '%" & cbx_Suche_Warenort.Text & "%') order by [gs_datum]" - dgvGesamtsicherheit.SET_SQL(SQLStringMRN, "AVISO", ,) + Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "' order by [gs_datum]" + + dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,) dgvGesamtsicherheit.LOAD() - - - If dgvGesamtsicherheit.Columns.Count > 0 Then With dgvGesamtsicherheit .RowHeadersWidth = 10 - .Columns("gs_gsId").Visible = False + .Columns("gs_gsId").Visible = True + .Columns("gs_gsnr").Visible = True .Columns("gs_warenwert").DefaultCellStyle.Format = "c" .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gs_saldo").DefaultCellStyle.Format = "c" - .Columns("gs_saldo").Visible = False + .Columns("gs_saldo").Visible = True Select Case currentGesSichRef.gsr_ATR Case True .Columns("gs_ATBNr").HeaderText = "ATB" @@ -156,7 +149,9 @@ Public Class frmGesamtsicherheitenNEU currentSicherheit = New cSicherheiten(indexGsId) LoadDGVSicherheitsPos(indexGsId) - loadTitle(indexGsId) + loadTitle() + setSaldo() + If dgvGesamtsicherheit.Enabled = False Then Exit Sub @@ -167,14 +162,14 @@ Public Class frmGesamtsicherheitenNEU If gsId = 0 Then Exit Sub - Dim SQLStringCRN As String = "select [gsp_gspPosId] ,[gsp_gsId],[gsp_warenwert],[gsp_sicherheitsbetrag],[gsp_freitext],[gsp_art] ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_ATCNr] ,[gsp_MRNNr] from [tblGesamtsicherheitsPositionen] where [gsp_gsId] = '" & gsId & "' order by [gsp_gspPosId]" + Dim SQLStringCRN As String = "select [gsp_gspPosId] ,[gsp_gsId],[gsp_warenwert],[gsp_sicherheitsbetrag],[gsp_freitext],[gsp_art] ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_ATCNr] ,[gsp_MRNNr],[gsp_erstellungsdatum] from [tblGesamtsicherheitsPositionen] where [gsp_gsId] = '" & gsId & "' order by [gsp_gspPosId]" dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,) dgvSicherheitsPos.LOAD() If dgvSicherheitsPos.Columns.Count > 0 Then With dgvSicherheitsPos .RowHeadersWidth = 10 - .Columns("gsp_gsId").Visible = False + .Columns("gsp_gsId").Visible = True .Columns("gsp_warenwert").DefaultCellStyle.Format = "c" .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c" '.Columns("gs_saldo").DefaultCellStyle.Format = "c" @@ -186,7 +181,7 @@ Public Class frmGesamtsicherheitenNEU .Columns("gsp_ATCNr").HeaderText = "CRN" End Select .Columns("gsp_ATCNr").Width = 120 - '.Columns("gs_datum").Width = 140 + .Columns("gsp_erstellungsdatum").Width = 140 .Columns("gsp_warenwert").Width = 100 .Columns("gsp_sicherheitsbetrag").Width = 100 .Columns("gsp_freitext").Width = 220 @@ -196,7 +191,18 @@ Public Class frmGesamtsicherheitenNEU End Sub - Sub loadTitle(indexGsId As Integer) + 'Private Sub dgvSicherheitsPos_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSicherheitsPos.SelectionChanged + ' If dgvSicherheitsPos.SelectedRows.Count > 0 Then + + ' indexGspPosId = CInt(dgvSicherheitsPos.SelectedRows(0).Cells("gsp_gspPosId").Value) + ' currentSPos = New cGesamtsicherheitsPositionen(indexGsId, indexGspPosId) + + ' If dgvSicherheitsPos.Enabled = False Then Exit Sub + + ' End If + 'End Sub + + Sub loadTitle() 'Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'" lblGestellungNr.Text = "" @@ -208,16 +214,19 @@ Public Class frmGesamtsicherheitenNEU dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) If dt.Rows.Count > 0 Then - Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID")) + Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ")) Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr")) Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr")) Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) - - If Me.LKWID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWID & " " - If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " - If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " - If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " End If + + If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " " + If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " + If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " + If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " + + + End Sub @@ -228,20 +237,20 @@ Public Class frmGesamtsicherheitenNEU ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100 End Sub - Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtPosWarenwert.TextChanged + Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtSicherheitWarenwert.TextChanged, txtPosWarenwert.TextChanged Try Select Case sender.name - Case "txtMRNWarenwert" - txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") - If currentGesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (currentGesSichRef.gsr_ust / 100) - Case "txtCRNWarenwert" + Case "txtSicherheitWarenwert" + txtSicherheitSicherheitsbetrag.Text = (txtSicherheitWarenwert.Text * ZollsatzMulti).ToString("N") + If currentGesSichRef.gsr_ustEnabled Then txtSicherheitEust.Text = (Double.Parse(txtSicherheitWarenwert.Text) + Double.Parse(txtSicherheitSicherheitsbetrag.Text)) * (currentGesSichRef.gsr_ust / 100) + Case "txtPosWarenwert" txtPosSicherheitsbetrag.Text = (txtPosWarenwert.Text * ZollsatzMulti).ToString("N") End Select Catch End Try End Sub - Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtPos.KeyPress + Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSicherheitWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtAnzahlPos.KeyPress Select Case Asc(e.KeyChar) Case 48 To 57, 8, 44 ' Zahlen, Backspace und , zulassen @@ -252,7 +261,7 @@ Public Class frmGesamtsicherheitenNEU End Select End Sub - Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCRNDate.KeyPress, txtCRNTime.KeyPress, txtMRNDate.KeyPress, txtMRNTime.KeyPress + Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosDate.KeyPress, txtPosTime.KeyPress, txtSicherheitDate.KeyPress, txtSicherheitTime.KeyPress Select Case Asc(e.KeyChar) Case 48 To 57, 8, 46, 58 ' Zahlen, Backspace, . und : zulassen @@ -266,8 +275,8 @@ Public Class frmGesamtsicherheitenNEU Private Sub btnSaveOben_Click(sender As Object, e As EventArgs) Handles btnSaveOben.Click Try - Dim a As Date = Date.ParseExact(txtMRNDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) - Dim b As Date = Date.ParseExact(txtMRNTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim a As Date = Date.ParseExact(txtSicherheitDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim b As Date = Date.ParseExact(txtSicherheitTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) MsgBox(ab.ToString) @@ -276,16 +285,16 @@ Public Class frmGesamtsicherheitenNEU End Try End Sub - Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtMRNDate.GotFocus, txtCRNDate.GotFocus, txtMRNTime.GotFocus, txtCRNTime.GotFocus + Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtSicherheitDate.GotFocus, txtPosDate.GotFocus, txtSicherheitTime.GotFocus, txtPosTime.GotFocus Select Case sender.name - Case "txtMRNDate" - If txtMRNDate.Text.Length < 1 Then txtMRNDate.Text = Date.Today.ToString("dd.MM.yyyy") - Case "txtCRNDate" - If txtCRNDate.Text.Length < 1 Then txtCRNDate.Text = Date.Today.ToString("dd.MM.yyyy") - Case "txtMRNTime" - If txtMRNTime.Text.Length < 1 Then txtMRNTime.Text = Date.Now.ToString("HH:mm") - Case "txtCRNTime" - If txtCRNTime.Text.Length < 1 Then txtCRNTime.Text = Date.Now.ToString("HH:mm") + Case "txtSicherheitDate" + If txtSicherheitDate.Text.Length < 1 Then txtSicherheitDate.Text = Date.Today.ToString("dd.MM.yyyy") + Case "txtPosDate" + If txtPosDate.Text.Length < 1 Then txtPosDate.Text = Date.Today.ToString("dd.MM.yyyy") + Case "txtSicherheitTime" + If txtSicherheitTime.Text.Length < 1 Then txtSicherheitTime.Text = Date.Now.ToString("HH:mm") + Case "txtPosTime" + If txtPosTime.Text.Length < 1 Then txtPosTime.Text = Date.Now.ToString("HH:mm") End Select End Sub @@ -293,25 +302,41 @@ Public Class frmGesamtsicherheitenNEU Try - Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text)) + Dim limit As Integer = Integer.Parse(setNullToZero(txtAnzahlPos.Text)) Dim OPEN As New cSicherheiten() With OPEN - .gs_ATBNr = txtMRN.Text - .gs_posNr = Integer.Parse(setNullToZero(txtPos.Text)) - .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) - .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_gsNr = AddNewGesamtSichNr() + .gs_ATBNr = txtSicherheitATBNr.Text + .gs_posNr = Integer.Parse(setNullToZero(txtAnzahlPos.Text)) + .gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDate.Text, txtSicherheitTime.Text) + .gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gs_standort = Me.Standort .gs_art = "OPEN" .gs_gsNr = Me.gessicherheitID .gs_erstellungsdatum = Me.datum - .gs_freitext = Me.txtFreitextOpen.Text + .gs_freitext = Me.txtSicherheitFreitext.Text .gs_saldo = currentGesSichRef.gsr_Saldo - .gs_atr = setNullToZero(cboATR.SelectedItem) + .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) setEnviromentDataToObject(OPEN, Me) End With + + 'If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr() + + 'Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) + ' Case "Neu" + ' OPENWithMultiplePosNr.SAVE() + ' Case Else + ' If (count > 1) Then + ' OPENWithMultiplePosNr.SAVE() + ' Else + ' MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) & "eingetragen") : OPENWithMultiplePosNr.SAVE() + ' End If + + 'End Select + indexGsId = OPEN.SAVEOBJECT() @@ -328,8 +353,9 @@ Public Class frmGesamtsicherheitenNEU .gsp_freitext = "" .gsp_filialenNr = OPEN.gs_filialenNr .gsp_art = "OPEN" - .gsp_abfertigungsNr = OPEN.gs_filialenNr - .gsp_avisoId = OPEN.gs_ATBNr + .gsp_abfertigungsNr = OPEN.gs_abfertigungsnr + .gsp_erstellungsdatum = Me.datum + .gsp_avisoId = "" .gsp_ust = "" .gsp_ATCNr = "" .gsp_MRNNr = "" @@ -337,26 +363,25 @@ Public Class frmGesamtsicherheitenNEU OPENPos.SAVE() - 'If Neu = True AndAlso count <= 1 Then OPEN.gs_gsNr = AddNewGesamtSichNr() + If Neu = True AndAlso count <= 1 Then OPEN.gs_gsNr = AddNewGesamtSichNr() - 'Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) - ' Case "Neu" - ' OPEN.SAVE() + Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) + Case "Neu" + OPEN.SAVE() - ' Case Else - ' If (count >= 1) Then - ' OPEN.SAVE() - ' OPENPos.SAVE() - ' Else - ' MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() - ' End If + Case Else + If (count >= 1) Then + OPEN.SAVE() + OPENPos.SAVE() + Else + MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() + End If - 'End Select + End Select Next - AfterButton() @@ -373,24 +398,32 @@ Public Class frmGesamtsicherheitenNEU Exit Sub End If + If (checkWarenwert() = False) Then + MsgBox("Der Warenwert der Positionen übersteigt den Warenwert der Gestellung!") + txtPosWarenwert.Focus() + Exit Sub + End If + Try Dim SicherheitsPos As New cGesamtsicherheitsPositionen() With SicherheitsPos .gsp_gsId = currentSicherheit.gs_gsId .gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsId) + 1 - .gsp_warenwert = 0 - .gsp_sicherheitsbetrag = 0 - .gsp_freitext = "" + .gsp_warenwert = Double.Parse(txtPosWarenwert.Text) + .gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text) + .gsp_freitext = txtPosFreitext.Text .gsp_filialenNr = currentSicherheit.gs_filialenNr .gsp_art = "OPEN" - .gsp_abfertigungsNr = "" - .gsp_avisoId = "" + .gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr + .gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtPosDate.Text, txtPosTime.Text) .gsp_ust = currentSicherheit.gs_ust - .gsp_ATCNr = "" - .gsp_MRNNr = "" + .gsp_ATCNr = txtPositionenCRN.Text + .gsp_MRNNr = txtPositionenCRN.Text End With + + SicherheitsPos.SAVE() 'If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() @@ -445,7 +478,7 @@ Public Class frmGesamtsicherheitenNEU For Each contr As Windows.Forms.Control In panOben.Controls If contr.GetType.FullName = "System.Windows.Forms.TextBox" Then contr.Text = "" Next - cboATR.SelectedItem = Nothing + cboSicherheitATR.SelectedItem = Nothing End Sub Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String @@ -476,7 +509,7 @@ Public Class frmGesamtsicherheitenNEU - Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click ', btnSaveOben.Click If checkMandatoryFieldsAreFilled() = False Then Exit Sub @@ -494,13 +527,14 @@ Public Class frmGesamtsicherheitenNEU End Try Me.Abfertigungsnummer = txtAbfertNum.Text - Me.LKWID = txtLKWID.Text + Me.LKWKZ = txtLKWID.Text If setNullToZero(Me.gessicherheitID) >= 0 Then - Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' " + Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWKZ] = '" & Me.LKWKZ & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' " SQL.doSQL(sqlstring, "AVISO") LoadDGVSicherheiten() End If + loadTitle() panOben.Enabled = True : panOben.Enabled = True panOverlay.Visible = False @@ -529,13 +563,13 @@ Public Class frmGesamtsicherheitenNEU Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.CurrentRow.Cells("gs_gsId").Value) - txtMRN.Text = Sicherh.gs_ATBNr - txtPos.Text = Sicherh.gs_posNr - txtMRNWarenwert.Text = Sicherh.gs_warenwert - txtFreitextOpen.Text = Sicherh.gs_freitext - cboATR.SelectedItem = Sicherh.gs_atr - txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") - txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") + txtSicherheitATBNr.Text = Sicherh.gs_ATBNr + txtAnzahlPos.Text = Sicherh.gs_posNr + txtSicherheitWarenwert.Text = Sicherh.gs_warenwert + txtSicherheitFreitext.Text = Sicherh.gs_freitext + cboSicherheitATR.SelectedItem = Sicherh.gs_atr + txtSicherheitDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") + txtSicherheitTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") currentSicherheit = Sicherh @@ -546,19 +580,20 @@ Public Class frmGesamtsicherheitenNEU Private Sub btnUpdateSicherheit_Click(sender As Object, e As EventArgs) Handles btnUpdateSicherheit.Click With currentSicherheit - .gs_ATBNr = txtMRN.Text - .gs_posNr = Double.Parse(setNullToZero(txtPos.Text)) - .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) - .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_ATBNr = txtSicherheitATBNr.Text + .gs_posNr = Double.Parse(setNullToZero(txtAnzahlPos.Text)) + .gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDate.Text, txtSicherheitTime.Text) + .gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gs_standort = Me.Standort .gs_art = "OPEN" .gs_gsNr = Me.gessicherheitID '.MakeDate = Me.MakeDate - .gs_freitext = Me.txtFreitextOpen.Text + .gs_freitext = Me.txtSicherheitFreitext.Text '.saldo = currentGesSichRef.Saldo - .gs_atr = setNullToZero(cboATR.SelectedItem) + .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) End With + checkWarenwert() currentSicherheit.SAVE() btnUpdateSicherheit.Visible = False btnAddSicherheit.Visible = True @@ -570,13 +605,13 @@ Public Class frmGesamtsicherheitenNEU With currentSPos .gsp_art = "CLOSE" - .gsp_gspPosId = txtPos.Text .gsp_freitext = txtPosFreitext.Text - .gsp_sicherheitsbetrag = txtPosSicherheitsbetrag.Text - .gsp_warenwert = txtPosWarenwert.Text + .gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text) + .gsp_warenwert = Double.Parse(txtPosWarenwert.Text) .gsp_ATCNr = txtPositionenCRN.Text End With + checkWarenwert() currentSPos.SAVE() btnAddPos.Visible = True btnUpdatePos.Visible = False @@ -584,15 +619,17 @@ Public Class frmGesamtsicherheitenNEU AfterButton() End Sub - Private Sub dgvGesamtsicherheitPositionen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellContentClick + Private Sub dgvGesamtsicherheitPositionen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellDoubleClick Dim sPos As New cGesamtsicherheitsPositionen(indexGsId, dgvSicherheitsPos.CurrentRow.Cells("gsp_gspPosId").Value) - txtPos.Text = sPos.gsp_gspPosId + txtPosNr.Text = sPos.gsp_gspPosId txtPosFreitext.Text = sPos.gsp_freitext txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag - txtPosWarenwert.Text = sPos.gsp_sicherheitsbetrag + txtPosWarenwert.Text = sPos.gsp_warenwert txtPositionenCRN.Text = sPos.gsp_ATCNr + txtPosDate.Text = sPos.gsp_erstellungsdatum.ToString("dd.MM.yyyy") + txtPosTime.Text = sPos.gsp_erstellungsdatum.ToString("HH:mm") currentSPos = sPos @@ -632,7 +669,7 @@ Public Class frmGesamtsicherheitenNEU cbx_Suche_Warenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) cbx_Suche_Warenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID) txtAbfertNum.Text = Me.Abfertigungsnummer - txtLKWID.Text = Me.LKWID + txtLKWID.Text = Me.LKWKZ panOben.Enabled = False End Sub @@ -657,7 +694,7 @@ Public Class frmGesamtsicherheitenNEU sicherheiten.gs_filialenNr = gessich.FilialNummer sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer - sicherheiten.gs_LKWID = gessich.LKWID + sicherheiten.gs_LKWKZ = gessich.LKWKZ sicherheiten.gs_warenort = gessich.warenortID End Sub @@ -680,106 +717,16 @@ Public Class frmGesamtsicherheitenNEU End Function - 'Kalenderhandling - - - Sub initBtns(MonatJahr) - btnMonat.Text = MONAT.ToString("MMMM") - btnJahr.Text = JAHR.Year - Select Case MonatJahr - Case "Monat" - DateTimePicker1.Value = MONAT - DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) - Case "Jahr" - - DateTimePicker1.Value = JAHR - DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) - 'End If - Case "Tag" - - DateTimePicker1.Value = srcTAG - DateTimePicker2.Value = srcTAG - If srcTAG = Now.ToShortDateString Then - btnTag.Text = "Heute" - ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then - btnTag.Text = "Gestern" - ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then - btnTag.Text = "Vorgestern" - Else - btnTag.Text = srcTAG.ToString("dd.MM") - End If - - 'End If - Case "" - DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) - DateTimePicker2.Value = Now - End Select - - End Sub - - - Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click - initBtns("Jahr") - End Sub - - Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click - JAHR = JAHR.AddYears(1) - initBtns("Jahr") - End Sub - - Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click - JAHR = JAHR.AddYears(-1) - initBtns("Jahr") - End Sub - - Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click - initBtns("Monat") - End Sub - - Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click - MONAT = MONAT.AddMonths(1) - initBtns("Monat") - End Sub - - Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click - MONAT = MONAT.AddMonths(-1) - initBtns("Monat") - End Sub - - - Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnTag.Click - initBtns("Tag") - End Sub - - Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnVonTag.Click - srcTAG = srcTAG.AddDays(-1) - initBtns("Tag") - End Sub - - Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnBisTag.Click - srcTAG = srcTAG.AddDays(1) - initBtns("Tag") - End Sub - - Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged - txtDatVon._value = CDate(sender.value).ToShortDateString - End Sub - - Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged - txtDatBis._value = CDate(sender.value).ToShortDateString - End Sub Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click Try - Date.Parse(txtDatVon.Text) - Date.Parse(txtDatBis.Text) If Me.Visible Then LoadDGVSicherheiten() Catch ex As Exception MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.") End Try End Sub - Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click + Private Sub btnNeu_Click(sender As Object, e As EventArgs) panOverlay.Visible = True End Sub @@ -799,10 +746,64 @@ Public Class frmGesamtsicherheitenNEU Private Sub clearSearchFields() cbx_Suche_Warenort.changeItem("") - cbx_Suche_Filiale.changeItem("") txt_Suche.Clear() End Sub + Private Function checkWarenwert() As Boolean + + Dim ok As Boolean = True + + Dim offenerWarenwert As Double + Try + + offenerWarenwert = calcOffenenWarenwert() + + If (offenerWarenwert < Double.Parse(txtPosWarenwert.Text)) Then + ok = False + End If + + Catch ex As Exception + MsgBox(ex.Message) + End Try + + + Return ok + + End Function + + + Private Function calcOffenenWarenwert() As Double + + Dim diff As Double = -10000 + If currentSicherheit Is Nothing Then Exit Function + Try + Dim warenwertSumPositionen = CDbl(SQL.DLookup("SUM(gsp_warenwert)", "[tblGesamtsicherheitsPositionen]", "gsp_gsId ='" & currentSicherheit.gs_gsId & "'", "AVISO")) + diff = Double.Parse(currentSicherheit.gs_warenwert) - Double.Parse(warenwertSumPositionen) + Catch ex As Exception + MsgBox(ex.Message) + End Try + + Return diff + + End Function + + Private Sub setSaldo() + + lbloffenerSaldo.Text = "offener Saldo: " + If Me.calcOffenenWarenwert > 0 Then + lbloffenerSaldo.Text &= Me.calcOffenenWarenwert() + Else + lbloffenerSaldo.Text &= "0" + End If + End Sub + + Private Sub rearangePosNr() + + End Sub + + + + End Class diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 27e9a28..c29683e 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -4176,7 +4176,7 @@ Public Class frmHauptfenster End Sub Private Sub DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Click - Dim frm As New frmGesamtsicherheitenNEU + Dim frm As New frmGesamtsicherheitenMenuNEU frm.Standort = "VERAG AG" frm.Show() End Sub