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

Version, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-04 17:36:48 +02:00
parent 5508548d74
commit dfc17fe013
2 changed files with 46 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

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

58
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -66,7 +66,19 @@ Public Class frmGesamtsicherheitenNEU
End If
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
Select Case Standort
Case Sicherheiten_Standort.VERAG_GMBH : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO : firmaId = 2
Case Sicherheiten_Standort.AMBAR : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO :: firmaId = 24
Case Sicherheiten_Standort.ATILLA : btnDAKOSY_AUTO.Enabled = False : firmaId = 7
Case Sicherheiten_Standort.VERAG_AG : btnDAKOSY_AUTO.Enabled = False : firmaId = 1
Case Sicherheiten_Standort.IMEX : btnDAKOSY_AUTO.Enabled = False : firmaId = 20
Case Sicherheiten_Standort.VERAG_CS : btnDAKOSY_AUTO.Enabled = False : firmaId = 11
Case Sicherheiten_Standort.UNISPED : btnDAKOSY_AUTO.Enabled = False : firmaId = 21
Case Else : btnDAKOSY_AUTO.Enabled = False
End Select
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
@@ -100,17 +112,7 @@ Public Class frmGesamtsicherheitenNEU
initPrevNextButtons()
changeLabel()
Select Case Standort
Case Sicherheiten_Standort.VERAG_GMBH : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case Sicherheiten_Standort.AMBAR : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case Sicherheiten_Standort.ATILLA : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.VERAG_AG : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.IMEX : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.VERAG_CS : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.UNISPED : btnDAKOSY_AUTO.Enabled = False
Case Else : btnDAKOSY_AUTO.Enabled = False
End Select
Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -241,7 +243,21 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
Select Case standort
Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Case Sicherheiten_Standort.AMBAR : firmaId = 24
Case Sicherheiten_Standort.ATILLA : firmaId = 7
Case Sicherheiten_Standort.VERAG_AG : firmaId = 1
Case Sicherheiten_Standort.IMEX : firmaId = 20
Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
Case Sicherheiten_Standort.UNISPED : firmaId = 21
Case Else
End Select
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
'Dim gsnr As String
@@ -422,7 +438,21 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
Select Case standort
Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Case Sicherheiten_Standort.AMBAR : firmaId = 24
Case Sicherheiten_Standort.ATILLA : firmaId = 7
Case Sicherheiten_Standort.VERAG_AG : firmaId = 1
Case Sicherheiten_Standort.IMEX : firmaId = 20
Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
Case Sicherheiten_Standort.UNISPED : firmaId = 21
Case Else
End Select
Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
Dim gsnr As String
Dim counter = 0
@@ -464,7 +494,7 @@ Public Class frmGesamtsicherheitenNEU
dtSicherheiten.Columns.Add("SSaldo")
If currentGesSichRef Is Nothing Then
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
End If
Dim drFirst = dtSicherheiten.NewRow