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-19 17:04:36 +02:00
parent 21e4681df7
commit b67e780cb7
7 changed files with 892 additions and 757 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/Aviso.vbproj
View File

@@ -101,7 +101,7 @@
<DelaySign>false</DelaySign>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<PlatformTarget>x86</PlatformTarget>
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\Debug\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
@@ -126,7 +126,8 @@
<Reference Include="Common.Logging.Core, Version=3.4.1.0, Culture=neutral, PublicKeyToken=af08829b84f0328e, processorArchitecture=MSIL">
<HintPath>..\packages\Common.Logging.Core.3.4.1\lib\net40\Common.Logging.Core.dll</HintPath>
</Reference>
<Reference Include="DAKOSY_Worker">
<Reference Include="DAKOSY_Worker, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ADMIN\ADMIN\DAKOSY_Worker\bin\Debug\DAKOSY_Worker.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
@@ -316,6 +317,10 @@
<Reference Include="ThoughtWorks.QRCode">
<HintPath>..\..\..\dll\ThoughtWorks.QRCode.dll</HintPath>
</Reference>
<Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
</Reference>
<Reference Include="WindowsBase" />
</ItemGroup>
<ItemGroup>
@@ -1368,10 +1373,6 @@
<Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
<Name>SDL</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
<ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj">
<Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
<Name>Gemeinsames</Name>

2
Aviso/My Project/Application.Designer.vb generated
View File

@@ -32,7 +32,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.AVISO.frmLogin
Me.MainForm = AVISO.frmLogin
End Sub
End Class
End Namespace

4
Aviso/frmGesamtsicherheitenMenu.vb
View File

@@ -178,10 +178,6 @@ Public Class frmGesamtsicherheitenMenu
btnSucheStarten_Click(sender, e)
End Sub
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click
Try
Date.Parse(txtVon.Text)

612
Aviso/frmGesamtsicherheitenNEU.Designer.vb generated
View File

@@ -29,7 +29,7 @@ Partial Class frmGesamtsicherheitenNEU
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU))
Me.dgvGesamtsicherheitMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel2 = New System.Windows.Forms.Panel()
@@ -44,18 +44,18 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label17 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.dgvGesamtsicherheitPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnAddClose = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnAddOpen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
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.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtCRNSicherheitsbetrag = New System.Windows.Forms.TextBox()
Me.txtCRNWarenwert = New System.Windows.Forms.TextBox()
Me.txtCRN = New System.Windows.Forms.TextBox()
Me.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()
@@ -64,13 +64,15 @@ Partial Class frmGesamtsicherheitenNEU
Me.lblReferenzwert = New System.Windows.Forms.Label()
Me.lblSaldo = New System.Windows.Forms.Label()
Me.panOben = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.TextBox1 = 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.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
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()
@@ -84,19 +86,17 @@ Partial Class frmGesamtsicherheitenNEU
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label23 = New System.Windows.Forms.Label()
Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbx_Suche_Warenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbx_Suche_Filiale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtLKW = New System.Windows.Forms.TextBox()
Me.txtAbfNr = New System.Windows.Forms.TextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.txt_Suche = New System.Windows.Forms.TextBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.btnDeleteClose = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnDeleteOpen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnUpdateClose = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnUpdateOpen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.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.Label14 = New System.Windows.Forms.Label()
@@ -115,22 +115,22 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtFreitextClose = New System.Windows.Forms.TextBox()
Me.txtPosFreitext = New System.Windows.Forms.TextBox()
Me.txtFreitextOpen = New System.Windows.Forms.TextBox()
CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.panOverlay.SuspendLayout()
CType(Me.dgvGesamtsicherheitPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panOben.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'dgvGesamtsicherheitMRN
'dgvGesamtsicherheit
'
Me.dgvGesamtsicherheitMRN.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheitMRN.AllowUserToAddRows = False
Me.dgvGesamtsicherheitMRN.AllowUserToDeleteRows = False
Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheit.AllowUserToAddRows = False
Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -138,9 +138,9 @@ Partial Class frmGesamtsicherheitenNEU
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvGesamtsicherheitMRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvGesamtsicherheitMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGesamtsicherheitMRN.ContextMenuStrip = Me.ContextMenuStrip1
Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStrip1
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -148,11 +148,11 @@ Partial Class frmGesamtsicherheitenNEU
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvGesamtsicherheitMRN.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvGesamtsicherheitMRN.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvGesamtsicherheitMRN.Location = New System.Drawing.Point(0, 0)
Me.dgvGesamtsicherheitMRN.Name = "dgvGesamtsicherheitMRN"
Me.dgvGesamtsicherheitMRN.ReadOnly = True
Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0)
Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit"
Me.dgvGesamtsicherheit.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -160,10 +160,10 @@ Partial Class frmGesamtsicherheitenNEU
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvGesamtsicherheitMRN.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvGesamtsicherheitMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheitMRN.Size = New System.Drawing.Size(692, 486)
Me.dgvGesamtsicherheitMRN.TabIndex = 0
Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(692, 486)
Me.dgvGesamtsicherheit.TabIndex = 0
'
'ContextMenuStrip1
'
@@ -180,8 +180,8 @@ Partial Class frmGesamtsicherheitenNEU
'Panel2
'
Me.Panel2.Controls.Add(Me.panOverlay)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitPositionen)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitMRN)
Me.Panel2.Controls.Add(Me.dgvSicherheitsPos)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheit)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 290)
Me.Panel2.Name = "Panel2"
@@ -201,7 +201,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.panOverlay.Controls.Add(Me.Label17)
Me.panOverlay.Controls.Add(Me.Label16)
Me.panOverlay.Controls.Add(Me.btnClosePanOverlay)
Me.panOverlay.Location = New System.Drawing.Point(27, 183)
Me.panOverlay.Location = New System.Drawing.Point(493, 15)
Me.panOverlay.Name = "panOverlay"
Me.panOverlay.Size = New System.Drawing.Size(527, 275)
Me.panOverlay.TabIndex = 2
@@ -323,11 +323,11 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnClosePanOverlay.TabIndex = 0
Me.btnClosePanOverlay.UseVisualStyleBackColor = False
'
'dgvGesamtsicherheitPositionen
'dgvSicherheitsPos
'
Me.dgvGesamtsicherheitPositionen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheitPositionen.AllowUserToAddRows = False
Me.dgvGesamtsicherheitPositionen.AllowUserToDeleteRows = False
Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvSicherheitsPos.AllowUserToAddRows = False
Me.dgvSicherheitsPos.AllowUserToDeleteRows = False
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -335,8 +335,8 @@ Partial Class frmGesamtsicherheitenNEU
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvGesamtsicherheitPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvGesamtsicherheitPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSicherheitsPos.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvSicherheitsPos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -344,44 +344,44 @@ Partial Class frmGesamtsicherheitenNEU
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvGesamtsicherheitPositionen.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvGesamtsicherheitPositionen.Dock = System.Windows.Forms.DockStyle.Right
Me.dgvGesamtsicherheitPositionen.Location = New System.Drawing.Point(692, 0)
Me.dgvGesamtsicherheitPositionen.Name = "dgvGesamtsicherheitPositionen"
Me.dgvGesamtsicherheitPositionen.ReadOnly = True
Me.dgvGesamtsicherheitPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheitPositionen.Size = New System.Drawing.Size(692, 486)
Me.dgvGesamtsicherheitPositionen.TabIndex = 1
Me.dgvSicherheitsPos.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvSicherheitsPos.Dock = System.Windows.Forms.DockStyle.Right
Me.dgvSicherheitsPos.Location = New System.Drawing.Point(692, 0)
Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos"
Me.dgvSicherheitsPos.ReadOnly = True
Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSicherheitsPos.Size = New System.Drawing.Size(692, 486)
Me.dgvSicherheitsPos.TabIndex = 1
'
'btnAddClose
'btnAddPos
'
Me.btnAddClose.allowBorder = False
Me.btnAddClose.BackColor = System.Drawing.Color.White
Me.btnAddClose.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddClose.FlatAppearance.BorderSize = 0
Me.btnAddClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddClose.ForeColor = System.Drawing.Color.Black
Me.btnAddClose.Location = New System.Drawing.Point(1348, 225)
Me.btnAddClose.Name = "btnAddClose"
Me.btnAddClose.Size = New System.Drawing.Size(24, 24)
Me.btnAddClose.TabIndex = 31
Me.btnAddClose.UseVisualStyleBackColor = False
Me.btnAddPos.allowBorder = False
Me.btnAddPos.BackColor = System.Drawing.Color.White
Me.btnAddPos.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddPos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddPos.FlatAppearance.BorderSize = 0
Me.btnAddPos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddPos.ForeColor = System.Drawing.Color.Black
Me.btnAddPos.Location = New System.Drawing.Point(1348, 225)
Me.btnAddPos.Name = "btnAddPos"
Me.btnAddPos.Size = New System.Drawing.Size(24, 24)
Me.btnAddPos.TabIndex = 31
Me.btnAddPos.UseVisualStyleBackColor = False
'
'btnAddOpen
'btnAddSicherheit
'
Me.btnAddOpen.allowBorder = False
Me.btnAddOpen.BackColor = System.Drawing.Color.White
Me.btnAddOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddOpen.FlatAppearance.BorderSize = 0
Me.btnAddOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddOpen.ForeColor = System.Drawing.Color.Black
Me.btnAddOpen.Location = New System.Drawing.Point(654, 205)
Me.btnAddOpen.Name = "btnAddOpen"
Me.btnAddOpen.Size = New System.Drawing.Size(24, 24)
Me.btnAddOpen.TabIndex = 30
Me.btnAddOpen.UseVisualStyleBackColor = False
Me.btnAddSicherheit.allowBorder = False
Me.btnAddSicherheit.BackColor = System.Drawing.Color.White
Me.btnAddSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddSicherheit.FlatAppearance.BorderSize = 0
Me.btnAddSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddSicherheit.ForeColor = System.Drawing.Color.Black
Me.btnAddSicherheit.Location = New System.Drawing.Point(654, 205)
Me.btnAddSicherheit.Name = "btnAddSicherheit"
Me.btnAddSicherheit.Size = New System.Drawing.Size(24, 24)
Me.btnAddSicherheit.TabIndex = 30
Me.btnAddSicherheit.UseVisualStyleBackColor = False
'
'lblGestellungNr
'
@@ -447,33 +447,33 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnSaveOben.Text = "Speichern"
Me.btnSaveOben.UseVisualStyleBackColor = False
'
'txtCRNSicherheitsbetrag
'txtPosSicherheitsbetrag
'
Me.txtCRNSicherheitsbetrag.Enabled = False
Me.txtCRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNSicherheitsbetrag.Location = New System.Drawing.Point(1172, 204)
Me.txtCRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNSicherheitsbetrag.Name = "txtCRNSicherheitsbetrag"
Me.txtCRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
Me.txtCRNSicherheitsbetrag.TabIndex = 29
Me.txtPosSicherheitsbetrag.Enabled = False
Me.txtPosSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPosSicherheitsbetrag.Location = New System.Drawing.Point(1172, 204)
Me.txtPosSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0)
Me.txtPosSicherheitsbetrag.Name = "txtPosSicherheitsbetrag"
Me.txtPosSicherheitsbetrag.Size = New System.Drawing.Size(100, 24)
Me.txtPosSicherheitsbetrag.TabIndex = 29
'
'txtCRNWarenwert
'txtPosWarenwert
'
Me.txtCRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRNWarenwert.Location = New System.Drawing.Point(1072, 204)
Me.txtCRNWarenwert.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRNWarenwert.Name = "txtCRNWarenwert"
Me.txtCRNWarenwert.Size = New System.Drawing.Size(100, 24)
Me.txtCRNWarenwert.TabIndex = 28
Me.txtPosWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPosWarenwert.Location = New System.Drawing.Point(1072, 204)
Me.txtPosWarenwert.Margin = New System.Windows.Forms.Padding(0)
Me.txtPosWarenwert.Name = "txtPosWarenwert"
Me.txtPosWarenwert.Size = New System.Drawing.Size(100, 24)
Me.txtPosWarenwert.TabIndex = 28
'
'txtCRN
'txtPositionenCRN
'
Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCRN.Location = New System.Drawing.Point(708, 204)
Me.txtCRN.Margin = New System.Windows.Forms.Padding(0)
Me.txtCRN.Name = "txtCRN"
Me.txtCRN.Size = New System.Drawing.Size(205, 24)
Me.txtCRN.TabIndex = 25
Me.txtPositionenCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPositionenCRN.Location = New System.Drawing.Point(708, 204)
Me.txtPositionenCRN.Margin = New System.Windows.Forms.Padding(0)
Me.txtPositionenCRN.Name = "txtPositionenCRN"
Me.txtPositionenCRN.Size = New System.Drawing.Size(205, 24)
Me.txtPositionenCRN.TabIndex = 25
'
'txtMRNSicherheitsbetrag
'
@@ -511,7 +511,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(354, 28)
Me.btn_resetSearch.Location = New System.Drawing.Point(610, 33)
Me.btn_resetSearch.Name = "btn_resetSearch"
Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33)
Me.btn_resetSearch.TabIndex = 3
@@ -523,7 +523,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.lblZollsatz.AutoSize = True
Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
Me.lblZollsatz.Location = New System.Drawing.Point(1010, 190)
Me.lblZollsatz.Location = New System.Drawing.Point(962, 168)
Me.lblZollsatz.Name = "lblZollsatz"
Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
Me.lblZollsatz.TabIndex = 4
@@ -535,7 +535,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.lblReferenzwert.AutoSize = True
Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
Me.lblReferenzwert.Location = New System.Drawing.Point(1010, 168)
Me.lblReferenzwert.Location = New System.Drawing.Point(962, 152)
Me.lblReferenzwert.Name = "lblReferenzwert"
Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
Me.lblReferenzwert.TabIndex = 1
@@ -547,7 +547,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(1152, 160)
Me.lblSaldo.Location = New System.Drawing.Point(1225, 152)
Me.lblSaldo.Name = "lblSaldo"
Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
Me.lblSaldo.TabIndex = 5
@@ -556,11 +556,13 @@ 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.Label20)
Me.panOben.Controls.Add(Me.TextBox1)
Me.panOben.Controls.Add(Me.Panel1)
Me.panOben.Controls.Add(Me.btnDeleteClose)
Me.panOben.Controls.Add(Me.btnDeleteOpen)
Me.panOben.Controls.Add(Me.btnUpdateClose)
Me.panOben.Controls.Add(Me.btnUpdateOpen)
Me.panOben.Controls.Add(Me.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.Label14)
@@ -579,19 +581,19 @@ Partial Class frmGesamtsicherheitenNEU
Me.panOben.Controls.Add(Me.Label3)
Me.panOben.Controls.Add(Me.Label2)
Me.panOben.Controls.Add(Me.Label1)
Me.panOben.Controls.Add(Me.txtFreitextClose)
Me.panOben.Controls.Add(Me.txtPosFreitext)
Me.panOben.Controls.Add(Me.txtFreitextOpen)
Me.panOben.Controls.Add(Me.btnAddClose)
Me.panOben.Controls.Add(Me.btnAddOpen)
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.btnSaveOben)
Me.panOben.Controls.Add(Me.txtCRNSicherheitsbetrag)
Me.panOben.Controls.Add(Me.txtCRNWarenwert)
Me.panOben.Controls.Add(Me.txtCRN)
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)
@@ -605,15 +607,35 @@ Partial Class frmGesamtsicherheitenNEU
Me.panOben.Size = New System.Drawing.Size(1384, 290)
Me.panOben.TabIndex = 0
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.Label20.Location = New System.Drawing.Point(918, 237)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(25, 13)
Me.Label20.TabIndex = 42
Me.Label20.Text = "Pos"
'
'TextBox1
'
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
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.Panel1.Controls.Add(Me.txtDatBis)
Me.Panel1.Controls.Add(Me.btnSuche)
Me.Panel1.Controls.Add(Me.Label26)
Me.Panel1.Controls.Add(Me.Button7)
Me.Panel1.Controls.Add(Me.Button6)
Me.Panel1.Controls.Add(Me.Button5)
Me.Panel1.Controls.Add(Me.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)
@@ -627,13 +649,11 @@ Partial Class frmGesamtsicherheitenNEU
Me.Panel1.Controls.Add(Me.DateTimePicker1)
Me.Panel1.Controls.Add(Me.btnSucheStarten)
Me.Panel1.Controls.Add(Me.Label23)
Me.Panel1.Controls.Add(Me.cbxWarenort)
Me.Panel1.Controls.Add(Me.cbx_Suche_Warenort)
Me.Panel1.Controls.Add(Me.Label19)
Me.Panel1.Controls.Add(Me.cbxFiliale)
Me.Panel1.Controls.Add(Me.cbx_Suche_Filiale)
Me.Panel1.Controls.Add(Me.btnNeu)
Me.Panel1.Controls.Add(Me.txtLKW)
Me.Panel1.Controls.Add(Me.txtAbfNr)
Me.Panel1.Controls.Add(Me.Label20)
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)
@@ -641,7 +661,6 @@ Partial Class frmGesamtsicherheitenNEU
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1384, 97)
Me.Panel1.TabIndex = 10
Me.Panel1.Visible = False
'
'txtDatBis
'
@@ -674,7 +693,7 @@ Partial Class frmGesamtsicherheitenNEU
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(414, 19)
Me.btnSuche.Location = New System.Drawing.Point(692, 20)
Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
Me.btnSuche.TabIndex = 35
@@ -691,49 +710,49 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label26.TabIndex = 34
Me.Label26.Text = "Datum"
'
'Button7
'btnBisTag
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button7.ForeColor = System.Drawing.Color.Black
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(284, 7)
Me.Button7.Margin = New System.Windows.Forms.Padding(0)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(34, 23)
Me.Button7.TabIndex = 26
Me.Button7.Text = ">>"
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.UseVisualStyleBackColor = True
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
'
'Button6
'btnVonTag
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button6.ForeColor = System.Drawing.Color.Black
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.Location = New System.Drawing.Point(165, 7)
Me.Button6.Margin = New System.Windows.Forms.Padding(0)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(34, 23)
Me.Button6.TabIndex = 24
Me.Button6.Text = "<<"
Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.UseVisualStyleBackColor = True
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
'
'Button5
'btnTag
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button5.ForeColor = System.Drawing.Color.Black
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(198, 7)
Me.Button5.Margin = New System.Windows.Forms.Padding(0)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(87, 23)
Me.Button5.TabIndex = 25
Me.Button5.Text = "Heute"
Me.Button5.UseVisualStyleBackColor = True
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
'
@@ -916,43 +935,43 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label23.TabIndex = 13
Me.Label23.Text = "Bis"
'
'cbxWarenort
'cbx_Suche_Warenort
'
Me.cbxWarenort._allowedValuesFreiText = Nothing
Me.cbxWarenort._allowFreiText = False
Me.cbxWarenort._value = ""
Me.cbxWarenort.DropDownWidth = 300
Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxWarenort.FormattingEnabled = True
Me.cbxWarenort.Location = New System.Drawing.Point(663, 29)
Me.cbxWarenort.MaxLength = 4
Me.cbxWarenort.Name = "cbxWarenort"
Me.cbxWarenort.Size = New System.Drawing.Size(95, 24)
Me.cbxWarenort.TabIndex = 9
Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing
Me.cbx_Suche_Warenort._allowFreiText = False
Me.cbx_Suche_Warenort._value = ""
Me.cbx_Suche_Warenort.DropDownWidth = 300
Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_Suche_Warenort.FormattingEnabled = True
Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(345, 20)
Me.cbx_Suche_Warenort.MaxLength = 4
Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort"
Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24)
Me.cbx_Suche_Warenort.TabIndex = 9
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label19.Location = New System.Drawing.Point(660, 16)
Me.Label19.Location = New System.Drawing.Point(342, 7)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(63, 13)
Me.Label19.TabIndex = 8
Me.Label19.Text = "Warenort:"
'
'cbxFiliale
'cbx_Suche_Filiale
'
Me.cbxFiliale._allowedValuesFreiText = Nothing
Me.cbxFiliale._allowFreiText = False
Me.cbxFiliale._value = ""
Me.cbxFiliale.DropDownWidth = 300
Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFiliale.FormattingEnabled = True
Me.cbxFiliale.Location = New System.Drawing.Point(783, 32)
Me.cbxFiliale.MaxLength = 4
Me.cbxFiliale.Name = "cbxFiliale"
Me.cbxFiliale.Size = New System.Drawing.Size(95, 21)
Me.cbxFiliale.TabIndex = 2
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
'
@@ -961,124 +980,105 @@ Partial Class frmGesamtsicherheitenNEU
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(1156, 31)
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
'
'txtLKW
'txt_Suche
'
Me.txtLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKW.Location = New System.Drawing.Point(1055, 32)
Me.txtLKW.Margin = New System.Windows.Forms.Padding(0)
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.Size = New System.Drawing.Size(79, 24)
Me.txtLKW.TabIndex = 6
'
'txtAbfNr
'
Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfNr.Location = New System.Drawing.Point(898, 32)
Me.txtAbfNr.Margin = New System.Windows.Forms.Padding(0)
Me.txtAbfNr.Name = "txtAbfNr"
Me.txtAbfNr.Size = New System.Drawing.Size(122, 24)
Me.txtAbfNr.TabIndex = 4
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(1052, 16)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(55, 13)
Me.Label20.TabIndex = 5
Me.Label20.Text = "LKW-ID:"
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.Margin = New System.Windows.Forms.Padding(0)
Me.txt_Suche.Name = "txt_Suche"
Me.txt_Suche.Size = New System.Drawing.Size(243, 24)
Me.txt_Suche.TabIndex = 4
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(895, 16)
Me.Label21.Location = New System.Drawing.Point(342, 52)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(125, 13)
Me.Label21.Size = New System.Drawing.Size(47, 13)
Me.Label21.TabIndex = 3
Me.Label21.Text = "Abfertigungsnummer:"
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(780, 16)
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:"
'
'btnDeleteClose
'btnDeletePos
'
Me.btnDeleteClose.allowBorder = False
Me.btnDeleteClose.BackColor = System.Drawing.Color.White
Me.btnDeleteClose.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
Me.btnDeleteClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnDeleteClose.FlatAppearance.BorderSize = 0
Me.btnDeleteClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDeleteClose.ForeColor = System.Drawing.Color.Black
Me.btnDeleteClose.Location = New System.Drawing.Point(1348, 195)
Me.btnDeleteClose.Name = "btnDeleteClose"
Me.btnDeleteClose.Size = New System.Drawing.Size(24, 24)
Me.btnDeleteClose.TabIndex = 7
Me.btnDeleteClose.UseVisualStyleBackColor = False
Me.btnDeleteClose.Visible = False
Me.btnDeletePos.allowBorder = False
Me.btnDeletePos.BackColor = System.Drawing.Color.White
Me.btnDeletePos.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
Me.btnDeletePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnDeletePos.FlatAppearance.BorderSize = 0
Me.btnDeletePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDeletePos.ForeColor = System.Drawing.Color.Black
Me.btnDeletePos.Location = New System.Drawing.Point(1348, 195)
Me.btnDeletePos.Name = "btnDeletePos"
Me.btnDeletePos.Size = New System.Drawing.Size(24, 24)
Me.btnDeletePos.TabIndex = 7
Me.btnDeletePos.UseVisualStyleBackColor = False
Me.btnDeletePos.Visible = False
'
'btnDeleteOpen
'btnDeleteSicherheit
'
Me.btnDeleteOpen.allowBorder = False
Me.btnDeleteOpen.BackColor = System.Drawing.Color.White
Me.btnDeleteOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
Me.btnDeleteOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnDeleteOpen.FlatAppearance.BorderSize = 0
Me.btnDeleteOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDeleteOpen.ForeColor = System.Drawing.Color.Black
Me.btnDeleteOpen.Location = New System.Drawing.Point(654, 175)
Me.btnDeleteOpen.Name = "btnDeleteOpen"
Me.btnDeleteOpen.Size = New System.Drawing.Size(24, 24)
Me.btnDeleteOpen.TabIndex = 6
Me.btnDeleteOpen.UseVisualStyleBackColor = False
Me.btnDeleteOpen.Visible = False
Me.btnDeleteSicherheit.allowBorder = False
Me.btnDeleteSicherheit.BackColor = System.Drawing.Color.White
Me.btnDeleteSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.del2
Me.btnDeleteSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnDeleteSicherheit.FlatAppearance.BorderSize = 0
Me.btnDeleteSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDeleteSicherheit.ForeColor = System.Drawing.Color.Black
Me.btnDeleteSicherheit.Location = New System.Drawing.Point(654, 175)
Me.btnDeleteSicherheit.Name = "btnDeleteSicherheit"
Me.btnDeleteSicherheit.Size = New System.Drawing.Size(24, 24)
Me.btnDeleteSicherheit.TabIndex = 6
Me.btnDeleteSicherheit.UseVisualStyleBackColor = False
Me.btnDeleteSicherheit.Visible = False
'
'btnUpdateClose
'btnUpdatePos
'
Me.btnUpdateClose.allowBorder = False
Me.btnUpdateClose.BackColor = System.Drawing.Color.White
Me.btnUpdateClose.BackgroundImage = Global.AVISO.My.Resources.Resources.ok
Me.btnUpdateClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnUpdateClose.FlatAppearance.BorderSize = 0
Me.btnUpdateClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdateClose.ForeColor = System.Drawing.Color.Black
Me.btnUpdateClose.Location = New System.Drawing.Point(1348, 257)
Me.btnUpdateClose.Name = "btnUpdateClose"
Me.btnUpdateClose.Size = New System.Drawing.Size(24, 24)
Me.btnUpdateClose.TabIndex = 37
Me.btnUpdateClose.UseVisualStyleBackColor = False
Me.btnUpdateClose.Visible = False
Me.btnUpdatePos.allowBorder = False
Me.btnUpdatePos.BackColor = System.Drawing.Color.White
Me.btnUpdatePos.BackgroundImage = Global.AVISO.My.Resources.Resources.ok
Me.btnUpdatePos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnUpdatePos.FlatAppearance.BorderSize = 0
Me.btnUpdatePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdatePos.ForeColor = System.Drawing.Color.Black
Me.btnUpdatePos.Location = New System.Drawing.Point(1348, 257)
Me.btnUpdatePos.Name = "btnUpdatePos"
Me.btnUpdatePos.Size = New System.Drawing.Size(24, 24)
Me.btnUpdatePos.TabIndex = 37
Me.btnUpdatePos.UseVisualStyleBackColor = False
Me.btnUpdatePos.Visible = False
'
'btnUpdateOpen
'btnUpdateSicherheit
'
Me.btnUpdateOpen.allowBorder = False
Me.btnUpdateOpen.BackColor = System.Drawing.Color.White
Me.btnUpdateOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.ok
Me.btnUpdateOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnUpdateOpen.FlatAppearance.BorderSize = 0
Me.btnUpdateOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdateOpen.ForeColor = System.Drawing.Color.Black
Me.btnUpdateOpen.Location = New System.Drawing.Point(654, 237)
Me.btnUpdateOpen.Name = "btnUpdateOpen"
Me.btnUpdateOpen.Size = New System.Drawing.Size(24, 24)
Me.btnUpdateOpen.TabIndex = 35
Me.btnUpdateOpen.UseVisualStyleBackColor = False
Me.btnUpdateOpen.Visible = False
Me.btnUpdateSicherheit.allowBorder = False
Me.btnUpdateSicherheit.BackColor = System.Drawing.Color.White
Me.btnUpdateSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.ok
Me.btnUpdateSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnUpdateSicherheit.FlatAppearance.BorderSize = 0
Me.btnUpdateSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdateSicherheit.ForeColor = System.Drawing.Color.Black
Me.btnUpdateSicherheit.Location = New System.Drawing.Point(654, 237)
Me.btnUpdateSicherheit.Name = "btnUpdateSicherheit"
Me.btnUpdateSicherheit.Size = New System.Drawing.Size(24, 24)
Me.btnUpdateSicherheit.TabIndex = 35
Me.btnUpdateSicherheit.UseVisualStyleBackColor = False
Me.btnUpdateSicherheit.Visible = False
'
'Label15
'
@@ -1262,14 +1262,14 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label1.TabIndex = 8
Me.Label1.Text = "ATB Nummer"
'
'txtFreitextClose
'txtPosFreitext
'
Me.txtFreitextClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFreitextClose.Location = New System.Drawing.Point(1017, 250)
Me.txtFreitextClose.Margin = New System.Windows.Forms.Padding(0)
Me.txtFreitextClose.Name = "txtFreitextClose"
Me.txtFreitextClose.Size = New System.Drawing.Size(255, 24)
Me.txtFreitextClose.TabIndex = 41
Me.txtPosFreitext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPosFreitext.Location = New System.Drawing.Point(1017, 250)
Me.txtPosFreitext.Margin = New System.Windows.Forms.Padding(0)
Me.txtPosFreitext.Name = "txtPosFreitext"
Me.txtPosFreitext.Size = New System.Drawing.Size(255, 24)
Me.txtPosFreitext.TabIndex = 41
'
'txtFreitextOpen
'
@@ -1293,12 +1293,12 @@ Partial Class frmGesamtsicherheitenNEU
Me.Name = "frmGesamtsicherheitenNEU"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmGesSich"
CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.panOverlay.ResumeLayout(False)
Me.panOverlay.PerformLayout()
CType(Me.dgvGesamtsicherheitPositionen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit()
Me.panOben.ResumeLayout(False)
Me.panOben.PerformLayout()
Me.Panel1.ResumeLayout(False)
@@ -1307,20 +1307,20 @@ Partial Class frmGesamtsicherheitenNEU
End Sub
Friend WithEvents dgvGesamtsicherheitMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents dgvGesamtsicherheit As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel2 As Panel
Friend WithEvents dgvGesamtsicherheitPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnAddClose As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnAddOpen As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents dgvSicherheitsPos As VERAG_PROG_ALLGEMEIN.MyDatagridview
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 btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtCRNSicherheitsbetrag As TextBox
Friend WithEvents txtCRNWarenwert As TextBox
Friend WithEvents txtCRN As TextBox
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
@@ -1329,7 +1329,7 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents lblReferenzwert As Label
Friend WithEvents lblSaldo As Label
Friend WithEvents panOben As Panel
Friend WithEvents txtFreitextClose As TextBox
Friend WithEvents txtPosFreitext As TextBox
Friend WithEvents txtFreitextOpen As TextBox
Friend WithEvents Label14 As Label
Friend WithEvents txtEust As TextBox
@@ -1358,30 +1358,28 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents Label16 As Label
Friend WithEvents btnClosePanOverlay As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnUpdateClose As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnUpdateOpen As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnDeleteClose As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnDeleteOpen As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnUpdatePos As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnUpdateSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnDeletePos As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnDeleteSicherheit As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWarenort As Label
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ClosedErzeugenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel1 As Panel
Friend WithEvents cbxWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbx_Suche_Warenort As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label19 As Label
Friend WithEvents cbxFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbx_Suche_Filiale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtLKW As TextBox
Friend WithEvents txtAbfNr As TextBox
Friend WithEvents Label20 As Label
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 Button7 As Button
Friend WithEvents Button6 As Button
Friend WithEvents Button5 As Button
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
@@ -1395,4 +1393,6 @@ Partial Class frmGesamtsicherheitenNEU
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
End Class

533
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -7,14 +7,13 @@ Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenNEU
'Dim openopened As cSicherheiten
Dim openopened As cSicherheiten
'Dim closedopened As cSicherheiten
Dim closedopened As cSicherheiten
Dim sicherheiten As cSicherheiten
Property GesSichRef As cGesamtsicherheitsReferenz
Property GesSichPos As cGesamtsicherheitsPositionen
Dim currentSicherheit As cSicherheiten
Property currentSPos As cGesamtsicherheitsPositionen
Property currentGesSichRef As cGesamtsicherheitsReferenz
Public Property gessicherheitID As Integer
Public Property datum As DateTime = Nothing
Property Standort As String = ""
@@ -35,6 +34,8 @@ Public Class frmGesamtsicherheitenNEU
Public warenortID As String
Dim indexGsId As Integer = 0
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
@@ -43,85 +44,78 @@ Public Class frmGesamtsicherheitenNEU
Dim JAHR As Date = CDate("01.01." & Now.Year)
Private Sub btn_resetSearch_Click(sender As Object, e As EventArgs) Handles btn_resetSearch.Click
Dim dgv As String = ""
For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
dgv &= c.Width & c.HeaderText & vbCrLf
Next
LoadDGV()
GesSichRef.LOAD()
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")
If setNullToZero(gessicherheitID) = 0 Or Neu = True Then
'panOben.Enabled = False : panOben.Enabled = False
Panel1.Enabled = 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()
End Sub
cboATR.Enabled = currentGesSichRef.gsr_ATR
Zollsatz = currentGesSichRef.gsr_zollsatz
Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
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
If setNullToZero(gessicherheitID) = "" Or Neu = True Then
panOben.Enabled = False : panOben.Enabled = False
'panOverlay.Visible = True
cbxFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cbxFiliale.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
If datum = Nothing Then datum = Date.Now
Else
LoadDGV()
End If
LoadStandort()
cboATR.Enabled = GesSichRef.gsr_ATR
Zollsatz = GesSichRef.gsr_zollsatz
Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitPositionen)
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
End Sub
Public Sub LoadDGV()
Public Sub LoadDGVSicherheiten()
lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString()
lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = ""
Dim sqladd1 As String = ""
If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
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]"
Dim addtosqlstring As String = ""
Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' order by [gs_datum]"
dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,)
dgvGesamtsicherheitMRN.LOAD()
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 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] = '" & gessicherheitID & "' order by [gsp_gspPosId]"
dgvGesamtsicherheitPositionen.SET_SQL(SQLStringCRN, "AVISO", ,)
dgvGesamtsicherheitPositionen.LOAD()
Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID"))
Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
If Me.LKWID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWID & " "
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
End If
dgvGesamtsicherheit.SET_SQL(SQLStringMRN, "AVISO", ,)
dgvGesamtsicherheit.LOAD()
If dgvGesamtsicherheitMRN.Columns.Count > 0 Then
With dgvGesamtsicherheitMRN
If dgvGesamtsicherheit.Columns.Count > 0 Then
With dgvGesamtsicherheit
.RowHeadersWidth = 10
.Columns("gs_gsId").Visible = False
.Columns("gs_warenwert").DefaultCellStyle.Format = "c"
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = False
Select Case GesSichRef.gsr_ATR
Select Case currentGesSichRef.gsr_ATR
Case True
.Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_atr").HeaderText = "ATR"
@@ -141,71 +135,113 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With
'For Each row As DataGridViewRow In dgvGesamtsicherheit.Rows
' If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
' row.DefaultCellStyle.BackColor = Color.Red
' Else
' row.DefaultCellStyle.BackColor = Color.Green
' End If
'Next
End If
If dgvGesamtsicherheitPositionen.Columns.Count > 0 Then
With dgvGesamtsicherheitPositionen
End Sub
Private Sub dgvGesamtsicherheit_SelectionChanged(sender As Object, e As EventArgs) Handles dgvGesamtsicherheit.SelectionChanged
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
indexGsId = CInt(dgvGesamtsicherheit.SelectedRows(0).Cells("gs_gsId").Value)
currentSicherheit = New cSicherheiten(indexGsId)
LoadDGVSicherheitsPos(indexGsId)
loadTitle(indexGsId)
If dgvGesamtsicherheit.Enabled = False Then Exit Sub
End If
End Sub
Public Sub LoadDGVSicherheitsPos(gsId As Integer)
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]"
dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,)
dgvSicherheitsPos.LOAD()
If dgvSicherheitsPos.Columns.Count > 0 Then
With dgvSicherheitsPos
.RowHeadersWidth = 10
.Columns("gsp_gsId").Visible = False
.Columns("gs_warenwert").DefaultCellStyle.Format = "c"
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = False
Select Case GesSichRef.gsr_ATR
.Columns("gsp_warenwert").DefaultCellStyle.Format = "c"
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
'.Columns("gs_saldo").DefaultCellStyle.Format = "c"
'.Columns("gs_saldo").Visible = False
Select Case currentGesSichRef.gsr_ATR
Case True
.Columns("gs_ATBNr").HeaderText = "ATC / MRN"
.Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
Case Else
.Columns("gs_ATBNr").HeaderText = "CRN"
.Columns("gsp_ATCNr").HeaderText = "CRN"
End Select
.Columns("gs_ATBNr").Width = 120
.Columns("gs_datum").Width = 140
.Columns("gs_warenwert").Width = 100
.Columns("gs_sicherheitsbetrag").Width = 100
.Columns("gs_freitext").Width = 220
.Columns("gsp_ATCNr").Width = 120
'.Columns("gs_datum").Width = 140
.Columns("gsp_warenwert").Width = 100
.Columns("gsp_sicherheitsbetrag").Width = 100
.Columns("gsp_freitext").Width = 220
End With
End If
End Sub
Sub loadTitle(indexGsId As Integer)
'Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'"
lblGestellungNr.Text = ""
Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsId] = '" & indexGsId & "'"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID"))
Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
If Me.LKWID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWID & " "
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
End If
End Sub
Public Sub LoadStandort()
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = GesSichRef.gsr_zollsatz / 100
lblReferenzwert.Text = "Referenzwert: €" & currentGesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100
End Sub
'Private Sub CalcSaldo()
' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]"
' Dim dt As New DataTable
' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
' Dim mrn As Integer = dt.Rows(0).Item(0)
' Dim crn As Integer = dt.Rows(0).Item(1)
' Saldo = Referenzwert - mrn + crn
' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N")
'End Sub
Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged
Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtPosWarenwert.TextChanged
Try
Select Case sender.name
Case "txtMRNWarenwert"
txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N")
If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100)
If currentGesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (currentGesSichRef.gsr_ust / 100)
Case "txtCRNWarenwert"
txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N")
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, txtCRNWarenwert.KeyPress, txtPos.KeyPress
Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtPos.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 44
' Zahlen, Backspace und , zulassen
@@ -253,7 +289,7 @@ Public Class frmGesamtsicherheitenNEU
End Select
End Sub
Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click
Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click
Try
@@ -272,49 +308,55 @@ Public Class frmGesamtsicherheitenNEU
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text
.gs_saldo = GesSichRef.gsr_Saldo
.gs_saldo = currentGesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
setEnviromentDataToObject(OPEN, Me)
End With
indexGsId = OPEN.SAVEOBJECT()
For count As Integer = 1 To limit
If (count > 1) Then txtMRNWarenwert.Text = 0
'If (count > 1) Then txtMRNWarenwert.Text = 0
Dim OPENPos As New cGesamtsicherheitsPositionen()
Dim OPENPos As New cGesamtsicherheitsPositionen(indexGsId, count)
With OPENPos
.gsp_gsId = OPEN.gs_gsId
.gsp_gspPosId = count
'.gsp_gsId =
'.gsp_gspPosId = count
.gsp_warenwert = 0
.gsp_sicherheitsbetrag = 0
.gsp_freitext = ""
.gsp_filialenNr = OPEN.gs_filialenNr
.gsp_art = "OPEN"
.gsp_abfertigungsNr = ""
.gsp_avisoId = ""
.gsp_ust = OPEN.gs_ust
.gsp_abfertigungsNr = OPEN.gs_filialenNr
.gsp_avisoId = OPEN.gs_ATBNr
.gsp_ust = ""
.gsp_ATCNr = ""
.gsp_MRNNr = ""
End With
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()
Case Else
If (count > 1) Then
OPEN.SAVE()
Else
MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
End If
'Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID)
' Case "Neu"
' OPEN.SAVE()
End Select
' 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
Next
AfterButton()
@@ -323,31 +365,42 @@ Public Class frmGesamtsicherheitenNEU
End Try
End Sub
Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click
Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click
If dgvGesamtsicherheit.SelectedRows.Count = 0 Then
MsgBox("Bitte Sicherheit markieren, zu diese eine Pos hinzugefügt/entfernt/aktualisiert werden soll")
Exit Sub
End If
Try
'Dim Close As New cSicherheiten(Me)
Dim Close As New cSicherheiten()
With Close
.gs_ATBNr = txtCRN.Text
.gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
.gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_standort = Me.Standort
.gs_art = "CLOSE"
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextClose.Text
.gs_saldo = GesSichRef.gsr_Saldo
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_filialenNr = currentSicherheit.gs_filialenNr
.gsp_art = "OPEN"
.gsp_abfertigungsNr = ""
.gsp_avisoId = ""
.gsp_ust = currentSicherheit.gs_ust
.gsp_ATCNr = ""
.gsp_MRNNr = ""
End With
If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()
SicherheitsPos.SAVE()
Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID)
Case "Neu"
Close.SAVE()
Case Else
MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub
End Select
'If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()
'Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID)
' Case "Neu"
' Close.SAVE()
' Case Else
' MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub
'End Select
AfterButton()
Catch ex As Exception
@@ -366,8 +419,8 @@ Public Class frmGesamtsicherheitenNEU
End If
End Function
Sub AfterButton()
GesSichRef.CalcSaldo()
LoadDGV()
currentGesSichRef.CalcSaldo()
LoadDGVSicherheiten()
EmptyTXT()
End Sub
@@ -434,7 +487,7 @@ Public Class frmGesamtsicherheitenNEU
End Try
Try
Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String")
Me.warenortID = checkNothingValue(cbx_Suche_Warenort.SelectedItem, "String")
Catch
Me.warenortID = "-"
@@ -446,7 +499,7 @@ Public Class frmGesamtsicherheitenNEU
If setNullToZero(Me.gessicherheitID) >= 0 Then
Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
SQL.doSQL(sqlstring, "AVISO")
LoadDGV()
LoadDGVSicherheiten()
End If
panOben.Enabled = True : panOben.Enabled = True
@@ -472,9 +525,9 @@ Public Class frmGesamtsicherheitenNEU
End Function
Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick
Private Sub dgvGesamtsicherheit_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheit.CellContentClick
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value)
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.CurrentRow.Cells("gs_gsId").Value)
txtMRN.Text = Sicherh.gs_ATBNr
txtPos.Text = Sicherh.gs_posNr
@@ -484,15 +537,15 @@ Public Class frmGesamtsicherheitenNEU
txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
openopened = Sicherh
currentSicherheit = Sicherh
btnAddOpen.Visible = False
btnUpdateOpen.Visible = True
btnDeleteOpen.Visible = True
btnAddSicherheit.Visible = False
btnUpdateSicherheit.Visible = True
btnDeleteSicherheit.Visible = True
End Sub
Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click
With openopened
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)
@@ -503,68 +556,69 @@ Public Class frmGesamtsicherheitenNEU
.gs_gsNr = Me.gessicherheitID
'.MakeDate = Me.MakeDate
.gs_freitext = Me.txtFreitextOpen.Text
'.saldo = GesSichRef.Saldo
'.saldo = currentGesSichRef.Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
End With
openopened.SAVE()
btnUpdateOpen.Visible = False
btnAddOpen.Visible = True
btnDeleteOpen.Visible = False
currentSicherheit.SAVE()
btnUpdateSicherheit.Visible = False
btnAddSicherheit.Visible = True
btnDeleteSicherheit.Visible = False
AfterButton()
End Sub
Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click
With closedopened
.gs_ATBNr = txtCRN.Text
.gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
.gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_standort = Me.Standort
.gs_art = "CLOSE"
.gs_freitext = Me.txtFreitextClose.Text
Private Sub btnUpdatePos_Click(sender As Object, e As EventArgs) Handles btnUpdatePos.Click
With currentSPos
.gsp_art = "CLOSE"
.gsp_gspPosId = txtPos.Text
.gsp_freitext = txtPosFreitext.Text
.gsp_sicherheitsbetrag = txtPosSicherheitsbetrag.Text
.gsp_warenwert = txtPosWarenwert.Text
.gsp_ATCNr = txtPositionenCRN.Text
End With
closedopened.SAVE()
btnAddClose.Visible = True
btnUpdateClose.Visible = False
btnDeleteClose.Visible = False
currentSPos.SAVE()
btnAddPos.Visible = True
btnUpdatePos.Visible = False
btnDeletePos.Visible = False
AfterButton()
End Sub
Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitPositionen.CellDoubleClick
Private Sub dgvGesamtsicherheitPositionen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellContentClick
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitPositionen.CurrentRow.Cells("gs_gsId").Value)
Dim sPos As New cGesamtsicherheitsPositionen(indexGsId, dgvSicherheitsPos.CurrentRow.Cells("gsp_gspPosId").Value)
txtCRN.Text = Sicherh.gs_ATBNr
txtCRNWarenwert.Text = Sicherh.gs_warenwert
txtFreitextClose.Text = Sicherh.gs_freitext
txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
txtPos.Text = sPos.gsp_gspPosId
txtPosFreitext.Text = sPos.gsp_freitext
txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag
txtPosWarenwert.Text = sPos.gsp_sicherheitsbetrag
txtPositionenCRN.Text = sPos.gsp_ATCNr
closedopened = Sicherh
currentSPos = sPos
btnDeleteClose.Visible = True
btnAddClose.Visible = False
btnUpdateClose.Visible = True
btnDeletePos.Visible = True
btnAddPos.Visible = False
btnUpdatePos.Visible = True
End Sub
Private Sub btnDeleteOpen_Click(sender As Object, e As EventArgs) Handles btnDeleteOpen.Click
Private Sub btnDeleteSicherheit_Click(sender As Object, e As EventArgs) Handles btnDeleteSicherheit.Click
Try
openopened.Delete()
btnUpdateOpen.Visible = False
btnAddOpen.Visible = True
btnDeleteOpen.Visible = False
currentSicherheit.Delete()
btnUpdateSicherheit.Visible = False
btnAddSicherheit.Visible = True
btnDeleteSicherheit.Visible = False
AfterButton()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnDeleteClose_Click_1(sender As Object, e As EventArgs) Handles btnDeleteClose.Click
Private Sub btnDeletePos_Click(sender As Object, e As EventArgs) Handles btnDeletePos.Click
Try
closedopened.Delete()
btnUpdateClose.Visible = False
btnAddClose.Visible = True
btnDeleteClose.Visible = False
currentSPos.Delete()
btnUpdatePos.Visible = False
btnAddPos.Visible = True
btnDeletePos.Visible = False
AfterButton()
Catch ex As Exception
MsgBox(ex.Message)
@@ -575,15 +629,15 @@ Public Class frmGesamtsicherheitenNEU
panOverlay.Visible = True
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
cboWarenort.SelectedIndex = cboWarenort.FindString(Me.warenortID)
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
panOben.Enabled = False
End Sub
Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click
Close()
panOverlay.Visible = False
End Sub
Private Function checkMandatoryFieldsAreFilled() As Boolean
@@ -607,9 +661,28 @@ Public Class frmGesamtsicherheitenNEU
sicherheiten.gs_warenort = gessich.warenortID
End Sub
Private Sub ClosedErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClosedErzeugenToolStripMenuItem.Click
MsgBox("")
End Sub
Private Function getLatestPosNr(gs_gsId As Integer) As Integer
Dim posNr As Integer = 0
Dim sqlq As String = "select MAX([gsp_gspPosId]) as MaxPosNr from tblGesamtsicherheitsPositionen where gsp_gsId = " & gs_gsId
Dim dt As New DataTable
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
posNr = dt.Rows(0).Item(0)
End If
Return posNr
End Function
'Kalenderhandling
Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
@@ -627,13 +700,13 @@ Public Class frmGesamtsicherheitenNEU
DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then
Button5.Text = "Heute"
btnTag.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
Button5.Text = "Gestern"
btnTag.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
Button5.Text = "Vorgestern"
btnTag.Text = "Vorgestern"
Else
Button5.Text = srcTAG.ToString("dd.MM")
btnTag.Text = srcTAG.ToString("dd.MM")
End If
'End If
@@ -649,6 +722,20 @@ Public Class frmGesamtsicherheitenNEU
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")
@@ -659,9 +746,19 @@ Public Class frmGesamtsicherheitenNEU
initBtns("Monat")
End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1)
initBtns("Jahr")
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
@@ -672,12 +769,40 @@ Public Class frmGesamtsicherheitenNEU
txtDatBis._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
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
panOverlay.Visible = True
End Sub
Private Sub btn_resetSearch_Click(sender As Object, e As EventArgs) Handles btn_resetSearch.Click
Dim dgv As String = ""
For Each c As DataGridViewColumn In dgvGesamtsicherheit.Columns
dgv &= c.Width & c.HeaderText & vbCrLf
Next
clearSearchFields()
LoadDGVSicherheiten()
currentGesSichRef.LOAD()
LoadStandort()
End Sub
Private Sub clearSearchFields()
cbx_Suche_Warenort.changeItem("")
cbx_Suche_Filiale.changeItem("")
txt_Suche.Clear()
End Sub
End Class

477
Aviso/frmHauptfenster.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

6
Aviso/frmHauptfenster.vb
View File

@@ -4174,6 +4174,12 @@ Public Class frmHauptfenster
btnColor.BackColor = Color.White
meineAviso_anzeigen()
End Sub
Private Sub DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHNEUToolStripMenuItem.Click
Dim frm As New frmGesamtsicherheitenNEU
frm.Standort = "VERAG AG"
frm.Show()
End Sub
End Class
Public Class AvisoStatusFunctions