gesamtsicherheiten_Umbau auf ADMIN-tbl

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -1,12 +1,10 @@
-Imports System.Reflection
-Imports SDL
-Imports Spire.PdfViewer.Forms
+Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmGesamtsicherheitenMenuNEU
 
     Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
-    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
+    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
     Public dataTable As DataTable
     Public Property Standort As String = ""
 
@@ -17,7 +15,7 @@ Public Class frmGesamtsicherheitenMenuNEU
         Me.Text = "Gesamtsicherheiten " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvListe)
 
-        GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+        GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
         If GesSichRef.hasEntry = False Then
             MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!")
             Exit Sub
@@ -26,15 +24,18 @@ Public Class frmGesamtsicherheitenMenuNEU
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
 
 
+        'txtDatVon.Text = Now.ToShortDateString
 
 
-        txtDatVon.Text = Now.ToShortDateString
+        'Hiermit werden alle offenen Gestellungen angezeigt.
+        txtDatVon.Text = Date.Parse("01.01.1970")
         txtDatBis.Text = Now.ToShortDateString
+        chkOffen.Checked = True
 
         btnMonat.Text = MONAT.ToString("MMMM")
         btnJahr.Text = JAHR.Year
 
-        If GesSichRef.gsr_ATR = True Then
+        If GesSichRef.brgakto_gs_ATR = True Then
             Dim anzahlOffenerGSUeber85Tage As Integer = checkOpenATBs()
             If anzahlOffenerGSUeber85Tage > 0 Then
                 btnOpenOver85Days.Visible = True
@@ -140,8 +141,8 @@ Public Class frmGesamtsicherheitenMenuNEU
     End Function
 
     Public Sub ShowStandort()
-        lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.gsr_referenzwert).ToString("N")
-        lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
+        lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.brgakto_betrag).ToString("N")
+        lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
     End Sub