From 99f7bc201ae4e053d536df3cb4587c4a9bfd1026 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Dec 2022 10:33:09 +0100 Subject: [PATCH] =?UTF-8?q?Bugfix=20Gesamtsicherheiten,=20Pr=C3=BCfung=20o?= =?UTF-8?q?b=20Referenzbetrag=20unterschritten=20wird.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmGesamtsicherheitenMenuNEU.vb | 2 +- Aviso/frmGesamtsicherheitenNEU.vb | 34 ++++++++++++--------------- 3 files changed, 18 insertions(+), 22 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index ba9432f..82b0c8a 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.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index dbad815..0a80f8d 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -433,7 +433,7 @@ Public Class frmGesamtsicherheitenMenuNEU Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_AG") DS.OPEN_SINGLE_ORIG() - Case "VERAG CS" + Case "Verag CS" Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_CS") DS.OPEN_SINGLE_ORIG() diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 335f687..57e0f98 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -49,7 +49,7 @@ Public Class frmGesamtsicherheitenNEU currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) - lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N") + lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") Me.Text = "Gesamtsicherheit " & Standort @@ -415,7 +415,7 @@ Public Class frmGesamtsicherheitenNEU End Sub - Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtSicherheitDat.GotFocus, txtSicherheitTime.GotFocus, txtPosTime.GotFocus, txtUhrzeitaendern.GotFocus, txtDatumaendern.GotFocus + Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtSicherheitDat.GotFocus, txtSicherheitTime.GotFocus, txtPosTime.GotFocus, txtUhrzeitaendern.GotFocus, txtDatumaendern.GotFocus, txtPosDat.GotFocus Select Case sender.name Case "txtSicherheitDat" If txtSicherheitDat.Text.Length < 1 Then txtSicherheitDat.Text = Date.Today.ToString("dd.MM.yyyy") @@ -611,7 +611,8 @@ Public Class frmGesamtsicherheitenNEU End If End Function Sub AfterButton() - currentGesSichRef.CalcSaldo() + 'currentGesSichRef.CalcSaldo() + lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N") LoadDGVSicherheiten() EmptyTXT() End Sub @@ -635,7 +636,7 @@ Public Class frmGesamtsicherheitenNEU Public Sub EmptyTXT() Dim a As New List(Of Windows.Forms.Control) For Each contr As Windows.Forms.Control In panOben.Controls - If contr.GetType.FullName = "System.Windows.Forms.TextBox" Or contr.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyTextBox" Then contr.Text = "" + If (contr.GetType.FullName = "System.Windows.Forms.TextBox" Or contr.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyTextBox") And Not contr.Name = "txtZollsatzueberschreiben" Then contr.Text = "" Next cboSicherheitATR.SelectedItem = Nothing End Sub @@ -788,9 +789,11 @@ Public Class frmGesamtsicherheitenNEU btnAddSicherheit.Visible = True btnDeleteSicherheit.Visible = False AfterButton() + End Sub Private Sub btnUpdatePos_Click(sender As Object, e As EventArgs) Handles btnUpdatePos.Click + With currentSPos .gsp_art = "CLOSE" @@ -995,32 +998,26 @@ Public Class frmGesamtsicherheitenNEU Try - 'Dim currentSaldo As Double = Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N") - Dim SaldoNewTemp = SaldoNew Dim calcSicherheiten As Double = calcSicherheitsbetragGestelle() Dim calcSicherheitenPos As Double = calcSicherheitsbetragPos() Dim newCalcSaldo As Double + newCalcSaldo = SaldoNew - currentSBetrag - If newPosition Then - newCalcSaldo = SaldoNewTemp - currentSBetrag - Else - newCalcSaldo = SaldoNewTemp - currentSBetrag - End If - - Dim referenzbetrag As Double = currentGesSichRef.brgakto_betrag + 'Dim referenzbetrag As Double = currentGesSichRef.brgakto_betrag - If SaldoNewTemp < 0 Then - MsgBox("Achtung!" & vbCrLf & " Saldo ist NEGATIV") + If SaldoNew < 0 Then + MsgBox("Achtung!" & vbCrLf & "Saldo ist NEGATIV") Return True 'Saldo ist bereits negativ! End If - Dim diffAbs As Double = Math.Abs(SaldoNewTemp - currentSBetrag) + Dim diffAbs As Double = Math.Abs(SaldoNew - currentSBetrag) - If (referenzbetrag - newCalcSaldo < 0) Then - If vbNo = MsgBox("ACHTUNG! " & vbCrLf & " Dieser Sicherheitsbetrag würde den jezigen Saldo um " & diffAbs & " übersteigen !" & vbCrLf & "Trotzdem speichen?", vbYesNo) Then + 'If (referenzbetrag - newCalcSaldo < 0) Then + If (newCalcSaldo < 0) Then + If vbNo = MsgBox("ACHTUNG!" & vbCrLf & "Dieser Sicherheitsbetrag würde den jetzigen Saldo um " & Math.Abs(newCalcSaldo) & "€ übersteigen!" & vbCrLf & "Trotzdem speichen?", vbYesNo) Then Return False Else Return True @@ -1032,7 +1029,6 @@ Public Class frmGesamtsicherheitenNEU MsgBox(ex.Message) End Try - End Function