edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feature_gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2022-10-21 17:01:56 +02:00
parent ed4e9bc99b
commit 3d5f7302dd
9 changed files with 1617 additions and 704 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -545,6 +545,12 @@
<Compile Include="frmFreigabeSetzenAnhaenge.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGesamtsicherheitenMenuNEU.Designer.vb">
<DependentUpon>frmGesamtsicherheitenMenuNEU.vb</DependentUpon>
</Compile>
<Compile Include="frmGesamtsicherheitenMenuNEU.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGesamtsicherheitenNEU.Designer.vb">
<DependentUpon>frmGesamtsicherheitenNEU.vb</DependentUpon>
</Compile>
@@ -1079,6 +1085,9 @@
<EmbeddedResource Include="frmFreigabeSetzenAnhaenge.resx">
<DependentUpon>frmFreigabeSetzenAnhaenge.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGesamtsicherheitenMenuNEU.resx">
<DependentUpon>frmGesamtsicherheitenMenuNEU.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGesamtsicherheitenNEU.resx">
<DependentUpon>frmGesamtsicherheitenNEU.vb</DependentUpon>
</EmbeddedResource>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.1.5")>
<Assembly: AssemblyFileVersion("3.8.1.5")>
<Assembly: AssemblyVersion("3.8.1.6")>
<Assembly: AssemblyFileVersion("3.8.1.6")>

2
Aviso/frmGesamtsicherheiten.vb
View File

@@ -611,7 +611,7 @@ Public Class frmGesamtsicherheiten
sicherheiten.gs_filialenNr = gessich.FilialNummer
sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
sicherheiten.gs_LKWID = gessich.LKWID
sicherheiten.gs_LKWKZ = gessich.LKWID
sicherheiten.gs_warenort = gessich.warenortID
End Sub

697
Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb generated Normal file
View File

@@ -0,0 +1,697 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmGesamtsicherheitenMenuNEU
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
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.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenMenuNEU))
Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label26 = New System.Windows.Forms.Label()
Me.btnBisTag = New System.Windows.Forms.Button()
Me.btnVonTag = New System.Windows.Forms.Button()
Me.btnTag = New System.Windows.Forms.Button()
Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.btnJahr = New System.Windows.Forms.Button()
Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = New System.Windows.Forms.Button()
Me.btnMonat = New System.Windows.Forms.Button()
Me.btnBisMonat = New System.Windows.Forms.Button()
Me.btnVonMonat = New System.Windows.Forms.Button()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label25 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblFiliale = New System.Windows.Forms.Label()
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtSuchbegriff = New System.Windows.Forms.TextBox()
Me.chkOffen = New System.Windows.Forms.CheckBox()
Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblSaldo = New System.Windows.Forms.Label()
Me.lblZollsatz = New System.Windows.Forms.Label()
Me.lblReferenzwert = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'dgvListe
'
Me.dgvListe.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvListe.AllowUserToAddRows = False
Me.dgvListe.AllowUserToDeleteRows = False
Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvListe.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvListe.Location = New System.Drawing.Point(0, 313)
Me.dgvListe.Name = "dgvListe"
Me.dgvListe.ReadOnly = True
Me.dgvListe.Size = New System.Drawing.Size(502, 408)
Me.dgvListe.TabIndex = 1
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.txtDatBis)
Me.Panel1.Controls.Add(Me.Label26)
Me.Panel1.Controls.Add(Me.btnBisTag)
Me.Panel1.Controls.Add(Me.btnVonTag)
Me.Panel1.Controls.Add(Me.btnTag)
Me.Panel1.Controls.Add(Me.txtDatVon)
Me.Panel1.Controls.Add(Me.Label24)
Me.Panel1.Controls.Add(Me.btnJahr)
Me.Panel1.Controls.Add(Me.btnBisJahr)
Me.Panel1.Controls.Add(Me.btnVonJahr)
Me.Panel1.Controls.Add(Me.btnMonat)
Me.Panel1.Controls.Add(Me.btnBisMonat)
Me.Panel1.Controls.Add(Me.btnVonMonat)
Me.Panel1.Controls.Add(Me.DateTimePicker2)
Me.Panel1.Controls.Add(Me.Label25)
Me.Panel1.Controls.Add(Me.DateTimePicker1)
Me.Panel1.Controls.Add(Me.cbxWarenort)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.cbxStandort)
Me.Panel1.Controls.Add(Me.lblFiliale)
Me.Panel1.Controls.Add(Me.FlatButton2)
Me.Panel1.Controls.Add(Me.btnSucheStarten)
Me.Panel1.Controls.Add(Me.txtbis)
Me.Panel1.Controls.Add(Me.txtVon)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.FlatButton1)
Me.Panel1.Controls.Add(Me.txtSuchbegriff)
Me.Panel1.Controls.Add(Me.chkOffen)
Me.Panel1.Controls.Add(Me.btnNeu)
Me.Panel1.Controls.Add(Me.lblSaldo)
Me.Panel1.Controls.Add(Me.lblZollsatz)
Me.Panel1.Controls.Add(Me.lblReferenzwert)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(502, 313)
Me.Panel1.TabIndex = 0
'
'txtDatBis
'
Me.txtDatBis._DateTimeOnly = False
Me.txtDatBis._numbersOnly = False
Me.txtDatBis._numbersOnlyKommastellen = ""
Me.txtDatBis._numbersOnlyTrennzeichen = True
Me.txtDatBis._Prozent = False
Me.txtDatBis._ShortDateNew = False
Me.txtDatBis._ShortDateOnly = True
Me.txtDatBis._TimeOnly = False
Me.txtDatBis._TimeOnly_Seconds = False
Me.txtDatBis._value = ""
Me.txtDatBis._Waehrung = False
Me.txtDatBis._WaehrungZeichen = True
Me.txtDatBis.Enabled = False
Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatBis.ForeColor = System.Drawing.Color.Black
Me.txtDatBis.Location = New System.Drawing.Point(51, 170)
Me.txtDatBis.MaxLength = 10
Me.txtDatBis.MaxLineLength = -1
Me.txtDatBis.MaxLines_Warning = ""
Me.txtDatBis.MaxLines_Warning_Label = Nothing
Me.txtDatBis.Name = "txtDatBis"
Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
Me.txtDatBis.TabIndex = 52
'
'Label26
'
Me.Label26.AutoSize = True
Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label26.ForeColor = System.Drawing.Color.White
Me.Label26.Location = New System.Drawing.Point(22, 120)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(43, 13)
Me.Label26.TabIndex = 51
Me.Label26.Text = "Datum"
'
'btnBisTag
'
Me.btnBisTag.BackColor = System.Drawing.Color.White
Me.btnBisTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisTag.ForeColor = System.Drawing.Color.Black
Me.btnBisTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisTag.Location = New System.Drawing.Point(282, 115)
Me.btnBisTag.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisTag.Name = "btnBisTag"
Me.btnBisTag.Size = New System.Drawing.Size(34, 23)
Me.btnBisTag.TabIndex = 43
Me.btnBisTag.Text = ">>"
Me.btnBisTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisTag.UseVisualStyleBackColor = False
'
'btnVonTag
'
Me.btnVonTag.BackColor = System.Drawing.Color.White
Me.btnVonTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonTag.ForeColor = System.Drawing.Color.Black
Me.btnVonTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonTag.Location = New System.Drawing.Point(163, 115)
Me.btnVonTag.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonTag.Name = "btnVonTag"
Me.btnVonTag.Size = New System.Drawing.Size(34, 23)
Me.btnVonTag.TabIndex = 41
Me.btnVonTag.Text = "<<"
Me.btnVonTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonTag.UseVisualStyleBackColor = False
'
'btnTag
'
Me.btnTag.BackColor = System.Drawing.Color.White
Me.btnTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnTag.ForeColor = System.Drawing.Color.Black
Me.btnTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTag.Location = New System.Drawing.Point(196, 115)
Me.btnTag.Margin = New System.Windows.Forms.Padding(0)
Me.btnTag.Name = "btnTag"
Me.btnTag.Size = New System.Drawing.Size(87, 23)
Me.btnTag.TabIndex = 42
Me.btnTag.Text = "Heute"
Me.btnTag.UseVisualStyleBackColor = False
'
'txtDatVon
'
Me.txtDatVon._DateTimeOnly = False
Me.txtDatVon._numbersOnly = False
Me.txtDatVon._numbersOnlyKommastellen = ""
Me.txtDatVon._numbersOnlyTrennzeichen = True
Me.txtDatVon._Prozent = False
Me.txtDatVon._ShortDateNew = False
Me.txtDatVon._ShortDateOnly = True
Me.txtDatVon._TimeOnly = False
Me.txtDatVon._TimeOnly_Seconds = False
Me.txtDatVon._value = ""
Me.txtDatVon._Waehrung = False
Me.txtDatVon._WaehrungZeichen = True
Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatVon.ForeColor = System.Drawing.Color.Black
Me.txtDatVon.Location = New System.Drawing.Point(51, 146)
Me.txtDatVon.MaxLength = 10
Me.txtDatVon.MaxLineLength = -1
Me.txtDatVon.MaxLines_Warning = ""
Me.txtDatVon.MaxLines_Warning_Label = Nothing
Me.txtDatVon.Name = "txtDatVon"
Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
Me.txtDatVon.TabIndex = 37
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.ForeColor = System.Drawing.Color.White
Me.Label24.Location = New System.Drawing.Point(22, 173)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(23, 13)
Me.Label24.TabIndex = 40
Me.Label24.Text = "bis:"
'
'btnJahr
'
Me.btnJahr.BackColor = System.Drawing.Color.White
Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnJahr.ForeColor = System.Drawing.Color.Black
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnJahr.Location = New System.Drawing.Point(196, 167)
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnJahr.Name = "btnJahr"
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
Me.btnJahr.TabIndex = 49
Me.btnJahr.Text = "2016"
Me.btnJahr.UseVisualStyleBackColor = False
'
'btnBisJahr
'
Me.btnBisJahr.BackColor = System.Drawing.Color.White
Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.Location = New System.Drawing.Point(282, 167)
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisJahr.Name = "btnBisJahr"
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
Me.btnBisJahr.TabIndex = 50
Me.btnBisJahr.Text = ">>"
Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.UseVisualStyleBackColor = False
'
'btnVonJahr
'
Me.btnVonJahr.BackColor = System.Drawing.Color.White
Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.Location = New System.Drawing.Point(163, 167)
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonJahr.Name = "btnVonJahr"
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
Me.btnVonJahr.TabIndex = 48
Me.btnVonJahr.Text = "<<"
Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.UseVisualStyleBackColor = False
'
'btnMonat
'
Me.btnMonat.BackColor = System.Drawing.Color.White
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnMonat.ForeColor = System.Drawing.Color.Black
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMonat.Location = New System.Drawing.Point(196, 141)
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnMonat.Name = "btnMonat"
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
Me.btnMonat.TabIndex = 46
Me.btnMonat.Text = "September"
Me.btnMonat.UseVisualStyleBackColor = False
'
'btnBisMonat
'
Me.btnBisMonat.BackColor = System.Drawing.Color.White
Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.Location = New System.Drawing.Point(282, 141)
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisMonat.Name = "btnBisMonat"
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
Me.btnBisMonat.TabIndex = 47
Me.btnBisMonat.Text = ">>"
Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.UseVisualStyleBackColor = False
'
'btnVonMonat
'
Me.btnVonMonat.BackColor = System.Drawing.Color.White
Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.Location = New System.Drawing.Point(163, 141)
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonMonat.Name = "btnVonMonat"
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
Me.btnVonMonat.TabIndex = 45
Me.btnVonMonat.Text = "<<"
Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.UseVisualStyleBackColor = False
'
'DateTimePicker2
'
Me.DateTimePicker2.CustomFormat = "''"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(51, 170)
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
Me.DateTimePicker2.TabIndex = 39
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.ForeColor = System.Drawing.Color.White
Me.Label25.Location = New System.Drawing.Point(22, 149)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(28, 13)
Me.Label25.TabIndex = 44
Me.Label25.Text = "von:"
'
'DateTimePicker1
'
Me.DateTimePicker1.CustomFormat = "''"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(51, 145)
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
Me.DateTimePicker1.TabIndex = 38
'
'cbxWarenort
'
Me.cbxWarenort._allowedValuesFreiText = Nothing
Me.cbxWarenort._allowFreiText = False
Me.cbxWarenort._value = ""
Me.cbxWarenort.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.cbxWarenort.FormattingEnabled = True
Me.cbxWarenort.Location = New System.Drawing.Point(112, 67)
Me.cbxWarenort.Name = "cbxWarenort"
Me.cbxWarenort.Size = New System.Drawing.Size(81, 21)
Me.cbxWarenort.TabIndex = 17
'
'Label4
'
Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label4.ForeColor = System.Drawing.Color.Honeydew
Me.Label4.Location = New System.Drawing.Point(112, 49)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(60, 15)
Me.Label4.TabIndex = 16
Me.Label4.Text = "Warenort:"
'
'cbxStandort
'
Me.cbxStandort._allowedValuesFreiText = Nothing
Me.cbxStandort._allowFreiText = False
Me.cbxStandort._value = ""
Me.cbxStandort.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.cbxStandort.FormattingEnabled = True
Me.cbxStandort.Location = New System.Drawing.Point(12, 67)
Me.cbxStandort.Name = "cbxStandort"
Me.cbxStandort.Size = New System.Drawing.Size(81, 21)
Me.cbxStandort.TabIndex = 15
'
'lblFiliale
'
Me.lblFiliale.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblFiliale.AutoSize = True
Me.lblFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.lblFiliale.ForeColor = System.Drawing.Color.Honeydew
Me.lblFiliale.Location = New System.Drawing.Point(12, 49)
Me.lblFiliale.Name = "lblFiliale"
Me.lblFiliale.Size = New System.Drawing.Size(43, 15)
Me.lblFiliale.TabIndex = 14
Me.lblFiliale.Text = "Filiale:"
'
'FlatButton2
'
Me.FlatButton2.allowBorder = False
Me.FlatButton2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.FlatButton2.BackColor = System.Drawing.Color.White
Me.FlatButton2.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Location = New System.Drawing.Point(395, 281)
Me.FlatButton2.Name = "FlatButton2"
Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
Me.FlatButton2.TabIndex = 10
Me.FlatButton2.Text = "jedes Datum"
Me.FlatButton2.UseVisualStyleBackColor = False
Me.FlatButton2.Visible = False
'
'btnSucheStarten
'
Me.btnSucheStarten.allowBorder = False
Me.btnSucheStarten.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnSucheStarten.BackColor = System.Drawing.Color.White
Me.btnSucheStarten.FlatAppearance.BorderSize = 0
Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black
Me.btnSucheStarten.Location = New System.Drawing.Point(28, 269)
Me.btnSucheStarten.Name = "btnSucheStarten"
Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
Me.btnSucheStarten.TabIndex = 11
Me.btnSucheStarten.Text = "Suche starten"
Me.btnSucheStarten.UseVisualStyleBackColor = False
'
'txtbis
'
Me.txtbis._DateTimeOnly = False
Me.txtbis._numbersOnly = False
Me.txtbis._numbersOnlyKommastellen = ""
Me.txtbis._numbersOnlyTrennzeichen = True
Me.txtbis._Prozent = False
Me.txtbis._ShortDateNew = False
Me.txtbis._ShortDateOnly = False
Me.txtbis._TimeOnly = False
Me.txtbis._TimeOnly_Seconds = False
Me.txtbis._value = ""
Me.txtbis._Waehrung = False
Me.txtbis._WaehrungZeichen = True
Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.txtbis.ForeColor = System.Drawing.Color.Black
Me.txtbis.Location = New System.Drawing.Point(395, 257)
Me.txtbis.MaxLineLength = -1
Me.txtbis.MaxLines_Warning = ""
Me.txtbis.MaxLines_Warning_Label = Nothing
Me.txtbis.Name = "txtbis"
Me.txtbis.Size = New System.Drawing.Size(81, 20)
Me.txtbis.TabIndex = 8
Me.txtbis.Visible = False
'
'txtVon
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = False
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = ""
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(295, 257)
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.Size = New System.Drawing.Size(81, 20)
Me.txtVon.TabIndex = 7
Me.txtVon.Visible = False
'
'Label3
'
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label3.ForeColor = System.Drawing.Color.Honeydew
Me.Label3.Location = New System.Drawing.Point(392, 238)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(24, 15)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Bis"
Me.Label3.Visible = False
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label2.ForeColor = System.Drawing.Color.Honeydew
Me.Label2.Location = New System.Drawing.Point(295, 238)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 15)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Von"
Me.Label2.Visible = False
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label1.ForeColor = System.Drawing.Color.Honeydew
Me.Label1.Location = New System.Drawing.Point(12, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(45, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Suche:"
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.FlatButton1.BackColor = System.Drawing.Color.White
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh
Me.FlatButton1.Location = New System.Drawing.Point(233, 24)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(32, 33)
Me.FlatButton1.TabIndex = 2
Me.FlatButton1.UseVisualStyleBackColor = False
'
'txtSuchbegriff
'
Me.txtSuchbegriff.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 26)
Me.txtSuchbegriff.Name = "txtSuchbegriff"
Me.txtSuchbegriff.Size = New System.Drawing.Size(181, 20)
Me.txtSuchbegriff.TabIndex = 1
'
'chkOffen
'
Me.chkOffen.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.chkOffen.AutoSize = True
Me.chkOffen.Checked = True
Me.chkOffen.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkOffen.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.chkOffen.Location = New System.Drawing.Point(28, 221)
Me.chkOffen.Name = "chkOffen"
Me.chkOffen.Size = New System.Drawing.Size(120, 17)
Me.chkOffen.TabIndex = 12
Me.chkOffen.Text = "nur offene anzeigen"
Me.chkOffen.UseVisualStyleBackColor = True
'
'btnNeu
'
Me.btnNeu.allowBorder = False
Me.btnNeu.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnNeu.BackColor = System.Drawing.Color.White
Me.btnNeu.FlatAppearance.BorderSize = 0
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.ForeColor = System.Drawing.Color.Black
Me.btnNeu.Location = New System.Drawing.Point(163, 269)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(75, 23)
Me.btnNeu.TabIndex = 13
Me.btnNeu.Text = "Neu"
Me.btnNeu.UseVisualStyleBackColor = False
'
'lblSaldo
'
Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblSaldo.AutoSize = True
Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
Me.lblSaldo.Location = New System.Drawing.Point(294, 23)
Me.lblSaldo.Name = "lblSaldo"
Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
Me.lblSaldo.TabIndex = 3
Me.lblSaldo.Text = "Saldo: €80.000"
'
'lblZollsatz
'
Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblZollsatz.AutoSize = True
Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
Me.lblZollsatz.Location = New System.Drawing.Point(295, 85)
Me.lblZollsatz.Name = "lblZollsatz"
Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
Me.lblZollsatz.TabIndex = 9
Me.lblZollsatz.Text = "Zollsatz: 12%"
'
'lblReferenzwert
'
Me.lblReferenzwert.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblReferenzwert.AutoSize = True
Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
Me.lblReferenzwert.Location = New System.Drawing.Point(295, 58)
Me.lblReferenzwert.Name = "lblReferenzwert"
Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
Me.lblReferenzwert.TabIndex = 6
Me.lblReferenzwert.Text = "Referenzwert: €80.000"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
'
'ExportCSVToolStripMenuItem
'
Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
'
'frmGesamtsicherheitenMenuNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(502, 721)
Me.Controls.Add(Me.dgvListe)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(800, 760)
Me.MinimumSize = New System.Drawing.Size(499, 760)
Me.Name = "frmGesamtsicherheitenMenuNEU"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmGesSichMenu"
CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents dgvListe As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel1 As Panel
Friend WithEvents lblSaldo As Label
Friend WithEvents lblZollsatz As Label
Friend WithEvents lblReferenzwert As Label
Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents chkOffen As CheckBox
Friend WithEvents txtSuchbegriff As TextBox
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtbis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ExportCSVToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblFiliale As Label
Friend WithEvents cbxStandort As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label
Friend WithEvents txtDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label26 As Label
Friend WithEvents btnBisTag As Button
Friend WithEvents btnVonTag As Button
Friend WithEvents btnTag As Button
Friend WithEvents txtDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label24 As Label
Friend WithEvents btnJahr As Button
Friend WithEvents btnBisJahr As Button
Friend WithEvents btnVonJahr As Button
Friend WithEvents btnMonat As Button
Friend WithEvents btnBisMonat As Button
Friend WithEvents btnVonMonat As Button
Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents Label25 As Label
Friend WithEvents DateTimePicker1 As DateTimePicker
End Class

200
Aviso/frmGesamtsicherheitenMenuNEU.resx Normal file
View File

@@ -0,0 +1,200 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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=
</value>
</data>
</root>

336
Aviso/frmGesamtsicherheitenMenuNEU.vb Normal file
View File

@@ -0,0 +1,336 @@
Imports System.Reflection
Public Class frmGesamtsicherheitenMenuNEU
Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
Dim dt As DataTable
Public Property Standort As String = ""
Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
'GesSichRef.LOAD("standort", Standort)
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
'txtDatVon._ShortDateOnly = True
'txtDatBis._ShortDateOnly = True
txtDatVon.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
txtDatBis.Text = Now.ToShortDateString
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
'txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
'txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
ShowStandort()
LoadDGV()
End Sub
Public Function LoadDGV()
Dim sqladdon As String = ""
If chkOffen.Checked Then sqladdon &= " AND gs_Sicherheitssaldo != '0,00 €'"
If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'"
If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
Dim sqlstring As String =
" select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr,
max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(SUM(
Case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
when gs_art = 'Close' then gs_sicherheitsbetrag
End) , 'C', 'de-DE')As gs_SicherheitsSaldo
From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where
gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
gs_warenort like '%" & txtSuchbegriff.Text & "%'
) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2
Where gs_standort = '" & Standort & "' " & sqladdon & "
AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "'
AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'"
dgvListe.SET_SQL(sqlstring, "AVISO")
dgvListe.LOAD()
With dgvListe
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.RowHeadersWidth = 6
.Columns("gs_standort").Visible = False
.Columns("gs_gsnr").HeaderText = "#"
.Columns("gs_gsnr").Width = 36
.Columns("gs_filialenNr").HeaderText = "Filiale"
.Columns("gs_filialenNr").Width = 43
.Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
.Columns("gs_abfertigungsNr").Width = 107
.Columns("gs_datum").Width = 112
.Columns("gs_SicherheitsSaldo").Width = 106
.Columns("gs_Warenort").Width = 96
.Columns("gs_Warenort").HeaderText = "Warenort"
End With
For Each row As DataGridViewRow In dgvListe.Rows
If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
row.DefaultCellStyle.BackColor = Color.Red
Else
row.DefaultCellStyle.BackColor = Color.Green
End If
Next
End Function
Public Sub ShowStandort()
'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
End Sub
Private Sub OpenFRM(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListe.CellDoubleClick
Dim frm As New frmGesamtsicherheitenNEU
With frm
.currentGesSichRef = GesSichRef
.gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
.Standort = Me.Standort
.datum = dgvListe.CurrentRow.Cells("gs_datum").Value
.LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value
.FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
.warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()
ShowStandort()
LoadDGV()
Me.BringToFront()
End Function
frm.Show()
End Sub
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
Dim frm As New frmGesamtsicherheitenNEU
With frm
.currentGesSichRef = GesSichRef
.Standort = Me.Standort
.datum = Date.Now
.Neu = True
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()
ShowStandort()
LoadDGV()
Me.BringToFront()
End Function
frm.Show()
End Sub
Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
LoadDGV()
End Sub
Private Sub chkOffen_CheckedChanged(sender As Object, e As EventArgs)
If Me.Visible Then LoadDGV()
End Sub
Private Sub Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 46, 58, 32, 44, 65 To 90, 97 To 122
' Zahlen, Backspace, . und : zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub resetSearchfields_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
txtSuchbegriff.Text = "" : chkOffen.Checked = True
txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
cbxStandort._value = ""
cbxWarenort._value = ""
btnSucheStarten_Click(sender, e)
End Sub
Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click
Try
Date.Parse(txtDatVon.Text)
Date.Parse(txtDatBis.Text)
If Me.Visible Then LoadDGV()
Catch ex As Exception
MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.")
End Try
End Sub
'Private Sub FlatButton2_Click(sender As Object, e As EventArgs)
' txtDatVon.Text = Date.Parse("01.01.1970")
' txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
'End Sub
Private Sub ExportCSVToolStripMenuItem_Click(sender As Object, e As EventArgs)
csvexport(dgvListe)
End Sub
Public Shared Function csvexport(quelldgv As DataGridView)
Dim savefiledialog As New SaveFileDialog
Dim firstin As String
Dim out As String
Dim in2 As String
Dim header As String
savefiledialog.Filter = "CSV files (*.csv)|*.CSV"
savefiledialog.InitialDirectory = "C:\Verag"
savefiledialog.ShowDialog()
Try
For r As Integer = 0 To quelldgv.Rows.Count - 1
For c As Integer = 0 To quelldgv.Columns.Count
'test &= r & c & vbCrLf
Try
'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
firstin = quelldgv.Rows(r).Cells(c).Value.ToString
'in2 = """" & firstin & """" & ";"
in2 = firstin & ";"
out &= Replace(in2, vbCrLf, "##vbCrLf##")
Catch ex As Exception
out &= ""
End Try
Next
out &= "nZ"
Next
For c As Integer = 0 To quelldgv.Columns.Count - 1
header &= quelldgv.Columns(c).Name & ";"
Next
out = Replace(out, "nZ", vbCrLf)
'MsgBox(out)
Using sw As New IO.StreamWriter(savefiledialog.FileName)
sw.WriteLine(header)
sw.WriteLine(out)
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
Dim TAG As Date = CDate(Now.ToShortDateString)
Dim JAHR As Date = CDate("01.01." & Now.Year)
Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Select Case MonatJahr
Case "Monat"
DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr"
DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
'End If
Case "Tag"
DateTimePicker1.Value = TAG
DateTimePicker2.Value = TAG
If TAG = Now.ToShortDateString Then
btnTag.Text = "Heute"
ElseIf TAG = Now.AddDays(-1).ToShortDateString Then
btnTag.Text = "Gestern"
ElseIf TAG = Now.AddDays(-2).ToShortDateString Then
btnTag.Text = "Vorgestern"
ElseIf TAG = Now.AddDays(1).ToShortDateString Then
btnTag.Text = "Morgen"
Else
btnTag.Text = TAG.ToString("dd.MM")
End If
'End If
Case ""
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
DateTimePicker2.Value = Now
End Select
End Sub
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
initBtns("Jahr")
End Sub
Private Sub btnPlusJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1)
initBtns("Jahr")
End Sub
Private Sub btnMinusJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
JAHR = JAHR.AddYears(-1)
initBtns("Jahr")
End Sub
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
initBtns("Monat")
End Sub
Private Sub btnPlusMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
MONAT = MONAT.AddMonths(1)
initBtns("Monat")
End Sub
Private Sub btnMinusMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
MONAT = MONAT.AddMonths(-1)
initBtns("Monat")
End Sub
Private Sub btnTag_Click(sender As Object, e As EventArgs) Handles btnTag.Click
initBtns("Tag")
End Sub
Private Sub btnMinusTag_Click(sender As Object, e As EventArgs) Handles btnVonTag.Click
TAG = TAG.AddDays(-1)
initBtns("Tag")
End Sub
Private Sub btnPlusTag_Click(sender As Object, e As EventArgs) Handles btnBisTag.Click
TAG = TAG.AddDays(1)
initBtns("Tag")
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
txtDatVon._value = CDate(sender.value).ToShortDateString
btnSucheStarten_Click(sender, e)
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
txtDatBis._value = CDate(sender.value).ToShortDateString
btnSucheStarten_Click(sender, e)
End Sub
Function setNullToZero(s As String, Optional type As String = "")
If s = "" Then
Dim zero As Double = 0
Return zero
Else
Return s
End If
End Function
End Class

638
Aviso/frmGesamtsicherheitenNEU.Designer.vb generated
View File

@@ -48,61 +48,41 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblGestellungNr = New System.Windows.Forms.Label()
Me.txtCRNTime = New System.Windows.Forms.TextBox()
Me.txtCRNDate = New System.Windows.Forms.TextBox()
Me.txtMRNTime = New System.Windows.Forms.TextBox()
Me.txtMRNDate = New System.Windows.Forms.TextBox()
Me.txtPosTime = New System.Windows.Forms.TextBox()
Me.txtPosDate = New System.Windows.Forms.TextBox()
Me.txtSicherheitTime = New System.Windows.Forms.TextBox()
Me.txtSicherheitDate = New System.Windows.Forms.TextBox()
Me.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtPosSicherheitsbetrag = New System.Windows.Forms.TextBox()
Me.txtPosWarenwert = New System.Windows.Forms.TextBox()
Me.txtPositionenCRN = New System.Windows.Forms.TextBox()
Me.txtMRNSicherheitsbetrag = New System.Windows.Forms.TextBox()
Me.txtMRNWarenwert = New System.Windows.Forms.TextBox()
Me.txtMRN = New System.Windows.Forms.TextBox()
Me.txtSicherheitSicherheitsbetrag = New System.Windows.Forms.TextBox()
Me.txtSicherheitWarenwert = New System.Windows.Forms.TextBox()
Me.txtSicherheitATBNr = New System.Windows.Forms.TextBox()
Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblZollsatz = New System.Windows.Forms.Label()
Me.lblReferenzwert = New System.Windows.Forms.Label()
Me.lblSaldo = New System.Windows.Forms.Label()
Me.panOben = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.txtPosNr = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnSuche = New System.Windows.Forms.Button()
Me.Label26 = New System.Windows.Forms.Label()
Me.btnBisTag = New System.Windows.Forms.Button()
Me.btnVonTag = New System.Windows.Forms.Button()
Me.btnTag = New System.Windows.Forms.Button()
Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.btnJahr = New System.Windows.Forms.Button()
Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = New System.Windows.Forms.Button()
Me.btnMonat = New System.Windows.Forms.Button()
Me.btnBisMonat = New System.Windows.Forms.Button()
Me.btnVonMonat = New System.Windows.Forms.Button()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label25 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label23 = New System.Windows.Forms.Label()
Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.cbx_Suche_Filiale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txt_Suche = New System.Windows.Forms.TextBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnUpdateSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtPos = New System.Windows.Forms.TextBox()
Me.txtAnzahlPos = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtEust = New System.Windows.Forms.TextBox()
Me.txtSicherheitEust = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.cboATR = New System.Windows.Forms.ComboBox()
Me.cboSicherheitATR = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
@@ -116,7 +96,8 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtPosFreitext = New System.Windows.Forms.TextBox()
Me.txtFreitextOpen = New System.Windows.Forms.TextBox()
Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox()
Me.lbloffenerSaldo = New System.Windows.Forms.Label()
CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -395,43 +376,45 @@ Partial Class frmGesamtsicherheitenNEU
Me.lblGestellungNr.TabIndex = 2
Me.lblGestellungNr.Text = "Gesamtsicherheit"
'
'txtCRNTime
'txtPosTime
'
Me.txtCRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNTime.Location = New System.Drawing.Point(1006, 204)
Me.txtCRNTime.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNTime.Name = "txtCRNTime"
Me.txtCRNTime.Size = New System.Drawing.Size(55, 24)
Me.txtCRNTime.TabIndex = 27
Me.txtPosTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPosTime.Location = New System.Drawing.Point(1006, 204)
Me.txtPosTime.Margin = New System.Windows.Forms.Padding(0)
Me.txtPosTime.Name = "txtPosTime"
Me.txtPosTime.Size = New System.Drawing.Size(55, 24)
Me.txtPosTime.TabIndex = 27
'
'txtCRNDate
'txtPosDate
'
Me.txtCRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNDate.Location = New System.Drawing.Point(921, 204)
Me.txtCRNDate.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNDate.Name = "txtCRNDate"
Me.txtCRNDate.Size = New System.Drawing.Size(85, 24)
Me.txtCRNDate.TabIndex = 26
Me.txtPosDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.txtPosDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtPosDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPosDate.Location = New System.Drawing.Point(921, 204)
Me.txtPosDate.Margin = New System.Windows.Forms.Padding(0)
Me.txtPosDate.Name = "txtPosDate"
Me.txtPosDate.Size = New System.Drawing.Size(85, 24)
Me.txtPosDate.TabIndex = 26
'
'txtMRNTime
'txtSicherheitTime
'
Me.txtMRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNTime.Location = New System.Drawing.Point(368, 204)
Me.txtMRNTime.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNTime.Name = "txtMRNTime"
Me.txtMRNTime.Size = New System.Drawing.Size(55, 24)
Me.txtMRNTime.TabIndex = 22
Me.txtSicherheitTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSicherheitTime.Location = New System.Drawing.Point(368, 204)
Me.txtSicherheitTime.Margin = New System.Windows.Forms.Padding(0)
Me.txtSicherheitTime.Name = "txtSicherheitTime"
Me.txtSicherheitTime.Size = New System.Drawing.Size(55, 24)
Me.txtSicherheitTime.TabIndex = 22
'
'txtMRNDate
'txtSicherheitDate
'
Me.txtMRNDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.txtMRNDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtMRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNDate.Location = New System.Drawing.Point(283, 204)
Me.txtMRNDate.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNDate.Name = "txtMRNDate"
Me.txtMRNDate.Size = New System.Drawing.Size(85, 24)
Me.txtMRNDate.TabIndex = 21
Me.txtSicherheitDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.txtSicherheitDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtSicherheitDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSicherheitDate.Location = New System.Drawing.Point(283, 204)
Me.txtSicherheitDate.Margin = New System.Windows.Forms.Padding(0)
Me.txtSicherheitDate.Name = "txtSicherheitDate"
Me.txtSicherheitDate.Size = New System.Drawing.Size(85, 24)
Me.txtSicherheitDate.TabIndex = 21
'
'btnSaveOben
'
@@ -475,33 +458,33 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtPositionenCRN.Size = New System.Drawing.Size(205, 24)
Me.txtPositionenCRN.TabIndex = 25
'
'txtMRNSicherheitsbetrag
'txtSicherheitSicherheitsbetrag
'
Me.txtMRNSicherheitsbetrag.Enabled = False
Me.txtMRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNSicherheitsbetrag.Location = New System.Drawing.Point(523, 204)
Me.txtMRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNSicherheitsbetrag.Name = "txtMRNSicherheitsbetrag"
Me.txtMRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
Me.txtMRNSicherheitsbetrag.TabIndex = 24
Me.txtSicherheitSicherheitsbetrag.Enabled = False
Me.txtSicherheitSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSicherheitSicherheitsbetrag.Location = New System.Drawing.Point(523, 204)
Me.txtSicherheitSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
Me.txtSicherheitSicherheitsbetrag.Name = "txtSicherheitSicherheitsbetrag"
Me.txtSicherheitSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
Me.txtSicherheitSicherheitsbetrag.TabIndex = 24
'
'txtMRNWarenwert
'txtSicherheitWarenwert
'
Me.txtMRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRNWarenwert.Location = New System.Drawing.Point(423, 204)
Me.txtMRNWarenwert.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRNWarenwert.Name = "txtMRNWarenwert"
Me.txtMRNWarenwert.Size = New System.Drawing.Size(100, 24)
Me.txtMRNWarenwert.TabIndex = 23
Me.txtSicherheitWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSicherheitWarenwert.Location = New System.Drawing.Point(423, 204)
Me.txtSicherheitWarenwert.Margin = New System.Windows.Forms.Padding(0)
Me.txtSicherheitWarenwert.Name = "txtSicherheitWarenwert"
Me.txtSicherheitWarenwert.Size = New System.Drawing.Size(100, 24)
Me.txtSicherheitWarenwert.TabIndex = 23
'
'txtMRN
'txtSicherheitATBNr
'
Me.txtMRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMRN.Location = New System.Drawing.Point(34, 204)
Me.txtMRN.Margin = New System.Windows.Forms.Padding(0)
Me.txtMRN.Name = "txtMRN"
Me.txtMRN.Size = New System.Drawing.Size(205, 24)
Me.txtMRN.TabIndex = 19
Me.txtSicherheitATBNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSicherheitATBNr.Location = New System.Drawing.Point(34, 204)
Me.txtSicherheitATBNr.Margin = New System.Windows.Forms.Padding(0)
Me.txtSicherheitATBNr.Name = "txtSicherheitATBNr"
Me.txtSicherheitATBNr.Size = New System.Drawing.Size(205, 24)
Me.txtSicherheitATBNr.TabIndex = 19
'
'btn_resetSearch
'
@@ -511,7 +494,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black
Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh
Me.btn_resetSearch.Location = New System.Drawing.Point(610, 33)
Me.btn_resetSearch.Location = New System.Drawing.Point(813, 8)
Me.btn_resetSearch.Name = "btn_resetSearch"
Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33)
Me.btn_resetSearch.TabIndex = 3
@@ -547,7 +530,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.lblSaldo.AutoSize = True
Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
Me.lblSaldo.Location = New System.Drawing.Point(1225, 152)
Me.lblSaldo.Location = New System.Drawing.Point(1025, 108)
Me.lblSaldo.Name = "lblSaldo"
Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
Me.lblSaldo.TabIndex = 5
@@ -556,19 +539,20 @@ Partial Class frmGesamtsicherheitenNEU
'panOben
'
Me.panOben.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.panOben.Controls.Add(Me.lbloffenerSaldo)
Me.panOben.Controls.Add(Me.Label20)
Me.panOben.Controls.Add(Me.TextBox1)
Me.panOben.Controls.Add(Me.txtPosNr)
Me.panOben.Controls.Add(Me.Panel1)
Me.panOben.Controls.Add(Me.btnDeletePos)
Me.panOben.Controls.Add(Me.btnDeleteSicherheit)
Me.panOben.Controls.Add(Me.btnUpdatePos)
Me.panOben.Controls.Add(Me.btnUpdateSicherheit)
Me.panOben.Controls.Add(Me.Label15)
Me.panOben.Controls.Add(Me.txtPos)
Me.panOben.Controls.Add(Me.txtAnzahlPos)
Me.panOben.Controls.Add(Me.Label14)
Me.panOben.Controls.Add(Me.txtEust)
Me.panOben.Controls.Add(Me.txtSicherheitEust)
Me.panOben.Controls.Add(Me.Label13)
Me.panOben.Controls.Add(Me.cboATR)
Me.panOben.Controls.Add(Me.cboSicherheitATR)
Me.panOben.Controls.Add(Me.Label7)
Me.panOben.Controls.Add(Me.Label8)
Me.panOben.Controls.Add(Me.Label9)
@@ -582,21 +566,21 @@ Partial Class frmGesamtsicherheitenNEU
Me.panOben.Controls.Add(Me.Label2)
Me.panOben.Controls.Add(Me.Label1)
Me.panOben.Controls.Add(Me.txtPosFreitext)
Me.panOben.Controls.Add(Me.txtFreitextOpen)
Me.panOben.Controls.Add(Me.txtSicherheitFreitext)
Me.panOben.Controls.Add(Me.btnAddPos)
Me.panOben.Controls.Add(Me.btnAddSicherheit)
Me.panOben.Controls.Add(Me.lblGestellungNr)
Me.panOben.Controls.Add(Me.txtCRNTime)
Me.panOben.Controls.Add(Me.txtCRNDate)
Me.panOben.Controls.Add(Me.txtMRNTime)
Me.panOben.Controls.Add(Me.txtMRNDate)
Me.panOben.Controls.Add(Me.txtPosTime)
Me.panOben.Controls.Add(Me.txtPosDate)
Me.panOben.Controls.Add(Me.txtSicherheitTime)
Me.panOben.Controls.Add(Me.txtSicherheitDate)
Me.panOben.Controls.Add(Me.btnSaveOben)
Me.panOben.Controls.Add(Me.txtPosSicherheitsbetrag)
Me.panOben.Controls.Add(Me.txtPosWarenwert)
Me.panOben.Controls.Add(Me.txtPositionenCRN)
Me.panOben.Controls.Add(Me.txtMRNSicherheitsbetrag)
Me.panOben.Controls.Add(Me.txtMRNWarenwert)
Me.panOben.Controls.Add(Me.txtMRN)
Me.panOben.Controls.Add(Me.txtSicherheitSicherheitsbetrag)
Me.panOben.Controls.Add(Me.txtSicherheitWarenwert)
Me.panOben.Controls.Add(Me.txtSicherheitATBNr)
Me.panOben.Controls.Add(Me.lblZollsatz)
Me.panOben.Controls.Add(Me.lblReferenzwert)
Me.panOben.Controls.Add(Me.lblSaldo)
@@ -617,319 +601,50 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label20.TabIndex = 42
Me.Label20.Text = "Pos"
'
'TextBox1
'txtPosNr
'
Me.TextBox1.Enabled = False
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(921, 250)
Me.TextBox1.Margin = New System.Windows.Forms.Padding(0)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(37, 24)
Me.TextBox1.TabIndex = 43
Me.txtPosNr.Enabled = False
Me.txtPosNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPosNr.Location = New System.Drawing.Point(921, 250)
Me.txtPosNr.Margin = New System.Windows.Forms.Padding(0)
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Size = New System.Drawing.Size(37, 24)
Me.txtPosNr.TabIndex = 43
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.Panel1.Controls.Add(Me.txtDatBis)
Me.Panel1.Controls.Add(Me.btnSuche)
Me.Panel1.Controls.Add(Me.Label26)
Me.Panel1.Controls.Add(Me.btnBisTag)
Me.Panel1.Controls.Add(Me.btnVonTag)
Me.Panel1.Controls.Add(Me.btnTag)
Me.Panel1.Controls.Add(Me.txtDatVon)
Me.Panel1.Controls.Add(Me.Label24)
Me.Panel1.Controls.Add(Me.btnJahr)
Me.Panel1.Controls.Add(Me.btnBisJahr)
Me.Panel1.Controls.Add(Me.btnVonJahr)
Me.Panel1.Controls.Add(Me.btnMonat)
Me.Panel1.Controls.Add(Me.btnBisMonat)
Me.Panel1.Controls.Add(Me.btnVonMonat)
Me.Panel1.Controls.Add(Me.DateTimePicker2)
Me.Panel1.Controls.Add(Me.Label25)
Me.Panel1.Controls.Add(Me.DateTimePicker1)
Me.Panel1.Controls.Add(Me.btnSucheStarten)
Me.Panel1.Controls.Add(Me.Label23)
Me.Panel1.Controls.Add(Me.cbx_Suche_Warenort)
Me.Panel1.Controls.Add(Me.Label19)
Me.Panel1.Controls.Add(Me.cbx_Suche_Filiale)
Me.Panel1.Controls.Add(Me.btnNeu)
Me.Panel1.Controls.Add(Me.txt_Suche)
Me.Panel1.Controls.Add(Me.Label21)
Me.Panel1.Controls.Add(Me.Label22)
Me.Panel1.Controls.Add(Me.btn_resetSearch)
Me.Panel1.Location = New System.Drawing.Point(0, 44)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1384, 97)
Me.Panel1.Size = New System.Drawing.Size(1384, 61)
Me.Panel1.TabIndex = 10
'
'txtDatBis
'
Me.txtDatBis._DateTimeOnly = False
Me.txtDatBis._numbersOnly = False
Me.txtDatBis._numbersOnlyKommastellen = ""
Me.txtDatBis._numbersOnlyTrennzeichen = True
Me.txtDatBis._Prozent = False
Me.txtDatBis._ShortDateNew = False
Me.txtDatBis._ShortDateOnly = True
Me.txtDatBis._TimeOnly = False
Me.txtDatBis._TimeOnly_Seconds = False
Me.txtDatBis._value = ""
Me.txtDatBis._Waehrung = False
Me.txtDatBis._WaehrungZeichen = True
Me.txtDatBis.Enabled = False
Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatBis.ForeColor = System.Drawing.Color.Black
Me.txtDatBis.Location = New System.Drawing.Point(53, 63)
Me.txtDatBis.MaxLength = 10
Me.txtDatBis.MaxLineLength = -1
Me.txtDatBis.MaxLines_Warning = ""
Me.txtDatBis.MaxLines_Warning_Label = Nothing
Me.txtDatBis.Name = "txtDatBis"
Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
Me.txtDatBis.TabIndex = 36
'
'btnSuche
'
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(692, 20)
Me.btnSuche.Location = New System.Drawing.Point(893, 3)
Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
Me.btnSuche.TabIndex = 35
Me.btnSuche.Text = "Gesamtsicherheit Suche starten"
Me.btnSuche.Text = "Suche starten"
Me.btnSuche.UseVisualStyleBackColor = True
'
'Label26
'
Me.Label26.AutoSize = True
Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label26.Location = New System.Drawing.Point(24, 12)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(43, 13)
Me.Label26.TabIndex = 34
Me.Label26.Text = "Datum"
'
'btnBisTag
'
Me.btnBisTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisTag.ForeColor = System.Drawing.Color.Black
Me.btnBisTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisTag.Location = New System.Drawing.Point(284, 7)
Me.btnBisTag.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisTag.Name = "btnBisTag"
Me.btnBisTag.Size = New System.Drawing.Size(34, 23)
Me.btnBisTag.TabIndex = 26
Me.btnBisTag.Text = ">>"
Me.btnBisTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisTag.UseVisualStyleBackColor = True
'
'btnVonTag
'
Me.btnVonTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonTag.ForeColor = System.Drawing.Color.Black
Me.btnVonTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonTag.Location = New System.Drawing.Point(165, 7)
Me.btnVonTag.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonTag.Name = "btnVonTag"
Me.btnVonTag.Size = New System.Drawing.Size(34, 23)
Me.btnVonTag.TabIndex = 24
Me.btnVonTag.Text = "<<"
Me.btnVonTag.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonTag.UseVisualStyleBackColor = True
'
'btnTag
'
Me.btnTag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnTag.ForeColor = System.Drawing.Color.Black
Me.btnTag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTag.Location = New System.Drawing.Point(198, 7)
Me.btnTag.Margin = New System.Windows.Forms.Padding(0)
Me.btnTag.Name = "btnTag"
Me.btnTag.Size = New System.Drawing.Size(87, 23)
Me.btnTag.TabIndex = 25
Me.btnTag.Text = "Heute"
Me.btnTag.UseVisualStyleBackColor = True
'
'txtDatVon
'
Me.txtDatVon._DateTimeOnly = False
Me.txtDatVon._numbersOnly = False
Me.txtDatVon._numbersOnlyKommastellen = ""
Me.txtDatVon._numbersOnlyTrennzeichen = True
Me.txtDatVon._Prozent = False
Me.txtDatVon._ShortDateNew = False
Me.txtDatVon._ShortDateOnly = True
Me.txtDatVon._TimeOnly = False
Me.txtDatVon._TimeOnly_Seconds = False
Me.txtDatVon._value = ""
Me.txtDatVon._Waehrung = False
Me.txtDatVon._WaehrungZeichen = True
Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatVon.ForeColor = System.Drawing.Color.Black
Me.txtDatVon.Location = New System.Drawing.Point(53, 37)
Me.txtDatVon.MaxLength = 10
Me.txtDatVon.MaxLineLength = -1
Me.txtDatVon.MaxLines_Warning = ""
Me.txtDatVon.MaxLines_Warning_Label = Nothing
Me.txtDatVon.Name = "txtDatVon"
Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
Me.txtDatVon.TabIndex = 20
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Location = New System.Drawing.Point(24, 65)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(23, 13)
Me.Label24.TabIndex = 23
Me.Label24.Text = "bis:"
'
'btnJahr
'
Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnJahr.ForeColor = System.Drawing.Color.Black
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnJahr.Location = New System.Drawing.Point(198, 59)
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnJahr.Name = "btnJahr"
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
Me.btnJahr.TabIndex = 32
Me.btnJahr.Text = "2016"
Me.btnJahr.UseVisualStyleBackColor = True
'
'btnBisJahr
'
Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.Location = New System.Drawing.Point(284, 59)
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisJahr.Name = "btnBisJahr"
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
Me.btnBisJahr.TabIndex = 33
Me.btnBisJahr.Text = ">>"
Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.UseVisualStyleBackColor = True
'
'btnVonJahr
'
Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.Location = New System.Drawing.Point(165, 59)
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonJahr.Name = "btnVonJahr"
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
Me.btnVonJahr.TabIndex = 31
Me.btnVonJahr.Text = "<<"
Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.UseVisualStyleBackColor = True
'
'btnMonat
'
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnMonat.ForeColor = System.Drawing.Color.Black
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMonat.Location = New System.Drawing.Point(198, 33)
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnMonat.Name = "btnMonat"
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
Me.btnMonat.TabIndex = 29
Me.btnMonat.Text = "September"
Me.btnMonat.UseVisualStyleBackColor = True
'
'btnBisMonat
'
Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.Location = New System.Drawing.Point(284, 33)
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisMonat.Name = "btnBisMonat"
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
Me.btnBisMonat.TabIndex = 30
Me.btnBisMonat.Text = ">>"
Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.UseVisualStyleBackColor = True
'
'btnVonMonat
'
Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.Location = New System.Drawing.Point(165, 33)
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonMonat.Name = "btnVonMonat"
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
Me.btnVonMonat.TabIndex = 28
Me.btnVonMonat.Text = "<<"
Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.UseVisualStyleBackColor = True
'
'DateTimePicker2
'
Me.DateTimePicker2.CustomFormat = "''"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(53, 62)
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
Me.DateTimePicker2.TabIndex = 22
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Location = New System.Drawing.Point(24, 41)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(28, 13)
Me.Label25.TabIndex = 27
Me.Label25.Text = "von:"
'
'DateTimePicker1
'
Me.DateTimePicker1.CustomFormat = "''"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(53, 37)
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
Me.DateTimePicker1.TabIndex = 21
'
'btnSucheStarten
'
Me.btnSucheStarten.allowBorder = False
Me.btnSucheStarten.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnSucheStarten.BackColor = System.Drawing.Color.White
Me.btnSucheStarten.FlatAppearance.BorderSize = 0
Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black
Me.btnSucheStarten.Location = New System.Drawing.Point(1262, 60)
Me.btnSucheStarten.Name = "btnSucheStarten"
Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
Me.btnSucheStarten.TabIndex = 17
Me.btnSucheStarten.Text = "Suche starten"
Me.btnSucheStarten.UseVisualStyleBackColor = False
Me.btnSucheStarten.Visible = False
'
'Label23
'
Me.Label23.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label23.ForeColor = System.Drawing.Color.Honeydew
Me.Label23.Location = New System.Drawing.Point(207, 5)
Me.Label23.Location = New System.Drawing.Point(207, -13)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(24, 15)
Me.Label23.TabIndex = 13
@@ -943,7 +658,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.cbx_Suche_Warenort.DropDownWidth = 300
Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_Suche_Warenort.FormattingEnabled = True
Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(345, 20)
Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(660, 20)
Me.cbx_Suche_Warenort.MaxLength = 4
Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort"
Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24)
@@ -953,44 +668,16 @@ Partial Class frmGesamtsicherheitenNEU
'
Me.Label19.AutoSize = True
Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label19.Location = New System.Drawing.Point(342, 7)
Me.Label19.Location = New System.Drawing.Point(657, 3)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(63, 13)
Me.Label19.TabIndex = 8
Me.Label19.Text = "Warenort:"
'
'cbx_Suche_Filiale
'
Me.cbx_Suche_Filiale._allowedValuesFreiText = Nothing
Me.cbx_Suche_Filiale._allowFreiText = False
Me.cbx_Suche_Filiale._value = ""
Me.cbx_Suche_Filiale.DropDownWidth = 300
Me.cbx_Suche_Filiale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_Suche_Filiale.FormattingEnabled = True
Me.cbx_Suche_Filiale.Location = New System.Drawing.Point(493, 21)
Me.cbx_Suche_Filiale.MaxLength = 4
Me.cbx_Suche_Filiale.Name = "cbx_Suche_Filiale"
Me.cbx_Suche_Filiale.Size = New System.Drawing.Size(95, 21)
Me.cbx_Suche_Filiale.TabIndex = 2
'
'btnNeu
'
Me.btnNeu.allowBorder = False
Me.btnNeu.BackColor = System.Drawing.Color.Gainsboro
Me.btnNeu.FlatAppearance.BorderSize = 0
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.ForeColor = System.Drawing.Color.Black
Me.btnNeu.Location = New System.Drawing.Point(1262, 31)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(75, 23)
Me.btnNeu.TabIndex = 7
Me.btnNeu.Text = "Neu"
Me.btnNeu.UseVisualStyleBackColor = False
'
'txt_Suche
'
Me.txt_Suche.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_Suche.Location = New System.Drawing.Point(345, 68)
Me.txt_Suche.Location = New System.Drawing.Point(379, 19)
Me.txt_Suche.Margin = New System.Windows.Forms.Padding(0)
Me.txt_Suche.Name = "txt_Suche"
Me.txt_Suche.Size = New System.Drawing.Size(243, 24)
@@ -1000,22 +687,12 @@ Partial Class frmGesamtsicherheitenNEU
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(342, 52)
Me.Label21.Location = New System.Drawing.Point(376, 3)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(47, 13)
Me.Label21.TabIndex = 3
Me.Label21.Text = "Suche:"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.Location = New System.Drawing.Point(490, 5)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(44, 13)
Me.Label22.TabIndex = 1
Me.Label22.Text = "Filiale:"
'
'btnDeletePos
'
Me.btnDeletePos.allowBorder = False
@@ -1090,14 +767,14 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label15.TabIndex = 9
Me.Label15.Text = "Pos"
'
'txtPos
'txtAnzahlPos
'
Me.txtPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPos.Location = New System.Drawing.Point(242, 204)
Me.txtPos.Margin = New System.Windows.Forms.Padding(0)
Me.txtPos.Name = "txtPos"
Me.txtPos.Size = New System.Drawing.Size(35, 24)
Me.txtPos.TabIndex = 20
Me.txtAnzahlPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAnzahlPos.Location = New System.Drawing.Point(242, 204)
Me.txtAnzahlPos.Margin = New System.Windows.Forms.Padding(0)
Me.txtAnzahlPos.Name = "txtAnzahlPos"
Me.txtAnzahlPos.Size = New System.Drawing.Size(35, 24)
Me.txtAnzahlPos.TabIndex = 20
'
'Label14
'
@@ -1110,15 +787,15 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label14.TabIndex = 33
Me.Label14.Text = "19% EUST"
'
'txtEust
'txtSicherheitEust
'
Me.txtEust.Enabled = False
Me.txtEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEust.Location = New System.Drawing.Point(197, 250)
Me.txtEust.Margin = New System.Windows.Forms.Padding(0)
Me.txtEust.Name = "txtEust"
Me.txtEust.Size = New System.Drawing.Size(100, 24)
Me.txtEust.TabIndex = 39
Me.txtSicherheitEust.Enabled = False
Me.txtSicherheitEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSicherheitEust.Location = New System.Drawing.Point(197, 250)
Me.txtSicherheitEust.Margin = New System.Windows.Forms.Padding(0)
Me.txtSicherheitEust.Name = "txtSicherheitEust"
Me.txtSicherheitEust.Size = New System.Drawing.Size(100, 24)
Me.txtSicherheitEust.TabIndex = 39
'
'Label13
'
@@ -1131,16 +808,16 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label13.TabIndex = 32
Me.Label13.Text = "A.TR Ja/Nein"
'
'cboATR
'cboSicherheitATR
'
Me.cboATR.Enabled = False
Me.cboATR.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!)
Me.cboATR.FormattingEnabled = True
Me.cboATR.Items.AddRange(New Object() {"JA", "NEIN"})
Me.cboATR.Location = New System.Drawing.Point(74, 250)
Me.cboATR.Name = "cboATR"
Me.cboATR.Size = New System.Drawing.Size(120, 26)
Me.cboATR.TabIndex = 38
Me.cboSicherheitATR.Enabled = False
Me.cboSicherheitATR.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!)
Me.cboSicherheitATR.FormattingEnabled = True
Me.cboSicherheitATR.Items.AddRange(New Object() {"JA", "NEIN"})
Me.cboSicherheitATR.Location = New System.Drawing.Point(74, 250)
Me.cboSicherheitATR.Name = "cboSicherheitATR"
Me.cboSicherheitATR.Size = New System.Drawing.Size(120, 26)
Me.cboSicherheitATR.TabIndex = 38
'
'Label7
'
@@ -1271,14 +948,26 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtPosFreitext.Size = New System.Drawing.Size(255, 24)
Me.txtPosFreitext.TabIndex = 41
'
'txtFreitextOpen
'txtSicherheitFreitext
'
Me.txtFreitextOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFreitextOpen.Location = New System.Drawing.Point(367, 250)
Me.txtFreitextOpen.Margin = New System.Windows.Forms.Padding(0)
Me.txtFreitextOpen.Name = "txtFreitextOpen"
Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24)
Me.txtFreitextOpen.TabIndex = 40
Me.txtSicherheitFreitext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSicherheitFreitext.Location = New System.Drawing.Point(367, 250)
Me.txtSicherheitFreitext.Margin = New System.Windows.Forms.Padding(0)
Me.txtSicherheitFreitext.Name = "txtSicherheitFreitext"
Me.txtSicherheitFreitext.Size = New System.Drawing.Size(256, 24)
Me.txtSicherheitFreitext.TabIndex = 40
'
'lbloffenerSaldo
'
Me.lbloffenerSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lbloffenerSaldo.AutoSize = True
Me.lbloffenerSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbloffenerSaldo.ForeColor = System.Drawing.Color.Red
Me.lbloffenerSaldo.Location = New System.Drawing.Point(238, 108)
Me.lbloffenerSaldo.Name = "lbloffenerSaldo"
Me.lbloffenerSaldo.Size = New System.Drawing.Size(146, 24)
Me.lbloffenerSaldo.TabIndex = 44
Me.lbloffenerSaldo.Text = "offener Saldo: "
'
'frmGesamtsicherheitenNEU
'
@@ -1313,28 +1002,28 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents btnAddPos As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnAddSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblGestellungNr As Label
Friend WithEvents txtCRNTime As TextBox
Friend WithEvents txtCRNDate As TextBox
Friend WithEvents txtMRNTime As TextBox
Friend WithEvents txtMRNDate As TextBox
Friend WithEvents txtPosTime As TextBox
Friend WithEvents txtPosDate As TextBox
Friend WithEvents txtSicherheitTime As TextBox
Friend WithEvents txtSicherheitDate As TextBox
Friend WithEvents btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtPosSicherheitsbetrag As TextBox
Friend WithEvents txtPosWarenwert As TextBox
Friend WithEvents txtPositionenCRN As TextBox
Friend WithEvents txtMRNSicherheitsbetrag As TextBox
Friend WithEvents txtMRNWarenwert As TextBox
Friend WithEvents txtMRN As TextBox
Friend WithEvents txtSicherheitSicherheitsbetrag As TextBox
Friend WithEvents txtSicherheitWarenwert As TextBox
Friend WithEvents txtSicherheitATBNr As TextBox
Friend WithEvents btn_resetSearch As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblZollsatz As Label
Friend WithEvents lblReferenzwert As Label
Friend WithEvents lblSaldo As Label
Friend WithEvents panOben As Panel
Friend WithEvents txtPosFreitext As TextBox
Friend WithEvents txtFreitextOpen As TextBox
Friend WithEvents txtSicherheitFreitext As TextBox
Friend WithEvents Label14 As Label
Friend WithEvents txtEust As TextBox
Friend WithEvents txtSicherheitEust As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents cboATR As ComboBox
Friend WithEvents cboSicherheitATR As ComboBox
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents Label9 As Label
@@ -1348,7 +1037,7 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Label15 As Label
Friend WithEvents txtPos As TextBox
Friend WithEvents txtAnzahlPos As TextBox
Friend WithEvents panOverlay As Panel
Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtLKWID As TextBox
@@ -1369,30 +1058,11 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents Panel1 As Panel
Friend WithEvents cbx_Suche_Warenort As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label19 As Label
Friend WithEvents cbx_Suche_Filiale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txt_Suche As TextBox
Friend WithEvents Label21 As Label
Friend WithEvents Label22 As Label
Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label23 As Label
Friend WithEvents Label26 As Label
Friend WithEvents btnBisTag As Button
Friend WithEvents btnVonTag As Button
Friend WithEvents btnTag As Button
Friend WithEvents txtDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label24 As Label
Friend WithEvents btnJahr As Button
Friend WithEvents btnBisJahr As Button
Friend WithEvents btnVonJahr As Button
Friend WithEvents btnMonat As Button
Friend WithEvents btnBisMonat As Button
Friend WithEvents btnVonMonat As Button
Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents Label25 As Label
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents btnSuche As Button
Friend WithEvents txtDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label20 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents txtPosNr As TextBox
Friend WithEvents lbloffenerSaldo As Label
End Class

427
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -1,17 +1,15 @@
Imports System.Reflection
Imports System.Web.UI.WebControls.Expressions
Imports DocumentFormat.OpenXml.Bibliography
Imports DocumentFormat.OpenXml.Presentation
Imports DocumentFormat.OpenXml.Spreadsheet
Imports Spire.Pdf.General.Render.Decode
Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenNEU
'Dim openopened As cSicherheiten
'Dim closedopened As cSicherheiten
Dim currentSicherheit As cSicherheiten
Property currentSicherheit As cSicherheiten
Property currentSPos As cGesamtsicherheitsPositionen
Property currentGesSichRef As cGesamtsicherheitsReferenz
Public Property gessicherheitID As Integer
@@ -30,58 +28,52 @@ Public Class frmGesamtsicherheitenNEU
Public Abfertigungsnummer As String
Public LKWID As String
Public LKWKZ As String
Public warenortID As String
Dim indexGsId As Integer = 0
Dim indexGsId As Integer
Dim indexGspPosId As Integer
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
Dim srcTAG As Date = CDate(Now.ToShortDateString)
Dim JAHR As Date = CDate("01.01." & Now.Year)
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N")
Me.Text = "Gesamtsicherheit " & Standort
If setNullToZero(gessicherheitID) = 0 Or Neu = True Then
'panOben.Enabled = False : panOben.Enabled = False
cbx_Suche_Warenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
If setNullToZero(gessicherheitID) = "" Or Neu = True Then
panOben.Enabled = False : panOben.Enabled = False
Panel1.Enabled = True
'panOverlay.Visible = True
panOverlay.Visible = True
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
cbx_Suche_Filiale.Items.AddRange(cboFiliale.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbx_Suche_Warenort.Items.AddRange(cboWarenort.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
If datum = Nothing Then datum = Date.Now
Else
LoadDGVSicherheiten()
End If
LoadStandort()
cboATR.Enabled = currentGesSichRef.gsr_ATR
cboSicherheitATR.Enabled = currentGesSichRef.gsr_ATR
Zollsatz = currentGesSichRef.gsr_zollsatz
txtDatVon.Text = Date.Today.ToString("dd.MM.yyyy")
txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
End Sub
Public Sub LoadDGVSicherheiten()
lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
@@ -89,32 +81,33 @@ Public Class frmGesamtsicherheitenNEU
Dim sqladd1 As String = ""
If currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
If currentGesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
If txt_Suche.Text <> "" Or cbx_Suche_Warenort._value <> "" Then Dim sqlSearchSting As String = ""
Dim addtosqlstring As String = ""
Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " &
sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit]
where gs_standort = '" & Standort & "'And gs_datum > '" & Date.Parse(txtDatVon.Text) & "' And gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" &
"AND (gs_abfertigungsNr Like '%" & txt_Suche.Text & "%' OR" &
" gs_ATBNr like '%" & txt_Suche.Text & "%' OR" &
" gs_LKWID like '%" & txt_Suche.Text & "%' OR" &
" gs_warenort like '%" & cbx_Suche_Warenort.Text & "%') order by [gs_datum]"
'Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " &
' sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit]
' where gs_standort = '" & Standort & "'And gs_datum > '" & Date.Parse(txtDatVon.Text) & "' And gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" &
' "AND (gs_abfertigungsNr Like '%" & txt_Suche.Text & "%' OR" &
' " gs_ATBNr like '%" & txt_Suche.Text & "%' OR" &
' " gs_LKWKZ like '%" & txt_Suche.Text & "%' OR" &
' " gs_warenort like '%" & cbx_Suche_Warenort.Text & "%') order by [gs_datum]"
dgvGesamtsicherheit.SET_SQL(SQLStringMRN, "AVISO", ,)
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "' order by [gs_datum]"
dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
dgvGesamtsicherheit.LOAD()
If dgvGesamtsicherheit.Columns.Count > 0 Then
With dgvGesamtsicherheit
.RowHeadersWidth = 10
.Columns("gs_gsId").Visible = False
.Columns("gs_gsId").Visible = True
.Columns("gs_gsnr").Visible = True
.Columns("gs_warenwert").DefaultCellStyle.Format = "c"
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = False
.Columns("gs_saldo").Visible = True
Select Case currentGesSichRef.gsr_ATR
Case True
.Columns("gs_ATBNr").HeaderText = "ATB"
@@ -156,7 +149,9 @@ Public Class frmGesamtsicherheitenNEU
currentSicherheit = New cSicherheiten(indexGsId)
LoadDGVSicherheitsPos(indexGsId)
loadTitle(indexGsId)
loadTitle()
setSaldo()
If dgvGesamtsicherheit.Enabled = False Then Exit Sub
@@ -167,14 +162,14 @@ Public Class frmGesamtsicherheitenNEU
If gsId = 0 Then Exit Sub
Dim SQLStringCRN As String = "select [gsp_gspPosId] ,[gsp_gsId],[gsp_warenwert],[gsp_sicherheitsbetrag],[gsp_freitext],[gsp_art] ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_ATCNr] ,[gsp_MRNNr] from [tblGesamtsicherheitsPositionen] where [gsp_gsId] = '" & gsId & "' order by [gsp_gspPosId]"
Dim SQLStringCRN As String = "select [gsp_gspPosId] ,[gsp_gsId],[gsp_warenwert],[gsp_sicherheitsbetrag],[gsp_freitext],[gsp_art] ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_ATCNr] ,[gsp_MRNNr],[gsp_erstellungsdatum] from [tblGesamtsicherheitsPositionen] where [gsp_gsId] = '" & gsId & "' order by [gsp_gspPosId]"
dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,)
dgvSicherheitsPos.LOAD()
If dgvSicherheitsPos.Columns.Count > 0 Then
With dgvSicherheitsPos
.RowHeadersWidth = 10
.Columns("gsp_gsId").Visible = False
.Columns("gsp_gsId").Visible = True
.Columns("gsp_warenwert").DefaultCellStyle.Format = "c"
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
'.Columns("gs_saldo").DefaultCellStyle.Format = "c"
@@ -186,7 +181,7 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gsp_ATCNr").HeaderText = "CRN"
End Select
.Columns("gsp_ATCNr").Width = 120
'.Columns("gs_datum").Width = 140
.Columns("gsp_erstellungsdatum").Width = 140
.Columns("gsp_warenwert").Width = 100
.Columns("gsp_sicherheitsbetrag").Width = 100
.Columns("gsp_freitext").Width = 220
@@ -196,7 +191,18 @@ Public Class frmGesamtsicherheitenNEU
End Sub
Sub loadTitle(indexGsId As Integer)
'Private Sub dgvSicherheitsPos_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSicherheitsPos.SelectionChanged
' If dgvSicherheitsPos.SelectedRows.Count > 0 Then
' indexGspPosId = CInt(dgvSicherheitsPos.SelectedRows(0).Cells("gsp_gspPosId").Value)
' currentSPos = New cGesamtsicherheitsPositionen(indexGsId, indexGspPosId)
' If dgvSicherheitsPos.Enabled = False Then Exit Sub
' End If
'End Sub
Sub loadTitle()
'Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'"
lblGestellungNr.Text = ""
@@ -208,16 +214,19 @@ Public Class frmGesamtsicherheitenNEU
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID"))
Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ"))
Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
End If
If Me.LKWID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWID & " "
If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " "
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
End If
End Sub
@@ -228,20 +237,20 @@ Public Class frmGesamtsicherheitenNEU
ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100
End Sub
Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtPosWarenwert.TextChanged
Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtSicherheitWarenwert.TextChanged, txtPosWarenwert.TextChanged
Try
Select Case sender.name
Case "txtMRNWarenwert"
txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N")
If currentGesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (currentGesSichRef.gsr_ust / 100)
Case "txtCRNWarenwert"
Case "txtSicherheitWarenwert"
txtSicherheitSicherheitsbetrag.Text = (txtSicherheitWarenwert.Text * ZollsatzMulti).ToString("N")
If currentGesSichRef.gsr_ustEnabled Then txtSicherheitEust.Text = (Double.Parse(txtSicherheitWarenwert.Text) + Double.Parse(txtSicherheitSicherheitsbetrag.Text)) * (currentGesSichRef.gsr_ust / 100)
Case "txtPosWarenwert"
txtPosSicherheitsbetrag.Text = (txtPosWarenwert.Text * ZollsatzMulti).ToString("N")
End Select
Catch
End Try
End Sub
Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtPos.KeyPress
Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSicherheitWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtAnzahlPos.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 44
' Zahlen, Backspace und , zulassen
@@ -252,7 +261,7 @@ Public Class frmGesamtsicherheitenNEU
End Select
End Sub
Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCRNDate.KeyPress, txtCRNTime.KeyPress, txtMRNDate.KeyPress, txtMRNTime.KeyPress
Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosDate.KeyPress, txtPosTime.KeyPress, txtSicherheitDate.KeyPress, txtSicherheitTime.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 46, 58
' Zahlen, Backspace, . und : zulassen
@@ -266,8 +275,8 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnSaveOben_Click(sender As Object, e As EventArgs) Handles btnSaveOben.Click
Try
Dim a As Date = Date.ParseExact(txtMRNDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim b As Date = Date.ParseExact(txtMRNTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim a As Date = Date.ParseExact(txtSicherheitDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim b As Date = Date.ParseExact(txtSicherheitTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute)
MsgBox(ab.ToString)
@@ -276,16 +285,16 @@ Public Class frmGesamtsicherheitenNEU
End Try
End Sub
Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtMRNDate.GotFocus, txtCRNDate.GotFocus, txtMRNTime.GotFocus, txtCRNTime.GotFocus
Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtSicherheitDate.GotFocus, txtPosDate.GotFocus, txtSicherheitTime.GotFocus, txtPosTime.GotFocus
Select Case sender.name
Case "txtMRNDate"
If txtMRNDate.Text.Length < 1 Then txtMRNDate.Text = Date.Today.ToString("dd.MM.yyyy")
Case "txtCRNDate"
If txtCRNDate.Text.Length < 1 Then txtCRNDate.Text = Date.Today.ToString("dd.MM.yyyy")
Case "txtMRNTime"
If txtMRNTime.Text.Length < 1 Then txtMRNTime.Text = Date.Now.ToString("HH:mm")
Case "txtCRNTime"
If txtCRNTime.Text.Length < 1 Then txtCRNTime.Text = Date.Now.ToString("HH:mm")
Case "txtSicherheitDate"
If txtSicherheitDate.Text.Length < 1 Then txtSicherheitDate.Text = Date.Today.ToString("dd.MM.yyyy")
Case "txtPosDate"
If txtPosDate.Text.Length < 1 Then txtPosDate.Text = Date.Today.ToString("dd.MM.yyyy")
Case "txtSicherheitTime"
If txtSicherheitTime.Text.Length < 1 Then txtSicherheitTime.Text = Date.Now.ToString("HH:mm")
Case "txtPosTime"
If txtPosTime.Text.Length < 1 Then txtPosTime.Text = Date.Now.ToString("HH:mm")
End Select
End Sub
@@ -293,25 +302,41 @@ Public Class frmGesamtsicherheitenNEU
Try
Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text))
Dim limit As Integer = Integer.Parse(setNullToZero(txtAnzahlPos.Text))
Dim OPEN As New cSicherheiten()
With OPEN
.gs_ATBNr = txtMRN.Text
.gs_posNr = Integer.Parse(setNullToZero(txtPos.Text))
.gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_gsNr = AddNewGesamtSichNr()
.gs_ATBNr = txtSicherheitATBNr.Text
.gs_posNr = Integer.Parse(setNullToZero(txtAnzahlPos.Text))
.gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDate.Text, txtSicherheitTime.Text)
.gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_standort = Me.Standort
.gs_art = "OPEN"
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text
.gs_freitext = Me.txtSicherheitFreitext.Text
.gs_saldo = currentGesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
setEnviromentDataToObject(OPEN, Me)
End With
'If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr()
'Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID)
' Case "Neu"
' OPENWithMultiplePosNr.SAVE()
' Case Else
' If (count > 1) Then
' OPENWithMultiplePosNr.SAVE()
' Else
' MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) & "eingetragen") : OPENWithMultiplePosNr.SAVE()
' End If
'End Select
indexGsId = OPEN.SAVEOBJECT()
@@ -328,8 +353,9 @@ Public Class frmGesamtsicherheitenNEU
.gsp_freitext = ""
.gsp_filialenNr = OPEN.gs_filialenNr
.gsp_art = "OPEN"
.gsp_abfertigungsNr = OPEN.gs_filialenNr
.gsp_avisoId = OPEN.gs_ATBNr
.gsp_abfertigungsNr = OPEN.gs_abfertigungsnr
.gsp_erstellungsdatum = Me.datum
.gsp_avisoId = ""
.gsp_ust = ""
.gsp_ATCNr = ""
.gsp_MRNNr = ""
@@ -337,26 +363,25 @@ Public Class frmGesamtsicherheitenNEU
OPENPos.SAVE()
'If Neu = True AndAlso count <= 1 Then OPEN.gs_gsNr = AddNewGesamtSichNr()
If Neu = True AndAlso count <= 1 Then OPEN.gs_gsNr = AddNewGesamtSichNr()
'Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID)
' Case "Neu"
' OPEN.SAVE()
Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID)
Case "Neu"
OPEN.SAVE()
' Case Else
' If (count >= 1) Then
' OPEN.SAVE()
' OPENPos.SAVE()
' Else
' MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
' End If
Case Else
If (count >= 1) Then
OPEN.SAVE()
OPENPos.SAVE()
Else
MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
End If
'End Select
End Select
Next
AfterButton()
@@ -373,24 +398,32 @@ Public Class frmGesamtsicherheitenNEU
Exit Sub
End If
If (checkWarenwert() = False) Then
MsgBox("Der Warenwert der Positionen übersteigt den Warenwert der Gestellung!")
txtPosWarenwert.Focus()
Exit Sub
End If
Try
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
With SicherheitsPos
.gsp_gsId = currentSicherheit.gs_gsId
.gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsId) + 1
.gsp_warenwert = 0
.gsp_sicherheitsbetrag = 0
.gsp_freitext = ""
.gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
.gsp_freitext = txtPosFreitext.Text
.gsp_filialenNr = currentSicherheit.gs_filialenNr
.gsp_art = "OPEN"
.gsp_abfertigungsNr = ""
.gsp_avisoId = ""
.gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr
.gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtPosDate.Text, txtPosTime.Text)
.gsp_ust = currentSicherheit.gs_ust
.gsp_ATCNr = ""
.gsp_MRNNr = ""
.gsp_ATCNr = txtPositionenCRN.Text
.gsp_MRNNr = txtPositionenCRN.Text
End With
SicherheitsPos.SAVE()
'If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()
@@ -445,7 +478,7 @@ Public Class frmGesamtsicherheitenNEU
For Each contr As Windows.Forms.Control In panOben.Controls
If contr.GetType.FullName = "System.Windows.Forms.TextBox" Then contr.Text = ""
Next
cboATR.SelectedItem = Nothing
cboSicherheitATR.SelectedItem = Nothing
End Sub
Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String
@@ -476,7 +509,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click ', btnSaveOben.Click
If checkMandatoryFieldsAreFilled() = False Then Exit Sub
@@ -494,13 +527,14 @@ Public Class frmGesamtsicherheitenNEU
End Try
Me.Abfertigungsnummer = txtAbfertNum.Text
Me.LKWID = txtLKWID.Text
Me.LKWKZ = txtLKWID.Text
If setNullToZero(Me.gessicherheitID) >= 0 Then
Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWKZ] = '" & Me.LKWKZ & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
SQL.doSQL(sqlstring, "AVISO")
LoadDGVSicherheiten()
End If
loadTitle()
panOben.Enabled = True : panOben.Enabled = True
panOverlay.Visible = False
@@ -529,13 +563,13 @@ Public Class frmGesamtsicherheitenNEU
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.CurrentRow.Cells("gs_gsId").Value)
txtMRN.Text = Sicherh.gs_ATBNr
txtPos.Text = Sicherh.gs_posNr
txtMRNWarenwert.Text = Sicherh.gs_warenwert
txtFreitextOpen.Text = Sicherh.gs_freitext
cboATR.SelectedItem = Sicherh.gs_atr
txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
txtSicherheitATBNr.Text = Sicherh.gs_ATBNr
txtAnzahlPos.Text = Sicherh.gs_posNr
txtSicherheitWarenwert.Text = Sicherh.gs_warenwert
txtSicherheitFreitext.Text = Sicherh.gs_freitext
cboSicherheitATR.SelectedItem = Sicherh.gs_atr
txtSicherheitDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
txtSicherheitTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
currentSicherheit = Sicherh
@@ -546,19 +580,20 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnUpdateSicherheit_Click(sender As Object, e As EventArgs) Handles btnUpdateSicherheit.Click
With currentSicherheit
.gs_ATBNr = txtMRN.Text
.gs_posNr = Double.Parse(setNullToZero(txtPos.Text))
.gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_ATBNr = txtSicherheitATBNr.Text
.gs_posNr = Double.Parse(setNullToZero(txtAnzahlPos.Text))
.gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDate.Text, txtSicherheitTime.Text)
.gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_standort = Me.Standort
.gs_art = "OPEN"
.gs_gsNr = Me.gessicherheitID
'.MakeDate = Me.MakeDate
.gs_freitext = Me.txtFreitextOpen.Text
.gs_freitext = Me.txtSicherheitFreitext.Text
'.saldo = currentGesSichRef.Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
End With
checkWarenwert()
currentSicherheit.SAVE()
btnUpdateSicherheit.Visible = False
btnAddSicherheit.Visible = True
@@ -570,13 +605,13 @@ Public Class frmGesamtsicherheitenNEU
With currentSPos
.gsp_art = "CLOSE"
.gsp_gspPosId = txtPos.Text
.gsp_freitext = txtPosFreitext.Text
.gsp_sicherheitsbetrag = txtPosSicherheitsbetrag.Text
.gsp_warenwert = txtPosWarenwert.Text
.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
.gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
.gsp_ATCNr = txtPositionenCRN.Text
End With
checkWarenwert()
currentSPos.SAVE()
btnAddPos.Visible = True
btnUpdatePos.Visible = False
@@ -584,15 +619,17 @@ Public Class frmGesamtsicherheitenNEU
AfterButton()
End Sub
Private Sub dgvGesamtsicherheitPositionen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellContentClick
Private Sub dgvGesamtsicherheitPositionen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellDoubleClick
Dim sPos As New cGesamtsicherheitsPositionen(indexGsId, dgvSicherheitsPos.CurrentRow.Cells("gsp_gspPosId").Value)
txtPos.Text = sPos.gsp_gspPosId
txtPosNr.Text = sPos.gsp_gspPosId
txtPosFreitext.Text = sPos.gsp_freitext
txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag
txtPosWarenwert.Text = sPos.gsp_sicherheitsbetrag
txtPosWarenwert.Text = sPos.gsp_warenwert
txtPositionenCRN.Text = sPos.gsp_ATCNr
txtPosDate.Text = sPos.gsp_erstellungsdatum.ToString("dd.MM.yyyy")
txtPosTime.Text = sPos.gsp_erstellungsdatum.ToString("HH:mm")
currentSPos = sPos
@@ -632,7 +669,7 @@ Public Class frmGesamtsicherheitenNEU
cbx_Suche_Warenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
cbx_Suche_Warenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID)
txtAbfertNum.Text = Me.Abfertigungsnummer
txtLKWID.Text = Me.LKWID
txtLKWID.Text = Me.LKWKZ
panOben.Enabled = False
End Sub
@@ -657,7 +694,7 @@ Public Class frmGesamtsicherheitenNEU
sicherheiten.gs_filialenNr = gessich.FilialNummer
sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
sicherheiten.gs_LKWID = gessich.LKWID
sicherheiten.gs_LKWKZ = gessich.LKWKZ
sicherheiten.gs_warenort = gessich.warenortID
End Sub
@@ -680,106 +717,16 @@ Public Class frmGesamtsicherheitenNEU
End Function
'Kalenderhandling
Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Select Case MonatJahr
Case "Monat"
DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr"
DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
'End If
Case "Tag"
DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then
btnTag.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
btnTag.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
btnTag.Text = "Vorgestern"
Else
btnTag.Text = srcTAG.ToString("dd.MM")
End If
'End If
Case ""
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
DateTimePicker2.Value = Now
End Select
End Sub
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
initBtns("Jahr")
End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1)
initBtns("Jahr")
End Sub
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
JAHR = JAHR.AddYears(-1)
initBtns("Jahr")
End Sub
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
initBtns("Monat")
End Sub
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
MONAT = MONAT.AddMonths(1)
initBtns("Monat")
End Sub
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
MONAT = MONAT.AddMonths(-1)
initBtns("Monat")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnTag.Click
initBtns("Tag")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnVonTag.Click
srcTAG = srcTAG.AddDays(-1)
initBtns("Tag")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnBisTag.Click
srcTAG = srcTAG.AddDays(1)
initBtns("Tag")
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
txtDatVon._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
txtDatBis._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
Try
Date.Parse(txtDatVon.Text)
Date.Parse(txtDatBis.Text)
If Me.Visible Then LoadDGVSicherheiten()
Catch ex As Exception
MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.")
End Try
End Sub
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
Private Sub btnNeu_Click(sender As Object, e As EventArgs)
panOverlay.Visible = True
End Sub
@@ -799,10 +746,64 @@ Public Class frmGesamtsicherheitenNEU
Private Sub clearSearchFields()
cbx_Suche_Warenort.changeItem("")
cbx_Suche_Filiale.changeItem("")
txt_Suche.Clear()
End Sub
Private Function checkWarenwert() As Boolean
Dim ok As Boolean = True
Dim offenerWarenwert As Double
Try
offenerWarenwert = calcOffenenWarenwert()
If (offenerWarenwert < Double.Parse(txtPosWarenwert.Text)) Then
ok = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return ok
End Function
Private Function calcOffenenWarenwert() As Double
Dim diff As Double = -10000
If currentSicherheit Is Nothing Then Exit Function
Try
Dim warenwertSumPositionen = CDbl(SQL.DLookup("SUM(gsp_warenwert)", "[tblGesamtsicherheitsPositionen]", "gsp_gsId ='" & currentSicherheit.gs_gsId & "'", "AVISO"))
diff = Double.Parse(currentSicherheit.gs_warenwert) - Double.Parse(warenwertSumPositionen)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return diff
End Function
Private Sub setSaldo()
lbloffenerSaldo.Text = "offener Saldo: "
If Me.calcOffenenWarenwert > 0 Then
lbloffenerSaldo.Text &= Me.calcOffenenWarenwert()
Else
lbloffenerSaldo.Text &= "0"
End If
End Sub
Private Sub rearangePosNr()
End Sub
End Class

2
Aviso/frmHauptfenster.vb
View File

@@ -4176,7 +4176,7 @@ Public Class frmHauptfenster
End Sub
Private Sub DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenNEU
Dim frm As New frmGesamtsicherheitenMenuNEU
frm.Standort = "VERAG AG"
frm.Show()
End Sub