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

Gesamtsicherheiten Bugfix beim Weiterschalten

Browse Source
This commit is contained in:
d.breimaier
2023-04-25 09:31:27 +02:00
parent 17b8dae263
commit 55720c9ded
3 changed files with 27 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -15,10 +15,10 @@ Public Class frmGesamtsicherheitenMenuNEU
Select Case Standort
Case "Verag GmbH" : firmaId = 2
Case "VERAG AG" : firmaId = 1
Case "IMEX" : firmaId = 20
Case "Verag CS" : firmaId = 11
Case "Verag GmbH" : firmaId = 2 : chkOffen.Checked = True
Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False
Case "IMEX" : firmaId = 20 : chkOffen.Checked = False
Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False
End Select
@@ -39,7 +39,6 @@ Public Class frmGesamtsicherheitenMenuNEU
txtDatVon.Text = Date.Parse("01.01.2001")
txtDatBis.Text = Now.ToShortDateString
chkOffen.Checked = True
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year