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

Feature_GesamtsicherheitenNEU

Browse Source
This commit is contained in:
d.breimaier
2022-10-19 09:46:29 +02:00
parent db85cc6243
commit 5647343b76
4 changed files with 226 additions and 246 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
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>x64</PlatformTarget> <PlatformTarget>x86</PlatformTarget>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">

4
Aviso/My Project/AssemblyInfo.vb
View File

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

275
Aviso/frmGesamtsicherheitenNEU.Designer.vb generated
View File

@@ -44,7 +44,7 @@ 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.dgvGesamtsicherheitCRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvGesamtsicherheitPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnAddClose = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddClose = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnAddOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddOpen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblGestellungNr = New System.Windows.Forms.Label() Me.lblGestellungNr = New System.Windows.Forms.Label()
@@ -59,12 +59,13 @@ Partial Class frmGesamtsicherheitenNEU
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()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblZollsatz = New System.Windows.Forms.Label() Me.lblZollsatz = New System.Windows.Forms.Label()
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.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
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.Button7 = New System.Windows.Forms.Button()
@@ -83,12 +84,12 @@ 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.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label19 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnNeu = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.TextBox1 = New System.Windows.Forms.TextBox() Me.txtLKW = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox() Me.txtAbfNr = New System.Windows.Forms.TextBox()
Me.Label20 = New System.Windows.Forms.Label() 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()
@@ -116,12 +117,11 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtFreitextClose = New System.Windows.Forms.TextBox() Me.txtFreitextClose = New System.Windows.Forms.TextBox()
Me.txtFreitextOpen = New System.Windows.Forms.TextBox() Me.txtFreitextOpen = New System.Windows.Forms.TextBox()
Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.panOverlay.SuspendLayout() Me.panOverlay.SuspendLayout()
CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvGesamtsicherheitPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panOben.SuspendLayout() Me.panOben.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
@@ -180,7 +180,7 @@ Partial Class frmGesamtsicherheitenNEU
'Panel2 'Panel2
' '
Me.Panel2.Controls.Add(Me.panOverlay) Me.Panel2.Controls.Add(Me.panOverlay)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitCRN) Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitPositionen)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitMRN) Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitMRN)
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)
@@ -323,11 +323,11 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnClosePanOverlay.TabIndex = 0 Me.btnClosePanOverlay.TabIndex = 0
Me.btnClosePanOverlay.UseVisualStyleBackColor = False Me.btnClosePanOverlay.UseVisualStyleBackColor = False
' '
'dgvGesamtsicherheitCRN 'dgvGesamtsicherheitPositionen
' '
Me.dgvGesamtsicherheitCRN.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvGesamtsicherheitPositionen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheitCRN.AllowUserToAddRows = False Me.dgvGesamtsicherheitPositionen.AllowUserToAddRows = False
Me.dgvGesamtsicherheitCRN.AllowUserToDeleteRows = False Me.dgvGesamtsicherheitPositionen.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.dgvGesamtsicherheitCRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvGesamtsicherheitPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvGesamtsicherheitCRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGesamtsicherheitPositionen.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,14 +344,14 @@ 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.dgvGesamtsicherheitCRN.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvGesamtsicherheitPositionen.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvGesamtsicherheitCRN.Dock = System.Windows.Forms.DockStyle.Right Me.dgvGesamtsicherheitPositionen.Dock = System.Windows.Forms.DockStyle.Right
Me.dgvGesamtsicherheitCRN.Location = New System.Drawing.Point(692, 0) Me.dgvGesamtsicherheitPositionen.Location = New System.Drawing.Point(692, 0)
Me.dgvGesamtsicherheitCRN.Name = "dgvGesamtsicherheitCRN" Me.dgvGesamtsicherheitPositionen.Name = "dgvGesamtsicherheitPositionen"
Me.dgvGesamtsicherheitCRN.ReadOnly = True Me.dgvGesamtsicherheitPositionen.ReadOnly = True
Me.dgvGesamtsicherheitCRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvGesamtsicherheitPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheitCRN.Size = New System.Drawing.Size(692, 486) Me.dgvGesamtsicherheitPositionen.Size = New System.Drawing.Size(692, 486)
Me.dgvGesamtsicherheitCRN.TabIndex = 1 Me.dgvGesamtsicherheitPositionen.TabIndex = 1
' '
'btnAddClose 'btnAddClose
' '
@@ -362,7 +362,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnAddClose.FlatAppearance.BorderSize = 0 Me.btnAddClose.FlatAppearance.BorderSize = 0
Me.btnAddClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAddClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddClose.ForeColor = System.Drawing.Color.Black Me.btnAddClose.ForeColor = System.Drawing.Color.Black
Me.btnAddClose.Location = New System.Drawing.Point(1348, 104) Me.btnAddClose.Location = New System.Drawing.Point(1348, 225)
Me.btnAddClose.Name = "btnAddClose" Me.btnAddClose.Name = "btnAddClose"
Me.btnAddClose.Size = New System.Drawing.Size(24, 24) Me.btnAddClose.Size = New System.Drawing.Size(24, 24)
Me.btnAddClose.TabIndex = 31 Me.btnAddClose.TabIndex = 31
@@ -503,19 +503,19 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtMRN.Size = New System.Drawing.Size(205, 24) Me.txtMRN.Size = New System.Drawing.Size(205, 24)
Me.txtMRN.TabIndex = 19 Me.txtMRN.TabIndex = 19
' '
'FlatButton1 'btn_resetSearch
' '
Me.FlatButton1.allowBorder = False Me.btn_resetSearch.allowBorder = False
Me.FlatButton1.BackColor = System.Drawing.Color.White Me.btn_resetSearch.BackColor = System.Drawing.Color.White
Me.FlatButton1.FlatAppearance.BorderSize = 0 Me.btn_resetSearch.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn_resetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black Me.btn_resetSearch.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh Me.btn_resetSearch.Image = Global.AVISO.My.Resources.Resources.refresh
Me.FlatButton1.Location = New System.Drawing.Point(1340, 15) Me.btn_resetSearch.Location = New System.Drawing.Point(354, 28)
Me.FlatButton1.Name = "FlatButton1" Me.btn_resetSearch.Name = "btn_resetSearch"
Me.FlatButton1.Size = New System.Drawing.Size(32, 33) Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33)
Me.FlatButton1.TabIndex = 3 Me.btn_resetSearch.TabIndex = 3
Me.FlatButton1.UseVisualStyleBackColor = False Me.btn_resetSearch.UseVisualStyleBackColor = False
' '
'lblZollsatz 'lblZollsatz
' '
@@ -595,7 +595,6 @@ Partial Class frmGesamtsicherheitenNEU
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)
Me.panOben.Controls.Add(Me.FlatButton1)
Me.panOben.Controls.Add(Me.lblZollsatz) Me.panOben.Controls.Add(Me.lblZollsatz)
Me.panOben.Controls.Add(Me.lblReferenzwert) Me.panOben.Controls.Add(Me.lblReferenzwert)
Me.panOben.Controls.Add(Me.lblSaldo) Me.panOben.Controls.Add(Me.lblSaldo)
@@ -628,27 +627,54 @@ 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.MyComboBox1) Me.Panel1.Controls.Add(Me.cbxWarenort)
Me.Panel1.Controls.Add(Me.Label19) Me.Panel1.Controls.Add(Me.Label19)
Me.Panel1.Controls.Add(Me.MyComboBox2) Me.Panel1.Controls.Add(Me.cbxFiliale)
Me.Panel1.Controls.Add(Me.FlatButton2) Me.Panel1.Controls.Add(Me.btnNeu)
Me.Panel1.Controls.Add(Me.TextBox1) Me.Panel1.Controls.Add(Me.txtLKW)
Me.Panel1.Controls.Add(Me.TextBox2) Me.Panel1.Controls.Add(Me.txtAbfNr)
Me.Panel1.Controls.Add(Me.Label20) 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.Location = New System.Drawing.Point(0, 44) Me.Panel1.Location = New System.Drawing.Point(0, 44)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1316, 97) Me.Panel1.Size = New System.Drawing.Size(1384, 97)
Me.Panel1.TabIndex = 10 Me.Panel1.TabIndex = 10
Me.Panel1.Visible = False Me.Panel1.Visible = False
' '
'txtDatBis
'
Me.txtDatBis._DateTimeOnly = False
Me.txtDatBis._numbersOnly = False
Me.txtDatBis._numbersOnlyKommastellen = ""
Me.txtDatBis._numbersOnlyTrennzeichen = True
Me.txtDatBis._Prozent = False
Me.txtDatBis._ShortDateNew = False
Me.txtDatBis._ShortDateOnly = True
Me.txtDatBis._TimeOnly = False
Me.txtDatBis._TimeOnly_Seconds = False
Me.txtDatBis._value = ""
Me.txtDatBis._Waehrung = False
Me.txtDatBis._WaehrungZeichen = True
Me.txtDatBis.Enabled = False
Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatBis.ForeColor = System.Drawing.Color.Black
Me.txtDatBis.Location = New System.Drawing.Point(53, 63)
Me.txtDatBis.MaxLength = 10
Me.txtDatBis.MaxLineLength = -1
Me.txtDatBis.MaxLines_Warning = ""
Me.txtDatBis.MaxLines_Warning_Label = Nothing
Me.txtDatBis.Name = "txtDatBis"
Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
Me.txtDatBis.TabIndex = 36
'
'btnSuche 'btnSuche
' '
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(921, 5) Me.btnSuche.Location = New System.Drawing.Point(414, 19)
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
@@ -870,12 +896,13 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnSucheStarten.FlatAppearance.BorderSize = 0 Me.btnSucheStarten.FlatAppearance.BorderSize = 0
Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black
Me.btnSucheStarten.Location = New System.Drawing.Point(1194, 60) Me.btnSucheStarten.Location = New System.Drawing.Point(1262, 60)
Me.btnSucheStarten.Name = "btnSucheStarten" Me.btnSucheStarten.Name = "btnSucheStarten"
Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20) Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
Me.btnSucheStarten.TabIndex = 17 Me.btnSucheStarten.TabIndex = 17
Me.btnSucheStarten.Text = "Suche starten" Me.btnSucheStarten.Text = "Suche starten"
Me.btnSucheStarten.UseVisualStyleBackColor = False Me.btnSucheStarten.UseVisualStyleBackColor = False
Me.btnSucheStarten.Visible = False
' '
'Label23 'Label23
' '
@@ -883,87 +910,87 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label23.AutoSize = True Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label23.ForeColor = System.Drawing.Color.Honeydew Me.Label23.ForeColor = System.Drawing.Color.Honeydew
Me.Label23.Location = New System.Drawing.Point(139, 5) Me.Label23.Location = New System.Drawing.Point(207, 5)
Me.Label23.Name = "Label23" Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(24, 15) Me.Label23.Size = New System.Drawing.Size(24, 15)
Me.Label23.TabIndex = 13 Me.Label23.TabIndex = 13
Me.Label23.Text = "Bis" Me.Label23.Text = "Bis"
' '
'MyComboBox1 'cbxWarenort
' '
Me.MyComboBox1._allowedValuesFreiText = Nothing Me.cbxWarenort._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False Me.cbxWarenort._allowFreiText = False
Me.MyComboBox1._value = "" Me.cbxWarenort._value = ""
Me.MyComboBox1.DropDownWidth = 300 Me.cbxWarenort.DropDownWidth = 300
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox1.FormattingEnabled = True Me.cbxWarenort.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(336, 13) Me.cbxWarenort.Location = New System.Drawing.Point(663, 29)
Me.MyComboBox1.MaxLength = 4 Me.cbxWarenort.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1" Me.cbxWarenort.Name = "cbxWarenort"
Me.MyComboBox1.Size = New System.Drawing.Size(95, 24) Me.cbxWarenort.Size = New System.Drawing.Size(95, 24)
Me.MyComboBox1.TabIndex = 9 Me.cbxWarenort.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(333, 0) Me.Label19.Location = New System.Drawing.Point(660, 16)
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:"
' '
'MyComboBox2 'cbxFiliale
' '
Me.MyComboBox2._allowedValuesFreiText = Nothing Me.cbxFiliale._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False Me.cbxFiliale._allowFreiText = False
Me.MyComboBox2._value = "" Me.cbxFiliale._value = ""
Me.MyComboBox2.DropDownWidth = 300 Me.cbxFiliale.DropDownWidth = 300
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox2.FormattingEnabled = True Me.cbxFiliale.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(456, 16) Me.cbxFiliale.Location = New System.Drawing.Point(783, 32)
Me.MyComboBox2.MaxLength = 4 Me.cbxFiliale.MaxLength = 4
Me.MyComboBox2.Name = "MyComboBox2" Me.cbxFiliale.Name = "cbxFiliale"
Me.MyComboBox2.Size = New System.Drawing.Size(95, 21) Me.cbxFiliale.Size = New System.Drawing.Size(95, 21)
Me.MyComboBox2.TabIndex = 2 Me.cbxFiliale.TabIndex = 2
' '
'FlatButton2 'btnNeu
' '
Me.FlatButton2.allowBorder = False Me.btnNeu.allowBorder = False
Me.FlatButton2.BackColor = System.Drawing.Color.Gainsboro Me.btnNeu.BackColor = System.Drawing.Color.Gainsboro
Me.FlatButton2.FlatAppearance.BorderSize = 0 Me.btnNeu.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black Me.btnNeu.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Location = New System.Drawing.Point(1194, 16) Me.btnNeu.Location = New System.Drawing.Point(1156, 31)
Me.FlatButton2.Name = "FlatButton2" Me.btnNeu.Name = "btnNeu"
Me.FlatButton2.Size = New System.Drawing.Size(75, 23) Me.btnNeu.Size = New System.Drawing.Size(75, 23)
Me.FlatButton2.TabIndex = 7 Me.btnNeu.TabIndex = 7
Me.FlatButton2.Text = "Speichern" Me.btnNeu.Text = "Neu"
Me.FlatButton2.UseVisualStyleBackColor = False Me.btnNeu.UseVisualStyleBackColor = False
' '
'TextBox1 'txtLKW
' '
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(728, 16) Me.txtLKW.Location = New System.Drawing.Point(1055, 32)
Me.TextBox1.Margin = New System.Windows.Forms.Padding(0) Me.txtLKW.Margin = New System.Windows.Forms.Padding(0)
Me.TextBox1.Name = "TextBox1" Me.txtLKW.Name = "txtLKW"
Me.TextBox1.Size = New System.Drawing.Size(79, 24) Me.txtLKW.Size = New System.Drawing.Size(79, 24)
Me.TextBox1.TabIndex = 6 Me.txtLKW.TabIndex = 6
' '
'TextBox2 'txtAbfNr
' '
Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox2.Location = New System.Drawing.Point(571, 16) Me.txtAbfNr.Location = New System.Drawing.Point(898, 32)
Me.TextBox2.Margin = New System.Windows.Forms.Padding(0) Me.txtAbfNr.Margin = New System.Windows.Forms.Padding(0)
Me.TextBox2.Name = "TextBox2" Me.txtAbfNr.Name = "txtAbfNr"
Me.TextBox2.Size = New System.Drawing.Size(122, 24) Me.txtAbfNr.Size = New System.Drawing.Size(122, 24)
Me.TextBox2.TabIndex = 4 Me.txtAbfNr.TabIndex = 4
' '
'Label20 'Label20
' '
Me.Label20.AutoSize = True 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(725, 0) Me.Label20.Location = New System.Drawing.Point(1052, 16)
Me.Label20.Name = "Label20" Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(55, 13) Me.Label20.Size = New System.Drawing.Size(55, 13)
Me.Label20.TabIndex = 5 Me.Label20.TabIndex = 5
@@ -973,7 +1000,7 @@ Partial Class frmGesamtsicherheitenNEU
' '
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(568, 0) Me.Label21.Location = New System.Drawing.Point(895, 16)
Me.Label21.Name = "Label21" Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(125, 13) Me.Label21.Size = New System.Drawing.Size(125, 13)
Me.Label21.TabIndex = 3 Me.Label21.TabIndex = 3
@@ -983,7 +1010,7 @@ Partial Class frmGesamtsicherheitenNEU
' '
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(453, 0) Me.Label22.Location = New System.Drawing.Point(780, 16)
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
@@ -998,7 +1025,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnDeleteClose.FlatAppearance.BorderSize = 0 Me.btnDeleteClose.FlatAppearance.BorderSize = 0
Me.btnDeleteClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDeleteClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDeleteClose.ForeColor = System.Drawing.Color.Black Me.btnDeleteClose.ForeColor = System.Drawing.Color.Black
Me.btnDeleteClose.Location = New System.Drawing.Point(1348, 74) Me.btnDeleteClose.Location = New System.Drawing.Point(1348, 195)
Me.btnDeleteClose.Name = "btnDeleteClose" Me.btnDeleteClose.Name = "btnDeleteClose"
Me.btnDeleteClose.Size = New System.Drawing.Size(24, 24) Me.btnDeleteClose.Size = New System.Drawing.Size(24, 24)
Me.btnDeleteClose.TabIndex = 7 Me.btnDeleteClose.TabIndex = 7
@@ -1030,7 +1057,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnUpdateClose.FlatAppearance.BorderSize = 0 Me.btnUpdateClose.FlatAppearance.BorderSize = 0
Me.btnUpdateClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUpdateClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdateClose.ForeColor = System.Drawing.Color.Black Me.btnUpdateClose.ForeColor = System.Drawing.Color.Black
Me.btnUpdateClose.Location = New System.Drawing.Point(1348, 136) Me.btnUpdateClose.Location = New System.Drawing.Point(1348, 257)
Me.btnUpdateClose.Name = "btnUpdateClose" Me.btnUpdateClose.Name = "btnUpdateClose"
Me.btnUpdateClose.Size = New System.Drawing.Size(24, 24) Me.btnUpdateClose.Size = New System.Drawing.Size(24, 24)
Me.btnUpdateClose.TabIndex = 37 Me.btnUpdateClose.TabIndex = 37
@@ -1253,32 +1280,6 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24) Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24)
Me.txtFreitextOpen.TabIndex = 40 Me.txtFreitextOpen.TabIndex = 40
' '
'txtDatBis
'
Me.txtDatBis._DateTimeOnly = False
Me.txtDatBis._numbersOnly = False
Me.txtDatBis._numbersOnlyKommastellen = ""
Me.txtDatBis._numbersOnlyTrennzeichen = True
Me.txtDatBis._Prozent = False
Me.txtDatBis._ShortDateNew = False
Me.txtDatBis._ShortDateOnly = True
Me.txtDatBis._TimeOnly = False
Me.txtDatBis._TimeOnly_Seconds = False
Me.txtDatBis._value = ""
Me.txtDatBis._Waehrung = False
Me.txtDatBis._WaehrungZeichen = True
Me.txtDatBis.Enabled = False
Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatBis.ForeColor = System.Drawing.Color.Black
Me.txtDatBis.Location = New System.Drawing.Point(53, 63)
Me.txtDatBis.MaxLength = 10
Me.txtDatBis.MaxLineLength = -1
Me.txtDatBis.MaxLines_Warning = ""
Me.txtDatBis.MaxLines_Warning_Label = Nothing
Me.txtDatBis.Name = "txtDatBis"
Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
Me.txtDatBis.TabIndex = 36
'
'frmGesamtsicherheitenNEU 'frmGesamtsicherheitenNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1297,7 +1298,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.panOverlay.ResumeLayout(False) Me.panOverlay.ResumeLayout(False)
Me.panOverlay.PerformLayout() Me.panOverlay.PerformLayout()
CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvGesamtsicherheitPositionen, 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)
@@ -1308,7 +1309,7 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents dgvGesamtsicherheitMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvGesamtsicherheitMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel2 As Panel Friend WithEvents Panel2 As Panel
Friend WithEvents dgvGesamtsicherheitCRN As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvGesamtsicherheitPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnAddClose As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnAddClose As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btnAddOpen As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnAddOpen As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblGestellungNr As Label Friend WithEvents lblGestellungNr As Label
@@ -1323,7 +1324,7 @@ Partial Class frmGesamtsicherheitenNEU
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
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btn_resetSearch As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblZollsatz As Label Friend WithEvents lblZollsatz As Label
Friend WithEvents lblReferenzwert As Label Friend WithEvents lblReferenzwert As Label
Friend WithEvents lblSaldo As Label Friend WithEvents lblSaldo As Label
@@ -1366,12 +1367,12 @@ Partial Class frmGesamtsicherheitenNEU
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 MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label19 As Label Friend WithEvents Label19 As Label
Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnNeu As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents TextBox1 As TextBox Friend WithEvents txtLKW As TextBox
Friend WithEvents TextBox2 As TextBox Friend WithEvents txtAbfNr As TextBox
Friend WithEvents Label20 As Label 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

191
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -6,14 +6,23 @@ Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenNEU Public Class frmGesamtsicherheitenNEU
Dim openopened As cSicherheiten
Dim closedopened As cSicherheiten
Dim sicherheiten As cSicherheiten
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 GesSichRef As cGesamtsicherheitsReferenz
Property GesSichPos As cGesamtssicherheitsPositionen
Property Standort As String = "" Property Standort As String = ""
Public ZollsatzMulti As Double = 0 Public ZollsatzMulti As Double = 0
Public Zollsatz As Double
Public Saldo As Integer = 0 Public Saldo As Integer = 0
Public Neu As Boolean = False Public Neu As Boolean = False
@@ -26,26 +35,21 @@ Public Class frmGesamtsicherheitenNEU
Public warenortID As String Public warenortID As String
Dim openopened As cSicherheiten
Dim closedopened As cSicherheiten
Dim sicherheiten As cSicherheiten
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim 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)
Dim srcTAG As Date = CDate(Now.ToShortDateString) Dim srcTAG As Date = CDate(Now.ToShortDateString)
Dim JAHR As Date = CDate("01.01." & Now.Year) Dim JAHR As Date = CDate("01.01." & Now.Year)
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click Private Sub btn_resetSearch_Click(sender As Object, e As EventArgs) Handles btn_resetSearch.Click
Dim dgv As String = "" Dim dgv As String = ""
For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
dgv &= c.Width & c.HeaderText & vbCrLf dgv &= c.Width & c.HeaderText & vbCrLf
Next Next
' MsgBox(dgv)
LoadDGV() LoadDGV()
GesSichRef.LOAD() GesSichRef.LOAD()
LoadStandort() LoadStandort()
@@ -58,23 +62,24 @@ Public Class frmGesamtsicherheitenNEU
If setNullToZero(gessicherheitID) = "" Or Neu = True Then If setNullToZero(gessicherheitID) = "" Or Neu = True Then
panOben.Enabled = False : panOben.Enabled = False panOben.Enabled = False : panOben.Enabled = False
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) cbxFiliale.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) 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 If datum = Nothing Then datum = Date.Now
Else Else
LoadDGV() LoadDGV()
End If End If
LoadStandort() LoadStandort()
cboATR.Enabled = GesSichRef.gsr_ATR cboATR.Enabled = GesSichRef.gsr_ATR
Zollsatz = GesSichRef.gsr_zollsatz
Me.Text = "Gesamtsicherheit " & Standort Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN) frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitPositionen)
End Sub End Sub
Public Sub LoadDGV() Public Sub LoadDGV()
'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N")
lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString() lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = "" lblGestellungNr.Text = ""
Dim sqladd1 As String = "" Dim sqladd1 As String = ""
@@ -83,24 +88,25 @@ Public Class frmGesamtsicherheitenNEU
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 & "' and [gs_art] = 'Open' order by [gs_datum]" Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' order by [gs_datum]"
dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,)
dgvGesamtsicherheitMRN.LOAD() dgvGesamtsicherheitMRN.LOAD()
Dim SQLStringCRN As String = "select [gs_gsId], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]" 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]"
dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,) dgvGesamtsicherheitPositionen.SET_SQL(SQLStringCRN, "AVISO", ,)
dgvGesamtsicherheitCRN.LOAD() dgvGesamtsicherheitPositionen.LOAD()
Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'" Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'"
Dim dt As New DataTable Dim dt As New DataTable
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr") Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID"))
Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr")) Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr")) Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) 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.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
@@ -134,15 +140,13 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_sicherheitsbetrag").Width = 100 .Columns("gs_sicherheitsbetrag").Width = 100
.Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With End With
' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
'col.Width = 120
'Next
End If End If
If dgvGesamtsicherheitCRN.Columns.Count > 0 Then If dgvGesamtsicherheitPositionen.Columns.Count > 0 Then
With dgvGesamtsicherheitCRN With dgvGesamtsicherheitPositionen
.RowHeadersWidth = 10 .RowHeadersWidth = 10
.Columns("gs_gsId").Visible = False .Columns("gsp_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"
@@ -159,9 +163,7 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_sicherheitsbetrag").Width = 100 .Columns("gs_sicherheitsbetrag").Width = 100
.Columns("gs_freitext").Width = 220 .Columns("gs_freitext").Width = 220
End With End With
'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns
' col.Width = 120
'Next
End If End If
@@ -169,13 +171,7 @@ Public Class frmGesamtsicherheitenNEU
Public Sub LoadStandort() Public Sub LoadStandort()
'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & Standort & "'"
'Dim dt As New DataTable
'dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
'Zollsatz = dt.Rows(0).Item("Zollsatz")
'Referenzwert = dt.Rows(0).Item("Referenzwert")
'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = GesSichRef.gsr_zollsatz / 100 ZollsatzMulti = GesSichRef.gsr_zollsatz / 100
@@ -260,83 +256,68 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click
Try Try
If Integer.Parse(setNullToZero(txtPos.Text)) > 1 Then
Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text)) Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text))
For count As Integer = 1 To limit Dim OPEN As New cSicherheiten()
With OPEN
.gs_ATBNr = txtMRN.Text
.gs_posNr = Integer.Parse(setNullToZero(txtPos.Text))
.gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_standort = Me.Standort
.gs_art = "OPEN"
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text
.gs_saldo = GesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
setEnviromentDataToObject(OPEN, Me)
End With
For count As Integer = 1 To limit
If (count > 1) Then txtMRNWarenwert.Text = 0 If (count > 1) Then txtMRNWarenwert.Text = 0
Dim OPENWithMultiplePosNr As New cSicherheiten()
With OPENWithMultiplePosNr Dim OPENPos As New cGesamtsicherheitsPositionen()
.gs_ATBNr = txtMRN.Text
.gs_posNr = count
.gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_standort = Me.Standort
.gs_art = "OPEN"
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text
.gs_saldo = GesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
setEnviromentDataToObject(OPENWithMultiplePosNr, Me)
End With
If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr() With OPENPos
.gsp_gsId = OPEN.gs_gsId
Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) .gsp_gspPosId = count
Case "Neu" .gsp_warenwert = 0
OPENWithMultiplePosNr.SAVE() .gsp_sicherheitsbetrag = 0
Case Else .gsp_freitext = ""
If (count > 1) Then .gsp_filialenNr = OPEN.gs_filialenNr
OPENWithMultiplePosNr.SAVE() .gsp_art = "OPEN"
Else .gsp_abfertigungsNr = ""
MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) & "eingetragen") : OPENWithMultiplePosNr.SAVE() .gsp_avisoId = ""
End If .gsp_ust = OPEN.gs_ust
.gsp_ATCNr = ""
End Select .gsp_MRNNr = ""
Next
AfterButton()
Else
'Dim OPEN As New cSicherheiten(Me)
Dim OPEN As New cSicherheiten()
With OPEN
.gs_ATBNr = txtMRN.Text
.gs_posNr = Integer.Parse(setNullToZero(txtPos.Text))
.gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.gs_standort = Me.Standort
.gs_art = "OPEN"
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text
.gs_saldo = GesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
setEnviromentDataToObject(OPEN, Me)
End With End With
If Neu = True 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 Case Else
MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() 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 End Select
Next
AfterButton() AfterButton()
End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -494,7 +475,6 @@ Public Class frmGesamtsicherheitenNEU
Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value) Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value)
'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
txtMRN.Text = Sicherh.gs_ATBNr txtMRN.Text = Sicherh.gs_ATBNr
txtPos.Text = Sicherh.gs_posNr txtPos.Text = Sicherh.gs_posNr
@@ -550,10 +530,9 @@ Public Class frmGesamtsicherheitenNEU
AfterButton() AfterButton()
End Sub End Sub
Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitCRN.CellDoubleClick Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitPositionen.CellDoubleClick
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitPositionen.CurrentRow.Cells("gs_gsId").Value)
'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
txtCRN.Text = Sicherh.gs_ATBNr txtCRN.Text = Sicherh.gs_ATBNr
txtCRNWarenwert.Text = Sicherh.gs_warenwert txtCRNWarenwert.Text = Sicherh.gs_warenwert
@@ -639,18 +618,12 @@ Public Class frmGesamtsicherheitenNEU
DateTimePicker1.Value = MONAT DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr" Case "Jahr"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = JAHR DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
'End If 'End If
Case "Tag" Case "Tag"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = srcTAG DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then If srcTAG = Now.ToShortDateString Then
@@ -699,6 +672,12 @@ 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
End Sub
End Class End Class