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

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

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

4
Aviso/frmGesamtsicherheitenMenu.vb
View File

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

535
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -7,14 +7,13 @@ Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenNEU Public Class frmGesamtsicherheitenNEU
'Dim openopened As cSicherheiten
Dim openopened As cSicherheiten 'Dim closedopened As cSicherheiten
Dim closedopened As cSicherheiten Dim currentSicherheit As cSicherheiten
Property currentSPos As cGesamtsicherheitsPositionen
Dim sicherheiten As cSicherheiten Property currentGesSichRef As cGesamtsicherheitsReferenz
Property GesSichRef As cGesamtsicherheitsReferenz
Property GesSichPos As cGesamtsicherheitsPositionen
Public Property gessicherheitID As Integer Public Property gessicherheitID As Integer
Public Property datum As DateTime = Nothing Public Property datum As DateTime = Nothing
Property Standort As String = "" Property Standort As String = ""
@@ -35,6 +34,8 @@ Public Class frmGesamtsicherheitenNEU
Public warenortID As String Public warenortID As String
Dim indexGsId As Integer = 0
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) 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) 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() Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
GesSichRef.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() 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") btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year 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 Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitPositionen) frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
End Sub End Sub
Public Sub LoadDGV() Public Sub LoadDGVSicherheiten()
lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString() lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = "" lblGestellungNr.Text = ""
Dim sqladd1 As String = "" 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 currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]" If currentGesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
Dim addtosqlstring 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_gsNr] = '" & gessicherheitID & "' order by [gs_datum]" Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " &
dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit]
dgvGesamtsicherheitMRN.LOAD() 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]" dgvGesamtsicherheit.SET_SQL(SQLStringMRN, "AVISO", ,)
dgvGesamtsicherheitPositionen.SET_SQL(SQLStringCRN, "AVISO", ,) dgvGesamtsicherheit.LOAD()
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
If dgvGesamtsicherheitMRN.Columns.Count > 0 Then
With dgvGesamtsicherheitMRN
If dgvGesamtsicherheit.Columns.Count > 0 Then
With dgvGesamtsicherheit
.RowHeadersWidth = 10 .RowHeadersWidth = 10
.Columns("gs_gsId").Visible = False .Columns("gs_gsId").Visible = False
.Columns("gs_warenwert").DefaultCellStyle.Format = "c" .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c" .Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = False .Columns("gs_saldo").Visible = False
Select Case GesSichRef.gsr_ATR Select Case currentGesSichRef.gsr_ATR
Case True Case True
.Columns("gs_ATBNr").HeaderText = "ATB" .Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_atr").HeaderText = "ATR" .Columns("gs_atr").HeaderText = "ATR"
@@ -141,71 +135,113 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With 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 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 .RowHeadersWidth = 10
.Columns("gsp_gsId").Visible = False .Columns("gsp_gsId").Visible = False
.Columns("gs_warenwert").DefaultCellStyle.Format = "c" .Columns("gsp_warenwert").DefaultCellStyle.Format = "c"
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c" '.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = False '.Columns("gs_saldo").Visible = False
Select Case GesSichRef.gsr_ATR Select Case currentGesSichRef.gsr_ATR
Case True Case True
.Columns("gs_ATBNr").HeaderText = "ATC / MRN" .Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
Case Else Case Else
.Columns("gs_ATBNr").HeaderText = "CRN" .Columns("gsp_ATCNr").HeaderText = "CRN"
End Select End Select
.Columns("gs_ATBNr").Width = 120 .Columns("gsp_ATCNr").Width = 120
.Columns("gs_datum").Width = 140 '.Columns("gs_datum").Width = 140
.Columns("gs_warenwert").Width = 100 .Columns("gsp_warenwert").Width = 100
.Columns("gs_sicherheitsbetrag").Width = 100 .Columns("gsp_sicherheitsbetrag").Width = 100
.Columns("gs_freitext").Width = 220 .Columns("gsp_freitext").Width = 220
End With End With
End If 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 End Sub
Public Sub LoadStandort() Public Sub LoadStandort()
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() lblReferenzwert.Text = "Referenzwert: €" & currentGesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = GesSichRef.gsr_zollsatz / 100 ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100
End Sub End Sub
Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtPosWarenwert.TextChanged
'Private Sub CalcSaldo()
' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]"
' Dim dt As New DataTable
' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
' Dim mrn As Integer = dt.Rows(0).Item(0)
' Dim crn As Integer = dt.Rows(0).Item(1)
' Saldo = Referenzwert - mrn + crn
' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N")
'End Sub
Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged
Try Try
Select Case sender.name Select Case sender.name
Case "txtMRNWarenwert" Case "txtMRNWarenwert"
txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") 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" Case "txtCRNWarenwert"
txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N") txtPosSicherheitsbetrag.Text = (txtPosWarenwert.Text * ZollsatzMulti).ToString("N")
End Select End Select
Catch Catch
End Try End Try
End Sub 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) Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 44 Case 48 To 57, 8, 44
' Zahlen, Backspace und , zulassen ' Zahlen, Backspace und , zulassen
@@ -253,7 +289,7 @@ Public Class frmGesamtsicherheitenNEU
End Select End Select
End Sub 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 Try
@@ -272,50 +308,56 @@ Public Class frmGesamtsicherheitenNEU
.gs_gsNr = Me.gessicherheitID .gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum .gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text .gs_freitext = Me.txtFreitextOpen.Text
.gs_saldo = GesSichRef.gsr_Saldo .gs_saldo = currentGesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem) .gs_atr = setNullToZero(cboATR.SelectedItem)
setEnviromentDataToObject(OPEN, Me) setEnviromentDataToObject(OPEN, Me)
End With End With
indexGsId = OPEN.SAVEOBJECT()
For count As Integer = 1 To limit 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 With OPENPos
.gsp_gsId = OPEN.gs_gsId '.gsp_gsId =
.gsp_gspPosId = count '.gsp_gspPosId = count
.gsp_warenwert = 0 .gsp_warenwert = 0
.gsp_sicherheitsbetrag = 0 .gsp_sicherheitsbetrag = 0
.gsp_freitext = "" .gsp_freitext = ""
.gsp_filialenNr = OPEN.gs_filialenNr .gsp_filialenNr = OPEN.gs_filialenNr
.gsp_art = "OPEN" .gsp_art = "OPEN"
.gsp_abfertigungsNr = "" .gsp_abfertigungsNr = OPEN.gs_filialenNr
.gsp_avisoId = "" .gsp_avisoId = OPEN.gs_ATBNr
.gsp_ust = OPEN.gs_ust .gsp_ust = ""
.gsp_ATCNr = "" .gsp_ATCNr = ""
.gsp_MRNNr = "" .gsp_MRNNr = ""
End With 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) 'Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID)
Case "Neu" ' Case "Neu"
OPEN.SAVE() ' 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
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 Next
AfterButton()
AfterButton()
Catch ex As Exception Catch ex As Exception
@@ -323,31 +365,42 @@ Public Class frmGesamtsicherheitenNEU
End Try End Try
End Sub 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 Try
'Dim Close As New cSicherheiten(Me)
Dim Close As New cSicherheiten() Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
With Close With SicherheitsPos
.gs_ATBNr = txtCRN.Text .gsp_gsId = currentSicherheit.gs_gsId
.gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) .gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsId) + 1
.gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gsp_warenwert = 0
.gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gsp_sicherheitsbetrag = 0
.gs_standort = Me.Standort .gsp_freitext = ""
.gs_art = "CLOSE" .gsp_filialenNr = currentSicherheit.gs_filialenNr
.gs_gsNr = Me.gessicherheitID .gsp_art = "OPEN"
.gs_erstellungsdatum = Me.datum .gsp_abfertigungsNr = ""
.gs_freitext = Me.txtFreitextClose.Text .gsp_avisoId = ""
.gs_saldo = GesSichRef.gsr_Saldo .gsp_ust = currentSicherheit.gs_ust
.gsp_ATCNr = ""
.gsp_MRNNr = ""
End With End With
If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() SicherheitsPos.SAVE()
Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID) 'If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()
Case "Neu"
Close.SAVE() 'Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID)
Case Else ' Case "Neu"
MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub ' Close.SAVE()
End Select ' Case Else
' MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub
'End Select
AfterButton() AfterButton()
Catch ex As Exception Catch ex As Exception
@@ -366,8 +419,8 @@ Public Class frmGesamtsicherheitenNEU
End If End If
End Function End Function
Sub AfterButton() Sub AfterButton()
GesSichRef.CalcSaldo() currentGesSichRef.CalcSaldo()
LoadDGV() LoadDGVSicherheiten()
EmptyTXT() EmptyTXT()
End Sub End Sub
@@ -434,7 +487,7 @@ Public Class frmGesamtsicherheitenNEU
End Try End Try
Try Try
Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String") Me.warenortID = checkNothingValue(cbx_Suche_Warenort.SelectedItem, "String")
Catch Catch
Me.warenortID = "-" Me.warenortID = "-"
@@ -446,7 +499,7 @@ Public Class frmGesamtsicherheitenNEU
If setNullToZero(Me.gessicherheitID) >= 0 Then 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_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
SQL.doSQL(sqlstring, "AVISO") SQL.doSQL(sqlstring, "AVISO")
LoadDGV() LoadDGVSicherheiten()
End If End If
panOben.Enabled = True : panOben.Enabled = True panOben.Enabled = True : panOben.Enabled = True
@@ -472,9 +525,9 @@ Public Class frmGesamtsicherheitenNEU
End Function 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 txtMRN.Text = Sicherh.gs_ATBNr
txtPos.Text = Sicherh.gs_posNr txtPos.Text = Sicherh.gs_posNr
@@ -484,15 +537,15 @@ Public Class frmGesamtsicherheitenNEU
txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
openopened = Sicherh currentSicherheit = Sicherh
btnAddOpen.Visible = False btnAddSicherheit.Visible = False
btnUpdateOpen.Visible = True btnUpdateSicherheit.Visible = True
btnDeleteOpen.Visible = True btnDeleteSicherheit.Visible = True
End Sub End Sub
Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click Private Sub btnUpdateSicherheit_Click(sender As Object, e As EventArgs) Handles btnUpdateSicherheit.Click
With openopened With currentSicherheit
.gs_ATBNr = txtMRN.Text .gs_ATBNr = txtMRN.Text
.gs_posNr = Double.Parse(setNullToZero(txtPos.Text)) .gs_posNr = Double.Parse(setNullToZero(txtPos.Text))
.gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
@@ -503,68 +556,69 @@ Public Class frmGesamtsicherheitenNEU
.gs_gsNr = Me.gessicherheitID .gs_gsNr = Me.gessicherheitID
'.MakeDate = Me.MakeDate '.MakeDate = Me.MakeDate
.gs_freitext = Me.txtFreitextOpen.Text .gs_freitext = Me.txtFreitextOpen.Text
'.saldo = GesSichRef.Saldo '.saldo = currentGesSichRef.Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem) .gs_atr = setNullToZero(cboATR.SelectedItem)
End With End With
openopened.SAVE() currentSicherheit.SAVE()
btnUpdateOpen.Visible = False btnUpdateSicherheit.Visible = False
btnAddOpen.Visible = True btnAddSicherheit.Visible = True
btnDeleteOpen.Visible = False btnDeleteSicherheit.Visible = False
AfterButton() AfterButton()
End Sub End Sub
Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click Private Sub btnUpdatePos_Click(sender As Object, e As EventArgs) Handles btnUpdatePos.Click
With closedopened With currentSPos
.gs_ATBNr = txtCRN.Text
.gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) .gsp_art = "CLOSE"
.gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gsp_gspPosId = txtPos.Text
.gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gsp_freitext = txtPosFreitext.Text
.gs_standort = Me.Standort .gsp_sicherheitsbetrag = txtPosSicherheitsbetrag.Text
.gs_art = "CLOSE" .gsp_warenwert = txtPosWarenwert.Text
.gs_freitext = Me.txtFreitextClose.Text .gsp_ATCNr = txtPositionenCRN.Text
End With End With
closedopened.SAVE() currentSPos.SAVE()
btnAddClose.Visible = True btnAddPos.Visible = True
btnUpdateClose.Visible = False btnUpdatePos.Visible = False
btnDeleteClose.Visible = False btnDeletePos.Visible = False
AfterButton() AfterButton()
End Sub 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 txtPos.Text = sPos.gsp_gspPosId
txtCRNWarenwert.Text = Sicherh.gs_warenwert txtPosFreitext.Text = sPos.gsp_freitext
txtFreitextClose.Text = Sicherh.gs_freitext txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag
txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") txtPosWarenwert.Text = sPos.gsp_sicherheitsbetrag
txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") txtPositionenCRN.Text = sPos.gsp_ATCNr
closedopened = Sicherh currentSPos = sPos
btnDeleteClose.Visible = True btnDeletePos.Visible = True
btnAddClose.Visible = False btnAddPos.Visible = False
btnUpdateClose.Visible = True btnUpdatePos.Visible = True
End Sub 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 Try
openopened.Delete() currentSicherheit.Delete()
btnUpdateOpen.Visible = False btnUpdateSicherheit.Visible = False
btnAddOpen.Visible = True btnAddSicherheit.Visible = True
btnDeleteOpen.Visible = False btnDeleteSicherheit.Visible = False
AfterButton() AfterButton()
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
End Sub 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 Try
closedopened.Delete() currentSPos.Delete()
btnUpdateClose.Visible = False btnUpdatePos.Visible = False
btnAddClose.Visible = True btnAddPos.Visible = True
btnDeleteClose.Visible = False btnDeletePos.Visible = False
AfterButton() AfterButton()
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
@@ -575,15 +629,15 @@ Public Class frmGesamtsicherheitenNEU
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) 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) 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) 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)
cboWarenort.SelectedIndex = cboWarenort.FindString(Me.warenortID) cbx_Suche_Warenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID)
txtAbfertNum.Text = Me.Abfertigungsnummer txtAbfertNum.Text = Me.Abfertigungsnummer
txtLKWID.Text = Me.LKWID txtLKWID.Text = Me.LKWID
panOben.Enabled = False panOben.Enabled = False
End Sub End Sub
Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click
Close() panOverlay.Visible = False
End Sub End Sub
Private Function checkMandatoryFieldsAreFilled() As Boolean Private Function checkMandatoryFieldsAreFilled() As Boolean
@@ -607,9 +661,28 @@ Public Class frmGesamtsicherheitenNEU
sicherheiten.gs_warenort = gessich.warenortID sicherheiten.gs_warenort = gessich.warenortID
End Sub 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) Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM") btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year btnJahr.Text = JAHR.Year
@@ -627,13 +700,13 @@ Public Class frmGesamtsicherheitenNEU
DateTimePicker1.Value = srcTAG DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then If srcTAG = Now.ToShortDateString Then
Button5.Text = "Heute" btnTag.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
Button5.Text = "Gestern" btnTag.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
Button5.Text = "Vorgestern" btnTag.Text = "Vorgestern"
Else Else
Button5.Text = srcTAG.ToString("dd.MM") btnTag.Text = srcTAG.ToString("dd.MM")
End If End If
'End If 'End If
@@ -649,6 +722,20 @@ Public Class frmGesamtsicherheitenNEU
initBtns("Jahr") initBtns("Jahr")
End Sub 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 Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
MONAT = MONAT.AddMonths(1) MONAT = MONAT.AddMonths(1)
initBtns("Monat") initBtns("Monat")
@@ -659,9 +746,19 @@ Public Class frmGesamtsicherheitenNEU
initBtns("Monat") initBtns("Monat")
End Sub End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1) Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnTag.Click
initBtns("Jahr") 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 End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged 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 txtDatBis._value = CDate(sender.value).ToShortDateString
End Sub 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 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 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 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 btnColor.BackColor = Color.White
meineAviso_anzeigen() meineAviso_anzeigen()
End Sub 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 End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions