1375 lines
67 KiB
VB.net
1375 lines
67 KiB
VB.net
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
|
Imports VERAG_PROG_ALLGEMEIN.cGlobal
|
|
|
|
|
|
Public Class usrCntlHauptfenster_Suche_SND
|
|
|
|
|
|
Public AVISO_TYP = "SND"
|
|
Public aktiv = False
|
|
Dim cProgramFunctions As New cProgramFunctions
|
|
Public PARENT_FRMHAUPTFENSTER As frmHauptfensterNew
|
|
Dim Grid_aktiv As Boolean = False
|
|
Private AvisoDAL As New cAvisoDAL
|
|
Private FUNC As New AvisoStatusFunctions
|
|
Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
|
|
|
|
Dim sd = 0
|
|
Dim closeOK = False
|
|
Dim Fullscreen = False
|
|
Dim rowHeight = 20
|
|
Dim chkFarben = True
|
|
|
|
Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220)
|
|
Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200)
|
|
|
|
Public gridFont As New Font(Me.Font.FontFamily, 8)
|
|
|
|
Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Public Sub RESET()
|
|
cboMy_Grenzstelle.SelectedIndex = 0
|
|
' MyComboBox1.changeItem(UStatus_AVEingang)
|
|
|
|
tbcntrAvisoSND.SelectedIndex = 0
|
|
Grid_aktiv = True
|
|
initDat()
|
|
Aviso_anzeigen("")
|
|
End Sub
|
|
|
|
|
|
Private Sub usrCntlHauptfenster_Suche_AVISO_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
'pnlSearch.Height = 145
|
|
PARENT_FRMHAUPTFENSTER = PARENT_FRMHAUPTFENSTER
|
|
|
|
|
|
' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
|
|
|
'cboImEx.Items.Clear()
|
|
'cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
'cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT"))
|
|
'cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT", "EXPORT"))
|
|
'cboImEx.changeItem("")
|
|
|
|
|
|
If gridAviso.RowCount > 0 Then
|
|
gridAviso.Rows(0).Selected = True
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
|
|
cboMy_Grenzstelle.Items.Clear()
|
|
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
|
|
cboMy_Grenzstelle.changeItem("")
|
|
Else
|
|
cboMy_Grenzstelle.Items.Clear()
|
|
''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office
|
|
'''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK"))
|
|
''''End If
|
|
|
|
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE")
|
|
' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
|
|
cboMy_Grenzstelle.changeItem("")
|
|
''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar..
|
|
End If
|
|
|
|
|
|
|
|
cboMyAvisoAnzeige.Items.Clear()
|
|
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
|
|
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
|
|
cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
|
|
cboMyAvisoAnzeige.changeItem("Benutzer")
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
|
|
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1"))
|
|
cboMy_QS.CheckState = CheckState.Checked
|
|
cboMy_VB.CheckState = CheckState.Unchecked
|
|
cboMyAvisoAnzeige.changeItem("T1")
|
|
Else
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then
|
|
cboMy_QS.CheckState = CheckState.Unchecked
|
|
cboMy_VB.CheckState = CheckState.Indeterminate
|
|
Else
|
|
cboMy_QS.CheckState = CheckState.Checked
|
|
cboMy_VB.CheckState = CheckState.Unchecked
|
|
End If
|
|
|
|
Dim myLKW As Boolean = False
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then
|
|
myLKW = True
|
|
End If
|
|
|
|
If myLKW Then
|
|
' cbx_My_LKW.Checked = True
|
|
cboMy_QS.CheckState = CheckState.Indeterminate
|
|
cboMy_VB.CheckState = CheckState.Indeterminate
|
|
ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
|
|
cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
|
|
|
|
End If
|
|
End If
|
|
|
|
|
|
'cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True)
|
|
|
|
|
|
|
|
If My.Computer.Screen.WorkingArea.Width < 1300 Then
|
|
|
|
|
|
End If
|
|
|
|
|
|
|
|
SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
|
|
cbx_My_Brexit.Checked = True
|
|
End If
|
|
|
|
|
|
|
|
tbcntrAvisoSND.SelectedIndex = 1
|
|
|
|
TimerAkte.Enabled = True
|
|
|
|
' pnlSearch.Visible = False
|
|
initPnlSearch()
|
|
Grid_aktiv = True
|
|
End Sub
|
|
|
|
|
|
Public Sub gridAviso_SpaltenFestlegen()
|
|
Try
|
|
|
|
If gridAviso.RowCount = 0 Then Exit Sub
|
|
Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
|
|
|
|
If AVISO_TYP = "SND" Then
|
|
|
|
|
|
|
|
'Dim sqlStr = ""
|
|
|
|
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
|
|
'If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...
|
|
|
|
'Dim errOcc = False
|
|
|
|
''MsgBox(sqlStr)
|
|
'Try
|
|
' gridAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
|
|
'Catch ex As Exception
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
|
|
'End Try
|
|
|
|
|
|
' gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID)
|
|
' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08"))))
|
|
' MsgBox(gridMyAviso.RowCount)
|
|
|
|
' Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold)
|
|
Dim nfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Regular)
|
|
|
|
|
|
'MsgBox(sqlStr)
|
|
|
|
|
|
With gridAviso
|
|
If .Columns.Count <= 0 Then PARENT_FRMHAUPTFENSTER.pic.Visible = False : Exit Sub
|
|
If .Columns("AvisoID") Is Nothing Then PARENT_FRMHAUPTFENSTER.pic.Visible = False : Exit Sub
|
|
|
|
.DefaultCellStyle.Font = nfont
|
|
|
|
.MultiSelect = False
|
|
.Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
|
|
.Columns("Freigabe").Visible = False 'AvisoID nicht anzeigen
|
|
.Columns("maId").Visible = False 'maID nicht anzeigen
|
|
'.Columns("Vorbereitung").Visible = False 'Vorber. nicht anzeigen
|
|
|
|
.Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("LetzterMitarbeiterId").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen
|
|
|
|
.Columns("Status").Width = 90
|
|
.Columns("Status").HeaderText = "Status"
|
|
|
|
.Columns("LKW_Nr").MinimumWidth = 90
|
|
.Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen"
|
|
.Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("AvisoTVHinweis").Visible = False ' = 60
|
|
.Columns("Dauer").Visible = False ' = 60
|
|
|
|
|
|
.Columns("Datum").Visible = False 'Mitarb. nicht anzeigen
|
|
'.Columns("Datum").Width = 145 '115
|
|
'.Columns("Datum").HeaderText = "Erfasst"
|
|
'.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
'.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
.Columns("AvisoEingang").Visible = False
|
|
' .Columns("AvisoEingang").Width = 120
|
|
' .Columns("AvisoEingang").HeaderText = "Av.Eingang"
|
|
' .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
' .Columns("AvisoEingang").DefaultCellStyle.Format = "HH:mm, dddd"
|
|
|
|
.Columns("Ankunft").Visible = False
|
|
.Columns("Ankunft").Width = 145 '115
|
|
.Columns("Ankunft").HeaderText = "Ankunft"
|
|
.Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
|
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
|
.Columns("Grenzstelle").Visible = True
|
|
.Columns("Grenzstelle").Width = 70
|
|
.Columns("Grenzstelle").HeaderText = "Grenzstelle"
|
|
.Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
' Else
|
|
' .Columns("Grenzstelle").Visible = False
|
|
' End If
|
|
|
|
.Columns("Freigabe").Width = 80
|
|
.Columns("Freigabe").HeaderText = "Freigabe"
|
|
' .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
|
|
.Columns("LKW_fertig").Width = 35
|
|
.Columns("LKW_fertig").HeaderText = "OK"
|
|
.Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
|
|
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
If cboMy_Grenzstelle._value = "NEU" Then
|
|
.Columns("VerwahrungStatus").Width = 55
|
|
.Columns("VerwahrungStatus").HeaderText = "Kontrolle"
|
|
.Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White
|
|
.Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("VerwahrungStatus").Visible = True
|
|
Else
|
|
.Columns("VerwahrungStatus").Visible = False
|
|
End If
|
|
|
|
If gridAviso.RowCount = 0 Then gridAviso.Columns.Clear() : Exit Sub
|
|
|
|
|
|
Dim t As New DataGridViewTextBoxColumn
|
|
t.Name = "DauerText"
|
|
t.Width = 80
|
|
t.HeaderText = "Dauer"
|
|
t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns.Insert(7, t)
|
|
|
|
|
|
|
|
.Columns("tblSnd_Status").Visible = False
|
|
|
|
.Columns("tblSnd_Abfertigungsart_ID").Visible = False
|
|
.Columns("tblSnd_Zollsystem_Land").Visible = False
|
|
.Columns("tblSnd_Vorgeschrieben").Visible = False
|
|
.Columns("tblSnd_Vorbereitet").Visible = False
|
|
.Columns("tblSnd_SendungID").Visible = False
|
|
.Columns("tblSnd_Fremdspedition").Visible = False
|
|
.Columns("tblSnd_FremdspeditionText").Visible = False
|
|
|
|
.Columns("tblSnd_Empfaenger").MinimumWidth = 80
|
|
.Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
|
|
.Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("VoraussichtlichesEintreffen").Width = 55
|
|
.Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
|
|
.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
|
|
|
|
' .Columns("Vermerke_Anzahl").Width = 60
|
|
' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
|
|
' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("AbfertigungsNr").Width = 110
|
|
.Columns("AbfertigungsNr").HeaderText = "Pos-Nr."
|
|
.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
|
|
.Columns("AbfertigungsNr").Visible = False
|
|
|
|
|
|
|
|
|
|
|
|
Dim c As DataGridViewImageColumn
|
|
c = New DataGridViewImageColumn
|
|
c.Name = "StatusVorbereitetQS"
|
|
c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
c.ToolTipText = "Status 'Vorbereitet-QS' eintragen"
|
|
c.HeaderText = "QS"
|
|
.Columns.Add(c)
|
|
|
|
|
|
c = New DataGridViewImageColumn
|
|
c.Name = "StatusVorgeschrieben"
|
|
c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
c.ToolTipText = "Status 'Vorgeschrieben' eintragen"
|
|
c.HeaderText = "VG"
|
|
.Columns.Add(c)
|
|
|
|
|
|
Dim t2 = New DataGridViewTextBoxColumn
|
|
t2.Name = "Abfertigungsart"
|
|
t2.HeaderText = "Abfertigungsart"
|
|
t2.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
|
|
't.ToolTipText = ""
|
|
.Columns.Insert(7, t2)
|
|
|
|
|
|
|
|
'Dauer berechnen:
|
|
For Each r As DataGridViewRow In .Rows
|
|
r.DefaultCellStyle.Font = nfont
|
|
If True Then
|
|
If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
|
|
r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
|
|
' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
|
|
' r.Cells("Abfertigungsart").Value = "FREMD"
|
|
r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
|
|
Else 'Nomal
|
|
Dim Abfertigungsland As String = If(r.Cells("tblSnd_Zollsystem_Land").Value Is DBNull.Value, "", r.Cells("tblSnd_Zollsystem_Land").Value)
|
|
If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] "
|
|
|
|
r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
|
|
r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value
|
|
|
|
If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".."
|
|
End If
|
|
|
|
If .Columns("StatusVorbereitetQS") IsNot Nothing Then
|
|
If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
|
|
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
|
|
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
|
|
Else
|
|
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen"
|
|
End If
|
|
End If
|
|
If .Columns("StatusVorgeschrieben") IsNot Nothing Then
|
|
If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
|
|
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv
|
|
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
|
|
Else
|
|
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen"
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
' MsgBox(r.Cells(1).Value)
|
|
' MsgBox(r.Cells(6).Value)
|
|
' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now))
|
|
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
|
|
If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
|
|
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
|
|
If IsNumeric(dauerTmp) Then
|
|
r.Cells("Dauer").Value = dauerTmp
|
|
r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp)
|
|
Else
|
|
r.Cells("Dauer").Value = "0"
|
|
r.Cells("DauerText").Value = "0"
|
|
End If
|
|
End If
|
|
Else
|
|
r.Cells("DauerText").Value = "0"
|
|
r.Cells("Dauer").Value = "0"
|
|
End If
|
|
|
|
|
|
If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
|
If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
|
|
If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
|
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
|
|
' MsgBox(r.Cells("Dauer").Value)
|
|
|
|
' If CBool(r.Cells("Vorbereitung").Value) = True Then
|
|
'r.Cells("Status").Value = 99
|
|
'End If
|
|
|
|
|
|
|
|
|
|
'Farbkennung
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
|
|
If True Then
|
|
Select Case r.Cells("Status").Value
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2"
|
|
' Freigabe, N.Eingetr.
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3"
|
|
' Ankunft
|
|
r.DefaultCellStyle.BackColor = Color.IndianRed
|
|
r.Cells("DauerText").Style.ForeColor = Color.White
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
|
|
' Ankunft
|
|
r.DefaultCellStyle.BackColor = Color.SteelBlue
|
|
r.Cells("DauerText").Style.ForeColor = Color.White
|
|
Case Else
|
|
'Alle anderen Status:
|
|
If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then
|
|
|
|
Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value)
|
|
|
|
'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute
|
|
' r.DefaultCellStyle.BackColor = Color.IndianRed
|
|
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen
|
|
' r.DefaultCellStyle.BackColor = Color.Orange
|
|
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen
|
|
' r.DefaultCellStyle.BackColor = Color.LightYellow
|
|
'End If
|
|
|
|
'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute
|
|
' r.DefaultCellStyle.BackColor = Color.Orange
|
|
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen
|
|
' r.DefaultCellStyle.BackColor = Color.LightYellow
|
|
'End If
|
|
|
|
If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute
|
|
r.DefaultCellStyle.BackColor = Color.Orange
|
|
ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen
|
|
r.DefaultCellStyle.BackColor = Color.LightYellow
|
|
End If
|
|
|
|
Else
|
|
End If
|
|
End Select
|
|
End If
|
|
End If
|
|
|
|
|
|
Next
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
.ClearSelection()
|
|
|
|
End With
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
gridAviso._TRANSLATE()
|
|
End Sub
|
|
|
|
|
|
Sub initDauerLKWFertig()
|
|
Try
|
|
|
|
'Dauer berechnen:
|
|
With gridAviso
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then
|
|
If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
|
|
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
|
|
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
|
|
If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then
|
|
r.Cells("Dauer").Value = dauerTmp
|
|
Else
|
|
r.Cells("Dauer").Value = "0"
|
|
End If
|
|
Else
|
|
r.Cells("Dauer").Value = "0"
|
|
End If
|
|
End If
|
|
End If
|
|
If r.Cells("LKW_fertig").Value = "OK" Then
|
|
r.Cells("LKW_fertig").Style.ForeColor = Color.White
|
|
r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
|
|
'Else
|
|
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
|
End If
|
|
If r.Cells("LKW_fertig").Value = "DE" Then
|
|
r.Cells("LKW_fertig").Style.ForeColor = Color.White
|
|
r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
|
'Else
|
|
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
|
End If
|
|
If r.Cells("VerwahrungStatus").Value = "OK" Then
|
|
r.Cells("VerwahrungStatus").Style.ForeColor = Color.White
|
|
r.Cells("VerwahrungStatus").Style.BackColor = Color.Green
|
|
'Else
|
|
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
|
End If
|
|
|
|
|
|
Next
|
|
End With
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
End Sub
|
|
Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True)
|
|
'Paint wieder reaktivieren
|
|
locZeilen = -1
|
|
gridAviso.Columns.Clear()
|
|
If Not Grid_aktiv Then Exit Sub
|
|
' Grid_aktiv = False
|
|
Dim hStart As Integer = My.Computer.Clock.TickCount
|
|
Details_aktiv = False
|
|
gridAviso.GetOrder()
|
|
|
|
Dim datumseinschr = ""
|
|
Dim top = "TOP 1000 "
|
|
|
|
Dim hSQL As String = ""
|
|
If AVISO_TYP = "SND" Then
|
|
|
|
|
|
'----------------------------------------------------------------------------------------------------------------------------------
|
|
'--- Sendung ---
|
|
'----------------------------------------------------------------------------------------------------------------------------------
|
|
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
|
|
If cboMyAvisoAnzeige._value <> "" Then
|
|
If cboMyAvisoAnzeige._value = "ALLE" Then
|
|
' inBearbeitungSQL = " 1=1 " 'ALLE
|
|
inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) "
|
|
ElseIf cboMyAvisoAnzeige._value = "T1" Then
|
|
inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
|
|
'NUR VERAG/IMEX:
|
|
inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
|
|
ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
|
|
If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
|
|
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId
|
|
OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) "
|
|
Else
|
|
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
Dim hSQLFirma = ""
|
|
hSQL = " SELECT " & top & " AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
|
|
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText ,tblSnd_Zollsystem_Land " &
|
|
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
|
|
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
|
hSQLFirma & " AND ( " & inBearbeitungSQL & ") "
|
|
|
|
Select Case cboMy_VB.CheckState
|
|
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null "
|
|
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null "
|
|
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
|
|
End Select
|
|
Select Case cboMy_QS.CheckState
|
|
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null "
|
|
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null "
|
|
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
|
|
End Select
|
|
If cboMy_Grenzstelle._value = "ALLE_WO" Then
|
|
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
|
|
|
|
Else
|
|
|
|
If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
|
|
If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
|
|
|
|
End If
|
|
|
|
If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
|
|
|
|
'Farbe
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
|
|
Select Case btnColor.BackColor
|
|
Case Color.Red
|
|
hSQL &= " AND (Status = 3 ) "
|
|
Case Color.Orange
|
|
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
|
|
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) "
|
|
Case Color.Yellow
|
|
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) "
|
|
End Select
|
|
End If
|
|
''Farbe
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
|
|
' Select Case btnColor.BackColor
|
|
' Case Color.Red
|
|
' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) "
|
|
' Case Color.Orange
|
|
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
|
|
' Case Color.Yellow
|
|
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) "
|
|
' End Select
|
|
'End If
|
|
|
|
'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
|
|
' Funktioniert nciht, wg. WO
|
|
|
|
hSQL &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft ,tblSnd_SendungID "
|
|
|
|
End If
|
|
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
|
|
|
|
'MsgBox(hSQL)
|
|
'If hSort = "" Then
|
|
'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
|
|
' Else
|
|
' hSQL += " " & hSort
|
|
' End If
|
|
gridAviso.DefaultCellStyle.Font = gridFont
|
|
gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
|
|
'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL)
|
|
'gridAviso.SET_SQL(hSQL, "AVISO", list)
|
|
'Dim errOcc = False
|
|
'gridAviso.LOAD(False, errOcc)
|
|
|
|
Try
|
|
gridAviso.DataSource = VERAGSQL.loadDgvBySql_Param(hSQL, "AVISO", 1500, list, False, errOcc)
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
|
|
End Try
|
|
If errOcc Then
|
|
PARENT_FRMHAUPTFENSTER.pic.Visible = True
|
|
End If
|
|
|
|
|
|
' AVISOBinding.setARITHABORTOn()
|
|
'AVISOBinding.initBinding(hSQL, "Aviso")
|
|
'gridAviso.DataSource = AVISOBinding.bindingSource
|
|
|
|
'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count)
|
|
'Grid neu designen
|
|
|
|
|
|
' If CheckBox1.Checked Then
|
|
gridAviso_SpaltenFestlegen()
|
|
|
|
' End If
|
|
|
|
'Tabelle Kommt/Geht bereinigen
|
|
If gridAviso.RowCount = 0 Then
|
|
gridAviso.DataSource = Nothing
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = 0
|
|
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
|
|
End If
|
|
|
|
'Anzeige der Anzahl gewählter Datensätze
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount
|
|
'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl
|
|
' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt"
|
|
|
|
hMerkZeit = Now
|
|
lblZeit_aktuell.Text = "Refresh: " & Format(Now, "HH:mm")
|
|
|
|
|
|
|
|
'Focus auf 1. Zeile setzen, falls Auswahl vorhanden
|
|
If showDetails Then
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl > 0 Then gridAviso.CurrentCell = gridAviso.Rows(0).Cells(1)
|
|
End If
|
|
|
|
Dim hEnde As Integer = My.Computer.Clock.TickCount
|
|
Dim hDifferenz As Integer = hEnde - hStart
|
|
' btnÜbernehmen.Visible = True
|
|
Grid_aktiv = True
|
|
'Aviso_anzeigen("")
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
|
|
If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
|
|
End If
|
|
|
|
gridAviso.SetOrder()
|
|
Details_aktiv = True
|
|
|
|
If showDetails Then
|
|
If gridAviso.SelectedRows.Count > 0 Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
|
|
End If
|
|
PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
' If chkFarben Then GridZeichnenAviso()
|
|
|
|
lblDauer.Text = "" & hDifferenz.ToString & " ms"
|
|
|
|
lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
|
|
|
|
|
|
|
|
'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
|
|
End Sub
|
|
|
|
|
|
'Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
|
|
' initPnlSearch()
|
|
'End Sub
|
|
Sub initPnlSearch()
|
|
' MsgBox("s")
|
|
' If pnlSearch.Visible Then
|
|
' pnlSearch.Visible = False
|
|
' Panel1.Height -= pnlSearch.Height
|
|
' Panel1.Height += tbcntrAvisoLKW.Height
|
|
' tbcntrAvisoLKW.Visible = True
|
|
' Me.Refresh()
|
|
' Aviso_anzeigen("")
|
|
' Else
|
|
' pnlSearch.Visible = True
|
|
' Panel1.Height += pnlSearch.Height
|
|
' Panel1.Height -= tbcntrAvisoLKW.Height
|
|
' tbcntrAvisoLKW.Visible = False
|
|
' Me.Refresh()
|
|
' initDat()
|
|
' gridAviso.Columns.Clear()
|
|
' cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
|
' cbxAlle.Checked = True
|
|
' cboGrenzstelle.SelectedIndex = 0
|
|
' End If
|
|
|
|
' If tbcntrAvisoLKW.SelectedTab IsNot tabAlle Then
|
|
' Grid_aktiv = False
|
|
' tbcntrAvisoLKW.SelectedIndex = 0
|
|
' End If
|
|
|
|
' Grid_aktiv = True
|
|
End Sub
|
|
|
|
Sub initDat()
|
|
' Dim tmpGrid_aktiv = Grid_aktiv
|
|
' Grid_aktiv = False
|
|
' If tbcntrAvisoLKW.SelectedIndex = 0 Then
|
|
' cboGrenzstelle.SelectedIndex = 0
|
|
' MyComboBox1.changeItem(UStatus_AVEingang)
|
|
' dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15)
|
|
' dtpBis.Value = Now.AddDays(1)
|
|
' ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then
|
|
' MyComboBox1.changeItem(Status_Freigegeben)
|
|
' dtpVon.Value = Now
|
|
' dtpBis.Value = Now
|
|
' End If
|
|
' Grid_aktiv = tmpGrid_aktiv
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
|
|
|
|
Private Sub txtSuche_GotFocus(sender As Object, e As EventArgs)
|
|
Try
|
|
If My.Computer.Keyboard.CapsLock Then
|
|
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0)
|
|
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0)
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
|
|
|
|
|
|
|
|
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick
|
|
|
|
If gridAviso.SelectedRows.Count = 0 Then Exit Sub
|
|
' If gridAviso.SelectedRows(0).Cells("AvisoID").Value Is DBNull.Value Then Exit Sub
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
|
|
If gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub
|
|
|
|
Dim SendungsId = gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value
|
|
Dim AvisoID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
|
|
|
|
Dim f = FUNC.openSnd(SendungsId, AvisoID)
|
|
If f IsNot Nothing Then
|
|
AddHandler f.FormClosed, Sub()
|
|
PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick()
|
|
End Sub
|
|
End If
|
|
|
|
|
|
If gridAviso.SelectedRows.Count = 0 Then Exit Sub
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick
|
|
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
|
|
|
|
' lblAkte.Visible = False
|
|
End Sub
|
|
Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
If Grid_aktiv Then
|
|
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
|
|
If Grid_aktiv Then
|
|
'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
|
|
If sender Is cboMyAvisoAnzeige Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
|
|
Grid_aktiv = False
|
|
If cboMyAvisoAnzeige._value = "T1" Then
|
|
cboMy_QS.CheckState = CheckState.Checked
|
|
cboMy_VB.CheckState = CheckState.Unchecked
|
|
Else
|
|
cboMy_QS.CheckState = CheckState.Indeterminate
|
|
cboMy_VB.CheckState = CheckState.Indeterminate
|
|
End If
|
|
Grid_aktiv = True
|
|
End If
|
|
End If
|
|
|
|
'DGV anzeigen:
|
|
Aviso_anzeigen("")
|
|
End If
|
|
'cboMy_QS.Visible = True 'Not cbx_My_LKW.Checked
|
|
'cboMy_VB.Visible = True 'Not cbx_My_LKW.Checked
|
|
'cboMyAvisoAnzeige.Visible = True 'Not cbx_My_LKW.Checked
|
|
'lblMySND_Anzeige.Visible = True 'Not cbx_My_LKW.Checked
|
|
'cbx_My_Brexit.Visible = True
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
|
|
btnColor.Visible = True 'Not cbx_My_LKW.Checked
|
|
Else
|
|
btnColor.Visible = False
|
|
End If
|
|
'If cbx_My_LKW.Checked Then
|
|
' ' lblMeineAviso.Text = "Meine Aviso:"
|
|
' cbx_My_Brexit.Visible = False
|
|
'Else
|
|
' ' lblMeineAviso.Text = "Meine Sendungen:"
|
|
' cbx_My_Brexit.Visible = True
|
|
'End If
|
|
End Sub
|
|
|
|
|
|
Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
If Grid_aktiv Then
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtBestimmungszollstelle_VALUE_CHANGED()
|
|
If Grid_aktiv Then
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click
|
|
ctxtFarben.Show(Cursor.Position)
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
|
|
btnColor.BackColor = Color.Red
|
|
Aviso_anzeigen("")
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
|
|
btnColor.BackColor = Color.Orange
|
|
Aviso_anzeigen("")
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
|
|
btnColor.BackColor = Color.Yellow
|
|
Aviso_anzeigen("")
|
|
End Sub
|
|
|
|
|
|
Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click
|
|
btnColor.BackColor = Color.White
|
|
Aviso_anzeigen("")
|
|
End Sub
|
|
|
|
|
|
Function getDateVorschreiben(addDays) As Date
|
|
Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren
|
|
|
|
While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
|
|
addDays += 1
|
|
End While
|
|
Return Now.AddDays(addDays)
|
|
End Function
|
|
|
|
Function getDaysVorschreiben(addDays) As Integer
|
|
Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren
|
|
|
|
While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
|
|
addDays += 1
|
|
End While
|
|
Return addDays
|
|
End Function
|
|
|
|
Private Sub btnNeu_Click(sender As Object, e As EventArgs)
|
|
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()
|
|
PARENT_FRMHAUPTFENSTER.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 Button12_Click(sender As Object, e As EventArgs)
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim f As New frm_eAVISO
|
|
f.Show()
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub usrCntlHauptfenster_Suche_AVISO_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
|
If (e.KeyCode) = Keys.Add AndAlso e.Control Then
|
|
btnNeu.PerformClick()
|
|
End If
|
|
|
|
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
|
|
|
|
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
|
|
|
|
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)
|
|
|
|
PARENT_FRMHAUPTFENSTER.pic.Visible = False
|
|
Try
|
|
|
|
|
|
If Not Grid_aktiv Then Exit Sub
|
|
Details_aktiv = False
|
|
|
|
|
|
|
|
' If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.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 PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
|
|
|
|
Dim usrcntlAvisoID = -1
|
|
Dim usrcntlAktiv As DateTime
|
|
If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
|
|
If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
|
|
usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
|
|
usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
|
|
Else
|
|
usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
|
|
usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
|
|
End If
|
|
|
|
If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
|
|
PARENT_FRMHAUPTFENSTER.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)
|
|
PARENT_FRMHAUPTFENSTER.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 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)
|
|
PARENT_FRMHAUPTFENSTER.lblErrVermerk.Width = 300
|
|
PARENT_FRMHAUPTFENSTER.lblErrVermerk.Visible = True
|
|
' PARENT_FRMHAUPTFENSTER.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 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 gridAviso_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.ColumnHeaderMouseClick
|
|
' GridZeichnenAviso()
|
|
End Sub
|
|
|
|
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 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
|
|
|
|
Private Sub btnDetailsuche_Click(sender As Object, e As EventArgs) Handles btnDetailsuche.Click
|
|
'pnlSearch.Visible = Not pnlSearch.Visible
|
|
initPnlSearch()
|
|
End Sub
|
|
|
|
Private Sub cboMy_QS_CheckedChanged(sender As Object, e As EventArgs) Handles cboMy_QS.CheckedChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Grid_aktiv = False
|
|
cboMy_QS.CheckState = CheckState.Unchecked
|
|
cboMy_VB.CheckState = CheckState.Indeterminate
|
|
Aviso_anzeigen("")
|
|
Grid_aktiv = True
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Grid_aktiv = False
|
|
cboMy_QS.CheckState = CheckState.Checked
|
|
cboMy_VB.CheckState = CheckState.Unchecked
|
|
Aviso_anzeigen("")
|
|
Grid_aktiv = True
|
|
End Sub
|
|
End Class
|