edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gesamtsicherheiten, Ref, Mail, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-09 13:01:46 +02:00
parent 47c24423b7
commit ed9bb82597
11 changed files with 7419 additions and 392 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmGesamtsicherheitenMenu.vb
View File

@@ -9,7 +9,7 @@ Public Class frmGesamtsicherheitenMenu
' Public Saldo As Integer = 0
Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Dim GesSichRef As New cGesamtSicherheitsReferenz
Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
'Public ATR As Boolean = False
Public Property Standort As String = ""
@@ -18,7 +18,7 @@ Public Class frmGesamtsicherheitenMenu
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)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
'GesSichRef.LOAD("standort", Standort)
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
@@ -100,8 +100,8 @@ Public Class frmGesamtsicherheitenMenu
Public Sub ShowStandort()
'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.getReferenzbetrag(Now()).ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
End Sub