From 13453a027f1fb6a8310d3be2b1c63cdd4c9f9147 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 31 Oct 2022 08:30:10 +0100 Subject: [PATCH] bugfixing gesamtsicherheiten --- Aviso/My Project/AssemblyInfo.vb | 4 +- .../frmGesamtsicherheitenMenuNEU.Designer.vb | 44 +++++++++---------- Aviso/frmGesamtsicherheitenMenuNEU.vb | 16 ++++--- Aviso/frmGesamtsicherheitenNEU.vb | 4 -- 4 files changed, 33 insertions(+), 35 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 8c3a357..f31b3c1 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb index c7cceb8..2e6ebf7 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb @@ -25,6 +25,8 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenMenuNEU)) 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.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -61,11 +63,9 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.lblSaldo = New System.Windows.Forms.Label() Me.lblZollsatz = 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() - Me.Panel1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'dgvListe @@ -83,6 +83,18 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.dgvListe.Size = New System.Drawing.Size(606, 408) 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 ' 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.Location = New System.Drawing.Point(398, 21) 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.Text = "Saldo: €80.000" + Me.lblSaldo.Text = "Saldo: -" ' 'lblZollsatz ' @@ -619,9 +631,9 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew Me.lblZollsatz.Location = New System.Drawing.Point(399, 83) 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.Text = "Zollsatz: 12%" + Me.lblZollsatz.Text = "Zollsatz: -" ' 'lblReferenzwert ' @@ -631,21 +643,9 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew Me.lblReferenzwert.Location = New System.Drawing.Point(399, 56) 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.Text = "Referenzwert: €80.000" - ' - '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" + Me.lblReferenzwert.Text = "Referenzwert: -" ' 'frmGesamtsicherheitenMenuNEU ' @@ -661,9 +661,9 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmGesSichMenu" CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() - Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 225211b..a102d24 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -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) Me.Text = "Gesamtsicherheiten " & Standort frmHauptfenster.EnableDoubleBuffered(dgvListe) + 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") + + txtDatVon.Text = Now.ToShortDateString txtDatBis.Text = Now.ToShortDateString @@ -31,11 +39,6 @@ Public Class frmGesamtsicherheitenMenuNEU End If End If - - - - 'txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy") - 'txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy") ShowStandort() LoadDGV() End Sub @@ -135,8 +138,7 @@ Public Class frmGesamtsicherheitenMenuNEU End Function Public Sub ShowStandort() - 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") - lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() + lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.gsr_referenzwert).ToString("N") lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") End Sub diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 7da562f..d1c0467 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -416,10 +416,6 @@ Public Class frmGesamtsicherheitenNEU OPENPos.SAVE() - - - - Next AfterButton()