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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.7.6")> <Assembly: AssemblyVersion("4.2.7.7")>
<Assembly: AssemblyFileVersion("4.2.7.6")> <Assembly: AssemblyFileVersion("4.2.7.7")>

58
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -66,7 +66,19 @@ Public Class frmGesamtsicherheitenNEU
End If 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()) SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
@@ -100,17 +112,7 @@ Public Class frmGesamtsicherheitenNEU
initPrevNextButtons() initPrevNextButtons()
changeLabel() 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 Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos) frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -241,7 +243,21 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor 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 gsnr As String
@@ -422,7 +438,21 @@ Public Class frmGesamtsicherheitenNEU
Me.Cursor = Cursors.WaitCursor 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 gsnr As String
Dim counter = 0 Dim counter = 0
@@ -464,7 +494,7 @@ Public Class frmGesamtsicherheitenNEU
dtSicherheiten.Columns.Add("SSaldo") dtSicherheiten.Columns.Add("SSaldo")
If currentGesSichRef Is Nothing Then If currentGesSichRef Is Nothing Then
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort) currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
End If End If
Dim drFirst = dtSicherheiten.NewRow Dim drFirst = dtSicherheiten.NewRow