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

divers layout, etc

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-07-19 23:31:12 +02:00
parent 244564b24c
commit 844172dec5
37 changed files with 3630 additions and 688 deletions
Download Patch File Download Diff File Expand all files Collapse all files

362
Aviso/frmHauptfensterNew.vb
View File

@@ -119,19 +119,20 @@ Public Class frmHauptfensterNew
Dim SelectedBtn As Button = Nothing
' Dim init = False
Select Case SEARCH_AVISO_AKTIV
Case "SND"
splitMainWorkingView.Panel2Collapsed = True
SelectedBtn = btnVIEW_SND
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
SetBtnSelectedolor(btnVIEW_SND) ' SelectedBtn = btnVIEW_SND
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND ': init = True
SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me
pnlMain.Controls.Add(SEARCH_SND)
SEARCH_SND.Dock = DockStyle.Fill
pnlMain.PerformLayout()
SEARCH_SND.PerformLayout()
Application.DoEvents()
' If init Then SEARCH_SND.initPnlSearch()
Case "AVISO"
splitMainWorkingView.Panel2Collapsed = True
SetBtnSelectedolor(btnVIEW_LKW)
@@ -209,19 +210,74 @@ Public Class frmHauptfensterNew
End Sub
Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
RELOAD_AVISO_MAIN()
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End Sub
Public Sub REFRESH_AVISO_MAIN(Optional Aktive_ID = -1, Optional Aktive_SendungsID = -1, Optional TriggerControl = "", Optional reload = True)
Refresh_Reload_AVISO(Aktive_ID, Aktive_SendungsID, TriggerControl, False)
End Sub
Public Sub RELOAD_AVISO_MAIN(Optional Aktive_ID = -1, Optional Aktive_SendungsID = -1, Optional TriggerControl = "", Optional reload = True)
'MsgBox("AID ref: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Refresh_Reload_AVISO(Aktive_ID, Aktive_SendungsID, TriggerControl, True)
hMerkZeit = Now
End Sub
Private Sub Refresh_Reload_AVISO(Optional Aktive_ID = -1, Optional Aktive_SendungsID = -1, Optional TriggerControl = "", Optional reload = True)
If Aktive_ID > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = Aktive_ID
If Aktive_SendungsID > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = Aktive_SendungsID
Console.WriteLine("SID: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
Select Case SEARCH_AVISO_AKTIV
Case "SND"
If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
If SEARCH_SND IsNot Nothing Then
If reload Then
SEARCH_SND.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_SND") Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
End If
End If
Case "AVISO"
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
If SEARCH_AVISO IsNot Nothing Then
If reload Then
SEARCH_AVISO.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_AVISO") Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
End If
End If
Case "AVISO_SND_KOMBI"
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
If SEARCH_AVISO IsNot Nothing Then
If reload Then
SEARCH_AVISO.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_AVISO") Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
End If
End If
If SEARCH_SND IsNot Nothing Then
If reload Then
SEARCH_SND.Aviso_anzeigen("")
Else
If (TriggerControl <> "usrCntlHauptfenster_Suche_SND") Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
End If
End If
End Select
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
refreshPnlRight(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End Sub
Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then
@@ -240,7 +296,7 @@ Public Class frmHauptfensterNew
If e.KeyCode = Keys.F11 Then
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If e.KeyCode = Keys.Escape Then
@@ -727,6 +783,8 @@ Public Class frmHauptfensterNew
Sub showPnlRight(AvisoId, reloadIfSameId)
cGlobal.Aktive_ID = AvisoId
Console.WriteLine("DAOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOA" & cGlobal.Aktive_ID)
' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId))
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)
@@ -751,7 +809,10 @@ Public Class frmHauptfensterNew
Case Else
ELSE_ATILLA:
' MsgBox(pnlDetailsRechts.Controls(0).Name)
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
Console.WriteLine("DAAAAAAAAAAAAAAAAAAAAAAAA")
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetails(AvisoId)
usrCntl.Dock = DockStyle.Fill
@@ -759,13 +820,54 @@ ELSE_ATILLA:
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).Visible = True
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).Visible = True
End If
End If
End If
End Select
EnsureDetailsControlVisible()
End Sub
Private Sub EnsureDetailsControlVisible()
Try
If Me.InvokeRequired Then
Me.Invoke(New Action(AddressOf EnsureDetailsControlVisible))
Exit Sub
End If
If pnlDetailsRechts Is Nothing Then
Console.WriteLine("pnlDetailsRechts ist Nothing")
Exit Sub
End If
If pnlDetailsRechts.Controls.Count = 0 Then
Debug.WriteLine("pnlDetailsRechts.Controls.Count = 0")
Exit Sub
End If
Dim c = pnlDetailsRechts.Controls(0)
Console.WriteLine("Control[0] Type: " & c.GetType().ToString())
Console.WriteLine("Name: " & c.Name & ", Visible: " & c.Visible.ToString() & ", Dock: " & c.Dock.ToString())
Console.WriteLine("Bounds: " & c.Bounds.ToString() & ", Parent.Visible: " & If(c.Parent IsNot Nothing, c.Parent.Visible.ToString(), "no parent"))
Console.WriteLine("pnlDetailsRechts ClientSize: " & pnlDetailsRechts.ClientSize.ToString())
' Erzwinge Sichtbarkeit / richtige Größe / Z-Order
c.Visible = True
c.Dock = DockStyle.Fill
c.BringToFront()
If c.Width = 0 Or c.Height = 0 Then
c.Size = New Size(Math.Max(1, pnlDetailsRechts.ClientSize.Width), Math.Max(1, pnlDetailsRechts.ClientSize.Height))
End If
pnlDetailsRechts.Visible = True
pnlDetailsRechts.Refresh()
c.Refresh()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
' Dim AVISOBinding As New cBinding("AVISO")
@@ -780,7 +882,7 @@ ELSE_ATILLA:
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20200419_000451_Hofer_375.jpg") 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20220620_091930_Luxbauer_4.jpg") 'My.Resources.Koerfez61
Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("C: \Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61
' MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId))
@@ -1491,8 +1593,8 @@ ELSE_ATILLA:
Try
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
'UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Catch ex As Exception
@@ -1630,21 +1732,21 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub kexdown(sender As Object, e As KeyEventArgs)
Try
'Private Sub kexdown(sender As Object, e As KeyEventArgs)
' Try
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
If sender.selectedRows.count = 0 Then Exit Sub
Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
' If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
' If sender.selectedRows.count = 0 Then Exit Sub
' Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
' End If
Catch ex As Exception
' Catch ex As Exception
End Try
End Sub
' End Try
'End Sub
Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs)
@@ -1656,7 +1758,8 @@ ELSE_ATILLA:
Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, False)
Refresh_Reload_AVISO(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
@@ -1666,31 +1769,94 @@ ELSE_ATILLA:
End Sub
Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen2.SelectionChanged
Private Sub UsrCntlBenachrichtigungen2_SelectionChanged() Handles UsrCntlBenachrichtigungen2.SelectionChanged
Try
' Sicherheitschecks
If UsrCntlBenachrichtigungen2 Is Nothing OrElse UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen Is Nothing Then Exit Sub
Dim grid = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen
If grid.SelectedRows.Count > 1 Then Exit Sub
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
' ausgewählte Zeile
Dim row = grid.SelectedRows(0)
SEARCH_AVISO.gridAviso.ClearSelection()
' MsgBox(Grid_aktiv)
' AvisoId ermitteln und validieren
Dim tmpIdObj = row.Cells("ab_AvisoID").Value
If tmpIdObj Is Nothing OrElse Not IsNumeric(tmpIdObj) Then Exit Sub
Dim tmpId As Integer = CInt(tmpIdObj)
Dim tmpId = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
Else 'Sendungsbenachrichtigung
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
' Sendungs-ID je nach Art setzen
Dim art = If(row.Cells("ab_art").Value, "").ToString()
If art = "A" Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
Else
Dim sndObj = row.Cells("ab_SendungID").Value
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = If(IsNumeric(sndObj), CInt(sndObj), -1)
End If
' Aktive Aviso setzen
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' MsgBox("SEL: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
REFRESH_AVISO_MAIN(tmpId, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)
If False Then
' Je nach aktiver Ansicht das passende Such-UserControl ansprechen
Select Case SEARCH_AVISO_AKTIV
Case "AVISO" ', "COMPLIANCE", "CUSTOMS_CONTROLLING"
' sicherstellen, dass SEARCH_AVISO vorhanden ist
If SEARCH_AVISO Is Nothing Then SWITCH_SEARCH("AVISO")
If SEARCH_AVISO IsNot Nothing Then
Try
If SEARCH_AVISO.gridAviso IsNot Nothing Then SEARCH_AVISO.gridAviso.ClearSelection()
Catch : End Try
' keepSelection = True, focus/otherFlag = False
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, True, False, False)
End If
Case "AVISO_SND_KOMBI" ', "COMPLIANCE", "CUSTOMS_CONTROLLING"
' sicherstellen, dass SEARCH_AVISO vorhanden ist
' If SEARCH_AVISO Is Nothing Then SWITCH_SEARCH("AVISO")
If SEARCH_AVISO IsNot Nothing Then
Try
If SEARCH_AVISO.gridAviso IsNot Nothing Then SEARCH_AVISO.gridAviso.ClearSelection()
Catch : End Try
' keepSelection = True, focus/otherFlag = False
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, True, False, False)
End If
If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID > 0 Then
If SEARCH_SND IsNot Nothing Then
Try
If SEARCH_SND.gridAviso IsNot Nothing Then SEARCH_SND.gridAviso.ClearSelection()
Catch : End Try
' für SND die Sendungs-ID übergeben (wie bei btnRefresh)
SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True,, False)
End If
End If
Case "SND"
' sicherstellen, dass SEARCH_SND vorhanden ist
If SEARCH_SND Is Nothing Then SWITCH_SEARCH("SND")
If SEARCH_SND IsNot Nothing Then
Try
If SEARCH_SND.gridAviso IsNot Nothing Then SEARCH_SND.gridAviso.ClearSelection()
Catch : End Try
' für SND die Sendungs-ID übergeben (wie bei btnRefresh)
SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True,, False)
End If
Case Else
' Fallback: versuche SEARCH_AVISO wie bisher
If SEARCH_AVISO Is Nothing Then SWITCH_SEARCH("AVISO")
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, True, False, False)
End Select
'refreshPnlRight(tmpId)
showPnlRight(tmpId, False)
' MsgBox("AID: " & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
Catch ex As Exception
@@ -1698,6 +1864,56 @@ ELSE_ATILLA:
End Try
End Sub
Sub refreshPnlRight(tmpid As Integer)
If Me.pnlDetailsRechts.Controls.Count > 0 Then
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If Not Me.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
usrcntlAvisoID = DirectCast(Me.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(Me.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
If usrcntlAvisoID <> tmpid Then
Me.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 10 Then 'Wenn die Details länger als 30 Sek inaktiv sind (Prüfung durch click und keydown)
Me.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
End If
End Sub
'Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen2.SelectionChanged
' Try
' '_> neue Logik
' If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
' SEARCH_AVISO.gridAviso.ClearSelection()
' ' MsgBox(Grid_aktiv)
' Dim tmpId = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
' msgb
' If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
' Else 'Sendungsbenachrichtigung
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value
' End If
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End Sub
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click, conAnVerimex.Click, conAnIndonesien.Click ',conVermerkLöschen.Click,
Timer1.Enabled = False
@@ -1764,7 +1980,9 @@ ELSE_ATILLA:
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'btnÜbernehmen.PerformClick()
End If
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
RELOAD_AVISO_MAIN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Timer1.Enabled = True
End Sub
@@ -1833,14 +2051,12 @@ ELSE_ATILLA:
End If
'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then
splitMain.SplitterDistance = CInt(splitMain.Height / 2)
Else
End If
'--> Nicht mehr nötig AVISO HFST NEU
''Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
'If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then
' splitMain.SplitterDistance = CInt(splitMain.Height / 2)
'Else
'End If
'If SplitContainer2.Width > 800 Then
' 'SplitContainer2.Panel2MinSize = 600
@@ -3104,6 +3320,7 @@ ELSE_ATILLA:
Exit Sub
End If
Try
If frmLogin.AnmeldungOK Then
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
@@ -3150,7 +3367,10 @@ ELSE_ATILLA:
End Try
End Sub
Sub refreshChat()
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKontakt.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
'MsgBox(DS.da_id)
@@ -3904,7 +4124,7 @@ ELSE_ATILLA:
Grid_aktiv = False
SWITCH_SEARCH("AVISO")
SEARCH_AVISO.RESET()
'SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
@@ -3938,28 +4158,35 @@ ELSE_ATILLA:
Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles btnVIEW_KOMBI.Click
Grid_aktiv = False
SWITCH_SEARCH("AVISO_SND_KOMBI")
SEARCH_AVISO.RESET()
' SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_Compliance.Click
Grid_aktiv = False
SWITCH_SEARCH("COMPLIANCE")
SEARCH_AVISO.RESET()
'SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnVIEW_CustControling.Click
Grid_aktiv = False
SWITCH_SEARCH("CUSTOMS_CONTROLLING")
SEARCH_AVISO.RESET()
'SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click
Process.Start("https://tariff.singlewindow.io/chat")
'Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("TariffAI")
'If Not frmBundesanzeigerZollTarif.Visible Then
' frmBundesanzeigerZollTarif.Show()
'End If
'frmBundesanzeigerZollTarif.BringToFront()
End Sub
Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_TR")
DS.OPEN_SINGLE_ORIG()
@@ -3970,4 +4197,27 @@ ELSE_ATILLA:
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_YU")
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub Button7_Click_3(sender As Object, e As EventArgs) Handles Button7.Click
frmInfoMeldung.ShowDialog(Me)
'Process.Start("https://herbert.it.verag.ag/")
'Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("HerbertKI")
'If Not frmBundesanzeigerZollTarif.Visible Then
' frmBundesanzeigerZollTarif.Show()
'End If
'frmBundesanzeigerZollTarif.BringToFront()
End Sub
Private Sub cbxChartNurGelesen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxChartNurGelesen.CheckedChanged
VERAG_PROG_ALLGEMEIN.cGlobal.CHAT_NurGelesen = cbxChartNurGelesen.Checked
UsrCntlMessenger_ListNewChats1.intiDGVChats()
End Sub
End Class