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

Firmen switchen, Fenster schließen

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-15 22:21:36 +01:00
parent 532a1be90b
commit 0cf3ccd1fb
3 changed files with 152 additions and 63 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.7.3")> <Assembly: AssemblyVersion("4.0.7.5")>
<Assembly: AssemblyFileVersion("4.0.7.3")> <Assembly: AssemblyFileVersion("4.0.7.5")>

208
Aviso/frmHauptfenster.vb
View File

@@ -12,8 +12,8 @@ Imports Microsoft.Office.Interop
Imports Spire.Pdf.Texts Imports Spire.Pdf.Texts
Imports System.Net Imports System.Net
Imports System.Text Imports System.Text
Imports System.IO.Pipes
Imports System.Security.AccessControl
'Imports UID 'Imports UID
Public Class frmHauptfenster Public Class frmHauptfenster
@@ -157,8 +157,68 @@ Public Class frmHauptfenster
End Sub End Sub
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load '----------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------
Private listenerThread As System.Threading.Thread
Private Sub StartPipeListener()
listenerThread = New System.Threading.Thread(Sub()
Dim pipeName As String = $"AVISO_{Process.GetCurrentProcess().Id}"
Dim pipeSecurity As New PipeSecurity()
pipeSecurity.AddAccessRule(New PipeAccessRule(Environment.UserName, PipeAccessRights.FullControl, AccessControlType.Allow))
Console.WriteLine($"Waiting for messages on pipe {pipeName}...")
While True
Using server = New NamedPipeServerStream(pipeName, PipeDirection.In, 1, PipeTransmissionMode.Byte, PipeOptions.None, 0, 0, pipeSecurity)
Try
server.WaitForConnection()
Using reader = New StreamReader(server, Encoding.UTF8)
Dim message = reader.ReadLine()
ProcessMessage(message)
End Using
server.Disconnect()
Catch ex As Exception
Console.WriteLine("Fehler im Listener: " & ex.Message)
End Try
End Using
End While
End Sub)
listenerThread.IsBackground = True
listenerThread.Start()
End Sub
Private Sub ProcessMessage(message As String)
If message.StartsWith("OpenKd_") Then
Invoke(Sub()
Dim split = message.ToString.Split("_")
FUNC.showKd(split(1), True)
End Sub)
End If
End Sub
Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
MyBase.OnFormClosed(e)
listenerThread.Abort()
End Sub
'----------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
StartPipeListener()
End If
End If
'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Me.AutoScaleMode = AutoScaleMode.Dpi Me.AutoScaleMode = AutoScaleMode.Dpi
@@ -3964,6 +4024,20 @@ Public Class frmHauptfenster
End If End If
End Sub End Sub
Sub closeAllWindows()
' Hole alle geöffneten Fenster in einer Liste
Dim openForms = Application.OpenForms.Cast(Of Form).ToList()
' Iteriere über jedes Fenster in der Liste
For Each frm As Form In openForms
' Prüfe, ob das Fenster nicht das aktuelle ist
If frm IsNot Me Then
' Schließe das Fenster, unabhängig davon, ob es modal oder nicht ist
frm.Close()
End If
Next
End Sub
Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERAG", "SUB", True)) Then If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERAG", "SUB", True)) Then
showMeNew() showMeNew()
@@ -3974,11 +4048,11 @@ Public Class frmHauptfenster
'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER() 'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
closeOK = True closeOK = True
For Each ft As Form In Application.OpenForms 'For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close() ' If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close()
If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close() ' If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close()
Next 'Next
closeAllWindows()
Dim f As New frmHauptfenster Dim f As New frmHauptfenster
f.Show() f.Show()
@@ -4483,58 +4557,70 @@ Public Class frmHauptfenster
' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL") ' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL")
Dim slist As New List(Of String) Dim slist As New List(Of String)
slist.Add("510323010932") slist.Add("510322017583")
slist.Add("510323011636") slist.Add("510322017588")
slist.Add("510323011857") slist.Add("510322017594")
slist.Add("510323011898") slist.Add("510322017789")
slist.Add("510323011973") slist.Add("510322017825")
slist.Add("510323012315") slist.Add("510322017898")
slist.Add("510323012316") slist.Add("510322017884")
slist.Add("510323012197") slist.Add("510322018006")
slist.Add("510323012479") slist.Add("510322017982")
slist.Add("510323012728") slist.Add("510322018045")
slist.Add("510323012818") slist.Add("510322018174")
slist.Add("510323012844") slist.Add("510322018180")
slist.Add("510323012848") slist.Add("480322071811")
slist.Add("510323012877") slist.Add("510322018187")
slist.Add("510323012910") slist.Add("510322018188")
slist.Add("510323012914") slist.Add("510322018190")
slist.Add("510323012931") slist.Add("510322018193")
slist.Add("510323012879") slist.Add("510322018195")
slist.Add("510323012884") slist.Add("510322018207")
slist.Add("510323013223") slist.Add("510322018211")
slist.Add("510323013268") slist.Add("510322018225")
slist.Add("510323013373") slist.Add("510322018226")
slist.Add("510323013335") slist.Add("510322018233")
slist.Add("510323013370") slist.Add("510322018234")
slist.Add("510323013394") slist.Add("510322018249")
slist.Add("510323013432") slist.Add("480322072358")
slist.Add("510323013606") slist.Add("510322018012")
slist.Add("510323013607") slist.Add("510322018181")
slist.Add("510323013625") slist.Add("510322018255")
slist.Add("510323013847") slist.Add("510322018295")
slist.Add("510323013899") slist.Add("510322018318")
slist.Add("510323013952") slist.Add("510322018319")
slist.Add("510323013959") slist.Add("510322018413")
slist.Add("510323013955") slist.Add("510322018424")
slist.Add("510323013974") slist.Add("510322018425")
slist.Add("510323014015") slist.Add("510322018440")
slist.Add("510323014109") slist.Add("510322018498")
slist.Add("510323014215") slist.Add("510322018409")
slist.Add("510323014252") slist.Add("510322018594")
slist.Add("510323014395") slist.Add("510322018595")
slist.Add("510323014396") slist.Add("510322018600")
slist.Add("510323014394") slist.Add("510322018603")
slist.Add("510323014491") slist.Add("510322018604")
slist.Add("510323014619") slist.Add("510322018615")
slist.Add("510323014825") slist.Add("510322018632")
slist.Add("510323015366") slist.Add("510322018728")
slist.Add("510323015959") slist.Add("510322018762")
slist.Add("510322018835")
slist.Add("510322018869")
slist.Add("510322018898")
slist.Add("510322018937")
slist.Add("510322018938")
slist.Add("510322018939")
slist.Add("510322018947")
slist.Add("510322018984")
slist.Add("510322018985")
slist.Add("510322019045")
For Each s In slist For Each s In slist
VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("C:\Users\DEVELOPER1\Desktop\LUKOWA\", s, "", "Import ab Jänner 2023", "Import ab Jänner 2023") VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("C:\Users\DEVELOPER1\Desktop\LUKOWA\2022\", s, "", "Import ab Jänner 2022", "Import ab Jänner 2022")
Next Next
@@ -4958,7 +5044,7 @@ Public Class frmHauptfenster
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
saveLukowaPDFsFromTherefore()
' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000")) ' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000"))
' '
@@ -7043,7 +7129,8 @@ Public Class AvisoStatusFunctions
Select Case art Select Case art
Case "5" Case "5"
Dim linkAviso = "https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) 'Dim linkAviso = "https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
Dim linkAviso = "https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
hText = hText.Replace("%Link%", "<div style=""border: 1px solid #333;width:300px;height:50px;background-color:#eee;color:#003680""><br>&emsp;<a href=""" & linkAviso & """><b>Tracking shipment status<br></b></a></div>") hText = hText.Replace("%Link%", "<div style=""border: 1px solid #333;width:300px;height:50px;background-color:#eee;color:#003680""><br>&emsp;<a href=""" & linkAviso & """><b>Tracking shipment status<br></b></a></div>")
Case Else Case Else
@@ -7465,13 +7552,14 @@ Public Class AvisoStatusFunctions
End Try End Try
End Function End Function
Public Sub showKd(kdnr) Public Sub showKd(kdnr, Optional TopMost = False)
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing 'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
For Each openForm In Application.OpenForms() For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then
CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront() CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront()
If TopMost Then CType(openForm, SDL.frmKundenUebersichtZOLL).TopMost = True
CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr
Exit Sub Exit Sub
End If End If
@@ -7485,7 +7573,7 @@ Public Class AvisoStatusFunctions
'End If 'End If
'' Next '' Next
Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr) Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr)
If zoll IsNot Nothing Then zoll.Show() If zoll IsNot Nothing Then zoll.Show() : zoll.BringToFront()
End Sub End Sub

3
Aviso/usrcntlAktDetails.vb
View File

@@ -3815,7 +3815,8 @@ Public Class usrcntlAktDetails
End Sub End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
Process.Start("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)) ' Process.Start("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
Process.Start("https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
End Sub End Sub
Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click