From 014c03552135685eac043a943ada769c38d41fdf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 13 Jan 2026 17:03:10 +0100 Subject: [PATCH] gesamtsicherheiten --- Aviso/frmGesamtsicherheitenMenuNEU.vb | 4 ++-- Aviso/frmGesamtsicherheitenNEU.vb | 10 ++++++++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index fedf4c1..24d285b 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -524,7 +524,7 @@ Public Class frmGesamtsicherheitenMenuNEU 'End If If sender.ToString = "Detailliste" Then - frm.LoadDataTableSicherheitenForExport2(list, datumVon, CDate(txtDatBis.Text), detailINfo, nurErstellungsdatumNotAenderungsdatum) + frm.LoadDataTableSicherheitenForExport2(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum) ElseIf sender.ToString = "Referenzliste-Zollamt" Then If Not vbYes = MsgBox("Sollen interne Detailinfos mitangegeben werden?", vbYesNoCancel) Then @@ -548,7 +548,7 @@ Public Class frmGesamtsicherheitenMenuNEU Private Sub SaldenNeuBerechnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldenNeuBerechnenToolStripMenuItem.Click lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") - MsgBox("Salden wurde aktualisiert!") + MsgBox("Salden wurden aktualisiert!") End Sub diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index ff84cde..1d7e1fb 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -250,7 +250,7 @@ Public Class frmGesamtsicherheitenNEU Where [gs_gsnr] In (" & gsnr & ") and isnull(gs_warenwert,0) <> 0 UNION - Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],[gsp_art],[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & + Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],'',[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] where [gsp_gsnr] In (" & gsnr & ") and isnull(gsp_warenwert,0) <> 0 ) as Temp WHERE Temp.Datum > '" & datumVon.ToShortDateString & "' and Temp.Datum < '" & datumBis.ToShortDateString & "' " & IIf(nurErstellungisNichtAenderungsdatum, " AND (Temp.Erstellungsdatum is not null AND cast(Temp.Erstellungsdatum as Date) <> cast(Temp.Datum as Date)) OR (Temp.GeänderAm is not null AND cast(Temp.GeänderAm as Date) <> cast(Temp.Datum as Date))", "") & @@ -306,10 +306,12 @@ Public Class frmGesamtsicherheitenNEU - Public Sub LoadDataTableSicherheitenForExport2(list As List(Of Integer), datumVon As Date, datumBis As Date, Optional detailinfo As Boolean = False, Optional nurErstellungisNichtAenderungsdatum As Boolean = False) + Public Sub LoadDataTableSicherheitenForExport2(list As List(Of Integer), datumVon As Date, datumBis As Date, standort As String, Optional detailinfo As Boolean = False, Optional nurErstellungisNichtAenderungsdatum As Boolean = False) Me.Cursor = Cursors.WaitCursor + Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort) + Dim gsnr As String Dim counter = 0 For Each n In list @@ -336,6 +338,10 @@ Public Class frmGesamtsicherheitenNEU dtSicherheiten.Columns.Add("SSaldo") + If currentGesSichRef Is Nothing Then + currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort) + End If + Dim drFirst = dtSicherheiten.NewRow drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo(, datumVon) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))