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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-29 09:04:20 +02:00
parent d1c19098c9
commit b07e78dd12
2 changed files with 38 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAGMonitoring/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("1.0.4.9")> <Assembly: AssemblyVersion("1.0.5.0")>
<Assembly: AssemblyFileVersion("1.0.4.9")> <Assembly: AssemblyFileVersion("1.0.5.0")>

36
VERAGMonitoring/frmMain.vb
View File

@@ -250,6 +250,42 @@ Public Class frmMain
allowCBX(cbxAufschubEUST_de_UnispedDE, False) allowCBX(cbxAufschubEUST_de_UnispedDE, False)
allowCBX(cbxAufschub_de_UnispedDE, False) allowCBX(cbxAufschub_de_UnispedDE, False)
'--------------------------------------------------
If Me.firma.Contains("ATILLA") Or Me.firma.Contains("ALL") Then
allowCBX(cbxBrg_at_Imex, True)
allowCBX(cbxBrg_at_VeragAG, True)
allowCBX(cbxBrg_de2_VeragAG, True)
allowCBX(cbxBrg_at_VeragAG, True)
allowCBX(cbxBrg_de2_VeragAG, True)
allowCBX(cbxBrg_at_Atilla, True)
End If
If Me.firma.Contains("IMEX") Or Me.firma.Contains("ALL") Then
allowCBX(cbxBrg_at_VeragAG, True)
allowCBX(cbxBrg_de2_VeragAG, True)
allowCBX(cbxBrg_at_VeragAG, True)
allowCBX(cbxBrg_de2_VeragAG, True)
allowCBX(cbxAufschub_de_Imex, True)
allowCBX(cbxBrg_at_Imex, True)
allowCBX(cbxAufschubEUST_de_Imex, True)
allowCBX(cbxAufschubEUST_de_Global, True)
allowCBX(cbxAufschub_at_IMEX, True)
End If
If Me.firma.Contains("UNISPED") Or Me.firma.Contains("ALL") Then
allowCBX(cbxAufschubEUST_de_Unisped, True)
allowCBX(cbxAufschub_de_Unisped, True)
allowCBX(cbxBrg_at_UNISPED, True)
allowCBX(cbxBrg_at_VERAG_CS, True)
allowCBX(cbxAufschubEUST_de_UnispedDE, True)
allowCBX(cbxAufschub_de_UnispedDE, True)
End If
End Select End Select
End If End If