div. Änderungen, Gesamtsicherheiten, etc.

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.3.2.7")>
+<Assembly: AssemblyVersion("4.3.2.8")>
-<Assembly: AssemblyFileVersion("4.3.2.7")>
+<Assembly: AssemblyFileVersion("4.3.2.8")>

Aviso/frmGesamtsicherheitenMenu.vb

@@ -20,7 +20,7 @@ Public Class frmGesamtsicherheitenMenu
         frmHauptfenster.EnableDoubleBuffered(dgvListe)
         GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
         'GesSichRef.LOAD("standort", Standort)
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N")
 
         txtVon._ShortDateOnly = True
         txtbis._ShortDateOnly = True
@@ -102,7 +102,7 @@ Public Class frmGesamtsicherheitenMenu
         'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
         lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.getReferenzbetrag(Now()).ToString()
         lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N")
     End Sub
 
 
@@ -122,7 +122,7 @@ Public Class frmGesamtsicherheitenMenu
         End With
 
         AddHandler frm.FormClosing, Function()
-                                        GesSichRef.CalcSaldo()
+                                        GesSichRef.CalcSaldo_new()
                                         ShowStandort()
                                         LoadDGV()
                                         Me.BringToFront()
@@ -142,7 +142,7 @@ Public Class frmGesamtsicherheitenMenu
             .Neu = True
         End With
         AddHandler frm.FormClosing, Function()
-                                        GesSichRef.CalcSaldo()
+                                        GesSichRef.CalcSaldo_new()
                                         ShowStandort()
                                         LoadDGV()
                                         Me.BringToFront()
@@ -151,7 +151,7 @@ Public Class frmGesamtsicherheitenMenu
     End Sub
 
     Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N")
         LoadDGV()
     End Sub
 

Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb

@@ -37,14 +37,13 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.SicherheitsbetragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MehrfacheATBNrToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cbxAUTO = New System.Windows.Forms.CheckBox()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label26 = New System.Windows.Forms.Label()
         Me.btnBisTag = New System.Windows.Forms.Button()
         Me.btnVonTag = New System.Windows.Forms.Button()
         Me.btnTag = New System.Windows.Forms.Button()
-        Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label24 = New System.Windows.Forms.Label()
         Me.btnJahr = New System.Windows.Forms.Button()
         Me.btnBisJahr = New System.Windows.Forms.Button()
@@ -70,7 +69,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblReferenzwert = New System.Windows.Forms.Label()
         Me.btnExcel = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cbxAUTO = New System.Windows.Forms.CheckBox()
+        Me.GestellungenInDerZukunftToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -81,7 +82,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.SaldenNeuBerechnenToolStripMenuItem, Me.SaldoZumStichtagToolStripMenuItem, Me.PrüfungAusPlausibilitätToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(202, 92)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(202, 114)
         '
         'ExportCSVToolStripMenuItem
         '
@@ -113,6 +114,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.RLZollamtBereinigtToolStripMenuItem.Name = "RLZollamtBereinigtToolStripMenuItem"
         Me.RLZollamtBereinigtToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
         Me.RLZollamtBereinigtToolStripMenuItem.Text = "RL-Zollamt bereinigt"
+        Me.RLZollamtBereinigtToolStripMenuItem.Visible = False
         '
         'SaldenNeuBerechnenToolStripMenuItem
         '
@@ -128,7 +130,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         '
         'PrüfungAusPlausibilitätToolStripMenuItem
         '
-        Me.PrüfungAusPlausibilitätToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AusgangEingangToolStripMenuItem, Me.SicherheitsbetragToolStripMenuItem, Me.MehrfacheATBNrToolStripMenuItem})
+        Me.PrüfungAusPlausibilitätToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AusgangEingangToolStripMenuItem, Me.SicherheitsbetragToolStripMenuItem, Me.MehrfacheATBNrToolStripMenuItem, Me.GestellungenInDerZukunftToolStripMenuItem})
         Me.PrüfungAusPlausibilitätToolStripMenuItem.Name = "PrüfungAusPlausibilitätToolStripMenuItem"
         Me.PrüfungAusPlausibilitätToolStripMenuItem.Size = New System.Drawing.Size(201, 22)
         Me.PrüfungAusPlausibilitätToolStripMenuItem.Text = "Prüfung auf Plausibilität"
@@ -136,19 +138,19 @@ Partial Class frmGesamtsicherheitenMenuNEU
         'AusgangEingangToolStripMenuItem
         '
         Me.AusgangEingangToolStripMenuItem.Name = "AusgangEingangToolStripMenuItem"
-        Me.AusgangEingangToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
+        Me.AusgangEingangToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
         Me.AusgangEingangToolStripMenuItem.Text = "Ausgang < Eingang"
         '
         'SicherheitsbetragToolStripMenuItem
         '
         Me.SicherheitsbetragToolStripMenuItem.Name = "SicherheitsbetragToolStripMenuItem"
-        Me.SicherheitsbetragToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
+        Me.SicherheitsbetragToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
         Me.SicherheitsbetragToolStripMenuItem.Text = "Sicherheitsbetrag"
         '
         'MehrfacheATBNrToolStripMenuItem
         '
         Me.MehrfacheATBNrToolStripMenuItem.Name = "MehrfacheATBNrToolStripMenuItem"
-        Me.MehrfacheATBNrToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
+        Me.MehrfacheATBNrToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
         Me.MehrfacheATBNrToolStripMenuItem.Text = "mehrfache ATB-Nr"
         '
         'Panel1
@@ -192,6 +194,19 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.Panel1.Size = New System.Drawing.Size(706, 288)
         Me.Panel1.TabIndex = 0
         '
+        'cbxAUTO
+        '
+        Me.cbxAUTO.AutoSize = True
+        Me.cbxAUTO.Checked = True
+        Me.cbxAUTO.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxAUTO.ForeColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.cbxAUTO.Location = New System.Drawing.Point(36, 233)
+        Me.cbxAUTO.Name = "cbxAUTO"
+        Me.cbxAUTO.Size = New System.Drawing.Size(56, 17)
+        Me.cbxAUTO.TabIndex = 133
+        Me.cbxAUTO.Text = "AUTO"
+        Me.cbxAUTO.UseVisualStyleBackColor = True
+        '
         'PictureBox5
         '
         Me.PictureBox5.BackColor = System.Drawing.Color.White
@@ -218,31 +233,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.btnOpenOver85Days.UseVisualStyleBackColor = False
         Me.btnOpenOver85Days.Visible = False
         '
-        'txtDatBis
-        '
-        Me.txtDatBis._DateTimeOnly = False
-        Me.txtDatBis._numbersOnly = False
-        Me.txtDatBis._numbersOnlyKommastellen = ""
-        Me.txtDatBis._numbersOnlyTrennzeichen = True
-        Me.txtDatBis._Prozent = False
-        Me.txtDatBis._ShortDateNew = False
-        Me.txtDatBis._ShortDateOnly = True
-        Me.txtDatBis._TimeOnly = False
-        Me.txtDatBis._TimeOnly_Seconds = False
-        Me.txtDatBis._value = ""
-        Me.txtDatBis._Waehrung = False
-        Me.txtDatBis._WaehrungZeichen = True
-        Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtDatBis.ForeColor = System.Drawing.Color.Black
-        Me.txtDatBis.Location = New System.Drawing.Point(62, 170)
-        Me.txtDatBis.MaxLength = 10
-        Me.txtDatBis.MaxLineLength = -1
-        Me.txtDatBis.MaxLines_Warning = ""
-        Me.txtDatBis.MaxLines_Warning_Label = Nothing
-        Me.txtDatBis.Name = "txtDatBis"
-        Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
-        Me.txtDatBis.TabIndex = 25
-        '
         'Label26
         '
         Me.Label26.AutoSize = True
@@ -301,31 +291,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.btnTag.Text = "Heute"
         Me.btnTag.UseVisualStyleBackColor = False
         '
-        'txtDatVon
-        '
-        Me.txtDatVon._DateTimeOnly = False
-        Me.txtDatVon._numbersOnly = False
-        Me.txtDatVon._numbersOnlyKommastellen = ""
-        Me.txtDatVon._numbersOnlyTrennzeichen = True
-        Me.txtDatVon._Prozent = False
-        Me.txtDatVon._ShortDateNew = False
-        Me.txtDatVon._ShortDateOnly = True
-        Me.txtDatVon._TimeOnly = False
-        Me.txtDatVon._TimeOnly_Seconds = False
-        Me.txtDatVon._value = ""
-        Me.txtDatVon._Waehrung = False
-        Me.txtDatVon._WaehrungZeichen = True
-        Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtDatVon.ForeColor = System.Drawing.Color.Black
-        Me.txtDatVon.Location = New System.Drawing.Point(62, 146)
-        Me.txtDatVon.MaxLength = 10
-        Me.txtDatVon.MaxLineLength = -1
-        Me.txtDatVon.MaxLines_Warning = ""
-        Me.txtDatVon.MaxLines_Warning_Label = Nothing
-        Me.txtDatVon.Name = "txtDatVon"
-        Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
-        Me.txtDatVon.TabIndex = 18
-        '
         'Label24
         '
         Me.Label24.AutoSize = True
@@ -648,18 +613,61 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.dgvListe.Size = New System.Drawing.Size(706, 394)
         Me.dgvListe.TabIndex = 1
         '
-        'cbxAUTO
+        'GestellungenInDerZukunftToolStripMenuItem
         '
-        Me.cbxAUTO.AutoSize = True
+        Me.GestellungenInDerZukunftToolStripMenuItem.Name = "GestellungenInDerZukunftToolStripMenuItem"
-        Me.cbxAUTO.Checked = True
+        Me.GestellungenInDerZukunftToolStripMenuItem.Size = New System.Drawing.Size(221, 22)
-        Me.cbxAUTO.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.GestellungenInDerZukunftToolStripMenuItem.Text = "Gestellungen in der Zukunft"
-        Me.cbxAUTO.ForeColor = System.Drawing.SystemColors.ButtonHighlight
+        '
-        Me.cbxAUTO.Location = New System.Drawing.Point(36, 233)
+        'txtDatBis
-        Me.cbxAUTO.Name = "cbxAUTO"
+        '
-        Me.cbxAUTO.Size = New System.Drawing.Size(56, 17)
+        Me.txtDatBis._DateTimeOnly = False
-        Me.cbxAUTO.TabIndex = 133
+        Me.txtDatBis._numbersOnly = False
-        Me.cbxAUTO.Text = "AUTO"
+        Me.txtDatBis._numbersOnlyKommastellen = ""
-        Me.cbxAUTO.UseVisualStyleBackColor = True
+        Me.txtDatBis._numbersOnlyTrennzeichen = True
+        Me.txtDatBis._Prozent = False
+        Me.txtDatBis._ShortDateNew = False
+        Me.txtDatBis._ShortDateOnly = True
+        Me.txtDatBis._TimeOnly = False
+        Me.txtDatBis._TimeOnly_Seconds = False
+        Me.txtDatBis._value = ""
+        Me.txtDatBis._Waehrung = False
+        Me.txtDatBis._WaehrungZeichen = True
+        Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtDatBis.Location = New System.Drawing.Point(62, 170)
+        Me.txtDatBis.MaxLength = 10
+        Me.txtDatBis.MaxLineLength = -1
+        Me.txtDatBis.MaxLines_Warning = ""
+        Me.txtDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtDatBis.Name = "txtDatBis"
+        Me.txtDatBis.Size = New System.Drawing.Size(63, 20)
+        Me.txtDatBis.TabIndex = 25
+        '
+        'txtDatVon
+        '
+        Me.txtDatVon._DateTimeOnly = False
+        Me.txtDatVon._numbersOnly = False
+        Me.txtDatVon._numbersOnlyKommastellen = ""
+        Me.txtDatVon._numbersOnlyTrennzeichen = True
+        Me.txtDatVon._Prozent = False
+        Me.txtDatVon._ShortDateNew = False
+        Me.txtDatVon._ShortDateOnly = True
+        Me.txtDatVon._TimeOnly = False
+        Me.txtDatVon._TimeOnly_Seconds = False
+        Me.txtDatVon._value = ""
+        Me.txtDatVon._Waehrung = False
+        Me.txtDatVon._WaehrungZeichen = True
+        Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtDatVon.ForeColor = System.Drawing.Color.Black
+        Me.txtDatVon.Location = New System.Drawing.Point(62, 146)
+        Me.txtDatVon.MaxLength = 10
+        Me.txtDatVon.MaxLineLength = -1
+        Me.txtDatVon.MaxLines_Warning = ""
+        Me.txtDatVon.MaxLines_Warning_Label = Nothing
+        Me.txtDatVon.Name = "txtDatVon"
+        Me.txtDatVon.Size = New System.Drawing.Size(63, 20)
+        Me.txtDatVon.TabIndex = 18
         '
         'frmGesamtsicherheitenMenuNEU
         '
@@ -731,4 +739,5 @@ Partial Class frmGesamtsicherheitenMenuNEU
     Friend WithEvents RLZollamtBereinigtToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents MehrfacheATBNrToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents cbxAUTO As CheckBox
+    Friend WithEvents GestellungenInDerZukunftToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -81,6 +81,10 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
         If txtSuchbegriff.Text <> "" Then
+            Dim sqlWhereZusatz As String = ""
+            If IsNumeric(txtSuchbegriff.Text) Then
+                sqlWhereZusatz = " OR gs.gs_gsNr = " & txtSuchbegriff.Text
+            End If
 
             sqlWhere = " AND ( gs.gs_freitext LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
                                         gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
@@ -89,42 +93,14 @@ Public Class frmGesamtsicherheitenMenuNEU
                                         gs.gs_VeralteteWeitereRegistriernummer LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
                                         gs.gs_MRNNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
                                         gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
-                                        gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%'
+                                        gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%'" & sqlWhereZusatz &
-                                    )"
+                                    ")"
 
 
 
 
         End If
 
-        'Dim sqlstring As String =
-        '    " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId,
-        '             max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
-        '               (Select SUM( Case 
-        'when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
-        'when gs_art = 'Close' then gs_sicherheitsbetrag
-        '       End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
-        '       )
-        '       +
-        '       (Select SUM( Case 
-        'when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
-        'when gsp_art = 'Close' then gsp_sicherheitsbetrag
-        '       End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
-        '        ) , 'C', 'de-DE') as gs_SicherheitsSaldo
-
-        '         From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where 
-        '             gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_avisoId like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
-        '             gs_warenort like '%" & txtSuchbegriff.Text & "%'
-        '         ) 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 & "
-        '         AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "'
-        '         AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' ORDER BY gs_gsnr"
-
-
 
         Dim sqlstring As String = "WITH SicherheitsSaldo AS (
                                     SELECT
@@ -581,7 +557,7 @@ Public Class frmGesamtsicherheitenMenuNEU
             Exit Sub
         End If
 
-        If Not zollliste_bereinigt Then SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)
+        If Not zollliste_bereinigt Then SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten, {"K1:K" & (frm.dtSicherheiten.Rows.Count + 1)})
 
     End Sub
 
@@ -629,7 +605,7 @@ Public Class frmGesamtsicherheitenMenuNEU
         Dim f As New frmDatumsabfrage("Saldo zum Stichtag", False)
         f.ShowDialog()
         If f.DialogResult = DialogResult.OK Then
-            GesSichRef.CalcSaldo(, f.Datum, True)
+            GesSichRef.CalcSaldo_new(, f.Datum, True)
         End If
 
 
@@ -639,9 +615,16 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
 
-        Dim SQLPlausPruefung = "select gs_gsnr as Nr,gs_ATBNr as ATBNr, gs_Sicherheitsbetrag as Sicherheitsbetrag ,gsp_ATCNr as ATCNr , cast(gs_datum as Date) as Ausgangsdatum, cast(gsp_datum as Date) as Eingangsdatum,  [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer from tblGesamtsicherheit
+        Dim SQLPlausPruefung = "SELECT
-											inner join tblGesamtsicherheitsPositionen on gs_gsId = gsp_gsId
+                    gs.gs_gsId,
-											where cast(gsp_datum as Date) < cast(gs_datum as Date) and not ( [gs_sicherheitsbetrag] = 0.00 and [gsp_sicherheitsbetrag] = 0.00) and gs_standort = '" & Standort & "'"
+                    gs.gs_datum AS GestellungDatum,
+                    gsp.gsp_datum AS PositionDatum,
+                    gsp.gsp_sicherheitsbetrag
+                FROM dbo.tblGesamtsicherheit AS gs
+                INNER JOIN dbo.tblGesamtsicherheitsPositionen AS gsp
+                    ON gsp.gsp_gsId = gs.gs_gsId
+                WHERE gs.gs_standort = '" & Standort & "'
+                  AND gsp.gsp_datum < gs.gs_datum;"
 
 
         Dim dt As New DataTable
@@ -666,29 +649,45 @@ Public Class frmGesamtsicherheitenMenuNEU
     Private Sub SicherheitsbetragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SicherheitsbetragToolStripMenuItem.Click
 
 
-        Dim SQLPlausPruefung = "SELECT 
+        Dim SQLPlausPruefung = "DECLARE @Standort varchar(100) = '" & Standort & "';
+
+            SELECT
                 gs.gs_gsnr,
-    gs.Sicherheitbetrag_Ausgang,
+                gs.Sicherheitsbetrag_Eingang,
-    gsp.Sicherheitbetrag_Eingang,
+                gsp.Sicherheitsbetrag_Ausgang,
-	gs.gs_standort
+                gs.gs_standort,
+                gsp.Sicherheitsbetrag_Ausgang
+                    - gs.Sicherheitsbetrag_Eingang AS Differenz
             FROM
             (
                 SELECT
                     gs_gsnr,
                     gs_standort,
-        SUM(gs_sicherheitsbetrag) AS Sicherheitbetrag_Ausgang
+                    SUM(ISNULL(gs_sicherheitsbetrag, 0))
-    FROM tblGesamtsicherheit
+                        AS Sicherheitsbetrag_Eingang
-    GROUP BY gs_standort, gs_gsnr
+                FROM dbo.tblGesamtsicherheit
-) gs
+                WHERE gs_standort = @Standort
-JOIN
+                  AND gs_gsnr <> 2030
+                GROUP BY
+                    gs_gsnr,
+                    gs_standort
+            ) AS gs
+            INNER JOIN
             (
                 SELECT
                     gsp_gsnr,
-        SUM(gsp_sicherheitsbetrag) AS Sicherheitbetrag_Eingang
+                    SUM(ISNULL(gsp_sicherheitsbetrag, 0))
-    FROM tblGesamtsicherheitsPositionen
+                        AS Sicherheitsbetrag_Ausgang
-    GROUP BY gsp_gsnr
+                FROM dbo.tblGesamtsicherheitsPositionen
-) gsp
+                GROUP BY
-    ON gs.gs_gsnr = gsp.gsp_gsnr WHERE gs.Sicherheitbetrag_Ausgang < gsp.Sicherheitbetrag_Eingang and gs_standort = '" & Standort & "' and gs_gsnr <> 2030  order by gs.gs_gsnr"
+                    gsp_gsnr
+            ) AS gsp
+                ON gsp.gsp_gsnr = gs.gs_gsnr
+            WHERE
+                gs.Sicherheitsbetrag_Eingang
+                    < gsp.Sicherheitsbetrag_Ausgang
+            ORDER BY
+                gs.gs_gsnr;"
 
 
         Dim dt As New DataTable
@@ -697,7 +696,7 @@ JOIN
 
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
 
-            MsgBox(dt.Rows.Count & " Datensätze müssen korrigiert werden (S-Betrag des Gestellungseinganges darf nicht größer als der des dem Gestellungsausganges)! " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.")
+            MsgBox(dt.Rows.Count & " Datensätze müssen korrigiert werden (S-Betrag des Gestellungseinganges darf nicht größer als der des Gestellungsausganges)! " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.")
             SDL.cProgramFunctions.genExcelFromDT_NEW(dt)
 
         Else
@@ -737,4 +736,60 @@ JOIN
         End If
 
     End Sub
+
+    Private Sub GestellungenInDerZukunftToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GestellungenInDerZukunftToolStripMenuItem.Click
+
+
+        Dim SQLPlausPruefung = "DECLARE @Heute date = CAST(GETDATE() AS date) DECLARE @Standort varchar(100) = '" & Standort & "';
+
+            -- Zukünftige Gestellungen
+            SELECT
+                gs.gs_gsnr AS Nummer,
+                'Gestellung' AS Typ,
+                gs.gs_datum AS Datum,
+                gs.gs_standort AS Standort,
+                gs.gs_ATBNr AS Registriernummer,
+                gs.gs_MRNNr AS MRN,
+                gs.gs_sicherheitsbetrag AS Sicherheitsbetrag
+            FROM tblGesamtsicherheit AS gs
+            WHERE gs.gs_datum >= DATEADD(day, 1, @Heute) AND gs.gs_standort = @Standort
+            
+            UNION ALL
+            
+            -- Zukünftige Gestellungspositionen
+            SELECT
+                gsp.gsp_gsnr AS Nummer,
+                'Gestellungsposition' AS Typ,
+                gsp.gsp_datum AS Datum,
+                gs.gs_standort AS Standort,
+                gsp.gsp_ATCNr AS Registriernummer,
+                gsp.gsp_MRNNr AS MRN,
+                gsp.gsp_sicherheitsbetrag AS Sicherheitsbetrag
+            FROM tblGesamtsicherheitsPositionen AS gsp
+            INNER JOIN tblGesamtsicherheit AS gs
+                ON gs.gs_gsnr = gsp.gsp_gsnr
+            WHERE gsp.gsp_datum >= DATEADD(day, 1, @Heute) AND gs.gs_standort = @Standort
+            
+            ORDER BY
+                Datum,
+                Nummer,
+                Typ;"
+
+
+        Dim dt As New DataTable
+        dt = SQL.loadDgvBySql(SQLPlausPruefung, "AVISO", 100, True)
+
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+            MsgBox(dt.Rows.Count & " Datensätze befinden sich in der Zukunft, bitte korrektes Datum eintragen. " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.")
+            SDL.cProgramFunctions.genExcelFromDT_NEW(dt)
+
+        Else
+
+            MsgBox("keine fehlerhaften Eingaben vorhanden!")
+
+        End If
+
+    End Sub
 End Class

Aviso/frmGesamtsicherheitenNEU.vb

@@ -80,7 +80,7 @@ Public Class frmGesamtsicherheitenNEU
         End Select
 
         currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
-        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
         lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
         Me.Text = "Gesamtsicherheit " & Standort
@@ -295,7 +295,7 @@ Public Class frmGesamtsicherheitenNEU
                                                 and isnull(gs_sicherheitsbetrag,0) <> 0 
                                                 and gs_datum is not null
 											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_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
+                                                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] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
                                            Where gsp_gsnr In ( 
 											
 												SELECT [gs_gsnr] FROM tblGesamtsicherheit WHERE gs_standort = '" & standort & "' AND cast(gs_datum as Date) >  '" & datumVon.ToShortDateString & "'  AND cast(gs_datum as Date) <=  '" & datumBis.ToShortDateString & "' 
@@ -305,41 +305,159 @@ Public Class frmGesamtsicherheitenNEU
                                             ) as Temp  order by Temp.Datum, Temp.Uhrzeit  "
 
 
-        Dim SQLStringSicherheit_new_new As String = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "', gs_MRNNr as MRN,'Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt' " & IIf(detailinfo, ", [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer ", "") & "
+        Dim SQLStringSicherheit_new_new As String = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "', gs_MRNNr as MRN,'Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc " & IIf(detailinfo, ", [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer ", "") & "
                                             From [tblGesamtsicherheit]
                                             Where  gs_standort = '" & standort & "' AND cast(gs_datum as Date) >  '" & datumVon.ToShortDateString & "'  AND cast(gs_datum as Date) <=  '" & datumBis.ToShortDateString & "' and gs_datum is not null
 											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_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
+                                                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] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] 
                                            Where gsp_gsnr In ( SELECT [gs_gsnr] FROM tblGesamtsicherheit WHERE gs_standort = '" & standort & "'  ) 
                                             and gsp_datum is not null AND cast(gsp_datum as Date) >=  '" & datumVon.ToShortDateString & "'
                                             ) as Temp  order by Temp.Datum, Temp.Uhrzeit  "
 
-        dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit_new_new, "AVISO", 100, True)
+
+        Dim SQLStringSicherheit_refactored As String = " DECLARE @DatumVon date = '" & datumVon.ToShortDateString & "';
+                                                         DECLARE @DatumBis date = '" & datumBis.ToShortDateString & "';
+                                                         DECLARE @Standort varchar(100) = '" & standort & "';
 
 
-        dtSicherheiten.Columns.Add("Saldo")
+;WITH ReferenzHistorie AS
+(
+    SELECT
+        k.brgakto_gs_standort AS Standort,
+        r.brgarefb_id,
+        r.brgarefb_refbetrag,
+        r.brgarefb_gueltig_ab,
+        LAG(r.brgarefb_refbetrag, 1, 0) OVER
+        (
+            PARTITION BY k.brgakto_gs_standort
+            ORDER BY
+                r.brgarefb_gueltig_ab,
+                r.brgarefb_id
+        ) AS VorherigerReferenzbetrag
+    FROM [ADMIN].[dbo].[tblBrgAufschubKonten] AS k
+    INNER JOIN [ADMIN].[dbo].[tblBrgAufschubReferenzberaege] AS r
+        ON r.brgarefb_gsid = k.brgakto_id
+    WHERE k.brgakto_gs_standort = @Standort
+      AND ISNULL(r.brgarefb_gs_aktiv, 1) = 1
+),
+Saldenliste AS
+(
+    /* Referenzbetragsänderungen nach dem Anfangssaldo */
+SELECT
+    0 AS Nr,
+    CAST(NULL AS varchar(100)) AS RegNr,
+    CAST(NULL AS varchar(100)) AS MRN,
+    'Änderung Referenzbetrag' AS Typ,
+    CAST(rh.brgarefb_gueltig_ab AS date) AS Datum,
+    CAST('00:00:00' AS time) AS Uhrzeit,
+    CAST(NULL AS decimal(18,2)) AS Warenwert,
+    rh.brgarefb_refbetrag AS Sicherheitbetrag,
+    rh.brgarefb_refbetrag
+        - rh.VorherigerReferenzbetrag AS Sicherheitbetrag_Calc,
+    rh.Standort,
+    0 AS Sortierung
+FROM ReferenzHistorie AS rh
+WHERE rh.brgarefb_gueltig_ab > @DatumVon
+  AND rh.brgarefb_gueltig_ab < DATEADD(day, 1, @DatumBis)
+  AND rh.brgarefb_refbetrag <> rh.VorherigerReferenzbetrag
+
+    UNION ALL
+
+    /* Eingang Verwahrlager */
+    SELECT
+        gs.gs_gsnr AS Nr,
+        gs.gs_ATBNr AS RegNr,
+        gs.gs_MRNNr AS MRN,
+        'Eingang Verwahrlager' AS Typ,
+        CAST(gs.gs_datum AS date) AS Datum,
+        CAST(gs.gs_datum AS time) AS Uhrzeit,
+        gs.gs_warenwert AS Warenwert,
+        gs.gs_sicherheitsbetrag AS Sicherheitbetrag,
+        gs.gs_sicherheitsbetrag * -1 AS Sicherheitbetrag_Calc,
+        gs.gs_standort AS Standort,
+        1 AS Sortierung
+    FROM dbo.tblGesamtsicherheit AS gs
+    WHERE gs.gs_standort = @Standort
+      AND gs.gs_datum >= @DatumVon
+      AND gs.gs_datum < DATEADD(day, 1, @DatumBis)
+      AND gs.gs_datum IS NOT NULL
+      AND ISNULL(gs.gs_ReferenzAenderung, 0) = 0
+
+    UNION ALL
+
+    /* Ausgang Verwahrlager */
+SELECT
+    gsp.gsp_gsnr AS Nr,
+    gsp.gsp_ATCNr AS RegNr,
+    gsp.gsp_MRNNr AS MRN,
+    'Ausgang Verwahrlager' AS Typ,
+    CAST(gsp.gsp_datum AS date) AS Datum,
+    CAST(gsp.gsp_datum AS time) AS Uhrzeit,
+    gsp.gsp_warenwert AS Warenwert,
+    gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag,
+    gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag_Calc,
+    @Standort AS Standort,
+    2 AS Sortierung
+FROM dbo.tblGesamtsicherheitsPositionen AS gsp
+WHERE gsp.gsp_datum >= @DatumVon
+  AND gsp.gsp_datum < DATEADD(day, 1, @DatumBis)
+  AND gsp.gsp_datum IS NOT NULL
+  AND EXISTS
+  (
+      SELECT 1
+      FROM dbo.tblGesamtsicherheit AS gs
+      WHERE gs.gs_gsId = gsp.gsp_gsId
+        AND gs.gs_standort = @Standort
+        AND gs.gs_datum IS NOT NULL
+        AND gs.gs_datum < DATEADD(day, 1, @DatumBis)
+        AND ISNULL(gs.gs_ReferenzAenderung, 0) = 0
+  )
+)
+SELECT
+    Nr,
+    RegNr,
+    MRN,
+    Typ,
+    Datum,
+    Uhrzeit,
+    Warenwert,
+    Sicherheitbetrag,
+    Sicherheitbetrag_Calc,
+    Standort
+FROM Saldenliste
+ORDER BY
+    Datum ASC,
+    Sortierung ASC,
+    Uhrzeit ASC,
+    Nr ASC;"
+
+
+        dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit_refactored, "AVISO", 100, True)
+
+
+        dtSicherheiten.Columns.Add("Saldo", GetType(Decimal))
 
         Dim drFirst = dtSicherheiten.NewRow
         drFirst.Item("Nr") = 0
         drFirst.Item("Typ") = "Uebertrag vom"
         drFirst.Item("Datum") = CDate(datumVon).ToShortDateString
         Dim DefaultSaldo As Double = currentGesSichRef.getReferenzbetrag(CDate(datumVon).ToShortDateString)
-        drFirst.Item("Saldo") = currentGesSichRef.CalcSaldo(, datumVon) 'SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
+        drFirst.Item("Saldo") = currentGesSichRef.CalcSaldo_new(, datumVon) 'SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
 
         dtSicherheiten.Rows.InsertAt(drFirst, 0)
 
 
-        Dim sicherheitsbetrag As Double
+        Dim sicherheitsbetrag As Decimal
-        Dim saldo As Double
+        Dim saldo As Decimal
-        Dim c1 As Double
+        Dim c1 As Decimal
-        Dim saldoStart As Double
+        Dim saldoStart As Decimal
 
         For i As Integer = 1 To dtSicherheiten.Rows.Count - 1
 
-            saldoStart = CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
+            saldoStart = CDec(dtSicherheiten.Rows(0).Item("Saldo"))
-            saldo = CDbl(dtSicherheiten.Rows(i - 1).Item("Saldo"))
+            saldo = CDec(dtSicherheiten.Rows(i - 1).Item("Saldo"))
 
-            sicherheitsbetrag = IIf(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc") IsNot Nothing, CDbl(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc")), 0)
+            sicherheitsbetrag = If(IsDBNull(dtSicherheiten.Rows(i)("Sicherheitbetrag_Calc")), 0, CDec(dtSicherheiten.Rows(i)("Sicherheitbetrag_Calc")))
 
             c1 = saldo + sicherheitsbetrag
 
@@ -351,7 +469,7 @@ Public Class frmGesamtsicherheitenNEU
         drLast.Item("Nr") = 0
         drLast.Item("Typ") = "Saldo zum"
         drLast.Item("Datum") = CDate(datumBis).ToShortDateString
-        drLast.Item("Saldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("Saldo"))
+        drLast.Item("Saldo") = CDec(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("Saldo"))
 
         dtSicherheiten.Rows.InsertAt(drLast, dtSicherheiten.Rows.Count)
 
@@ -410,7 +528,7 @@ Public Class frmGesamtsicherheitenNEU
             drFirst_new.Item("Nr") = 0
             drFirst_new.Item("Typ") = "Uebertrag vom"
             drFirst_new.Item("Datum") = CDate(datumVon).ToShortDateString
-            drFirst_new.Item("Saldo") = CDbl(startSaldo)
+            drFirst_new.Item("Saldo") = CDec(startSaldo)
 
             sicherheiten_cleared.Rows.InsertAt(drFirst_new, 0)
 
@@ -419,11 +537,15 @@ Public Class frmGesamtsicherheitenNEU
             drLast_new.Item("Nr") = 0
             drLast_new.Item("Typ") = "Saldo zum"
             drLast_new.Item("Datum") = CDate(datumBis).ToShortDateString
-            drLast_new.Item("Saldo") = CDbl(endSaldo)
+            drLast_new.Item("Saldo") = CDec(endSaldo)
 
             sicherheiten_cleared.Rows.InsertAt(drLast_new, sicherheiten_cleared.Rows.Count)
 
-            If sicherheiten_cleared.Rows.Count > 2 Then SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared)
+            If sicherheiten_cleared.Rows.Count > 2 Then
+
+                SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared, {"K1:K" & (sicherheiten_cleared.Rows.Count + 1)})
+
+            End If
 
 
         End If
@@ -466,7 +588,7 @@ Public Class frmGesamtsicherheitenNEU
 
         Next
 
-        Dim SQLStringSicherheit As String = "select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt', gs_art,  
+        Dim SQLStringSicherheit As String = "select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, gs_art,  
                                             [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext, gsp_art" &
                                             IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am',  gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") &
                                             "from [tblGesamtsicherheit]
@@ -477,7 +599,7 @@ Public Class frmGesamtsicherheitenNEU
 
 
 
-        Dim SQLStringSicherheit_new As String = "	select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',  
+        Dim SQLStringSicherheit_new As String = "	select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo,  
                                             [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext" &
                                             IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am',  gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") &
                                             "From tblGesamtsicherheit
@@ -500,7 +622,7 @@ Public Class frmGesamtsicherheitenNEU
 
         Dim drFirst = dtSicherheiten.NewRow
         drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon
-        drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo(, datumVon)  'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
+        drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo_new(, datumVon)  'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
 
         dtSicherheiten.Rows.InsertAt(drFirst, 0)
 
@@ -805,7 +927,7 @@ Public Class frmGesamtsicherheitenNEU
     Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click
         Try
 
-            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
             lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
             If (txtSicherheitATBNr.Text = "") Then
@@ -940,7 +1062,7 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click
 
-        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
         lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
         If dgvGesamtsicherheit.SelectedRows.Count = 0 Then
@@ -1023,7 +1145,7 @@ Public Class frmGesamtsicherheitenNEU
     End Function
     Sub AfterButton()
         'currentGesSichRef.CalcSaldo()
-        lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N")
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo_new()).ToString("N")
         LoadDGVSicherheiten(True)
         EmptyTXT()
     End Sub
@@ -2136,7 +2258,7 @@ Public Class frmGesamtsicherheitenNEU
     Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click
 
         Try
-            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new())
             lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
 
             If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then

Aviso/frmSendungsdetailsNEU.vb

@@ -1129,6 +1129,9 @@ Public Class frmSendungsdetailsNEU
         initZollTarife(c.KdNr)
     End Sub
     Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown
+        Try
+
+
             If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
                 Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
                 u.Dock = DockStyle.Fill
@@ -1151,6 +1154,9 @@ Public Class frmSendungsdetailsNEU
             'Me.Close()
             ' Exit Sub
             'nd If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
     End Sub
 
     Sub changeSelectedButton()

Aviso/usrCntlSND_ATBGestellung.vb

@@ -136,7 +136,7 @@ Public Class usrCntlSND_ATBGestellung
                 Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID)
                 If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
 
-                Dim saldo = CDbl(GesSichRef.CalcSaldo())
+            Dim saldo = CDbl(GesSichRef.CalcSaldo_new())
 
             Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100)
 
@@ -228,7 +228,7 @@ Public Class usrCntlSND_ATBGestellung
             End With
 
             AddHandler frm.FormClosing, Function()
-                                            GesSichRef.CalcSaldo()
+                                            GesSichRef.CalcSaldo_new()
                                             Me.BringToFront()
                                         End Function
             frm.Show()
@@ -305,7 +305,7 @@ Public Class usrCntlSND_ATBGestellung
                 .txtSicherheitATBNr.Text = txtATBT1.Text
             End With
             AddHandler frm.FormClosing, Function()
-                                            GesSichRef.CalcSaldo()
+                                            GesSichRef.CalcSaldo_new()
                                             Me.BringToFront()
                                         End Function
             frm.Show(Me)