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

191
Aviso/frmGesamtsicherheitenNEU.vb
View File

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