From dfc17fe01319cd44a3b2c80c83aeba2f78a274f4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 4 May 2026 17:36:48 +0200 Subject: [PATCH] Version, etc. --- Aviso/My Project/AssemblyInfo.vb | 4 +-- Aviso/frmGesamtsicherheitenNEU.vb | 58 +++++++++++++++++++++++-------- 2 files changed, 46 insertions(+), 16 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 7606c92..0ce2ed9 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index be2fcb9..6c64074 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -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