neu

VERAGMonitoring/frmMain.vb

@@ -35,7 +35,7 @@ Public Class frmMain
         ico = icoVERAGMonitoring
         AddHandler ico.BalloonTipClicked, AddressOf showMe
 
-        If Not BRG.checkUser(System.Environment.MachineName, Environment.UserName) Then MsgBox("Sie sind für das Monitoring-Programm nicht freigeschaltet!") : Application.Exit()
+        If Not (BRG.checkUser(System.Environment.MachineName, Environment.UserName) Or BRG.checkUser("SERVER", Environment.UserName)) Then MsgBox("Sie sind für das Monitoring-Programm nicht freigeschaltet!") : Application.Exit()
         ' If allowEinzahlung Then btnEinzahlung.Visible = True
         If allowEinzahlung Then btnZusBel.Visible = True
         If brgusr_allowBelaustungAufheben Then btnBelastungAufheben.Visible = True
@@ -97,6 +97,21 @@ Public Class frmMain
                 Button2.Visible = False
                 Button4.Enabled = False
 
+            Case "VERIMEX"
+                'cbxBrg_at_VeragAG.Enabled = False
+                'cbxBrg_de2_VeragAG.Enabled = False
+                'cbxBrg_at_VeragAG.Checked = False
+                'cbxBrg_de2_VeragAG.Checked = False
+                cbxAufschub_de_VeragAG.Checked = False
+                cbxAufschub_at_VeragAG.Checked = False
+                cbxAufschub_at_VeragCS.Checked = False
+                cbxAufschub_at_VeragZS.Checked = False
+                cbxAufschub_de_VeragAG.Enabled = False
+                cbxAufschub_at_VeragAG.Enabled = False
+                cbxAufschub_at_VeragCS.Enabled = False
+                cbxAufschub_at_VeragZS.Enabled = False
+                Button2.Visible = False
+                Button4.Enabled = False
         End Select
 
 
@@ -210,7 +225,7 @@ Public Class frmMain
             'TELOTEC AT WOCHE
             Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
             'AT WOCHE
-            Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
+            Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC + AtWoche_nctsTR
             setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at)))
 
             'ZOLARIS AT TAG
@@ -985,6 +1000,14 @@ Public Class frmMain
         Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
         frmShowData.Show()
     End Sub
+
+    Private Sub cbxBrg_at_Atilla_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Atilla.CheckedChanged
+
+    End Sub
+
+    Private Sub cbxBrg_at_Imex_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Imex.CheckedChanged
+
+    End Sub
 End Class