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

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

Browse Source
This commit is contained in:
d.breimaier
2025-12-19 10:51:45 +01:00
parent 204c9219d9 12b958b6bd
commit 68adc5301b
2 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Aviso/frmHauptfenster.vb
View File

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

12
Aviso/frmLogin.vb
View File

@@ -29,6 +29,18 @@ Public Class frmLogin
End If End If
e.Handled = True e.Handled = True
End If 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 If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor