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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-11-08 14:05:18 +01:00
parent 1d39579548 19c48fd6ea
commit e2f5268fb0
4 changed files with 367 additions and 321 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb generated
View File

@@ -25,6 +25,8 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenMenuNEU)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenMenuNEU))
Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -61,11 +63,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.lblSaldo = New System.Windows.Forms.Label() Me.lblSaldo = New System.Windows.Forms.Label()
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.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'dgvListe 'dgvListe
@@ -83,6 +83,18 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.dgvListe.Size = New System.Drawing.Size(606, 408) Me.dgvListe.Size = New System.Drawing.Size(606, 408)
Me.dgvListe.TabIndex = 1 Me.dgvListe.TabIndex = 1
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
'
'ExportCSVToolStripMenuItem
'
Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
'
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -607,9 +619,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
Me.lblSaldo.Location = New System.Drawing.Point(398, 21) Me.lblSaldo.Location = New System.Drawing.Point(398, 21)
Me.lblSaldo.Name = "lblSaldo" Me.lblSaldo.Name = "lblSaldo"
Me.lblSaldo.Size = New System.Drawing.Size(147, 24) Me.lblSaldo.Size = New System.Drawing.Size(82, 24)
Me.lblSaldo.TabIndex = 1 Me.lblSaldo.TabIndex = 1
Me.lblSaldo.Text = "Saldo: €80.000" Me.lblSaldo.Text = "Saldo: -"
' '
'lblZollsatz 'lblZollsatz
' '
@@ -619,9 +631,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
Me.lblZollsatz.Location = New System.Drawing.Point(399, 83) Me.lblZollsatz.Location = New System.Drawing.Point(399, 83)
Me.lblZollsatz.Name = "lblZollsatz" Me.lblZollsatz.Name = "lblZollsatz"
Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) Me.lblZollsatz.Size = New System.Drawing.Size(63, 16)
Me.lblZollsatz.TabIndex = 9 Me.lblZollsatz.TabIndex = 9
Me.lblZollsatz.Text = "Zollsatz: 12%" Me.lblZollsatz.Text = "Zollsatz: -"
' '
'lblReferenzwert 'lblReferenzwert
' '
@@ -631,21 +643,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
Me.lblReferenzwert.Location = New System.Drawing.Point(399, 56) Me.lblReferenzwert.Location = New System.Drawing.Point(399, 56)
Me.lblReferenzwert.Name = "lblReferenzwert" Me.lblReferenzwert.Name = "lblReferenzwert"
Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) Me.lblReferenzwert.Size = New System.Drawing.Size(95, 16)
Me.lblReferenzwert.TabIndex = 6 Me.lblReferenzwert.TabIndex = 6
Me.lblReferenzwert.Text = "Referenzwert: €80.000" Me.lblReferenzwert.Text = "Referenzwert: -"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
'
'ExportCSVToolStripMenuItem
'
Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
' '
'frmGesamtsicherheitenMenuNEU 'frmGesamtsicherheitenMenuNEU
' '
@@ -661,9 +661,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmGesSichMenu" Me.Text = "frmGesSichMenu"
CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub

34
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -5,7 +5,7 @@ Public Class frmGesamtsicherheitenMenuNEU
Public SQL As New VERAG_PROG_ALLGEMEIN.SQL Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
Public dt As DataTable Public dataTable As DataTable
Public Property Standort As String = "" Public Property Standort As String = ""
@@ -14,10 +14,18 @@ Public Class frmGesamtsicherheitenMenuNEU
cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
Me.Text = "Gesamtsicherheiten " & Standort Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe) frmHauptfenster.EnableDoubleBuffered(dgvListe)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
If GesSichRef.hasEntry = False Then
MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!")
Exit Sub
End If
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
txtDatVon.Text = Now.ToShortDateString txtDatVon.Text = Now.ToShortDateString
txtDatBis.Text = Now.ToShortDateString txtDatBis.Text = Now.ToShortDateString
@@ -31,11 +39,6 @@ Public Class frmGesamtsicherheitenMenuNEU
End If End If
End If End If
'txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
'txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
ShowStandort() ShowStandort()
LoadDGV() LoadDGV()
End Sub End Sub
@@ -70,7 +73,7 @@ Public Class frmGesamtsicherheitenMenuNEU
) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2 ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2
Where gs_standort = '" & Standort & "' " & sqladdon & " Where gs_standort = '" & Standort & "' " & sqladdon & "
AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "' AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "'
AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' ORDER BY gs_gsnr"
dgvListe.SET_SQL(sqlstring, "AVISO") dgvListe.SET_SQL(sqlstring, "AVISO")
dgvListe.LOAD() dgvListe.LOAD()
@@ -99,9 +102,9 @@ Public Class frmGesamtsicherheitenMenuNEU
If dgvListe.Rows.Count = 0 Then Exit Function If dgvListe.Rows.Count = 0 Then Exit Function
dt = New DataTable() dataTable = New DataTable()
dt.Columns.Add("gs_gsnr", GetType(Integer)) dataTable.Columns.Add("gs_gsnr", GetType(Integer))
dt.Columns.Add("gs_isOpen", GetType(Boolean)) dataTable.Columns.Add("gs_isOpen", GetType(Boolean))
@@ -109,9 +112,9 @@ Public Class frmGesamtsicherheitenMenuNEU
For Each row As DataGridViewRow In dgvListe.Rows For Each row As DataGridViewRow In dgvListe.Rows
If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
dt.Rows.Add(row.Cells("gs_gsnr").Value, True) dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
Else Else
dt.Rows.Add(row.Cells("gs_gsnr").Value, False) dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
End If End If
Next Next
@@ -135,8 +138,7 @@ Public Class frmGesamtsicherheitenMenuNEU
End Function End Function
Public Sub ShowStandort() Public Sub ShowStandort()
'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.gsr_referenzwert).ToString("N")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
End Sub End Sub
@@ -155,7 +157,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
.warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
.dt = Me.dt .dataTable = Me.dataTable
End With End With
AddHandler frm.FormClosing, Function() AddHandler frm.FormClosing, Function()
@@ -174,7 +176,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.Standort = Me.Standort .Standort = Me.Standort
.datum = Date.Now .datum = Date.Now
.Neu = True .Neu = True
.dt = Me.dt .dataTable = Me.dataTable
End With End With
AddHandler frm.FormClosing, Function() AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo() GesSichRef.CalcSaldo()

493
Aviso/frmGesamtsicherheitenNEU.Designer.vb generated
View File

@@ -29,18 +29,12 @@ 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.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()
Me.pnlSummeGesPos = New System.Windows.Forms.Panel()
Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPosAnzalPosGes = New System.Windows.Forms.TextBox()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label28 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.panOverlay = New System.Windows.Forms.Panel() Me.panOverlay = New System.Windows.Forms.Panel()
Me.txtlkwIdSearch = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label23 = New System.Windows.Forms.Label()
Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblWarenort = New System.Windows.Forms.Label() Me.lblWarenort = New System.Windows.Forms.Label()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -51,16 +45,21 @@ 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.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlSummeGes = New System.Windows.Forms.Panel() Me.pnlSummeGes = New System.Windows.Forms.Panel()
Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label28 = New System.Windows.Forms.Label()
Me.txtPosWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label29 = New System.Windows.Forms.Label()
Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtWarenwertGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPosAnzalPosGes = New System.Windows.Forms.TextBox()
Me.txtAnzalPosGes = New System.Windows.Forms.TextBox() Me.txtAnzalPosGes = New System.Windows.Forms.TextBox()
Me.Label27 = New System.Windows.Forms.Label() Me.Label27 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label()
Me.btnAddPos = 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.txtPosTime = New System.Windows.Forms.TextBox() Me.txtPosTime = New System.Windows.Forms.TextBox()
Me.txtPosDate = New System.Windows.Forms.TextBox() Me.txtPosDate = New System.Windows.Forms.TextBox()
@@ -72,7 +71,6 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtSicherheitSicherheitsbetrag = New System.Windows.Forms.TextBox() Me.txtSicherheitSicherheitsbetrag = New System.Windows.Forms.TextBox()
Me.txtSicherheitWarenwert = New System.Windows.Forms.TextBox() Me.txtSicherheitWarenwert = New System.Windows.Forms.TextBox()
Me.txtSicherheitATBNr = New System.Windows.Forms.TextBox() Me.txtSicherheitATBNr = New System.Windows.Forms.TextBox()
Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblZollsatz = New System.Windows.Forms.Label() Me.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()
@@ -89,11 +87,11 @@ Partial Class frmGesamtsicherheitenNEU
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbx_offene = New System.Windows.Forms.CheckBox() Me.cbx_offene = New System.Windows.Forms.CheckBox()
Me.btnSuche = New System.Windows.Forms.Button() Me.btnSuche = New System.Windows.Forms.Button()
Me.Label23 = New System.Windows.Forms.Label()
Me.cbx_Suche_Warenort = 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.txt_Suche = New System.Windows.Forms.TextBox() Me.txt_Suche = New System.Windows.Forms.TextBox()
Me.Label21 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label()
Me.btn_resetSearch = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnDeletePos = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnDeleteSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnUpdatePos = New VERAG_PROG_ALLGEMEIN.FlatButton()
@@ -118,56 +116,18 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtPosFreitext = New System.Windows.Forms.TextBox() Me.txtPosFreitext = New System.Windows.Forms.TextBox()
Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox()
CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit() Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.pnlSummeGesPos.SuspendLayout()
Me.panOverlay.SuspendLayout() Me.panOverlay.SuspendLayout()
CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlSummeGes.SuspendLayout() Me.pnlSummeGes.SuspendLayout()
Me.panOben.SuspendLayout() Me.panOben.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'dgvGesamtsicherheit
'
Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheit.AllowUserToAddRows = False
Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStrip1
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0)
Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit"
Me.dgvGesamtsicherheit.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 486)
Me.dgvGesamtsicherheit.TabIndex = 0
'
'ContextMenuStrip1 'ContextMenuStrip1
' '
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClosedErzeugenToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClosedErzeugenToolStripMenuItem})
@@ -182,120 +142,21 @@ Partial Class frmGesamtsicherheitenNEU
' '
'Panel2 'Panel2
' '
Me.Panel2.Controls.Add(Me.pnlSummeGesPos)
Me.Panel2.Controls.Add(Me.panOverlay) Me.Panel2.Controls.Add(Me.panOverlay)
Me.Panel2.Controls.Add(Me.dgvGesamtsicherheit)
Me.Panel2.Controls.Add(Me.dgvSicherheitsPos) Me.Panel2.Controls.Add(Me.dgvSicherheitsPos)
Me.Panel2.Controls.Add(Me.pnlSummeGes) Me.Panel2.Controls.Add(Me.pnlSummeGes)
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"
Me.Panel2.Size = New System.Drawing.Size(1384, 486) Me.Panel2.Size = New System.Drawing.Size(1384, 486)
Me.Panel2.TabIndex = 1 Me.Panel2.TabIndex = 1
' '
'pnlSummeGesPos
'
Me.pnlSummeGesPos.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.pnlSummeGesPos.Controls.Add(Me.txtPosSicherheitsbGes)
Me.pnlSummeGesPos.Controls.Add(Me.txtPosWarenwertGes)
Me.pnlSummeGesPos.Controls.Add(Me.txtPosAnzalPosGes)
Me.pnlSummeGesPos.Controls.Add(Me.Label29)
Me.pnlSummeGesPos.Controls.Add(Me.Label28)
Me.pnlSummeGesPos.Controls.Add(Me.Label22)
Me.pnlSummeGesPos.Location = New System.Drawing.Point(748, 451)
Me.pnlSummeGesPos.Name = "pnlSummeGesPos"
Me.pnlSummeGesPos.Size = New System.Drawing.Size(636, 35)
Me.pnlSummeGesPos.TabIndex = 4
'
'txtPosSicherheitsbGes
'
Me.txtPosSicherheitsbGes._DateTimeOnly = False
Me.txtPosSicherheitsbGes._numbersOnly = False
Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = ""
Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False
Me.txtPosSicherheitsbGes._Prozent = False
Me.txtPosSicherheitsbGes._ShortDateNew = False
Me.txtPosSicherheitsbGes._ShortDateOnly = False
Me.txtPosSicherheitsbGes._TimeOnly = False
Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False
Me.txtPosSicherheitsbGes._value = ""
Me.txtPosSicherheitsbGes._Waehrung = True
Me.txtPosSicherheitsbGes._WaehrungZeichen = True
Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black
Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(533, 10)
Me.txtPosSicherheitsbGes.MaxLineLength = -1
Me.txtPosSicherheitsbGes.MaxLines_Warning = ""
Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing
Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes"
Me.txtPosSicherheitsbGes.ReadOnly = True
Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20)
Me.txtPosSicherheitsbGes.TabIndex = 5
'
'txtPosWarenwertGes
'
Me.txtPosWarenwertGes._DateTimeOnly = False
Me.txtPosWarenwertGes._numbersOnly = False
Me.txtPosWarenwertGes._numbersOnlyKommastellen = ""
Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False
Me.txtPosWarenwertGes._Prozent = False
Me.txtPosWarenwertGes._ShortDateNew = False
Me.txtPosWarenwertGes._ShortDateOnly = False
Me.txtPosWarenwertGes._TimeOnly = False
Me.txtPosWarenwertGes._TimeOnly_Seconds = False
Me.txtPosWarenwertGes._value = ""
Me.txtPosWarenwertGes._Waehrung = True
Me.txtPosWarenwertGes._WaehrungZeichen = True
Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black
Me.txtPosWarenwertGes.Location = New System.Drawing.Point(261, 10)
Me.txtPosWarenwertGes.MaxLineLength = -1
Me.txtPosWarenwertGes.MaxLines_Warning = ""
Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing
Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes"
Me.txtPosWarenwertGes.ReadOnly = True
Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20)
Me.txtPosWarenwertGes.TabIndex = 3
'
'txtPosAnzalPosGes
'
Me.txtPosAnzalPosGes.Location = New System.Drawing.Point(84, 10)
Me.txtPosAnzalPosGes.Name = "txtPosAnzalPosGes"
Me.txtPosAnzalPosGes.ReadOnly = True
Me.txtPosAnzalPosGes.Size = New System.Drawing.Size(53, 20)
Me.txtPosAnzalPosGes.TabIndex = 1
'
'Label29
'
Me.Label29.AutoSize = True
Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label29.Location = New System.Drawing.Point(155, 13)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(103, 13)
Me.Label29.TabIndex = 2
Me.Label29.Text = "Warentwert Summe:"
'
'Label28
'
Me.Label28.AutoSize = True
Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label28.Location = New System.Drawing.Point(397, 13)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(130, 13)
Me.Label28.TabIndex = 4
Me.Label28.Text = "Sicherheitsbetrag Summe:"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.Location = New System.Drawing.Point(3, 13)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(63, 13)
Me.Label22.TabIndex = 0
Me.Label22.Text = "Anzahl Pos:"
'
'panOverlay 'panOverlay
' '
Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.panOverlay.Controls.Add(Me.txtlkwIdSearch)
Me.panOverlay.Controls.Add(Me.Label23)
Me.panOverlay.Controls.Add(Me.cboWarenort) Me.panOverlay.Controls.Add(Me.cboWarenort)
Me.panOverlay.Controls.Add(Me.lblWarenort) Me.panOverlay.Controls.Add(Me.lblWarenort)
Me.panOverlay.Controls.Add(Me.cboFiliale) Me.panOverlay.Controls.Add(Me.cboFiliale)
@@ -308,10 +169,45 @@ Partial Class frmGesamtsicherheitenNEU
Me.panOverlay.Controls.Add(Me.btnClosePanOverlay) Me.panOverlay.Controls.Add(Me.btnClosePanOverlay)
Me.panOverlay.Location = New System.Drawing.Point(493, 15) 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, 297)
Me.panOverlay.TabIndex = 2 Me.panOverlay.TabIndex = 2
Me.panOverlay.Visible = False Me.panOverlay.Visible = False
' '
'txtlkwIdSearch
'
Me.txtlkwIdSearch._allowFreitext = False
Me.txtlkwIdSearch._AllowSetValue = False
Me.txtlkwIdSearch._allowSpaceAsSplitter = False
Me.txtlkwIdSearch._autoSizeGross = False
Me.txtlkwIdSearch._hideIfListEmpty = True
Me.txtlkwIdSearch._value = Nothing
Me.txtlkwIdSearch.conn_art = "FMZOLL"
Me.txtlkwIdSearch.dgvpos = "LEFT"
Me.txtlkwIdSearch.DISPLAY_PARAM = Nothing
Me.txtlkwIdSearch.INVISIBLE_COLUMNS = Nothing
Me.txtlkwIdSearch.key_visible = False
Me.txtlkwIdSearch.KEYPARAM = Nothing
Me.txtlkwIdSearch.Location = New System.Drawing.Point(279, 184)
Me.txtlkwIdSearch.Name = "txtlkwIdSearch"
Me.txtlkwIdSearch.searchActive = True
Me.txtlkwIdSearch.Size = New System.Drawing.Size(186, 20)
Me.txtlkwIdSearch.SQL_ORDER_BY = Nothing
Me.txtlkwIdSearch.SQL_SELECT = Nothing
Me.txtlkwIdSearch.SQL_WHERE = Nothing
Me.txtlkwIdSearch.SQL_WhereParamList = Nothing
Me.txtlkwIdSearch.TabIndex = 11
Me.txtlkwIdSearch.usrcntl = Nothing
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(176, 184)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(73, 20)
Me.Label23.TabIndex = 10
Me.Label23.Text = "LKW-Id:"
'
'cboWarenort 'cboWarenort
' '
Me.cboWarenort._allowedValuesFreiText = Nothing Me.cboWarenort._allowedValuesFreiText = Nothing
@@ -330,7 +226,7 @@ Partial Class frmGesamtsicherheitenNEU
' '
Me.lblWarenort.AutoSize = True Me.lblWarenort.AutoSize = True
Me.lblWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblWarenort.Location = New System.Drawing.Point(125, 68) Me.lblWarenort.Location = New System.Drawing.Point(161, 64)
Me.lblWarenort.Name = "lblWarenort" Me.lblWarenort.Name = "lblWarenort"
Me.lblWarenort.Size = New System.Drawing.Size(88, 20) Me.lblWarenort.Size = New System.Drawing.Size(88, 20)
Me.lblWarenort.TabIndex = 1 Me.lblWarenort.TabIndex = 1
@@ -357,7 +253,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnSave.FlatAppearance.BorderSize = 0 Me.btnSave.FlatAppearance.BorderSize = 0
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.ForeColor = System.Drawing.Color.Black Me.btnSave.ForeColor = System.Drawing.Color.Black
Me.btnSave.Location = New System.Drawing.Point(424, 232) Me.btnSave.Location = New System.Drawing.Point(389, 252)
Me.btnSave.Name = "btnSave" Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 9 Me.btnSave.TabIndex = 9
@@ -367,7 +263,7 @@ Partial Class frmGesamtsicherheitenNEU
'txtLKWID 'txtLKWID
' '
Me.txtLKWID.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtLKWID.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWID.Location = New System.Drawing.Point(279, 178) Me.txtLKWID.Location = New System.Drawing.Point(279, 216)
Me.txtLKWID.Margin = New System.Windows.Forms.Padding(0) Me.txtLKWID.Margin = New System.Windows.Forms.Padding(0)
Me.txtLKWID.Name = "txtLKWID" Me.txtLKWID.Name = "txtLKWID"
Me.txtLKWID.Size = New System.Drawing.Size(186, 24) Me.txtLKWID.Size = New System.Drawing.Size(186, 24)
@@ -386,11 +282,11 @@ Partial Class frmGesamtsicherheitenNEU
' '
Me.Label18.AutoSize = True Me.Label18.AutoSize = True
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label18.Location = New System.Drawing.Point(173, 180) Me.Label18.Location = New System.Drawing.Point(89, 218)
Me.Label18.Name = "Label18" Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(76, 20) Me.Label18.Size = New System.Drawing.Size(160, 20)
Me.Label18.TabIndex = 7 Me.Label18.TabIndex = 7
Me.Label18.Text = "LKW-ID:" Me.Label18.Text = "LKW-Kennzeichen:"
' '
'Label17 'Label17
' '
@@ -428,6 +324,45 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnClosePanOverlay.TabIndex = 0 Me.btnClosePanOverlay.TabIndex = 0
Me.btnClosePanOverlay.UseVisualStyleBackColor = False Me.btnClosePanOverlay.UseVisualStyleBackColor = False
' '
'dgvGesamtsicherheit
'
Me.dgvGesamtsicherheit.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGesamtsicherheit.AllowUserToAddRows = False
Me.dgvGesamtsicherheit.AllowUserToDeleteRows = False
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvGesamtsicherheit.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvGesamtsicherheit.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGesamtsicherheit.ContextMenuStrip = Me.ContextMenuStrip1
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvGesamtsicherheit.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvGesamtsicherheit.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvGesamtsicherheit.Location = New System.Drawing.Point(0, 0)
Me.dgvGesamtsicherheit.Name = "dgvGesamtsicherheit"
Me.dgvGesamtsicherheit.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvGesamtsicherheit.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvGesamtsicherheit.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGesamtsicherheit.Size = New System.Drawing.Size(742, 454)
Me.dgvGesamtsicherheit.TabIndex = 0
'
'dgvSicherheitsPos 'dgvSicherheitsPos
' '
Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvSicherheitsPos.AKTUALISIERUNGS_INTERVALL = -1
@@ -455,23 +390,54 @@ Partial Class frmGesamtsicherheitenNEU
Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos" Me.dgvSicherheitsPos.Name = "dgvSicherheitsPos"
Me.dgvSicherheitsPos.ReadOnly = True Me.dgvSicherheitsPos.ReadOnly = True
Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSicherheitsPos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 486) Me.dgvSicherheitsPos.Size = New System.Drawing.Size(636, 454)
Me.dgvSicherheitsPos.TabIndex = 1 Me.dgvSicherheitsPos.TabIndex = 1
' '
'pnlSummeGes 'pnlSummeGes
' '
Me.pnlSummeGes.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.pnlSummeGes.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.pnlSummeGes.Controls.Add(Me.txtPosSicherheitsbGes)
Me.pnlSummeGes.Controls.Add(Me.txtSicherheitsbGes) Me.pnlSummeGes.Controls.Add(Me.txtSicherheitsbGes)
Me.pnlSummeGes.Controls.Add(Me.Label28)
Me.pnlSummeGes.Controls.Add(Me.txtPosWarenwertGes)
Me.pnlSummeGes.Controls.Add(Me.Label29)
Me.pnlSummeGes.Controls.Add(Me.txtWarenwertGes) Me.pnlSummeGes.Controls.Add(Me.txtWarenwertGes)
Me.pnlSummeGes.Controls.Add(Me.txtPosAnzalPosGes)
Me.pnlSummeGes.Controls.Add(Me.txtAnzalPosGes) Me.pnlSummeGes.Controls.Add(Me.txtAnzalPosGes)
Me.pnlSummeGes.Controls.Add(Me.Label27) Me.pnlSummeGes.Controls.Add(Me.Label27)
Me.pnlSummeGes.Controls.Add(Me.Label22)
Me.pnlSummeGes.Controls.Add(Me.Label24) Me.pnlSummeGes.Controls.Add(Me.Label24)
Me.pnlSummeGes.Controls.Add(Me.Label25) Me.pnlSummeGes.Controls.Add(Me.Label25)
Me.pnlSummeGes.Location = New System.Drawing.Point(0, 451) Me.pnlSummeGes.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlSummeGes.Location = New System.Drawing.Point(0, 454)
Me.pnlSummeGes.Name = "pnlSummeGes" Me.pnlSummeGes.Name = "pnlSummeGes"
Me.pnlSummeGes.Size = New System.Drawing.Size(742, 35) Me.pnlSummeGes.Size = New System.Drawing.Size(1384, 32)
Me.pnlSummeGes.TabIndex = 3 Me.pnlSummeGes.TabIndex = 3
' '
'txtPosSicherheitsbGes
'
Me.txtPosSicherheitsbGes._DateTimeOnly = False
Me.txtPosSicherheitsbGes._numbersOnly = False
Me.txtPosSicherheitsbGes._numbersOnlyKommastellen = ""
Me.txtPosSicherheitsbGes._numbersOnlyTrennzeichen = False
Me.txtPosSicherheitsbGes._Prozent = False
Me.txtPosSicherheitsbGes._ShortDateNew = False
Me.txtPosSicherheitsbGes._ShortDateOnly = False
Me.txtPosSicherheitsbGes._TimeOnly = False
Me.txtPosSicherheitsbGes._TimeOnly_Seconds = False
Me.txtPosSicherheitsbGes._value = ""
Me.txtPosSicherheitsbGes._Waehrung = True
Me.txtPosSicherheitsbGes._WaehrungZeichen = True
Me.txtPosSicherheitsbGes.ForeColor = System.Drawing.Color.Black
Me.txtPosSicherheitsbGes.Location = New System.Drawing.Point(1272, 6)
Me.txtPosSicherheitsbGes.MaxLineLength = -1
Me.txtPosSicherheitsbGes.MaxLines_Warning = ""
Me.txtPosSicherheitsbGes.MaxLines_Warning_Label = Nothing
Me.txtPosSicherheitsbGes.Name = "txtPosSicherheitsbGes"
Me.txtPosSicherheitsbGes.ReadOnly = True
Me.txtPosSicherheitsbGes.Size = New System.Drawing.Size(100, 20)
Me.txtPosSicherheitsbGes.TabIndex = 5
'
'txtSicherheitsbGes 'txtSicherheitsbGes
' '
Me.txtSicherheitsbGes._DateTimeOnly = False Me.txtSicherheitsbGes._DateTimeOnly = False
@@ -487,7 +453,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtSicherheitsbGes._Waehrung = True Me.txtSicherheitsbGes._Waehrung = True
Me.txtSicherheitsbGes._WaehrungZeichen = True Me.txtSicherheitsbGes._WaehrungZeichen = True
Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black Me.txtSicherheitsbGes.ForeColor = System.Drawing.Color.Black
Me.txtSicherheitsbGes.Location = New System.Drawing.Point(638, 10) Me.txtSicherheitsbGes.Location = New System.Drawing.Point(615, 5)
Me.txtSicherheitsbGes.MaxLineLength = -1 Me.txtSicherheitsbGes.MaxLineLength = -1
Me.txtSicherheitsbGes.MaxLines_Warning = "" Me.txtSicherheitsbGes.MaxLines_Warning = ""
Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing Me.txtSicherheitsbGes.MaxLines_Warning_Label = Nothing
@@ -496,6 +462,50 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20) Me.txtSicherheitsbGes.Size = New System.Drawing.Size(100, 20)
Me.txtSicherheitsbGes.TabIndex = 5 Me.txtSicherheitsbGes.TabIndex = 5
' '
'Label28
'
Me.Label28.AutoSize = True
Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label28.Location = New System.Drawing.Point(1128, 9)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(130, 13)
Me.Label28.TabIndex = 4
Me.Label28.Text = "Sicherheitsbetrag Summe:"
'
'txtPosWarenwertGes
'
Me.txtPosWarenwertGes._DateTimeOnly = False
Me.txtPosWarenwertGes._numbersOnly = False
Me.txtPosWarenwertGes._numbersOnlyKommastellen = ""
Me.txtPosWarenwertGes._numbersOnlyTrennzeichen = False
Me.txtPosWarenwertGes._Prozent = False
Me.txtPosWarenwertGes._ShortDateNew = False
Me.txtPosWarenwertGes._ShortDateOnly = False
Me.txtPosWarenwertGes._TimeOnly = False
Me.txtPosWarenwertGes._TimeOnly_Seconds = False
Me.txtPosWarenwertGes._value = ""
Me.txtPosWarenwertGes._Waehrung = True
Me.txtPosWarenwertGes._WaehrungZeichen = True
Me.txtPosWarenwertGes.ForeColor = System.Drawing.Color.Black
Me.txtPosWarenwertGes.Location = New System.Drawing.Point(1018, 6)
Me.txtPosWarenwertGes.MaxLineLength = -1
Me.txtPosWarenwertGes.MaxLines_Warning = ""
Me.txtPosWarenwertGes.MaxLines_Warning_Label = Nothing
Me.txtPosWarenwertGes.Name = "txtPosWarenwertGes"
Me.txtPosWarenwertGes.ReadOnly = True
Me.txtPosWarenwertGes.Size = New System.Drawing.Size(100, 20)
Me.txtPosWarenwertGes.TabIndex = 3
'
'Label29
'
Me.Label29.AutoSize = True
Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label29.Location = New System.Drawing.Point(909, 9)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(103, 13)
Me.Label29.TabIndex = 2
Me.Label29.Text = "Warentwert Summe:"
'
'txtWarenwertGes 'txtWarenwertGes
' '
Me.txtWarenwertGes._DateTimeOnly = False Me.txtWarenwertGes._DateTimeOnly = False
@@ -511,7 +521,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtWarenwertGes._Waehrung = True Me.txtWarenwertGes._Waehrung = True
Me.txtWarenwertGes._WaehrungZeichen = True Me.txtWarenwertGes._WaehrungZeichen = True
Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black Me.txtWarenwertGes.ForeColor = System.Drawing.Color.Black
Me.txtWarenwertGes.Location = New System.Drawing.Point(315, 10) Me.txtWarenwertGes.Location = New System.Drawing.Point(326, 6)
Me.txtWarenwertGes.MaxLineLength = -1 Me.txtWarenwertGes.MaxLineLength = -1
Me.txtWarenwertGes.MaxLines_Warning = "" Me.txtWarenwertGes.MaxLines_Warning = ""
Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing Me.txtWarenwertGes.MaxLines_Warning_Label = Nothing
@@ -520,9 +530,17 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20) Me.txtWarenwertGes.Size = New System.Drawing.Size(100, 20)
Me.txtWarenwertGes.TabIndex = 3 Me.txtWarenwertGes.TabIndex = 3
' '
'txtPosAnzalPosGes
'
Me.txtPosAnzalPosGes.Location = New System.Drawing.Point(830, 6)
Me.txtPosAnzalPosGes.Name = "txtPosAnzalPosGes"
Me.txtPosAnzalPosGes.ReadOnly = True
Me.txtPosAnzalPosGes.Size = New System.Drawing.Size(53, 20)
Me.txtPosAnzalPosGes.TabIndex = 1
'
'txtAnzalPosGes 'txtAnzalPosGes
' '
Me.txtAnzalPosGes.Location = New System.Drawing.Point(89, 10) Me.txtAnzalPosGes.Location = New System.Drawing.Point(93, 5)
Me.txtAnzalPosGes.Name = "txtAnzalPosGes" Me.txtAnzalPosGes.Name = "txtAnzalPosGes"
Me.txtAnzalPosGes.ReadOnly = True Me.txtAnzalPosGes.ReadOnly = True
Me.txtAnzalPosGes.Size = New System.Drawing.Size(53, 20) Me.txtAnzalPosGes.Size = New System.Drawing.Size(53, 20)
@@ -532,17 +550,27 @@ Partial Class frmGesamtsicherheitenNEU
' '
Me.Label27.AutoSize = True Me.Label27.AutoSize = True
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(479, 13) Me.Label27.Location = New System.Drawing.Point(479, 9)
Me.Label27.Name = "Label27" Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(130, 13) Me.Label27.Size = New System.Drawing.Size(130, 13)
Me.Label27.TabIndex = 4 Me.Label27.TabIndex = 4
Me.Label27.Text = "Sicherheitsbetrag Summe:" Me.Label27.Text = "Sicherheitsbetrag Summe:"
' '
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.Location = New System.Drawing.Point(759, 9)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(63, 13)
Me.Label22.TabIndex = 0
Me.Label22.Text = "Anzahl Pos:"
'
'Label24 'Label24
' '
Me.Label24.AutoSize = True Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label24.Location = New System.Drawing.Point(9, 13) Me.Label24.Location = New System.Drawing.Point(9, 8)
Me.Label24.Name = "Label24" Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(63, 13) Me.Label24.Size = New System.Drawing.Size(63, 13)
Me.Label24.TabIndex = 0 Me.Label24.TabIndex = 0
@@ -552,42 +580,12 @@ Partial Class frmGesamtsicherheitenNEU
' '
Me.Label25.AutoSize = True Me.Label25.AutoSize = True
Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label25.Location = New System.Drawing.Point(194, 13) Me.Label25.Location = New System.Drawing.Point(194, 8)
Me.Label25.Name = "Label25" Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(103, 13) Me.Label25.Size = New System.Drawing.Size(103, 13)
Me.Label25.TabIndex = 2 Me.Label25.TabIndex = 2
Me.Label25.Text = "Warentwert Summe:" Me.Label25.Text = "Warentwert Summe:"
' '
'btnAddPos
'
Me.btnAddPos.allowBorder = False
Me.btnAddPos.BackColor = System.Drawing.Color.White
Me.btnAddPos.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddPos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddPos.FlatAppearance.BorderSize = 0
Me.btnAddPos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddPos.ForeColor = System.Drawing.Color.Black
Me.btnAddPos.Location = New System.Drawing.Point(1348, 225)
Me.btnAddPos.Name = "btnAddPos"
Me.btnAddPos.Size = New System.Drawing.Size(24, 24)
Me.btnAddPos.TabIndex = 38
Me.btnAddPos.UseVisualStyleBackColor = False
'
'btnAddSicherheit
'
Me.btnAddSicherheit.allowBorder = False
Me.btnAddSicherheit.BackColor = System.Drawing.Color.White
Me.btnAddSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddSicherheit.FlatAppearance.BorderSize = 0
Me.btnAddSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddSicherheit.ForeColor = System.Drawing.Color.Black
Me.btnAddSicherheit.Location = New System.Drawing.Point(663, 205)
Me.btnAddSicherheit.Name = "btnAddSicherheit"
Me.btnAddSicherheit.Size = New System.Drawing.Size(24, 24)
Me.btnAddSicherheit.TabIndex = 36
Me.btnAddSicherheit.UseVisualStyleBackColor = False
'
'lblGestellungNr 'lblGestellungNr
' '
Me.lblGestellungNr.Anchor = System.Windows.Forms.AnchorStyles.Right Me.lblGestellungNr.Anchor = System.Windows.Forms.AnchorStyles.Right
@@ -696,20 +694,6 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtSicherheitATBNr.Size = New System.Drawing.Size(205, 24) Me.txtSicherheitATBNr.Size = New System.Drawing.Size(205, 24)
Me.txtSicherheitATBNr.TabIndex = 25 Me.txtSicherheitATBNr.TabIndex = 25
' '
'btn_resetSearch
'
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(813, 8)
Me.btn_resetSearch.Name = "btn_resetSearch"
Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33)
Me.btn_resetSearch.TabIndex = 4
Me.btn_resetSearch.UseVisualStyleBackColor = False
'
'lblZollsatz 'lblZollsatz
' '
Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right
@@ -888,9 +872,9 @@ Partial Class frmGesamtsicherheitenNEU
Me.lbloffenerSaldo.ForeColor = System.Drawing.Color.Red Me.lbloffenerSaldo.ForeColor = System.Drawing.Color.Red
Me.lbloffenerSaldo.Location = New System.Drawing.Point(238, 108) Me.lbloffenerSaldo.Location = New System.Drawing.Point(238, 108)
Me.lbloffenerSaldo.Name = "lbloffenerSaldo" Me.lbloffenerSaldo.Name = "lbloffenerSaldo"
Me.lbloffenerSaldo.Size = New System.Drawing.Size(146, 24) Me.lbloffenerSaldo.Size = New System.Drawing.Size(190, 24)
Me.lbloffenerSaldo.TabIndex = 4 Me.lbloffenerSaldo.TabIndex = 4
Me.lbloffenerSaldo.Text = "offener Saldo: " Me.lbloffenerSaldo.Text = "offener S-Betrag: €"
' '
'btnPrev 'btnPrev
' '
@@ -930,13 +914,12 @@ Partial Class frmGesamtsicherheitenNEU
Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.Panel1.Controls.Add(Me.cbx_offene) Me.Panel1.Controls.Add(Me.cbx_offene)
Me.Panel1.Controls.Add(Me.btnSuche) Me.Panel1.Controls.Add(Me.btnSuche)
Me.Panel1.Controls.Add(Me.Label23)
Me.Panel1.Controls.Add(Me.cbx_Suche_Warenort) 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.txt_Suche) Me.Panel1.Controls.Add(Me.txt_Suche)
Me.Panel1.Controls.Add(Me.Label21) Me.Panel1.Controls.Add(Me.Label21)
Me.Panel1.Controls.Add(Me.btn_resetSearch) Me.Panel1.Controls.Add(Me.btn_resetSearch)
Me.Panel1.Location = New System.Drawing.Point(0, 44) Me.Panel1.Location = New System.Drawing.Point(3, 41)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1384, 61) Me.Panel1.Size = New System.Drawing.Size(1384, 61)
Me.Panel1.TabIndex = 2 Me.Panel1.TabIndex = 2
@@ -956,25 +939,13 @@ 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(893, 3) Me.btnSuche.Location = New System.Drawing.Point(737, 3)
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 = 7 Me.btnSuche.TabIndex = 7
Me.btnSuche.Text = "Suche starten" Me.btnSuche.Text = "Suche starten"
Me.btnSuche.UseVisualStyleBackColor = True Me.btnSuche.UseVisualStyleBackColor = True
' '
'Label23
'
Me.Label23.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label23.ForeColor = System.Drawing.Color.Honeydew
Me.Label23.Location = New System.Drawing.Point(207, -13)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(24, 15)
Me.Label23.TabIndex = 0
Me.Label23.Text = "Bis"
'
'cbx_Suche_Warenort 'cbx_Suche_Warenort
' '
Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing Me.cbx_Suche_Warenort._allowedValuesFreiText = Nothing
@@ -983,21 +954,23 @@ Partial Class frmGesamtsicherheitenNEU
Me.cbx_Suche_Warenort.DropDownWidth = 300 Me.cbx_Suche_Warenort.DropDownWidth = 300
Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbx_Suche_Warenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_Suche_Warenort.FormattingEnabled = True Me.cbx_Suche_Warenort.FormattingEnabled = True
Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(660, 20) Me.cbx_Suche_Warenort.Location = New System.Drawing.Point(274, 20)
Me.cbx_Suche_Warenort.MaxLength = 4 Me.cbx_Suche_Warenort.MaxLength = 4
Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort" Me.cbx_Suche_Warenort.Name = "cbx_Suche_Warenort"
Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24) Me.cbx_Suche_Warenort.Size = New System.Drawing.Size(95, 24)
Me.cbx_Suche_Warenort.TabIndex = 6 Me.cbx_Suche_Warenort.TabIndex = 6
Me.cbx_Suche_Warenort.Visible = False
' '
'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(657, 3) Me.Label19.Location = New System.Drawing.Point(271, 3)
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 = 2 Me.Label19.TabIndex = 2
Me.Label19.Text = "Warenort:" Me.Label19.Text = "Warenort:"
Me.Label19.Visible = False
' '
'txt_Suche 'txt_Suche
' '
@@ -1018,6 +991,20 @@ Partial Class frmGesamtsicherheitenNEU
Me.Label21.TabIndex = 1 Me.Label21.TabIndex = 1
Me.Label21.Text = "Suche:" Me.Label21.Text = "Suche:"
' '
'btn_resetSearch
'
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(660, 10)
Me.btn_resetSearch.Name = "btn_resetSearch"
Me.btn_resetSearch.Size = New System.Drawing.Size(32, 33)
Me.btn_resetSearch.TabIndex = 4
Me.btn_resetSearch.UseVisualStyleBackColor = False
'
'btnDeletePos 'btnDeletePos
' '
Me.btnDeletePos.allowBorder = False Me.btnDeletePos.allowBorder = False
@@ -1282,6 +1269,36 @@ Partial Class frmGesamtsicherheitenNEU
Me.txtSicherheitFreitext.Size = New System.Drawing.Size(256, 24) Me.txtSicherheitFreitext.Size = New System.Drawing.Size(256, 24)
Me.txtSicherheitFreitext.TabIndex = 46 Me.txtSicherheitFreitext.TabIndex = 46
' '
'btnAddPos
'
Me.btnAddPos.allowBorder = False
Me.btnAddPos.BackColor = System.Drawing.Color.White
Me.btnAddPos.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddPos.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddPos.FlatAppearance.BorderSize = 0
Me.btnAddPos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddPos.ForeColor = System.Drawing.Color.Black
Me.btnAddPos.Location = New System.Drawing.Point(1348, 225)
Me.btnAddPos.Name = "btnAddPos"
Me.btnAddPos.Size = New System.Drawing.Size(24, 24)
Me.btnAddPos.TabIndex = 38
Me.btnAddPos.UseVisualStyleBackColor = False
'
'btnAddSicherheit
'
Me.btnAddSicherheit.allowBorder = False
Me.btnAddSicherheit.BackColor = System.Drawing.Color.White
Me.btnAddSicherheit.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnAddSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btnAddSicherheit.FlatAppearance.BorderSize = 0
Me.btnAddSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddSicherheit.ForeColor = System.Drawing.Color.Black
Me.btnAddSicherheit.Location = New System.Drawing.Point(663, 205)
Me.btnAddSicherheit.Name = "btnAddSicherheit"
Me.btnAddSicherheit.Size = New System.Drawing.Size(24, 24)
Me.btnAddSicherheit.TabIndex = 36
Me.btnAddSicherheit.UseVisualStyleBackColor = False
'
'frmGesamtsicherheitenNEU 'frmGesamtsicherheitenNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1295,13 +1312,11 @@ 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.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.pnlSummeGesPos.ResumeLayout(False)
Me.pnlSummeGesPos.PerformLayout()
Me.panOverlay.ResumeLayout(False) Me.panOverlay.ResumeLayout(False)
Me.panOverlay.PerformLayout() Me.panOverlay.PerformLayout()
CType(Me.dgvGesamtsicherheit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvSicherheitsPos, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlSummeGes.ResumeLayout(False) Me.pnlSummeGes.ResumeLayout(False)
Me.pnlSummeGes.PerformLayout() Me.pnlSummeGes.PerformLayout()
@@ -1376,7 +1391,6 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents Label19 As Label Friend WithEvents Label19 As Label
Friend WithEvents txt_Suche As TextBox Friend WithEvents txt_Suche As TextBox
Friend WithEvents Label21 As Label Friend WithEvents Label21 As Label
Friend WithEvents Label23 As Label
Friend WithEvents btnSuche As Button Friend WithEvents btnSuche As Button
Friend WithEvents Label20 As Label Friend WithEvents Label20 As Label
Friend WithEvents txtPosNr As TextBox Friend WithEvents txtPosNr As TextBox
@@ -1397,9 +1411,10 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents Label24 As Label Friend WithEvents Label24 As Label
Friend WithEvents txtPosAnzalPosGes As TextBox Friend WithEvents txtPosAnzalPosGes As TextBox
Friend WithEvents txtAnzalPosGes As TextBox Friend WithEvents txtAnzalPosGes As TextBox
Private WithEvents pnlSummeGesPos As Panel
Friend WithEvents txtWarenwertGes As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtWarenwertGes As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtSicherheitsbGes As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtSicherheitsbGes As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtPosWarenwertGes As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtPosWarenwertGes As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtPosSicherheitsbGes As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtPosSicherheitsbGes As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label23 As Label
Friend WithEvents txtlkwIdSearch As VERAG_PROG_ALLGEMEIN.MySearchBox
End Class End Class

117
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -1,21 +1,14 @@
Imports System.Reflection 
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.Expressions
Imports DocumentFormat.OpenXml.Bibliography
Imports DocumentFormat.OpenXml.Presentation
Imports DocumentFormat.OpenXml.Spreadsheet
Imports Spire.Pdf.General.Render.Decode
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenNEU Public Class frmGesamtsicherheitenNEU
Property currentSicherheit As cSicherheiten Property currentSicherheit As cSicherheiten
Property currentSPos As cGesamtsicherheitsPositionen Property currentSPos As cGesamtsicherheitsPositionen
Property currentGesSichRef As cGesamtsicherheitsReferenz Property currentGesSichRef As cGesamtsicherheitsReferenz
Public Property gessicherheitID As Integer Public Property gessicherheitID As Integer
Public Property prevGessicherheitID As Integer = 0 Public Property prevGessicherheitID As Integer
Public Property nextGessicherheitID As Integer = 0 Public Property nextGessicherheitID As Integer
Public Property datum As DateTime = Nothing Public Property datum As DateTime = Nothing
Property Standort As String = "" Property Standort As String = ""
@@ -35,6 +28,8 @@ Public Class frmGesamtsicherheitenNEU
Public warenortID As String Public warenortID As String
Public avisioID As Integer
Dim indexGsId As Integer Dim indexGsId As Integer
Dim indexGspPosId As Integer Dim indexGspPosId As Integer
@@ -43,7 +38,7 @@ Public Class frmGesamtsicherheitenNEU
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public dt As New DataTable Public dataTable As New DataTable()
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -69,6 +64,8 @@ Public Class frmGesamtsicherheitenNEU
nextGessicherheitID = -1 nextGessicherheitID = -1
prevGessicherheitID = -1 prevGessicherheitID = -1
txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200)
Else Else
LoadDGVSicherheiten() LoadDGVSicherheiten()
End If End If
@@ -87,7 +84,7 @@ Public Class frmGesamtsicherheitenNEU
Public Sub LoadDGVSicherheiten(Optional withFilterParam As Boolean = False) Public Sub LoadDGVSicherheiten(Optional withFilterParam As Boolean = False)
lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString() 'lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = "" lblGestellungNr.Text = ""
Dim sqladd1 As String = "" Dim sqladd1 As String = ""
If currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust" If currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
@@ -98,9 +95,7 @@ Public Class frmGesamtsicherheitenNEU
If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= "AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'" If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= "AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'"
End If End If
'Dim addtosqlstring As String = "" Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by gs_gsId"
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by [gs_gsId]"
dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,) dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
dgvGesamtsicherheit.LOAD() dgvGesamtsicherheit.LOAD()
@@ -160,7 +155,6 @@ Public Class frmGesamtsicherheitenNEU
loadTitle() loadTitle()
setSaldo() setSaldo()
If dgvGesamtsicherheit.Enabled = False Then Exit Sub If dgvGesamtsicherheit.Enabled = False Then Exit Sub
Else Else
@@ -245,12 +239,14 @@ Public Class frmGesamtsicherheitenNEU
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.avisioID = setNullToZero(dt.Rows(0).Item("gs_avisioId"))
Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ")) Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ"))
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"))
End If End If
If Me.avisioID.ToString.Length > 0 Then lblGestellungNr.Text &= "Aviso-ID: " & Me.LKWKZ & " "
If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " " If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " "
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " If Me.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 & " "
@@ -267,7 +263,7 @@ Public Class frmGesamtsicherheitenNEU
Zollsatz = currentGesSichRef.gsr_zollsatz Zollsatz = currentGesSichRef.gsr_zollsatz
txtZollsatzueberschreiben.Text = Zollsatz txtZollsatzueberschreiben.Text = Zollsatz
cbxZollsatzueberschreiben.Checked = False cbxZollsatzueberschreiben.Checked = False
lblReferenzwert.Text = "Referenzwert: €" & currentGesSichRef.gsr_referenzwert.ToString() lblReferenzwert.Text = "Referenzwert: € " & CDbl(currentGesSichRef.gsr_referenzwert).ToString("N")
lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%" lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100 ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100
@@ -364,12 +360,11 @@ Public Class frmGesamtsicherheitenNEU
.gs_saldo = currentGesSichRef.gsr_Saldo .gs_saldo = currentGesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz .gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID
setEnviromentDataToObject(OPEN, Me) setEnviromentDataToObject(OPEN, Me)
End With End With
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)
@@ -408,18 +403,15 @@ Public Class frmGesamtsicherheitenNEU
.gsp_erstellungsdatum = Me.datum .gsp_erstellungsdatum = Me.datum
.gsp_avisoId = "" .gsp_avisoId = ""
.gsp_ust = "" .gsp_ust = ""
.gsp_ATCNr = "" .gsp_avisoId = Me.avisioID
.gsp_MRNNr = "" '.gsp_ATCNr = ""
'.gsp_MRNNr = ""
.gsp_gsNr = OPEN.gs_gsNr .gsp_gsNr = OPEN.gs_gsNr
End With End With
OPENPos.SAVE() OPENPos.SAVE()
Next Next
AfterButton() AfterButton()
@@ -457,6 +449,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_saldo = currentGesSichRef.gsr_Saldo .gs_saldo = currentGesSichRef.gsr_Saldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz .gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID
setEnviromentDataToObject(OPEN, Me) setEnviromentDataToObject(OPEN, Me)
End With End With
@@ -478,6 +471,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_ust = currentSicherheit.gs_ust .gsp_ust = currentSicherheit.gs_ust
.gsp_ATCNr = txtPositionenCRN.Text .gsp_ATCNr = txtPositionenCRN.Text
.gsp_MRNNr = txtPositionenCRN.Text .gsp_MRNNr = txtPositionenCRN.Text
.gsp_avisoId = Me.avisioID
End With End With
SicherheitsPos.SAVE() SicherheitsPos.SAVE()
@@ -658,7 +652,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_freitext = txtPosFreitext.Text .gsp_freitext = txtPosFreitext.Text
.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text) .gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
.gsp_warenwert = Double.Parse(txtPosWarenwert.Text) .gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
.gsp_ATCNr = txtPositionenCRN.Text .gsp_ATCNr = If(txtPositionenCRN.Text <> "", txtPositionenCRN.Text, Nothing)
End With End With
If checkSicherheitsbetrag() = False Then Exit Sub If checkSicherheitsbetrag() = False Then Exit Sub
@@ -677,21 +671,25 @@ Public Class frmGesamtsicherheitenNEU
txtPosFreitext.Text = sPos.gsp_freitext txtPosFreitext.Text = sPos.gsp_freitext
txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag
txtPosWarenwert.Text = sPos.gsp_warenwert txtPosWarenwert.Text = sPos.gsp_warenwert
txtPositionenCRN.Text = sPos.gsp_ATCNr txtPositionenCRN.Text = CStr(sPos.gsp_ATCNr)
txtPosDate.Text = sPos.gsp_erstellungsdatum.ToString("dd.MM.yyyy") txtPosDate.Text = sPos.gsp_erstellungsdatum.ToString("dd.MM.yyyy")
txtPosTime.Text = sPos.gsp_erstellungsdatum.ToString("HH:mm") txtPosTime.Text = sPos.gsp_erstellungsdatum.ToString("HH:mm")
currentSPos = sPos currentSPos = sPos
btnDeletePos.Visible = True 'btnDeletePos.Visible = True
btnAddPos.Visible = False btnAddPos.Visible = False
btnUpdatePos.Visible = True btnUpdatePos.Visible = True
End Sub End Sub
Private Sub btnDeleteSicherheit_Click(sender As Object, e As EventArgs) Handles btnDeleteSicherheit.Click Private Sub btnDeleteSicherheit_Click(sender As Object, e As EventArgs) Handles btnDeleteSicherheit.Click
Try Try
Dim posNr = currentSicherheit.gs_posNr
Dim ATBNr = currentSicherheit.gs_ATBNr
Dim gsNr = currentSicherheit.gs_gsNr
currentSicherheit.Delete() currentSicherheit.Delete()
rearangePosNr(gsNr, ATBNr, posNr)
btnUpdateSicherheit.Visible = False btnUpdateSicherheit.Visible = False
btnAddSicherheit.Visible = True btnAddSicherheit.Visible = True
btnDeleteSicherheit.Visible = False btnDeleteSicherheit.Visible = False
@@ -873,10 +871,11 @@ Public Class frmGesamtsicherheitenNEU
Private Sub setSaldo() Private Sub setSaldo()
lbloffenerSaldo.Text = "offener S-Saldo: " lbloffenerSaldo.Text = "offener S-Betrag: €"
Dim offernerSB As Double = Me.calcOffenerSicherheitsbetrag() Dim offernerSB As Double = Me.calcOffenerSicherheitsbetrag()
If offernerSB <> 0 Then If offernerSB <> 0 Then
lbloffenerSaldo.Text &= Math.Round(offernerSB, 2).ToString lbloffenerSaldo.Text &= Decimal.Parse(Math.Round(offernerSB, 2)).ToString("N")
isOpen = True isOpen = True
Else Else
lbloffenerSaldo.Text &= "0" lbloffenerSaldo.Text &= "0"
@@ -891,7 +890,7 @@ Public Class frmGesamtsicherheitenNEU
Dim onlyOpenDT As DataTable Dim onlyOpenDT As DataTable
onlyOpenDT = dt.Select("gs_isOpen = True").CopyToDataTable onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable
For i As Integer = 0 To onlyOpenDT.Rows.Count - 1 For i As Integer = 0 To onlyOpenDT.Rows.Count - 1
@@ -921,16 +920,16 @@ Public Class frmGesamtsicherheitenNEU
If isInList = False AndAlso onlyOpenDT.Rows.Count - 1 <> 0 Then If isInList = False AndAlso onlyOpenDT.Rows.Count - 1 <> 0 Then
For i As Integer = 0 To dt.Rows.Count - 1 For i As Integer = 0 To dataTable.Rows.Count - 1
If dt.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
If i = 0 Then If i = 0 Then
prevGessicherheitID = -1 ' no prev Sicherheit prevGessicherheitID = -1 ' no prev Sicherheit
Else Else
For j As Integer = i To 0 For j As Integer = i To 0
If dt.Rows(j).Item("gs_isOpen") Then If dataTable.Rows(j).Item("gs_isOpen") Then
prevGessicherheitID = dt.Rows(j).Item("gs_gsnr") prevGessicherheitID = dataTable.Rows(j).Item("gs_gsnr")
'MsgBox("prevGessicherheitID " & prevGessicherheitID) 'MsgBox("prevGessicherheitID " & prevGessicherheitID)
Exit For Exit For
End If End If
@@ -938,12 +937,12 @@ Public Class frmGesamtsicherheitenNEU
End If End If
If i = dt.Rows.Count - 1 Then If i = dataTable.Rows.Count - 1 Then
nextGessicherheitID = -1 ' ' no next Sicherheit nextGessicherheitID = -1 ' ' no next Sicherheit
Else Else
For k As Integer = i To dt.Rows.Count - 1 For k As Integer = i To dataTable.Rows.Count - 1
If dt.Rows(k).Item("gs_isOpen") Then If dataTable.Rows(k).Item("gs_isOpen") Then
nextGessicherheitID = dt.Rows(k).Item("gs_gsnr") nextGessicherheitID = dataTable.Rows(k).Item("gs_gsnr")
'MsgBox("nextGessicherheitID " & nextGessicherheitID) 'MsgBox("nextGessicherheitID " & nextGessicherheitID)
Exit For Exit For
End If End If
@@ -961,16 +960,16 @@ Public Class frmGesamtsicherheitenNEU
Private Function setPrevAndNextGesAll() Private Function setPrevAndNextGesAll()
For i As Integer = 0 To dt.Rows.Count - 1 For i As Integer = 0 To dataTable.Rows.Count - 1
If dt.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
prevGessicherheitID = dt.Rows(i).Item("gs_gsnr") - 1 prevGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") - 1
nextGessicherheitID = dt.Rows(i).Item("gs_gsnr") + 1 nextGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") + 1
If i = 0 Then prevGessicherheitID = -1 ' no prev Sicherheit If i = 0 Then prevGessicherheitID = -1 ' no prev Sicherheit
If i = dt.Rows.Count - 1 Then nextGessicherheitID = -1 ' ' no next Sicherheit If i = dataTable.Rows.Count - 1 Then nextGessicherheitID = -1 ' ' no next Sicherheit
'MsgBox("prevGessicherheitID " & prevGessicherheitID) 'MsgBox("prevGessicherheitID " & prevGessicherheitID)
'MsgBox("nextGessicherheitID " & nextGessicherheitID) 'MsgBox("nextGessicherheitID " & nextGessicherheitID)
@@ -1096,7 +1095,37 @@ Public Class frmGesamtsicherheitenNEU
End Sub End Sub
Private Sub rearangePosNr(gsNr As Integer, ATBNr As String, posNr As Integer)
If posNr = -1 Or posNr = 1 Then Exit Sub
Dim sqlq As String = "select [gs_gsId], [gs_posNr] from [tblGesamtsicherheit] where gs_gsnr = " & gsNr & " AND gs_ATBNR = '" & ATBNr & "' AND gs_posNr > '" & posNr & "'"
Dim dt As New DataTable
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
If (dt.Rows.Count = 0) Then Exit Sub
For i As Integer = 0 To dt.Rows.Count - 1
MsgBox("gs_gsId: " & dt.Rows(i).Item("gs_gsId").ToString & " " & "gs_posNr: " & dt.Rows(i).Item("gs_posNr").ToString)
Dim sicherheit = New cSicherheiten(dt.Rows(i).Item("gs_gsId"), dt.Rows(i).Item("gs_posNr"))
Dim currentPos = sicherheit.gs_posNr
sicherheit.gs_posNr = currentPos - 1
sicherheit.UPDATEWithNewPosNr()
Next
End Sub
Private Sub txtlkwIdSearch_VALUE_CHANGED() Handles txtlkwIdSearch.VALUE_CHANGED
If (txtlkwIdSearch._value <> "") Then
txtLKWID.Text = txtlkwIdSearch._value
txtLKWID.ReadOnly = True
Else
txtLKWID.Clear()
txtLKWID.ReadOnly = False
End If
End Sub
End Class End Class