From db85cc6243f02d8360ea3558e4d95115aa5a051b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 18 Oct 2022 17:03:04 +0200 Subject: [PATCH] Feature_Gesamtsicherheiten --- Aviso/Aviso.vbproj | 9 + Aviso/frmGesamtsicherheiten.Designer.vb | 19 + Aviso/frmGesamtsicherheiten.resx | 3 + Aviso/frmGesamtsicherheiten.vb | 145 +- Aviso/frmGesamtsicherheitenMenu.Designer.vb | 102 +- Aviso/frmGesamtsicherheitenMenu.vb | 28 +- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 1397 +++++++++++++++++++ Aviso/frmGesamtsicherheitenNEU.resx | 200 +++ Aviso/frmGesamtsicherheitenNEU.vb | 704 ++++++++++ 9 files changed, 2515 insertions(+), 92 deletions(-) create mode 100644 Aviso/frmGesamtsicherheitenNEU.Designer.vb create mode 100644 Aviso/frmGesamtsicherheitenNEU.resx create mode 100644 Aviso/frmGesamtsicherheitenNEU.vb diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index d4d0dc3..a5403a2 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -540,6 +540,12 @@ Form + + frmGesamtsicherheitenNEU.vb + + + Form + frmNCTSRouten.vb @@ -1068,6 +1074,9 @@ frmFreigabeSetzenAnhaenge.vb + + frmGesamtsicherheitenNEU.vb + frmNCTSRouten.vb diff --git a/Aviso/frmGesamtsicherheiten.Designer.vb b/Aviso/frmGesamtsicherheiten.Designer.vb index 60401d1..56ba84b 100644 --- a/Aviso/frmGesamtsicherheiten.Designer.vb +++ b/Aviso/frmGesamtsicherheiten.Designer.vb @@ -86,11 +86,14 @@ Partial Class frmGesamtsicherheiten Me.Label1 = New System.Windows.Forms.Label() Me.txtFreitextClose = New System.Windows.Forms.TextBox() Me.txtFreitextOpen = New System.Windows.Forms.TextBox() + Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() Me.panOverlay.SuspendLayout() CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.panOben.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'dgvGesamtsicherheitMRN @@ -107,6 +110,7 @@ Partial Class frmGesamtsicherheiten DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvGesamtsicherheitMRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 Me.dgvGesamtsicherheitMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheitMRN.ContextMenuStrip = Me.ContextMenuStrip1 DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -823,6 +827,18 @@ Partial Class frmGesamtsicherheiten Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24) Me.txtFreitextOpen.TabIndex = 40 ' + 'ClosedErzeugenToolStripMenuItem + ' + Me.ClosedErzeugenToolStripMenuItem.Name = "ClosedErzeugenToolStripMenuItem" + Me.ClosedErzeugenToolStripMenuItem.Size = New System.Drawing.Size(161, 22) + Me.ClosedErzeugenToolStripMenuItem.Text = "Closed erzeugen" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClosedErzeugenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26) + ' 'frmGesamtsicherheiten ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -843,6 +859,7 @@ Partial Class frmGesamtsicherheiten CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).EndInit() Me.panOben.ResumeLayout(False) Me.panOben.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -904,4 +921,6 @@ Partial Class frmGesamtsicherheiten Friend WithEvents btnDeleteOpen As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents lblWarenort As Label + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents ClosedErzeugenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmGesamtsicherheiten.resx b/Aviso/frmGesamtsicherheiten.resx index 428f736..2cbc5c2 100644 --- a/Aviso/frmGesamtsicherheiten.resx +++ b/Aviso/frmGesamtsicherheiten.resx @@ -117,6 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + diff --git a/Aviso/frmGesamtsicherheiten.vb b/Aviso/frmGesamtsicherheiten.vb index 02ff8a3..13ef88e 100644 --- a/Aviso/frmGesamtsicherheiten.vb +++ b/Aviso/frmGesamtsicherheiten.vb @@ -43,7 +43,7 @@ Public Class frmGesamtsicherheiten End Sub Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load - If setNullToZero(gessicherheitID) = 0 Or Neu = True Then + If setNullToZero(gessicherheitID) = "" Or Neu = True Then panOben.Enabled = False : panOben.Enabled = False 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) @@ -70,11 +70,11 @@ Public Class frmGesamtsicherheiten Dim addtosqlstring As String = "" - Dim SQLStringMRN As String = "select [gs_gsId], [gs_kennNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]" + 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_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]" dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) dgvGesamtsicherheitMRN.LOAD() - Dim SQLStringCRN As String = "select [gs_gsId], [gs_kennNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]" + Dim SQLStringCRN As String = "select [gs_gsId], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]" dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,) dgvGesamtsicherheitCRN.LOAD() @@ -84,7 +84,7 @@ Public Class frmGesamtsicherheiten If dt.Rows.Count > 0 Then 'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr") - Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialNr")) + 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")) @@ -104,14 +104,14 @@ Public Class frmGesamtsicherheiten .Columns("gs_saldo").Visible = False Select Case GesSichRef.gsr_ATR Case True - .Columns("gs_kennNr").HeaderText = "ATB" + .Columns("gs_ATBNr").HeaderText = "ATB" .Columns("gs_atr").HeaderText = "ATR" .Columns("gs_atr").Width = 33 .Columns("gs_ust").Width = 69 Case Else - .Columns("gs_kennNr").HeaderText = "CRN" + .Columns("gs_ATBNr").HeaderText = "CRN" End Select - .Columns("gs_kennNr").Width = 146 + .Columns("gs_ATBNr").Width = 146 .Columns("gs_posNr").Width = 20 .Columns("gs_datum").Width = 95 @@ -136,11 +136,11 @@ Public Class frmGesamtsicherheiten .Columns("gs_saldo").Visible = False Select Case GesSichRef.gsr_ATR Case True - .Columns("gs_kennNr").HeaderText = "ATC / MRN" + .Columns("gs_ATBNr").HeaderText = "ATC / MRN" Case Else - .Columns("gs_kennNr").HeaderText = "CRN" + .Columns("gs_ATBNr").HeaderText = "CRN" End Select - .Columns("gs_kennNr").Width = 120 + .Columns("gs_ATBNr").Width = 120 .Columns("gs_datum").Width = 140 .Columns("gs_warenwert").Width = 100 .Columns("gs_sicherheitsbetrag").Width = 100 @@ -252,11 +252,11 @@ Public Class frmGesamtsicherheiten Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text)) For count As Integer = 1 To limit + If (count > 1) Then txtMRNWarenwert.Text = 0 + Dim OPENWithMultiplePosNr As New cSicherheiten() - Dim OPENNew As New cSicherheiten() - setEnviromentDataToObject(OPENNew, Me) - With OPENNew - .gs_kennNr = txtMRN.Text + With OPENWithMultiplePosNr + .gs_ATBNr = txtMRN.Text .gs_posNr = count .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") @@ -268,55 +268,62 @@ Public Class frmGesamtsicherheiten .gs_freitext = Me.txtFreitextOpen.Text .gs_saldo = GesSichRef.gsr_Saldo .gs_atr = setNullToZero(cboATR.SelectedItem) - + setEnviromentDataToObject(OPENWithMultiplePosNr, Me) End With - If Neu = True Then OPENNew.gs_gsNr = AddNewGesamtSichNr() + If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr() - Select Case checkIfExist(OPENNew.gs_kennNr, gessicherheitID) + Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) Case "Neu" - OPENNew.SAVE() + OPENWithMultiplePosNr.SAVE() Case Else - MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENNew.gs_kennNr, gessicherheitID) & "eingetragen") : OPENNew.SAVE() + 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 - 'AfterButton() - - Next + AfterButton() + + Else + + 'Dim OPEN As New cSicherheiten(Me) + 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_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextOpen.Text + .gs_saldo = GesSichRef.gsr_Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + setEnviromentDataToObject(OPEN, Me) + End With + + + If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) + Case "Neu" + OPEN.SAVE() + Case Else + MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() + End Select + + + AfterButton() + End If - - 'Dim OPEN As New cSicherheiten(Me) - Dim OPEN As New cSicherheiten() - setEnviromentDataToObject(OPEN, Me) - With OPEN - .gs_kennNr = 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_standort = Me.Standort - .gs_art = "OPEN" - .gs_gsNr = Me.gessicherheitID - .gs_erstellungsdatum = Me.datum - .gs_freitext = Me.txtFreitextOpen.Text - .gs_saldo = GesSichRef.gsr_Saldo - .gs_atr = setNullToZero(cboATR.SelectedItem) - End With - - - If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr() - - Select Case checkIfExist(OPEN.gs_kennNr, gessicherheitID) - Case "Neu" - OPEN.SAVE() - Case Else - MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_kennNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() - End Select - - - AfterButton() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try @@ -327,7 +334,7 @@ Public Class frmGesamtsicherheiten 'Dim Close As New cSicherheiten(Me) Dim Close As New cSicherheiten() With Close - .gs_kennNr = txtCRN.Text + .gs_ATBNr = txtCRN.Text .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") @@ -341,11 +348,11 @@ Public Class frmGesamtsicherheiten If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() - Select Case checkIfExist(Close.gs_kennNr, gessicherheitID) + Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID) Case "Neu" Close.SAVE() Case Else - MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_kennNr, gessicherheitID) & "eingetragen") : Exit Sub + MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub End Select AfterButton() @@ -397,7 +404,7 @@ Public Class frmGesamtsicherheiten Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID - Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_kennNr] = '" & KennnummerStr & "'" + Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_ATBNr] = '" & KennnummerStr & "'" Dim dt As New DataTable dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True) If dt.Rows.Count > 0 Then @@ -443,7 +450,7 @@ Public Class frmGesamtsicherheiten Me.LKWID = txtLKWID.Text If setNullToZero(Me.gessicherheitID) >= 0 Then - Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialNr] = '" & 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_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' " SQL.doSQL(sqlstring, "AVISO") LoadDGV() End If @@ -473,10 +480,10 @@ Public Class frmGesamtsicherheiten Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick - Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value) + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value) 'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value) - txtMRN.Text = Sicherh.gs_kennNr + txtMRN.Text = Sicherh.gs_ATBNr txtPos.Text = Sicherh.gs_posNr txtMRNWarenwert.Text = Sicherh.gs_warenwert txtFreitextOpen.Text = Sicherh.gs_freitext @@ -493,7 +500,7 @@ Public Class frmGesamtsicherheiten Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click With openopened - .gs_kennNr = txtMRN.Text + .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(",", ".") @@ -506,7 +513,7 @@ Public Class frmGesamtsicherheiten '.saldo = GesSichRef.Saldo .gs_atr = setNullToZero(cboATR.SelectedItem) End With - openopened.Save() + openopened.SAVE() btnUpdateOpen.Visible = False btnAddOpen.Visible = True btnDeleteOpen.Visible = False @@ -515,7 +522,7 @@ Public Class frmGesamtsicherheiten Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click With closedopened - .gs_kennNr = txtCRN.Text + .gs_ATBNr = txtCRN.Text .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") @@ -523,7 +530,7 @@ Public Class frmGesamtsicherheiten .gs_art = "CLOSE" .gs_freitext = Me.txtFreitextClose.Text End With - closedopened.Save() + closedopened.SAVE() btnAddClose.Visible = True btnUpdateClose.Visible = False btnDeleteClose.Visible = False @@ -535,7 +542,7 @@ Public Class frmGesamtsicherheiten Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) 'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) - txtCRN.Text = Sicherh.gs_kennNr + txtCRN.Text = Sicherh.gs_ATBNr txtCRNWarenwert.Text = Sicherh.gs_warenwert txtFreitextClose.Text = Sicherh.gs_freitext txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") @@ -602,14 +609,18 @@ Public Class frmGesamtsicherheiten Private Sub setEnviromentDataToObject(sicherheiten As cSicherheiten, Optional ByVal gessich As frmGesamtsicherheiten = Nothing) - sicherheiten.gs_filialNr = gessich.FilialNummer + sicherheiten.gs_filialenNr = gessich.FilialNummer sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer sicherheiten.gs_LKWID = gessich.LKWID sicherheiten.gs_warenort = gessich.warenortID - sicherheiten.SAVE() End Sub + Private Sub ClosedErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClosedErzeugenToolStripMenuItem.Click + MsgBox("") + + + End Sub End Class 'Public Class cSicherheit diff --git a/Aviso/frmGesamtsicherheitenMenu.Designer.vb b/Aviso/frmGesamtsicherheitenMenu.Designer.vb index 425b551..6e62602 100644 --- a/Aviso/frmGesamtsicherheitenMenu.Designer.vb +++ b/Aviso/frmGesamtsicherheitenMenu.Designer.vb @@ -42,6 +42,10 @@ Partial Class frmGesamtsicherheitenMenu Me.lblReferenzwert = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.lblFiliale = New System.Windows.Forms.Label() + Me.cbxStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label4 = New System.Windows.Forms.Label() CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() @@ -54,15 +58,19 @@ Partial Class frmGesamtsicherheitenMenu 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, 156) + Me.dgvListe.Location = New System.Drawing.Point(0, 196) Me.dgvListe.Name = "dgvListe" Me.dgvListe.ReadOnly = True - Me.dgvListe.Size = New System.Drawing.Size(502, 565) + Me.dgvListe.Size = New System.Drawing.Size(502, 525) 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.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) @@ -80,17 +88,18 @@ Partial Class frmGesamtsicherheitenMenu 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, 156) + Me.Panel1.Size = New System.Drawing.Size(502, 196) Me.Panel1.TabIndex = 0 ' '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(112, 101) + Me.FlatButton2.Location = New System.Drawing.Point(112, 133) Me.FlatButton2.Name = "FlatButton2" Me.FlatButton2.Size = New System.Drawing.Size(81, 20) Me.FlatButton2.TabIndex = 10 @@ -100,11 +109,12 @@ Partial Class frmGesamtsicherheitenMenu '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(201, 127) + Me.btnSucheStarten.Location = New System.Drawing.Point(201, 159) Me.btnSucheStarten.Name = "btnSucheStarten" Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20) Me.btnSucheStarten.TabIndex = 11 @@ -125,8 +135,9 @@ Partial Class frmGesamtsicherheitenMenu 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(112, 77) + Me.txtbis.Location = New System.Drawing.Point(112, 109) Me.txtbis.MaxLineLength = -1 Me.txtbis.MaxLines_Warning = "" Me.txtbis.MaxLines_Warning_Label = Nothing @@ -148,8 +159,9 @@ Partial Class frmGesamtsicherheitenMenu 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(12, 77) + Me.txtVon.Location = New System.Drawing.Point(12, 109) Me.txtVon.MaxLineLength = -1 Me.txtVon.MaxLines_Warning = "" Me.txtVon.MaxLines_Warning_Label = Nothing @@ -163,7 +175,7 @@ Partial Class frmGesamtsicherheitenMenu 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(109, 59) + Me.Label3.Location = New System.Drawing.Point(109, 90) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(24, 15) Me.Label3.TabIndex = 5 @@ -175,7 +187,7 @@ Partial Class frmGesamtsicherheitenMenu 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(12, 59) + Me.Label2.Location = New System.Drawing.Point(12, 90) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(28, 15) Me.Label2.TabIndex = 4 @@ -187,7 +199,7 @@ Partial Class frmGesamtsicherheitenMenu 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, 11) + Me.Label1.Location = New System.Drawing.Point(12, 4) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(45, 15) Me.Label1.TabIndex = 0 @@ -196,12 +208,13 @@ Partial Class frmGesamtsicherheitenMenu '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, 22) + Me.FlatButton1.Location = New System.Drawing.Point(233, 18) Me.FlatButton1.Name = "FlatButton1" Me.FlatButton1.Size = New System.Drawing.Size(32, 33) Me.FlatButton1.TabIndex = 2 @@ -209,18 +222,20 @@ Partial Class frmGesamtsicherheitenMenu ' 'txtSuchbegriff ' - Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 29) + Me.txtSuchbegriff.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 22) 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, 131) + Me.chkOffen.Location = New System.Drawing.Point(28, 163) Me.chkOffen.Name = "chkOffen" Me.chkOffen.Size = New System.Drawing.Size(120, 17) Me.chkOffen.TabIndex = 12 @@ -230,11 +245,12 @@ Partial Class frmGesamtsicherheitenMenu '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(415, 127) + Me.btnNeu.Location = New System.Drawing.Point(415, 159) Me.btnNeu.Name = "btnNeu" Me.btnNeu.Size = New System.Drawing.Size(75, 23) Me.btnNeu.TabIndex = 13 @@ -247,7 +263,7 @@ Partial Class frmGesamtsicherheitenMenu 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, 24) + Me.lblSaldo.Location = New System.Drawing.Point(294, 17) Me.lblSaldo.Name = "lblSaldo" Me.lblSaldo.Size = New System.Drawing.Size(147, 24) Me.lblSaldo.TabIndex = 3 @@ -259,7 +275,7 @@ Partial Class frmGesamtsicherheitenMenu 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, 86) + Me.lblZollsatz.Location = New System.Drawing.Point(295, 79) Me.lblZollsatz.Name = "lblZollsatz" Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) Me.lblZollsatz.TabIndex = 9 @@ -271,7 +287,7 @@ Partial Class frmGesamtsicherheitenMenu 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, 59) + Me.lblReferenzwert.Location = New System.Drawing.Point(295, 52) Me.lblReferenzwert.Name = "lblReferenzwert" Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) Me.lblReferenzwert.TabIndex = 6 @@ -289,6 +305,54 @@ Partial Class frmGesamtsicherheitenMenu Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22) Me.ExportCSVToolStripMenuItem.Text = "Export CSV" ' + '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, 45) + Me.lblFiliale.Name = "lblFiliale" + Me.lblFiliale.Size = New System.Drawing.Size(43, 15) + Me.lblFiliale.TabIndex = 14 + Me.lblFiliale.Text = "Filiale:" + ' + '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, 63) + Me.cbxStandort.Name = "cbxStandort" + Me.cbxStandort.Size = New System.Drawing.Size(81, 21) + Me.cbxStandort.TabIndex = 15 + ' + '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, 63) + 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, 45) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(60, 15) + Me.Label4.TabIndex = 16 + Me.Label4.Text = "Warenort:" + ' 'frmGesamtsicherheitenMenu ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -328,4 +392,8 @@ Partial Class frmGesamtsicherheitenMenu 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 End Class diff --git a/Aviso/frmGesamtsicherheitenMenu.vb b/Aviso/frmGesamtsicherheitenMenu.vb index e24d43e..26a2af0 100644 --- a/Aviso/frmGesamtsicherheitenMenu.vb +++ b/Aviso/frmGesamtsicherheitenMenu.vb @@ -14,6 +14,8 @@ Public Class frmGesamtsicherheitenMenu 'Public ATR As Boolean = False Public Property Standort As String = "" Private Sub frmGesamtsicherheiten_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) @@ -25,13 +27,15 @@ Public Class frmGesamtsicherheitenMenu txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy") txtbis.Text = Date.Today.ToString("dd.MM.yyyy") - 'ShowStandort() + 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 GesamtsichNr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer, min(Abfertigungsnummer) as Abfertigungsnummer, 'max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM( @@ -46,7 +50,7 @@ Public Class frmGesamtsicherheitenMenu 'order by GesamtsichNr" Dim sqlstring As String = - " select * from (Select gs_gsNr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_filialNr) as gs_filialNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, + " 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_LKWID) as gs_LKWID, min (gs_datum) as gs_datum, FORMAT(SUM( Case when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) @@ -56,8 +60,9 @@ Public Class frmGesamtsicherheitenMenu From (select * from (select gs_gsNr as ding from [tblGesamtsicherheit] where gs_freitext like '%" & txtSuchbegriff.Text & "%' OR gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR - gs_kennNr like '%" & txtSuchbegriff.Text & "%' OR - gs_LKWID like '%" & txtSuchbegriff.Text & "%' + gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR + gs_LKWID 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(txtVon.Text) & "' @@ -72,12 +77,15 @@ Public Class frmGesamtsicherheitenMenu .Columns("gs_standort").Visible = False .Columns("gs_gsnr").HeaderText = "#" .Columns("gs_gsnr").Width = 36 - .Columns("gs_filialNr").HeaderText = "Filiale" - .Columns("gs_filialNr").Width = 43 + .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 = 96 + .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 @@ -108,8 +116,9 @@ Public Class frmGesamtsicherheitenMenu .Standort = Me.Standort .datum = dgvListe.CurrentRow.Cells("gs_datum").Value .LKWID = dgvListe.CurrentRow.Cells("gs_LKWID").Value - .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialNr").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() @@ -164,6 +173,9 @@ Public Class frmGesamtsicherheitenMenu txtSuchbegriff.Text = "" : chkOffen.Checked = True txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy") txtbis.Text = Date.Today.ToString("dd.MM.yyyy") + cbxStandort._value = "" + cbxWarenort._value = "" + btnSucheStarten_Click(sender, e) End Sub Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb new file mode 100644 index 0000000..22f9f7d --- /dev/null +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -0,0 +1,1397 @@ + +Partial Class frmGesamtsicherheitenNEU + 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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU)) + Me.dgvGesamtsicherheitMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.panOverlay = New System.Windows.Forms.Panel() + Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblWarenort = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtLKWID = New System.Windows.Forms.TextBox() + Me.txtAbfertNum = New System.Windows.Forms.TextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.dgvGesamtsicherheitCRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.btnAddClose = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnAddOpen = 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.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtCRNSicherheitsbetrag = New System.Windows.Forms.TextBox() + Me.txtCRNWarenwert = New System.Windows.Forms.TextBox() + Me.txtCRN = 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.FlatButton1 = 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.Panel1 = New System.Windows.Forms.Panel() + Me.btnSuche = New System.Windows.Forms.Button() + Me.Label26 = New System.Windows.Forms.Label() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button5 = 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.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.btnDeleteClose = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeleteOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateClose = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.Label15 = New System.Windows.Forms.Label() + Me.txtPos = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtEust = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.cboATR = 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() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtFreitextClose = New System.Windows.Forms.TextBox() + Me.txtFreitextOpen = New System.Windows.Forms.TextBox() + Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.panOverlay.SuspendLayout() + CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).BeginInit() + Me.panOben.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'dgvGesamtsicherheitMRN + ' + Me.dgvGesamtsicherheitMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheitMRN.AllowUserToAddRows = False + Me.dgvGesamtsicherheitMRN.AllowUserToDeleteRows = False + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheitMRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvGesamtsicherheitMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheitMRN.ContextMenuStrip = Me.ContextMenuStrip1 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGesamtsicherheitMRN.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvGesamtsicherheitMRN.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvGesamtsicherheitMRN.Location = New System.Drawing.Point(0, 0) + Me.dgvGesamtsicherheitMRN.Name = "dgvGesamtsicherheitMRN" + Me.dgvGesamtsicherheitMRN.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheitMRN.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvGesamtsicherheitMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheitMRN.Size = New System.Drawing.Size(692, 486) + Me.dgvGesamtsicherheitMRN.TabIndex = 0 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClosedErzeugenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26) + ' + 'ClosedErzeugenToolStripMenuItem + ' + Me.ClosedErzeugenToolStripMenuItem.Name = "ClosedErzeugenToolStripMenuItem" + Me.ClosedErzeugenToolStripMenuItem.Size = New System.Drawing.Size(161, 22) + Me.ClosedErzeugenToolStripMenuItem.Text = "Closed erzeugen" + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.panOverlay) + Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitCRN) + Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitMRN) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(0, 290) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1384, 486) + Me.Panel2.TabIndex = 1 + ' + 'panOverlay + ' + Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.panOverlay.Controls.Add(Me.cboWarenort) + Me.panOverlay.Controls.Add(Me.lblWarenort) + Me.panOverlay.Controls.Add(Me.cboFiliale) + Me.panOverlay.Controls.Add(Me.btnSave) + Me.panOverlay.Controls.Add(Me.txtLKWID) + Me.panOverlay.Controls.Add(Me.txtAbfertNum) + Me.panOverlay.Controls.Add(Me.Label18) + Me.panOverlay.Controls.Add(Me.Label17) + Me.panOverlay.Controls.Add(Me.Label16) + Me.panOverlay.Controls.Add(Me.btnClosePanOverlay) + Me.panOverlay.Location = New System.Drawing.Point(27, 183) + Me.panOverlay.Name = "panOverlay" + Me.panOverlay.Size = New System.Drawing.Size(527, 275) + Me.panOverlay.TabIndex = 2 + Me.panOverlay.Visible = False + ' + 'cboWarenort + ' + Me.cboWarenort._allowedValuesFreiText = Nothing + Me.cboWarenort._allowFreiText = False + Me.cboWarenort._value = "" + Me.cboWarenort.DropDownWidth = 300 + Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboWarenort.FormattingEnabled = True + Me.cboWarenort.Location = New System.Drawing.Point(278, 64) + Me.cboWarenort.MaxLength = 4 + Me.cboWarenort.Name = "cboWarenort" + Me.cboWarenort.Size = New System.Drawing.Size(186, 24) + Me.cboWarenort.TabIndex = 9 + ' + 'lblWarenort + ' + Me.lblWarenort.AutoSize = True + Me.lblWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarenort.Location = New System.Drawing.Point(125, 68) + Me.lblWarenort.Name = "lblWarenort" + Me.lblWarenort.Size = New System.Drawing.Size(88, 20) + Me.lblWarenort.TabIndex = 8 + Me.lblWarenort.Text = "Warenort:" + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(279, 103) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(186, 24) + Me.cboFiliale.TabIndex = 2 + ' + 'btnSave + ' + Me.btnSave.allowBorder = False + Me.btnSave.BackColor = System.Drawing.Color.Gainsboro + Me.btnSave.FlatAppearance.BorderSize = 0 + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Location = New System.Drawing.Point(424, 232) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 7 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = False + ' + 'txtLKWID + ' + Me.txtLKWID.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLKWID.Location = New System.Drawing.Point(279, 178) + Me.txtLKWID.Margin = New System.Windows.Forms.Padding(0) + Me.txtLKWID.Name = "txtLKWID" + Me.txtLKWID.Size = New System.Drawing.Size(186, 24) + Me.txtLKWID.TabIndex = 6 + ' + 'txtAbfertNum + ' + Me.txtAbfertNum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertNum.Location = New System.Drawing.Point(279, 140) + Me.txtAbfertNum.Margin = New System.Windows.Forms.Padding(0) + Me.txtAbfertNum.Name = "txtAbfertNum" + Me.txtAbfertNum.Size = New System.Drawing.Size(186, 24) + Me.txtAbfertNum.TabIndex = 4 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(173, 180) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(76, 20) + Me.Label18.TabIndex = 5 + Me.Label18.Text = "LKW-ID:" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.Location = New System.Drawing.Point(68, 142) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(181, 20) + Me.Label17.TabIndex = 3 + Me.Label17.Text = "Abfertigungsnummer:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(126, 107) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(123, 20) + Me.Label16.TabIndex = 1 + Me.Label16.Text = "Filial-Nummer:" + ' + 'btnClosePanOverlay + ' + Me.btnClosePanOverlay.allowBorder = False + Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White + Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 + Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black + Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) + Me.btnClosePanOverlay.Name = "btnClosePanOverlay" + Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) + Me.btnClosePanOverlay.TabIndex = 0 + Me.btnClosePanOverlay.UseVisualStyleBackColor = False + ' + 'dgvGesamtsicherheitCRN + ' + Me.dgvGesamtsicherheitCRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheitCRN.AllowUserToAddRows = False + Me.dgvGesamtsicherheitCRN.AllowUserToDeleteRows = False + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheitCRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvGesamtsicherheitCRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGesamtsicherheitCRN.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvGesamtsicherheitCRN.Dock = System.Windows.Forms.DockStyle.Right + Me.dgvGesamtsicherheitCRN.Location = New System.Drawing.Point(692, 0) + Me.dgvGesamtsicherheitCRN.Name = "dgvGesamtsicherheitCRN" + Me.dgvGesamtsicherheitCRN.ReadOnly = True + Me.dgvGesamtsicherheitCRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheitCRN.Size = New System.Drawing.Size(692, 486) + Me.dgvGesamtsicherheitCRN.TabIndex = 1 + ' + 'btnAddClose + ' + Me.btnAddClose.allowBorder = False + Me.btnAddClose.BackColor = System.Drawing.Color.White + Me.btnAddClose.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnAddClose.FlatAppearance.BorderSize = 0 + Me.btnAddClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddClose.ForeColor = System.Drawing.Color.Black + Me.btnAddClose.Location = New System.Drawing.Point(1348, 104) + Me.btnAddClose.Name = "btnAddClose" + Me.btnAddClose.Size = New System.Drawing.Size(24, 24) + Me.btnAddClose.TabIndex = 31 + Me.btnAddClose.UseVisualStyleBackColor = False + ' + 'btnAddOpen + ' + Me.btnAddOpen.allowBorder = False + Me.btnAddOpen.BackColor = System.Drawing.Color.White + Me.btnAddOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnAddOpen.FlatAppearance.BorderSize = 0 + Me.btnAddOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddOpen.ForeColor = System.Drawing.Color.Black + Me.btnAddOpen.Location = New System.Drawing.Point(654, 205) + Me.btnAddOpen.Name = "btnAddOpen" + Me.btnAddOpen.Size = New System.Drawing.Size(24, 24) + Me.btnAddOpen.TabIndex = 30 + Me.btnAddOpen.UseVisualStyleBackColor = False + ' + 'lblGestellungNr + ' + Me.lblGestellungNr.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblGestellungNr.AutoSize = True + Me.lblGestellungNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblGestellungNr.ForeColor = System.Drawing.Color.Honeydew + Me.lblGestellungNr.Location = New System.Drawing.Point(23, 17) + Me.lblGestellungNr.Name = "lblGestellungNr" + Me.lblGestellungNr.Size = New System.Drawing.Size(171, 24) + Me.lblGestellungNr.TabIndex = 2 + Me.lblGestellungNr.Text = "Gesamtsicherheit" + ' + 'txtCRNTime + ' + 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 + ' + 'txtCRNDate + ' + 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 + ' + 'txtMRNTime + ' + 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 + ' + 'txtMRNDate + ' + 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 + ' + 'btnSaveOben + ' + Me.btnSaveOben.allowBorder = False + Me.btnSaveOben.BackColor = System.Drawing.Color.White + Me.btnSaveOben.FlatAppearance.BorderSize = 0 + Me.btnSaveOben.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSaveOben.ForeColor = System.Drawing.Color.Black + Me.btnSaveOben.Location = New System.Drawing.Point(12, 163) + Me.btnSaveOben.Name = "btnSaveOben" + Me.btnSaveOben.Size = New System.Drawing.Size(75, 23) + Me.btnSaveOben.TabIndex = 0 + Me.btnSaveOben.Text = "Speichern" + Me.btnSaveOben.UseVisualStyleBackColor = False + ' + 'txtCRNSicherheitsbetrag + ' + Me.txtCRNSicherheitsbetrag.Enabled = False + Me.txtCRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRNSicherheitsbetrag.Location = New System.Drawing.Point(1172, 204) + Me.txtCRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRNSicherheitsbetrag.Name = "txtCRNSicherheitsbetrag" + Me.txtCRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24) + Me.txtCRNSicherheitsbetrag.TabIndex = 29 + ' + 'txtCRNWarenwert + ' + Me.txtCRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRNWarenwert.Location = New System.Drawing.Point(1072, 204) + Me.txtCRNWarenwert.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRNWarenwert.Name = "txtCRNWarenwert" + Me.txtCRNWarenwert.Size = New System.Drawing.Size(100, 24) + Me.txtCRNWarenwert.TabIndex = 28 + ' + 'txtCRN + ' + Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRN.Location = New System.Drawing.Point(708, 204) + Me.txtCRN.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRN.Name = "txtCRN" + Me.txtCRN.Size = New System.Drawing.Size(205, 24) + Me.txtCRN.TabIndex = 25 + ' + 'txtMRNSicherheitsbetrag + ' + 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 + ' + 'txtMRNWarenwert + ' + 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 + ' + 'txtMRN + ' + 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 + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + 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(1340, 15) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(32, 33) + Me.FlatButton1.TabIndex = 3 + Me.FlatButton1.UseVisualStyleBackColor = False + ' + '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(1010, 190) + Me.lblZollsatz.Name = "lblZollsatz" + Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) + Me.lblZollsatz.TabIndex = 4 + 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(1010, 168) + Me.lblReferenzwert.Name = "lblReferenzwert" + Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) + Me.lblReferenzwert.TabIndex = 1 + Me.lblReferenzwert.Text = "Referenzwert: €80.000" + ' + '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(1152, 160) + Me.lblSaldo.Name = "lblSaldo" + Me.lblSaldo.Size = New System.Drawing.Size(147, 24) + Me.lblSaldo.TabIndex = 5 + Me.lblSaldo.Text = "Saldo: €80.000" + ' + '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.Panel1) + Me.panOben.Controls.Add(Me.btnDeleteClose) + Me.panOben.Controls.Add(Me.btnDeleteOpen) + Me.panOben.Controls.Add(Me.btnUpdateClose) + Me.panOben.Controls.Add(Me.btnUpdateOpen) + Me.panOben.Controls.Add(Me.Label15) + Me.panOben.Controls.Add(Me.txtPos) + Me.panOben.Controls.Add(Me.Label14) + Me.panOben.Controls.Add(Me.txtEust) + Me.panOben.Controls.Add(Me.Label13) + Me.panOben.Controls.Add(Me.cboATR) + Me.panOben.Controls.Add(Me.Label7) + Me.panOben.Controls.Add(Me.Label8) + Me.panOben.Controls.Add(Me.Label9) + Me.panOben.Controls.Add(Me.Label10) + Me.panOben.Controls.Add(Me.Label11) + Me.panOben.Controls.Add(Me.Label12) + Me.panOben.Controls.Add(Me.Label6) + Me.panOben.Controls.Add(Me.Label5) + Me.panOben.Controls.Add(Me.Label4) + Me.panOben.Controls.Add(Me.Label3) + Me.panOben.Controls.Add(Me.Label2) + Me.panOben.Controls.Add(Me.Label1) + Me.panOben.Controls.Add(Me.txtFreitextClose) + Me.panOben.Controls.Add(Me.txtFreitextOpen) + Me.panOben.Controls.Add(Me.btnAddClose) + Me.panOben.Controls.Add(Me.btnAddOpen) + 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.btnSaveOben) + Me.panOben.Controls.Add(Me.txtCRNSicherheitsbetrag) + Me.panOben.Controls.Add(Me.txtCRNWarenwert) + Me.panOben.Controls.Add(Me.txtCRN) + Me.panOben.Controls.Add(Me.txtMRNSicherheitsbetrag) + Me.panOben.Controls.Add(Me.txtMRNWarenwert) + Me.panOben.Controls.Add(Me.txtMRN) + Me.panOben.Controls.Add(Me.FlatButton1) + Me.panOben.Controls.Add(Me.lblZollsatz) + Me.panOben.Controls.Add(Me.lblReferenzwert) + Me.panOben.Controls.Add(Me.lblSaldo) + Me.panOben.Dock = System.Windows.Forms.DockStyle.Top + Me.panOben.Location = New System.Drawing.Point(0, 0) + Me.panOben.Margin = New System.Windows.Forms.Padding(0) + Me.panOben.Name = "panOben" + Me.panOben.Size = New System.Drawing.Size(1384, 290) + Me.panOben.TabIndex = 0 + ' + '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.Button7) + Me.Panel1.Controls.Add(Me.Button6) + Me.Panel1.Controls.Add(Me.Button5) + 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.MyComboBox1) + Me.Panel1.Controls.Add(Me.Label19) + Me.Panel1.Controls.Add(Me.MyComboBox2) + Me.Panel1.Controls.Add(Me.FlatButton2) + Me.Panel1.Controls.Add(Me.TextBox1) + Me.Panel1.Controls.Add(Me.TextBox2) + Me.Panel1.Controls.Add(Me.Label20) + Me.Panel1.Controls.Add(Me.Label21) + Me.Panel1.Controls.Add(Me.Label22) + Me.Panel1.Location = New System.Drawing.Point(0, 44) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1316, 97) + Me.Panel1.TabIndex = 10 + Me.Panel1.Visible = False + ' + '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(921, 5) + 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.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" + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(284, 7) + Me.Button7.Margin = New System.Windows.Forms.Padding(0) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(34, 23) + Me.Button7.TabIndex = 26 + Me.Button7.Text = ">>" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button6.ForeColor = System.Drawing.Color.Black + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(165, 7) + Me.Button6.Margin = New System.Windows.Forms.Padding(0) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(34, 23) + Me.Button6.TabIndex = 24 + Me.Button6.Text = "<<" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(198, 7) + Me.Button5.Margin = New System.Windows.Forms.Padding(0) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(87, 23) + Me.Button5.TabIndex = 25 + Me.Button5.Text = "Heute" + Me.Button5.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(1194, 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 + ' + '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(139, 5) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(24, 15) + Me.Label23.TabIndex = 13 + Me.Label23.Text = "Bis" + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.DropDownWidth = 300 + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(336, 13) + Me.MyComboBox1.MaxLength = 4 + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(95, 24) + Me.MyComboBox1.TabIndex = 9 + ' + 'Label19 + ' + 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(333, 0) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(63, 13) + Me.Label19.TabIndex = 8 + Me.Label19.Text = "Warenort:" + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.DropDownWidth = 300 + Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(456, 16) + Me.MyComboBox2.MaxLength = 4 + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(95, 21) + Me.MyComboBox2.TabIndex = 2 + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.BackColor = System.Drawing.Color.Gainsboro + 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(1194, 16) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(75, 23) + Me.FlatButton2.TabIndex = 7 + Me.FlatButton2.Text = "Speichern" + Me.FlatButton2.UseVisualStyleBackColor = False + ' + 'TextBox1 + ' + 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(728, 16) + Me.TextBox1.Margin = New System.Windows.Forms.Padding(0) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(79, 24) + Me.TextBox1.TabIndex = 6 + ' + 'TextBox2 + ' + Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox2.Location = New System.Drawing.Point(571, 16) + Me.TextBox2.Margin = New System.Windows.Forms.Padding(0) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(122, 24) + Me.TextBox2.TabIndex = 4 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(725, 0) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(55, 13) + Me.Label20.TabIndex = 5 + Me.Label20.Text = "LKW-ID:" + ' + 'Label21 + ' + 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(568, 0) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(125, 13) + Me.Label21.TabIndex = 3 + Me.Label21.Text = "Abfertigungsnummer:" + ' + '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(453, 0) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(44, 13) + Me.Label22.TabIndex = 1 + Me.Label22.Text = "Filiale:" + ' + 'btnDeleteClose + ' + Me.btnDeleteClose.allowBorder = False + Me.btnDeleteClose.BackColor = System.Drawing.Color.White + Me.btnDeleteClose.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteClose.FlatAppearance.BorderSize = 0 + Me.btnDeleteClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteClose.ForeColor = System.Drawing.Color.Black + Me.btnDeleteClose.Location = New System.Drawing.Point(1348, 74) + Me.btnDeleteClose.Name = "btnDeleteClose" + Me.btnDeleteClose.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteClose.TabIndex = 7 + Me.btnDeleteClose.UseVisualStyleBackColor = False + Me.btnDeleteClose.Visible = False + ' + 'btnDeleteOpen + ' + Me.btnDeleteOpen.allowBorder = False + Me.btnDeleteOpen.BackColor = System.Drawing.Color.White + Me.btnDeleteOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteOpen.FlatAppearance.BorderSize = 0 + Me.btnDeleteOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteOpen.ForeColor = System.Drawing.Color.Black + Me.btnDeleteOpen.Location = New System.Drawing.Point(654, 175) + Me.btnDeleteOpen.Name = "btnDeleteOpen" + Me.btnDeleteOpen.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteOpen.TabIndex = 6 + Me.btnDeleteOpen.UseVisualStyleBackColor = False + Me.btnDeleteOpen.Visible = False + ' + 'btnUpdateClose + ' + Me.btnUpdateClose.allowBorder = False + Me.btnUpdateClose.BackColor = System.Drawing.Color.White + Me.btnUpdateClose.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateClose.FlatAppearance.BorderSize = 0 + Me.btnUpdateClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateClose.ForeColor = System.Drawing.Color.Black + Me.btnUpdateClose.Location = New System.Drawing.Point(1348, 136) + Me.btnUpdateClose.Name = "btnUpdateClose" + Me.btnUpdateClose.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateClose.TabIndex = 37 + Me.btnUpdateClose.UseVisualStyleBackColor = False + Me.btnUpdateClose.Visible = False + ' + 'btnUpdateOpen + ' + Me.btnUpdateOpen.allowBorder = False + Me.btnUpdateOpen.BackColor = System.Drawing.Color.White + Me.btnUpdateOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateOpen.FlatAppearance.BorderSize = 0 + Me.btnUpdateOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateOpen.ForeColor = System.Drawing.Color.Black + Me.btnUpdateOpen.Location = New System.Drawing.Point(654, 237) + Me.btnUpdateOpen.Name = "btnUpdateOpen" + Me.btnUpdateOpen.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateOpen.TabIndex = 35 + Me.btnUpdateOpen.UseVisualStyleBackColor = False + Me.btnUpdateOpen.Visible = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label15.Location = New System.Drawing.Point(242, 191) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(25, 13) + Me.Label15.TabIndex = 9 + Me.Label15.Text = "Pos" + ' + 'txtPos + ' + 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 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Enabled = False + Me.Label14.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label14.Location = New System.Drawing.Point(194, 237) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(59, 13) + Me.Label14.TabIndex = 33 + Me.Label14.Text = "19% EUST" + ' + 'txtEust + ' + 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 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Enabled = False + Me.Label13.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label13.Location = New System.Drawing.Point(76, 234) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(73, 13) + Me.Label13.TabIndex = 32 + Me.Label13.Text = "A.TR Ja/Nein" + ' + 'cboATR + ' + 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 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label7.Location = New System.Drawing.Point(1014, 237) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(41, 13) + Me.Label7.TabIndex = 36 + Me.Label7.Text = "Freitext" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label8.Location = New System.Drawing.Point(1075, 191) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(59, 13) + Me.Label8.TabIndex = 17 + Me.Label8.Text = "Warenwert" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label9.Location = New System.Drawing.Point(1169, 191) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(89, 13) + Me.Label9.TabIndex = 18 + Me.Label9.Text = "Sicherheitsbetrag" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label10.Location = New System.Drawing.Point(1003, 191) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(40, 13) + Me.Label10.TabIndex = 16 + Me.Label10.Text = "Uhrzeit" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label11.Location = New System.Drawing.Point(918, 191) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(38, 13) + Me.Label11.TabIndex = 15 + Me.Label11.Text = "Datum" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label12.Location = New System.Drawing.Point(765, 191) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(64, 13) + Me.Label12.TabIndex = 14 + Me.Label12.Text = "ATC / MRN" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label6.Location = New System.Drawing.Point(364, 237) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(41, 13) + Me.Label6.TabIndex = 34 + Me.Label6.Text = "Freitext" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label5.Location = New System.Drawing.Point(426, 191) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(59, 13) + Me.Label5.TabIndex = 12 + Me.Label5.Text = "Warenwert" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label4.Location = New System.Drawing.Point(520, 191) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(89, 13) + Me.Label4.TabIndex = 13 + Me.Label4.Text = "Sicherheitsbetrag" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label3.Location = New System.Drawing.Point(365, 191) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(40, 13) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "Uhrzeit" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label2.Location = New System.Drawing.Point(274, 191) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(38, 13) + Me.Label2.TabIndex = 10 + Me.Label2.Text = "Datum" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label1.Location = New System.Drawing.Point(76, 191) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(70, 13) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "ATB Nummer" + ' + 'txtFreitextClose + ' + Me.txtFreitextClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFreitextClose.Location = New System.Drawing.Point(1017, 250) + Me.txtFreitextClose.Margin = New System.Windows.Forms.Padding(0) + Me.txtFreitextClose.Name = "txtFreitextClose" + Me.txtFreitextClose.Size = New System.Drawing.Size(255, 24) + Me.txtFreitextClose.TabIndex = 41 + ' + 'txtFreitextOpen + ' + 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 + ' + '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 + ' + 'frmGesamtsicherheitenNEU + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1384, 776) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.panOben) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximumSize = New System.Drawing.Size(1400, 815) + Me.MinimumSize = New System.Drawing.Size(1400, 815) + Me.Name = "frmGesamtsicherheitenNEU" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "frmGesSich" + CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.panOverlay.ResumeLayout(False) + Me.panOverlay.PerformLayout() + CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).EndInit() + Me.panOben.ResumeLayout(False) + Me.panOben.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents dgvGesamtsicherheitMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Panel2 As Panel + Friend WithEvents dgvGesamtsicherheitCRN As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents btnAddClose As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnAddOpen 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 btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents txtCRNSicherheitsbetrag As TextBox + Friend WithEvents txtCRNWarenwert As TextBox + Friend WithEvents txtCRN As TextBox + Friend WithEvents txtMRNSicherheitsbetrag As TextBox + Friend WithEvents txtMRNWarenwert As TextBox + Friend WithEvents txtMRN As TextBox + Friend WithEvents FlatButton1 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 txtFreitextClose As TextBox + Friend WithEvents txtFreitextOpen As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents txtEust As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents cboATR As ComboBox + Friend WithEvents Label7 As Label + Friend WithEvents Label8 As Label + Friend WithEvents Label9 As Label + Friend WithEvents Label10 As Label + Friend WithEvents Label11 As Label + Friend WithEvents Label12 As Label + Friend WithEvents Label6 As Label + Friend WithEvents Label5 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents Label15 As Label + Friend WithEvents txtPos As TextBox + Friend WithEvents panOverlay As Panel + Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents txtLKWID As TextBox + Friend WithEvents txtAbfertNum As TextBox + Friend WithEvents Label18 As Label + Friend WithEvents Label17 As Label + Friend WithEvents Label16 As Label + Friend WithEvents btnClosePanOverlay As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents btnUpdateClose As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnUpdateOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnDeleteClose As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnDeleteOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblWarenort As Label + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents ClosedErzeugenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Panel1 As Panel + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label19 As Label + Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents TextBox1 As TextBox + Friend WithEvents TextBox2 As TextBox + Friend WithEvents Label20 As Label + 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 Button7 As Button + Friend WithEvents Button6 As Button + Friend WithEvents Button5 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 +End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.resx b/Aviso/frmGesamtsicherheitenNEU.resx new file mode 100644 index 0000000..2cbc5c2 --- /dev/null +++ b/Aviso/frmGesamtsicherheitenNEU.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/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb new file mode 100644 index 0000000..1a967c3 --- /dev/null +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -0,0 +1,704 @@ +Imports System.Reflection +Imports DocumentFormat.OpenXml.Bibliography +Imports DocumentFormat.OpenXml.Presentation +Imports DocumentFormat.OpenXml.Spreadsheet +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmGesamtsicherheitenNEU + + Public Property gessicherheitID As Integer + Public Property datum As DateTime = Nothing + Property GesSichRef As cGesamtsicherheitsReferenz + Property GesSichPos As cGesamtssicherheitsPositionen + Property Standort As String = "" + + Public ZollsatzMulti As Double = 0 + + Public Saldo As Integer = 0 + + Public Neu As Boolean = False + + Public FilialNummer As Integer + + Public Abfertigungsnummer As String + + Public LKWID As String + + Public warenortID As String + + Dim openopened As cSicherheiten + + Dim closedopened As cSicherheiten + + Dim sicherheiten As cSicherheiten + + 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 FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + + Dim dgv As String = "" + For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns + dgv &= c.Width & c.HeaderText & vbCrLf + Next + ' MsgBox(dgv) + LoadDGV() + GesSichRef.LOAD() + LoadStandort() + End Sub + + Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + If setNullToZero(gessicherheitID) = "" Or Neu = True Then + panOben.Enabled = False : panOben.Enabled = False + 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) + If datum = Nothing Then datum = Date.Now + Else + LoadDGV() + End If + LoadStandort() + cboATR.Enabled = GesSichRef.gsr_ATR + + Me.Text = "Gesamtsicherheit " & Standort + frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN) + End Sub + + + Public Sub LoadDGV() + 'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N") + lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString() + lblGestellungNr.Text = "" + Dim sqladd1 As String = "" + If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust" + If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]" + + + 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_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]" + dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) + dgvGesamtsicherheitMRN.LOAD() + + Dim SQLStringCRN As String = "select [gs_gsId], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]" + dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,) + dgvGesamtsicherheitCRN.LOAD() + + Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) + + If dt.Rows.Count > 0 Then + 'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr") + 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.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 dgvGesamtsicherheitMRN.Columns.Count > 0 Then + With dgvGesamtsicherheitMRN + .RowHeadersWidth = 10 + .Columns("gs_gsId").Visible = False + .Columns("gs_warenwert").DefaultCellStyle.Format = "c" + .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").Visible = False + Select Case GesSichRef.gsr_ATR + Case True + .Columns("gs_ATBNr").HeaderText = "ATB" + .Columns("gs_atr").HeaderText = "ATR" + .Columns("gs_atr").Width = 33 + .Columns("gs_ust").Width = 69 + Case Else + .Columns("gs_ATBNr").HeaderText = "CRN" + End Select + .Columns("gs_ATBNr").Width = 146 + + .Columns("gs_posNr").Width = 20 + .Columns("gs_datum").Width = 95 + .Columns("gs_warenwert").Width = 100 + .Columns("gs_saldo").Width = 100 + + .Columns("gs_sicherheitsbetrag").Width = 100 + .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + End With + ' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns + 'col.Width = 120 + 'Next + End If + + If dgvGesamtsicherheitCRN.Columns.Count > 0 Then + With dgvGesamtsicherheitCRN + .RowHeadersWidth = 10 + .Columns("gs_gsId").Visible = False + .Columns("gs_warenwert").DefaultCellStyle.Format = "c" + .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").Visible = False + Select Case GesSichRef.gsr_ATR + Case True + .Columns("gs_ATBNr").HeaderText = "ATC / MRN" + Case Else + .Columns("gs_ATBNr").HeaderText = "CRN" + End Select + .Columns("gs_ATBNr").Width = 120 + .Columns("gs_datum").Width = 140 + .Columns("gs_warenwert").Width = 100 + .Columns("gs_sicherheitsbetrag").Width = 100 + .Columns("gs_freitext").Width = 220 + End With + 'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns + ' col.Width = 120 + 'Next + End If + + + End Sub + + + Public Sub LoadStandort() + 'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & Standort & "'" + 'Dim dt As New DataTable + 'dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) + 'Zollsatz = dt.Rows(0).Item("Zollsatz") + 'Referenzwert = dt.Rows(0).Item("Referenzwert") + + 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") + lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() + lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" + ZollsatzMulti = GesSichRef.gsr_zollsatz / 100 + End Sub + + + + 'Private Sub CalcSaldo() + ' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]" + ' Dim dt As New DataTable + ' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) + ' Dim mrn As Integer = dt.Rows(0).Item(0) + ' Dim crn As Integer = dt.Rows(0).Item(1) + + ' Saldo = Referenzwert - mrn + crn + + ' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N") + 'End Sub + + + Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged + Try + Select Case sender.name + Case "txtMRNWarenwert" + txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") + If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100) + Case "txtCRNWarenwert" + txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.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, txtCRNWarenwert.KeyPress, txtPos.KeyPress + Select Case Asc(e.KeyChar) + Case 48 To 57, 8, 44 + ' Zahlen, Backspace und , zulassen + + Case Else + ' alle anderen Eingaben unterdrücken + e.Handled = True + 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 + Select Case Asc(e.KeyChar) + Case 48 To 57, 8, 46, 58 + ' Zahlen, Backspace, . und : zulassen + + Case Else + ' alle anderen Eingaben unterdrücken + e.Handled = True + End Select + End Sub + + + 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 ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) + MsgBox(ab.ToString) + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtMRNDate.GotFocus, txtCRNDate.GotFocus, txtMRNTime.GotFocus, txtCRNTime.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") + End Select + End Sub + + Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click + Try + + If Integer.Parse(setNullToZero(txtPos.Text)) > 1 Then + + Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text)) + + For count As Integer = 1 To limit + If (count > 1) Then txtMRNWarenwert.Text = 0 + Dim OPENWithMultiplePosNr As New cSicherheiten() + + With OPENWithMultiplePosNr + .gs_ATBNr = txtMRN.Text + .gs_posNr = count + .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) + .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextOpen.Text + .gs_saldo = GesSichRef.gsr_Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + setEnviromentDataToObject(OPENWithMultiplePosNr, 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 + + Next + + AfterButton() + + Else + + 'Dim OPEN As New cSicherheiten(Me) + 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_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextOpen.Text + .gs_saldo = GesSichRef.gsr_Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + setEnviromentDataToObject(OPEN, Me) + End With + + + If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) + Case "Neu" + OPEN.SAVE() + Case Else + MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() + End Select + + + AfterButton() + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click + Try + 'Dim Close As New cSicherheiten(Me) + Dim Close As New cSicherheiten() + With Close + .gs_ATBNr = txtCRN.Text + .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) + .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "CLOSE" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextClose.Text + .gs_saldo = GesSichRef.gsr_Saldo + End With + + If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID) + Case "Neu" + Close.SAVE() + Case Else + MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub + End Select + + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + 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 + Sub AfterButton() + GesSichRef.CalcSaldo() + LoadDGV() + EmptyTXT() + End Sub + + Public Function AddNewGesamtSichNr() As Integer + Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) + Dim LetzteGesSichNum As Integer = -1 + If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + + LetzteGesSichNum = dt.Rows(0).Item(0) + Me.gessicherheitID = LetzteGesSichNum + 1 + Me.Neu = False + + End If + + Return Me.gessicherheitID + End Function + + Public Sub EmptyTXT() + Dim a As New List(Of Windows.Forms.Control) + 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 + End Sub + + Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String + If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID + + Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_ATBNr] = '" & KennnummerStr & "'" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True) + If dt.Rows.Count > 0 Then + Return dt.Rows(0).Item("gs_gsNr").ToString + Else + Return "Neu" + End If + End Function + + Public Function DateTimeString2DateTimeKonvertinator(datum As String, uhrzeit As String) As DateTime + Try + Dim a As Date = Date.ParseExact(datum, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim b As Date = Date.ParseExact(uhrzeit, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) + + Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) + Return ab + Catch ex As Exception + MsgBox(ex.Message) + Return Date.Now + End Try + End Function + + + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click + + If checkMandatoryFieldsAreFilled() = False Then Exit Sub + + Try + Me.FilialNummer = checkNothingValue(cboFiliale.SelectedItem, "Integer") + Catch + Me.FilialNummer = "0" + End Try + + Try + Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String") + + Catch + Me.warenortID = "-" + End Try + + Me.Abfertigungsnummer = txtAbfertNum.Text + Me.LKWID = 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 & "' " + SQL.doSQL(sqlstring, "AVISO") + LoadDGV() + End If + + panOben.Enabled = True : panOben.Enabled = True + panOverlay.Visible = False + End Sub + + Private Function checkNothingValue(obj As Object, Optional type As String = "String") As Object + Select Case type + Case "String" + If obj Is Nothing Then + Return "" + Else + Return obj.value.ToString + End If + Case "Integer" + If obj Is Nothing Then + Return Nothing + Else + Return Integer.Parse(obj.value) + End If + End Select + + + End Function + + Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick + + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value) + 'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").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") + + openopened = Sicherh + + btnAddOpen.Visible = False + btnUpdateOpen.Visible = True + btnDeleteOpen.Visible = True + End Sub + + Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click + With openopened + .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_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + '.MakeDate = Me.MakeDate + .gs_freitext = Me.txtFreitextOpen.Text + '.saldo = GesSichRef.Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + End With + openopened.SAVE() + btnUpdateOpen.Visible = False + btnAddOpen.Visible = True + btnDeleteOpen.Visible = False + AfterButton() + End Sub + + Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click + With closedopened + .gs_ATBNr = txtCRN.Text + .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) + .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "CLOSE" + .gs_freitext = Me.txtFreitextClose.Text + End With + closedopened.SAVE() + btnAddClose.Visible = True + btnUpdateClose.Visible = False + btnDeleteClose.Visible = False + AfterButton() + End Sub + + Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitCRN.CellDoubleClick + + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) + 'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) + + txtCRN.Text = Sicherh.gs_ATBNr + txtCRNWarenwert.Text = Sicherh.gs_warenwert + txtFreitextClose.Text = Sicherh.gs_freitext + txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") + txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") + + closedopened = Sicherh + + btnDeleteClose.Visible = True + btnAddClose.Visible = False + btnUpdateClose.Visible = True + End Sub + + Private Sub btnDeleteOpen_Click(sender As Object, e As EventArgs) Handles btnDeleteOpen.Click + Try + openopened.Delete() + btnUpdateOpen.Visible = False + btnAddOpen.Visible = True + btnDeleteOpen.Visible = False + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub btnDeleteClose_Click_1(sender As Object, e As EventArgs) Handles btnDeleteClose.Click + Try + closedopened.Delete() + btnUpdateClose.Visible = False + btnAddClose.Visible = True + btnDeleteClose.Visible = False + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub lblGestellungNr_Click(sender As Object, e As EventArgs) Handles lblGestellungNr.DoubleClick + 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) + cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer) + cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + cboWarenort.SelectedIndex = cboWarenort.FindString(Me.warenortID) + txtAbfertNum.Text = Me.Abfertigungsnummer + txtLKWID.Text = Me.LKWID + panOben.Enabled = False + End Sub + + Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click + Close() + End Sub + + Private Function checkMandatoryFieldsAreFilled() As Boolean + Dim isFilled = True + + If cboWarenort._value = Nothing Or cboWarenort._value = "" Then + + MsgBox("Bitte Warenort angeben!") + isFilled = False + End If + + Return isFilled + + End Function + + Private Sub setEnviromentDataToObject(sicherheiten As cSicherheiten, Optional ByVal gessich As frmGesamtsicherheitenNEU = Nothing) + + sicherheiten.gs_filialenNr = gessich.FilialNummer + sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer + sicherheiten.gs_LKWID = gessich.LKWID + sicherheiten.gs_warenort = gessich.warenortID + End Sub + + Private Sub ClosedErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClosedErzeugenToolStripMenuItem.Click + MsgBox("") + End Sub + 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" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + 'End If + Case "Tag" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = srcTAG + DateTimePicker2.Value = srcTAG + If srcTAG = Now.ToShortDateString Then + Button5.Text = "Heute" + ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then + Button5.Text = "Gestern" + ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then + Button5.Text = "Vorgestern" + Else + Button5.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 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 btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + 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 + + +End Class +