diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 1cc5216..718bb87 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 ea5d2a6..fc61737 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -12,8 +12,8 @@ Imports Microsoft.Office.Interop Imports Spire.Pdf.Texts Imports System.Net Imports System.Text - - +Imports System.IO.Pipes +Imports System.Security.AccessControl 'Imports UID Public Class frmHauptfenster @@ -157,8 +157,68 @@ Public Class frmHauptfenster 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) Me.AutoScaleMode = AutoScaleMode.Dpi @@ -3964,6 +4024,20 @@ Public Class frmHauptfenster End If 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 If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERAG", "SUB", True)) Then showMeNew() @@ -3974,11 +4048,11 @@ Public Class frmHauptfenster 'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER() closeOK = True - For Each ft As Form In Application.OpenForms - If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close() - If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close() - Next - + 'For Each ft As Form In Application.OpenForms + ' If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close() + ' If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close() + 'Next + closeAllWindows() Dim f As New frmHauptfenster f.Show() @@ -4483,58 +4557,70 @@ Public Class frmHauptfenster ' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL") Dim slist As New List(Of String) - slist.Add("510323010932") - slist.Add("510323011636") - slist.Add("510323011857") - slist.Add("510323011898") - slist.Add("510323011973") - slist.Add("510323012315") - slist.Add("510323012316") - slist.Add("510323012197") - slist.Add("510323012479") - slist.Add("510323012728") - slist.Add("510323012818") - slist.Add("510323012844") - slist.Add("510323012848") - slist.Add("510323012877") - slist.Add("510323012910") - slist.Add("510323012914") - slist.Add("510323012931") - slist.Add("510323012879") - slist.Add("510323012884") - slist.Add("510323013223") - slist.Add("510323013268") - slist.Add("510323013373") - slist.Add("510323013335") - slist.Add("510323013370") - slist.Add("510323013394") - slist.Add("510323013432") - slist.Add("510323013606") - slist.Add("510323013607") - slist.Add("510323013625") - slist.Add("510323013847") - slist.Add("510323013899") - slist.Add("510323013952") - slist.Add("510323013959") - slist.Add("510323013955") - slist.Add("510323013974") - slist.Add("510323014015") - slist.Add("510323014109") - slist.Add("510323014215") - slist.Add("510323014252") - slist.Add("510323014395") - slist.Add("510323014396") - slist.Add("510323014394") - slist.Add("510323014491") - slist.Add("510323014619") - slist.Add("510323014825") - slist.Add("510323015366") - slist.Add("510323015959") + slist.Add("510322017583") + slist.Add("510322017588") + slist.Add("510322017594") + slist.Add("510322017789") + slist.Add("510322017825") + slist.Add("510322017898") + slist.Add("510322017884") + slist.Add("510322018006") + slist.Add("510322017982") + slist.Add("510322018045") + slist.Add("510322018174") + slist.Add("510322018180") + slist.Add("480322071811") + slist.Add("510322018187") + slist.Add("510322018188") + slist.Add("510322018190") + slist.Add("510322018193") + slist.Add("510322018195") + slist.Add("510322018207") + slist.Add("510322018211") + slist.Add("510322018225") + slist.Add("510322018226") + slist.Add("510322018233") + slist.Add("510322018234") + slist.Add("510322018249") + slist.Add("480322072358") + slist.Add("510322018012") + slist.Add("510322018181") + slist.Add("510322018255") + slist.Add("510322018295") + slist.Add("510322018318") + slist.Add("510322018319") + slist.Add("510322018413") + slist.Add("510322018424") + slist.Add("510322018425") + slist.Add("510322018440") + slist.Add("510322018498") + slist.Add("510322018409") + slist.Add("510322018594") + slist.Add("510322018595") + slist.Add("510322018600") + slist.Add("510322018603") + slist.Add("510322018604") + slist.Add("510322018615") + slist.Add("510322018632") + slist.Add("510322018728") + 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 - 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 @@ -4958,7 +5044,7 @@ Public Class frmHauptfenster End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click - + saveLukowaPDFsFromTherefore() ' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000")) ' @@ -7043,7 +7129,8 @@ Public Class AvisoStatusFunctions Select Case art 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%", "") Case Else @@ -7465,13 +7552,14 @@ Public Class AvisoStatusFunctions End Try 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 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub For Each openForm In Application.OpenForms() If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront() + If TopMost Then CType(openForm, SDL.frmKundenUebersichtZOLL).TopMost = True CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr Exit Sub End If @@ -7485,7 +7573,7 @@ Public Class AvisoStatusFunctions 'End If '' Next 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 diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 0684ae5..c30090a 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -3815,7 +3815,8 @@ Public Class usrcntlAktDetails End Sub 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 Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click