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

Hauptfenster

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-04 08:24:12 +01:00
parent 2412b780e7
commit 2b83939944
12 changed files with 986 additions and 927 deletions
Download Patch File Download Diff File Expand all files Collapse all files

557
Aviso/frmHauptfensterNew.vb
View File

@@ -100,12 +100,12 @@ Public Class frmHauptfensterNew
End If
End Sub
Sub SWITCH_SEARCH(switchTO)
'Panel1.Controls.Clear()
pnlMain.Controls.Clear()
SEARCH_AVISO_AKTIV = switchTO
Select Case SEARCH_AVISO_AKTIV
Case "AVISO"
Panel1.Controls.Add(SEARCH_AVISO)
pnlMain.Controls.Add(SEARCH_AVISO)
SEARCH_AVISO.Dock = DockStyle.Fill
' SEARCH_AVISO.init(Me)
initsearch("", False) ': Aviso_anzeigen("")
@@ -128,30 +128,27 @@ Public Class frmHauptfensterNew
'If e.KeyCode = Keys.F5 Then
' FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'End If
'If e.KeyCode = Keys.F9 Then
' FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'End If
If e.KeyCode = Keys.F11 Then
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If e.KeyCode = Keys.Escape Then
Grid_aktiv = False
SWITCH_SEARCH("AVISO")
SEARCH_AVISO.reset()
SEARCH_AVISO.RESET()
Grid_aktiv = True
End If
If (e.KeyCode) = Keys.Add AndAlso e.Control Then
btnNeu.PerformClick()
End If
If (e.KeyCode) = Keys.K AndAlso e.Control Then
If btnKunden.Visible Then btnKunden.PerformClick()
@@ -372,11 +369,7 @@ Public Class frmHauptfensterNew
Button1.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
btnE_Aviso.Visible = True
Label22.Visible = True
initEAviso()
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then
picAVISOMessenger.Visible = True
End If
@@ -531,9 +524,7 @@ Public Class frmHauptfensterNew
Timer1.Enabled = True
Timer_REFRESH_Tick(Timer_REFRESH, New EventArgs)
If gridAviso.RowCount > 0 Then
gridAviso.Rows(0).Selected = True
End If
' MsgBox(gridVermerke.Rows(0).Cells(5).Value)
'If Me.Height * 0.4 < 220 Then
@@ -633,15 +624,7 @@ Public Class frmHauptfensterNew
End Sub
Sub initEAviso()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '??
Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
If Label22.Text = "0" Then Label22.Text = ""
Label22.Visible = Label22.Text <> ""
Label22.BringToFront()
End If
End Sub
Public Sub setAktDetails(id, showSendungsdetails)
@@ -778,28 +761,6 @@ ELSE_ATILLA:
End Sub
Function setAkive_AuswahlID() As Integer
If gridAviso.SelectedRows.Count > 0 Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
Else
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
End If
'If gridMyAviso.SelectedRows.Count > 0 Then
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
' If Not cbx_My_LKW.Checked Then
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value)
' Else
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
' End If
'Else
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
'End If
Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
End Function
Function formatdate(s) As String
@@ -1346,13 +1307,13 @@ ELSE_ATILLA:
' Case "StatusVorgeschrieben"
' Me.Cursor = Cursors.WaitCursor
' If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
' avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
' End If
' Me.Cursor = Cursors.Default
' Case "StatusVorbereitetQS"
' Me.Cursor = Cursors.WaitCursor
' If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
' avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
' End If
' Me.Cursor = Cursors.Default
@@ -1435,175 +1396,8 @@ ELSE_ATILLA:
' End Try
'End Sub
Private Sub gridAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridAviso.CellFormatting
'Anzahl Minuten als verständlichen Text anzeigen
If AVISO_TYP = "LKW" Then
Select Case gridAviso.Columns(e.ColumnIndex).Name
Case "Status" 'Status
Select Case VarToInt(e.Value)
Case 0 : e.Value = "Erfasst"
Case 1 : e.Value = "Freigegeben"
Case 2 : e.Value = "LKW n.e."
Case 3 : e.Value = "Ankunft"
Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
Case Else : e.Value = "unbekannt"
End Select
Case "AvisoEingang" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Datum" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Erfasst" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Vorbereitet" 'Vorbereitet
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Vorgeschrieben" 'Vorgeschrieben
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Ankunft" 'Ankunft
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Freigabe" 'Abfahrt
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Dauer" 'Dauer
If VarToInt(e.Value) > 120 Then
gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
End If
If VarToInt(e.Value) = 0 Then
e.Value = ""
Else
e.Value = Minuten_auf_Text(VarToLng(e.Value))
End If
Case "VoraussichtlichesEintreffen"
' "Der Operator = ist für Typ DBNull und Typ Date nicht definiert."
If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then
'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red
gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
End If
End Select
Else
Try
If gridAviso Is Nothing Then Exit Sub
If gridAviso.Columns Is Nothing Then Exit Sub
If gridAviso.ColumnCount = 0 Then Exit Sub
'Anzahl Minuten als verständlichen Text anzeigen
Select Case gridAviso.Columns(e.ColumnIndex).Name
Case "Status" 'Status
'Dim vb As Boolean = gridAviso.Rows(e.RowIndex).Cells("statVorb").Value
'Select Case VarToInt(e.Value)
' Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
' Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben")
' Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.")
' Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
' Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet")
' Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben")
' ' Case 99 : e.Value = "in Vorbereitung" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
' ' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
' Case Else : e.Value = "unbekannt"
'End Select
Select Case VarToInt(e.Value)
Case 0 : e.Value = "Erfasst" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
Case 1 : e.Value = "Freigegeben"
Case 2 : e.Value = "LKW n.e."
Case 3 : e.Value = "Ankunft" : gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
' Case 99 : e.Value = "in Vorbereitung" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
Case Else : e.Value = "unbekannt"
End Select
' If gridAviso.Rows(e.RowIndex).Cells("statVorb").Value = "1" Then
'e.Value &= " (VB)"
' End If
Case "AvisoEingang" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Ankunft" 'Ankunft
If VarToDate(e.Value) = LeerDatum Then
e.Value = ""
Else
' If DateDiff(DateInterval.Minute, CDate(VarToDate(e.Value)), Now) > 120 Then
' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
' gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
' gridAviso.Rows(e.RowIndex).Cells("Ankunft").Style.ForeColor = Color.Red
' End If
End If
End Select
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End Sub
Public Sub GridZeichnenAviso()
'hier wird der Grid speziell designed
If gridAviso.RowCount = 0 Then Exit Sub
'Falls Kunde auf inaktiv steht, dann wird Zeile ausgegraut angezeigt
For Each dr As DataGridViewRow In gridAviso.Rows
Select Case VarToInt(dr.Cells("Status").Value)
Case 0 'erfasst
dr.DefaultCellStyle.SelectionBackColor = Color.FromArgb(230, 0, 0)
dr.DefaultCellStyle.ForeColor = Color.FromArgb(230, 0, 0)
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 1 'freigegeben
dr.DefaultCellStyle.SelectionBackColor = Color.Green
dr.DefaultCellStyle.ForeColor = Color.Green
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 2 'LKW nicht eingetroffen
dr.DefaultCellStyle.SelectionBackColor = Color.Gray
dr.DefaultCellStyle.ForeColor = Color.Gray
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 3 'Ankunft
dr.DefaultCellStyle.SelectionBackColor = Color.Blue
dr.DefaultCellStyle.ForeColor = Color.Blue
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 4 'Vorbereitet
dr.DefaultCellStyle.SelectionBackColor = Color.Brown
dr.DefaultCellStyle.ForeColor = Color.Brown
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 5 'Vorbereitet
dr.DefaultCellStyle.SelectionBackColor = Color.Purple
dr.DefaultCellStyle.ForeColor = Color.Purple
dr.DefaultCellStyle.SelectionForeColor = Color.White
End Select
dr.Cells("Status").Style.BackColor = dr.DefaultCellStyle.ForeColor
dr.Cells("Status").Style.SelectionForeColor = dr.DefaultCellStyle.ForeColor
dr.Cells("LKW_Nr").Style.BackColor = lkwbackcolor
'dr.Cells("LKW_Nr").Style.SelectionBackColor = lkwbackcolorSel
' dr.Cells("LKW_Nr").Style.SelectionForeColor = Color.Black
Next
End Sub
Private Sub mnuPunkt_Click(sender As Object, e As System.EventArgs) Handles mnuInfo.Click, mnuFirmen.Click
'Hier werden alle Menüpunkte abgearbeitet
@@ -1620,7 +1414,7 @@ ELSE_ATILLA:
Try
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
@@ -1634,7 +1428,7 @@ ELSE_ATILLA:
' If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
' ' System.Threading.Thread.Sleep(1000) '? warum??
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
' UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
' End If
' Else
@@ -1655,18 +1449,13 @@ ELSE_ATILLA:
End Sub
Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End Sub
Private Sub gridAviso_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.ColumnHeaderMouseClick
GridZeichnenAviso()
End Sub
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -1677,7 +1466,7 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -1691,64 +1480,6 @@ ELSE_ATILLA:
Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click, ToolStripMenuItem17.Click
Try
Me.Cursor = Cursors.WaitCursor
gridAviso.ClearSelection()
'gridMyAviso.ClearSelection()
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
If sender Is ToolStripMenuItem17 Then
f.FIRMA_TMP = "ATILLA"
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
' f.frmHilf = Me
If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
f.ShowDialog(frmGrayOut)
End If
frmGrayOut.Close()
btnRefresh.PerformClick() 'Aviso_anzeigen("")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnLöschen_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub btnDrucken_Click(sender As System.Object, e As System.EventArgs) Handles btnDrucken.Click
'MsgBox("Druck steht derzeit noch nicht zur Verfügung.", vbInformation)
Dim f As New frmAuswahl_Aviso
f.Show()
End Sub
Private Sub btnPaketdienst_Click(sender As System.Object, e As System.EventArgs) Handles btnKunden.Click
Me.Cursor = Cursors.WaitCursor
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
Me.Cursor = Cursors.Default : Exit Sub
End If
' Next
Try
Dim zoll As New SDL.frmKundenUebersichtZOLL
zoll.Show()
Me.Cursor = Cursors.Default
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
Return
@@ -1826,14 +1557,14 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp
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
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
@@ -1852,7 +1583,7 @@ 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
avisoAktualisierenAktiveIdBehalten(tmpId, False)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, False)
End If
@@ -1864,77 +1595,6 @@ ELSE_ATILLA:
Public Sub lblHinweiseVisible()
' If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
End Sub
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
pic.Visible = False
Try
If Not Grid_aktiv Then Exit Sub
Details_aktiv = False
initEAviso()
If Aviso_anzeigenBool Then initsearch("", False)
If AVISO_TYP = "LKW" Then
gridAviso.ClearSelection()
For Each r As DataGridViewRow In gridAviso.Rows
If CInt(r.Cells("AvisoId").Value) = tmpid Then
' gridMyAviso.ClearSelection()
gridAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
Else
gridAviso.ClearSelection()
If gridAviso.Rows.Count > 0 Then
For Each r As DataGridViewRow In gridAviso.Rows
If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
gridAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
End If
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
Details_aktiv = True
If pnlDetailsRechts.Controls.Count > 0 Then
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If Not pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
Else
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
End If
If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
End Sub
Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen2.SelectionChanged
@@ -1942,7 +1602,7 @@ ELSE_ATILLA:
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
gridAviso.ClearSelection()
SEARCH_AVISO.gridAviso.ClearSelection()
' MsgBox(Grid_aktiv)
Dim tmpId = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
@@ -1955,7 +1615,7 @@ ELSE_ATILLA:
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
@@ -1965,61 +1625,6 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseClick
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'gridMyAviso.ClearSelection() 'WARUM?
' If sender Is gridAviso Then gridMyAviso.ClearSelection() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection()
' If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection()
' MsgBox(Grid_aktiv)
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)
If AVISO_TYP = "SND" Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value)
Else
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
End If
If e.Button = MouseButtons.Right Then
If True Then
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
' If sender Is gridAviso Then
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
' conMenuAviso.Show(Cursor.Position)
' End If
'Else
setAkive_AuswahlID()
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
lblErrVermerk.Width = 300
lblErrVermerk.Visible = True
hideErr.Enabled = True
Exit Sub
End If
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim sv As New frmAddAktenvermerkShort(tmpId)
sv.Location = Me.PointToClient(Cursor.Position)
' sv.ShowDialog()
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If
ElseIf e.Button = MouseButtons.Left Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
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
@@ -2086,7 +1691,7 @@ ELSE_ATILLA:
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'btnÜbernehmen.PerformClick()
End If
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
Timer1.Enabled = True
End Sub
@@ -2219,7 +1824,7 @@ ELSE_ATILLA:
WithEvents timerStart As New Timer
Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick
Details_anzeigen(setAkive_AuswahlID())
Details_anzeigen(SEARCH_AVISO.setAkive_AuswahlID())
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath()
@@ -2411,56 +2016,12 @@ ELSE_ATILLA:
End If
End Sub
Private Sub OptionenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem1.Click
gridAviso.ClearSelection()
'gridMyAviso.ClearSelection()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
Dim f As New frmEintragOptionen
f.ShowDialog(Me)
End Sub
Private Sub VorlagenUploadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenUploadToolStripMenuItem.Click
Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagen
vu.ShowDialog()
End Sub
Private Sub gridAviso_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellContentClick
Try
If e.RowIndex > 0 Then
' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name)
If AVISO_TYP = "SND" Then
If True Then 'gridMyAviso.SelectedRows.Count = 1 Then
Dim SendungsId = gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value
Dim AvisoID = gridAviso.Rows(e.RowIndex).Cells("AvisoID").Value
If SendungsId > 0 And AvisoID > 0 Then
Select Case gridAviso.Columns(e.ColumnIndex).Name
Case "StatusVorgeschrieben"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
End If
Me.Cursor = Cursors.Default
Case "StatusVorbereitetQS"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
End If
Me.Cursor = Cursors.Default
End Select
End If
End If
End If
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 BarcodeTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BarcodeTestToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
@@ -2727,27 +2288,6 @@ ELSE_ATILLA:
End Sub
Private Sub btnFertig_Click(sender As Object, e As EventArgs) Handles btnFertig.Click
VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End Sub
Private Sub pnlDetailsLinks_Paint(sender As Object, e As PaintEventArgs) Handles pnlDetailsLinks.Paint
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs)
frmGenerelleGestellungen.ShowDialog()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
MsgBox("Noch nicht verfügbar")
Exit Sub
Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen
frmKundenFremdeSpeditionen.ShowDialog()
End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
@@ -2827,15 +2367,6 @@ ELSE_ATILLA:
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim frmTV As New frmTv
frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
frmTV.ShowDialog()
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
End Sub
Public Sub showHideDetails()
If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then
SplitContainer1.SplitterDistance = sd
@@ -2847,7 +2378,7 @@ ELSE_ATILLA:
'SHOW FREIGBAE, etc
Fullscreen = True
End If
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
' SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
SEARCH_AVISO.gridAviso_SpaltenFestlegen()
' tbcntrAvisoLKW.Width = Panel1.Width
End Sub
@@ -2905,7 +2436,7 @@ ELSE_ATILLA:
Private Sub gridAviso_MouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseMove ', gridMyAviso.CellMouseMove
Private Sub gridAviso_MouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) ', gridMyAviso.CellMouseMove
Exit Sub ' Klappt nicht richtig
If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.SteelBlue
@@ -2918,7 +2449,7 @@ ELSE_ATILLA:
End If
End Sub
Private Sub gridAviso_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellMouseLeave ', gridMyAviso.CellMouseLeave
Private Sub gridAviso_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) ', gridMyAviso.CellMouseLeave
Exit Sub ' Klappt nicht richtig
If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionForeColor
@@ -3564,7 +3095,7 @@ ELSE_ATILLA:
Me.Cursor = Cursors.Default
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnE_Aviso.Click, Label22.Click
Private Sub Button12_Click(sender As Object, e As EventArgs)
Me.Cursor = Cursors.WaitCursor
Dim f As New frm_eAVISO
f.Show()
@@ -3864,24 +3395,6 @@ ELSE_ATILLA:
Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting
If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then
If gridAviso.Rows(e.RowIndex).Cells("Transportmittelart").Value = "SPRINTER" Then
If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
e.Graphics.DrawImage(My.Resources.sprinter_white, e.CellBounds)
'e.CellStyle.BackColor = Color.White
End If
If Not e.Handled Then
e.Handled = True
e.PaintContent(e.CellBounds)
End If
End If
End If
End Sub
Private Sub VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "VerfahrenshandbuchVERAGGmbHZollWO")
DS.OPEN_SINGLE()
@@ -3976,13 +3489,6 @@ ELSE_ATILLA:
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html")
End Sub
Private Sub RoutenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RoutenverwaltungToolStripMenuItem.Click
gridAviso.ClearSelection()
'gridMyAviso.ClearSelection()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
Dim f As New frmNCTSRouten()
f.ShowDialog(Me)
End Sub
Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
@@ -4287,7 +3793,7 @@ ELSE_ATILLA:
' End Using
End Function
Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click
Private Sub Button7_Click_1(sender As Object, e As EventArgs)
Dim f As New frmSendungsdetailsNEU
@@ -4314,4 +3820,11 @@ ELSE_ATILLA:
detailForm.Show()
End Sub
Private Sub btnWichtigeStandort_Click(sender As Object, e As EventArgs) Handles btnWichtigeStandort.Click
Grid_aktiv = False
SWITCH_SEARCH("AVISO")
SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
End Class