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

SQL

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-12-19 09:10:38 +01:00
parent 6584411469
commit 8924cf6151
3 changed files with 23 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.8.5")>
<Assembly: AssemblyFileVersion("4.1.8.5")>
<Assembly: AssemblyVersion("4.1.9.0")>
<Assembly: AssemblyFileVersion("4.1.9.0")>

11
Aviso/frmHauptfenster.vb
View File

@@ -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")

12
Aviso/frmLogin.vb
View File

@@ -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