Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Aviso/frmHauptfenster.vb

@@ -283,6 +283,12 @@ Public Class frmHauptfenster
         pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
         UsrCntlBenachrichtigungen1.Panel3.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
 
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+            Panel1.BackColor = Color.Red
+
+        End If
+
         UpdateUpdater.Interval = 5000
         UpdateUpdater.Enabled = True
 
@@ -3488,7 +3494,7 @@ ELSE_ATILLA:
 
         Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856")
         If path <> "" Then
-            process.Start(path)
+            Process.Start(path)
         End If
         'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then
         '    MsgBox("HURRA2" & vbNewLine & firma)
@@ -5115,7 +5121,8 @@ ELSE_ATILLA:
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-
+        'cATEZ_Greenpulse_CBAM_CostCalculation.Test()
+        Exit Sub
 
         ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_1445868")
 

Aviso/frmLogin.vb

@@ -29,6 +29,18 @@ Public Class frmLogin
             End If
             e.Handled = True
         End If
+        If e.Modifiers = Keys.Control And e.KeyCode = Keys.G Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = Not VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED
+            VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER = "[SQLGUIDE01.verag.ost.dmn]"
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+                Panel1.BackColor = Color.Red
+                Panel1.ForeColor = Color.White
+            Else
+                Panel1.BackColor = Color.White
+                Panel1.ForeColor = Color.FromArgb(0, 54, 128)
+            End If
+            e.Handled = True
+        End If
         If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
             Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
             lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor