Firmen switchen, Fenster schließen
This commit is contained in:
@@ -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%", "<div style=""border: 1px solid #333;width:300px;height:50px;background-color:#eee;color:#003680""><br> <a href=""" & linkAviso & """><b>Tracking shipment status<br></b></a></div>")
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user