From 8924cf6151e84dd14c5cd66e258aa9f4c6e8380d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 19 Dec 2025 09:10:38 +0100 Subject: [PATCH] SQL --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmHauptfenster.vb | 11 +++++++++-- Aviso/frmLogin.vb | 12 ++++++++++++ 3 files changed, 23 insertions(+), 4 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index d5cfdb9..97355a0 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/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 418e212..6334f47 100644 --- a/Aviso/frmHauptfenster.vb +++ b/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") diff --git a/Aviso/frmLogin.vb b/Aviso/frmLogin.vb index b4b6a0b..4c76ae2 100644 --- a/Aviso/frmLogin.vb +++ b/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