1458 lines
73 KiB
VB.net
1458 lines
73 KiB
VB.net
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
|
Imports VERAG_PROG_ALLGEMEIN.cGlobal
|
|
|
|
|
|
Public Class usrCntlHauptfenster_Suche_AVISO
|
|
|
|
|
|
Dim cProgramFunctions As New cProgramFunctions
|
|
Dim PARENT_FRMHAUPTFENSTER As frmHauptfensterNew
|
|
|
|
Private AvisoDAL As New cAvisoDAL
|
|
Private FUNC As New AvisoStatusFunctions
|
|
|
|
Public Sub RESET()
|
|
cboGrenzstelle.SelectedIndex = 0
|
|
MyComboBox1.changeItem(UStatus_AVEingang)
|
|
|
|
tbcntrAvisoLKW.SelectedIndex = 0
|
|
txtSuche.Text = ""
|
|
txtSuche.Focus()
|
|
Grid_aktiv = True
|
|
initDat()
|
|
Aviso_anzeigen("")
|
|
End Sub
|
|
|
|
Private Sub usrCntlHauptfenster_Suche_AVISO_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
PARENT_FRMHAUPTFENSTER = PARENT_FRMHAUPTFENSTER
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
|
|
cboGrenzstelle.Items.Clear()
|
|
cboGrenzstelle.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)
|
|
Else
|
|
cboGrenzstelle.Items.Clear()
|
|
cboGrenzstelle.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,, "ALLE")
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
|
|
End If
|
|
cboGrenzstelle.changeItem("")
|
|
|
|
' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
|
|
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 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
|
|
|
|
MyComboBox1.Items.Clear()
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erfasst", Status_Erfasst))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorbereit.QS", Status_Vorgeschrieben))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorgeschrieben", Status_Vorbereitet))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankunft", Status_Ankunft))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", Status_Freigegeben))
|
|
MyComboBox1.changeItem(UStatus_AVEingang)
|
|
|
|
|
|
cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True)
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
|
|
'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
|
|
tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben)
|
|
tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet)
|
|
End If
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
|
|
'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
|
|
tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben)
|
|
tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet)
|
|
Else
|
|
tbcntrAvisoLKW.TabPages.Remove(tabINDONESIEN)
|
|
tbcntrAvisoLKW.TabPages.Remove(tabVERIMEX)
|
|
End If
|
|
|
|
If My.Computer.Screen.WorkingArea.Width < 1300 Then
|
|
'tabAnkunft.Text = "ANKUNFT."
|
|
'tabErfasst.Text = "ERFASST"
|
|
tabVorbereitet.Text = "2.Vorb.QS"
|
|
tabVorgeschrieben.Text = "3.Vorgeschr."
|
|
'tabFreigegeben.Text = "FREIGABE"
|
|
tabNichtEingetroffen.Text = "N.E."
|
|
' tabVorgeschrieben.Text = "VORGESCHR."
|
|
|
|
End If
|
|
|
|
|
|
tbcntrAvisoLKW.Width = Panel1.Width
|
|
|
|
'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y)
|
|
tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X, tbcntrAvisoLKW.Location.Y)
|
|
tbcntrAvisoSND.SelectedIndex = 1
|
|
tbcntrAvisoSND.Width = tbcntrAvisoLKW.Width
|
|
tbcntrAvisoSND.Height = tbcntrAvisoLKW.Height
|
|
|
|
If cboTeams.Items.Count = 0 Then cboTeams.Visible = False
|
|
dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15)
|
|
dtpBis.Value = Now.AddDays(1)
|
|
'optAnkunft.Checked = True
|
|
tbcntrAvisoLKW.SelectedTab = tabAnkunft
|
|
|
|
TimerAkte.Enabled = True
|
|
End Sub
|
|
|
|
|
|
Public Sub gridAviso_SpaltenFestlegen()
|
|
If gridAviso.RowCount = 0 Then Exit Sub
|
|
Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
|
|
|
|
If AVISO_TYP = "LKW" Then
|
|
|
|
With gridAviso
|
|
|
|
' .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
|
|
|
|
If Fullscreen Then
|
|
.Columns("Datum").Visible = True 'Mitarb. nicht anzeigen
|
|
.Columns("Freigabe").Visible = True 'Mitarb. nicht anzeigen
|
|
.Columns("Handling").Visible = True 'Mitarb. nicht anzeigen
|
|
.Columns("Vorbereitet").Visible = True
|
|
.Columns("Vorgeschrieben").Visible = True
|
|
Else
|
|
.Columns("Datum").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("Freigabe").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("Handling").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("Vorbereitet").Visible = False
|
|
.Columns("Vorgeschrieben").Visible = False
|
|
|
|
End If
|
|
|
|
.Columns("TageBisEintreffen").Visible = False
|
|
.Columns("Transportmittelart").Visible = False
|
|
|
|
.Columns("Status").Width = 25
|
|
.Columns("Status").HeaderText = "St."
|
|
|
|
.Columns("AvisoID").Width = 60
|
|
.Columns("AvisoID").HeaderText = "LKW-Id"
|
|
|
|
.Columns("LetzterMitarbeiter").Width = 135
|
|
.Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"
|
|
|
|
|
|
.Columns("VoraussichtlichesEintreffen").Width = 95
|
|
.Columns("VoraussichtlichesEintreffen").HeaderText = "Vorauss.Eintreffen"
|
|
.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM.yyyy"
|
|
'.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
|
|
|
|
|
|
.Columns("AvisoEingang").Width = 95
|
|
.Columns("AvisoEingang").HeaderText = "Av.Eingang"
|
|
.Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
.Columns("Datum").Width = 95
|
|
.Columns("Datum").HeaderText = "Erfasst"
|
|
.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
|
|
.Columns("Vorbereitet").Width = 100
|
|
.Columns("Vorbereitet").HeaderText = "Vorbereitet"
|
|
.Columns("Vorbereitet").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
|
|
.Columns("Vorgeschrieben").Width = 100
|
|
.Columns("Vorgeschrieben").HeaderText = "Vorgeschrieben"
|
|
.Columns("Vorgeschrieben").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
|
|
.Columns("Ankunft").Width = 100
|
|
.Columns("Ankunft").HeaderText = "Ankunft"
|
|
.Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
|
|
.Columns("Freigabe").Width = 100
|
|
.Columns("Freigabe").HeaderText = "Freigabe"
|
|
.Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
.Columns("Dauer").Width = 60
|
|
.Columns("Dauer").HeaderText = "Dauer"
|
|
.Columns("Dauer").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("Dauer").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
' If cGlobal.AktiverMitarbeiter.Abteilung = "quick-stop" Then
|
|
'.Columns(10).Visible = True
|
|
' Else
|
|
' .Columns(10).Visible = False
|
|
' End If
|
|
|
|
.Columns("Grenzstelle").Width = 55
|
|
.Columns("Grenzstelle").HeaderText = "Grenz."
|
|
.Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
|
|
|
|
.Columns("LKW_Nr").Width = 150
|
|
'.Columns("LKW_Nr").MinimumWidth = 90
|
|
.Columns("LKW_Nr").HeaderText = "LKW-Nr"
|
|
' .Columns("LKW_Nr").DefaultCellStyle.Font = New Font(.DefaultCellStyle.Font.FontFamily, .DefaultCellStyle.Font.Size, FontStyle.Bold)
|
|
'.Columns("LKW_Nr").DefaultCellStyle.BackColor = lkwbackcolor
|
|
'.Columns("LKW_Nr").DefaultCellStyle.SelectionBackColor = lkwbackcolor
|
|
|
|
.Columns("Auftraggeber").MinimumWidth = 150
|
|
.Columns("Auftraggeber").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("Auftraggeber").HeaderText = "Avisierer"
|
|
|
|
.Columns("Frächter").MinimumWidth = 150
|
|
.Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("Frächter").HeaderText = "Frächter"
|
|
|
|
.Columns("Telefonisch").Visible = False 'Status Telefon nicht anzeigen
|
|
.Columns("AvisoTVHinweis").Visible = False 'Status Telefon nicht anzeigen
|
|
|
|
.Columns("LKW_fertig").Width = 35
|
|
.Columns("LKW_fertig").HeaderText = "OK"
|
|
.Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
|
|
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("LKW_fertig").DefaultCellStyle.Font = bfont
|
|
|
|
If cboGrenzstelle._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").DefaultCellStyle.Font = bfont
|
|
.Columns("VerwahrungStatus").Visible = True
|
|
Else
|
|
.Columns("VerwahrungStatus").Visible = False
|
|
End If
|
|
|
|
.Columns("Info").Visible = False
|
|
.Columns("Info").MinimumWidth = 200
|
|
.Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)"
|
|
.Columns("Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("Handling").Width = 50
|
|
.Columns("Handling").HeaderText = "Handling"
|
|
|
|
|
|
'.Columns(12).Width = 700
|
|
'.Columns(12).HeaderText = "Änderungen"
|
|
|
|
initDauerLKWFertig()
|
|
._TRANSLATE()
|
|
|
|
|
|
End With
|
|
Else
|
|
|
|
|
|
|
|
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
'-------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
If errOcc Then
|
|
PARENT_FRMHAUPTFENSTER.pic.Visible = True
|
|
End If
|
|
' 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 cboGrenzstelle._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 Not cbx_My_LKW.Checked 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 = 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 Not cbx_My_LKW.Checked 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
|
|
|
|
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
|
|
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 = "LKW" Then
|
|
|
|
'----------------------------------------------------------------------------------------------------------------------------------
|
|
'--- LKW ---
|
|
'----------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
'Bei ANKUNFT nicht nach Datum einschränken
|
|
If tbcntrAvisoLKW.SelectedTab Is tabAnkunft Or tbcntrAvisoLKW.SelectedTab Is tabErfasst Or tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Or tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then
|
|
pnlTime.Visible = False
|
|
Else
|
|
pnlTime.Visible = True
|
|
Select Case MyComboBox1._value
|
|
Case UStatus_none
|
|
top = " TOP 1000 "
|
|
Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >= " & SQLDatum(dtpVon.Value) & " AND AvisoEingang < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Erfasst : datumseinschr &= " AND Datum >= " & SQLDatum(dtpVon.Value) & " AND Datum < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >= " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >= " & SQLDatum(dtpVon.Value) & " AND Vorbereitet < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Ankunft : datumseinschr &= " AND Ankunft >= " & SQLDatum(dtpVon.Value) & " AND Ankunft < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Freigegeben : datumseinschr &= " AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
End Select
|
|
End If
|
|
|
|
If pnlSearch.Visible Then
|
|
top = " TOP 1000 "
|
|
End If
|
|
|
|
|
|
hSQL = "SELECT " & top & " Status, AvisoID, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
|
|
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
|
|
hSQL &= " FROM Aviso "
|
|
hSQL &= " WHERE 1=1 "
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
|
|
hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
|
|
Else
|
|
hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
|
End If
|
|
If pnlSearch.Visible Then
|
|
Dim srchkrit = False
|
|
Dim hSQLSnd = ""
|
|
hSQLSnd &= " AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId "
|
|
If txtEmpfänger.Text <> "" Then hSQLSnd &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True
|
|
If txtAbsender.Text <> "" Then hSQLSnd &= " AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' " : srchkrit = True
|
|
If txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True
|
|
If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True
|
|
If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True
|
|
If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True
|
|
If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True
|
|
hSQLSnd &= " ) > 0 "
|
|
If srchkrit = True Then hSQL &= hSQLSnd
|
|
If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' "
|
|
|
|
If cbxAlle.Checked = False Then
|
|
Dim statWhere = ""
|
|
If cbxErfasst.Checked Then statWhere &= Status_Erfasst & ","
|
|
If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & ","
|
|
If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & ","
|
|
If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & ","
|
|
If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & ","
|
|
If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & ","
|
|
If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1)
|
|
If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 "
|
|
End If
|
|
End If
|
|
|
|
hSQL &= datumseinschr
|
|
|
|
|
|
If cboGrenzstelle._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 SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
|
|
If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
|
|
' Bestimmungs.ZST
|
|
If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
|
|
hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
|
|
End If
|
|
End If
|
|
|
|
|
|
If cboImEx._value <> "" Then
|
|
Select Case cboImEx._value
|
|
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
|
|
Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
|
End Select
|
|
|
|
End If 'Then hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
|
If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'"
|
|
|
|
'je nach Auswahl SQL anpassen
|
|
If tbcntrAvisoLKW.SelectedTab Is tabAlle Then
|
|
'alle
|
|
'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte::: 'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >= " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))"
|
|
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabErfasst Then 'Erfasst
|
|
hSQL += " AND Status = 0"
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Then 'Vorbereitet
|
|
hSQL += " AND Status = 4"
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben
|
|
hSQL += " AND Status = 5"
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabAnkunft Then 'Ankunft
|
|
hSQL += " AND Status = 3"
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then 'Freigegeben
|
|
hSQL += " AND Status = 1"
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen
|
|
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen
|
|
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
|
|
ElseIf tbcntrAvisoLKW.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
|
|
hSQL += " AND Status = 2"
|
|
End If
|
|
|
|
Dim search = txtSuche.Text.Trim
|
|
If search <> "" Then
|
|
hSQL += " AND (LKW_Nr LIKE N'%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
|
|
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance
|
|
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) "
|
|
'Else
|
|
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
|
|
'End If
|
|
End If
|
|
|
|
|
|
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
|
|
|
|
|
|
Else
|
|
|
|
|
|
'----------------------------------------------------------------------------------------------------------------------------------
|
|
'--- 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
|
|
|
|
hSQL = " SELECT 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 " &
|
|
" 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 " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
|
|
|
|
End If
|
|
|
|
' 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")
|
|
Dim errOcc = False
|
|
gridAviso.LOAD(False, errOcc)
|
|
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 = "letzte Aktualisierung: " & 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 PARENT_FRMHAUPTFENSTER.GridZeichnenAviso()
|
|
Label8.Visible = False
|
|
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()
|
|
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 Sub Button4_Click_1(sender As Object, e As EventArgs)
|
|
If CheckBox1.Checked Then
|
|
toggle_LKW_SND("LKW")
|
|
Else
|
|
toggle_LKW_SND("SND")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub toggle_LKW_SND(typ)
|
|
AVISO_TYP = typ
|
|
If AVISO_TYP = "LKW" Then
|
|
tbcntrAvisoLKW.Visible = True
|
|
tbcntrAvisoSND.Visible = False
|
|
pblSNDOptions.Visible = False
|
|
|
|
ElseIf AVISO_TYP = "SND" Then
|
|
tbcntrAvisoLKW.Visible = False
|
|
tbcntrAvisoSND.Visible = True
|
|
pblSNDOptions.Visible = True
|
|
End If
|
|
|
|
Aviso_anzeigen("")
|
|
|
|
End Sub
|
|
|
|
Private Sub txtSuche_KeyDown1(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown
|
|
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub cbxAlle_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlle.CheckedChanged
|
|
|
|
'If cbxAlle.Checked Then
|
|
cbxErfasst.Checked = cbxAlle.Checked
|
|
cbxVorg.Checked = cbxAlle.Checked
|
|
cbxVorb.Checked = cbxAlle.Checked
|
|
cbxAnkunft.Checked = cbxAlle.Checked
|
|
cbxFreigabe.Checked = cbxAlle.Checked
|
|
cbxNE.Checked = cbxAlle.Checked
|
|
' End If
|
|
End Sub
|
|
|
|
Private Sub tbcntrAviso_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAvisoLKW.SelectedIndexChanged
|
|
If Not Grid_aktiv Then Exit Sub
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
|
|
SucheStandort = ""
|
|
initDat()
|
|
Aviso_anzeigen("")
|
|
|
|
PARENT_FRMHAUPTFENSTER.setAkive_AuswahlID() 'Lädt die aktuelle ID
|
|
If gridAviso.SelectedRows.Count > 0 Then
|
|
PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, False)
|
|
Else
|
|
PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) Handles btnAlleAnzeigen.Click
|
|
|
|
If sender Is btnAlleAnzeigen Then
|
|
'Auswahl wird zurückgesetzt, alle Einträge werden angezeigt
|
|
Grid_aktiv = False
|
|
dtpVon.Value = #1/1/2013#
|
|
dtpBis.Value = #12/31/2099#
|
|
txtSuche.Text = ""
|
|
'optAlle.Checked = True
|
|
tbcntrAvisoLKW.SelectedIndex = 0
|
|
Grid_aktiv = True
|
|
SucheStandort = ""
|
|
Aviso_anzeigen("")
|
|
End If
|
|
|
|
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 Sub txtSuche_KeyDown(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
|
|
Label8.Visible = True
|
|
' Exit Sub
|
|
'If e.KeyCode = Keys.Return Then
|
|
If Not Grid_aktiv Then Exit Sub
|
|
' If txtSuche.Text.Length = 1 Then Exit Sub
|
|
If txtSuche.Text.StartsWith("/") Then
|
|
If txtSuche.Text.Length > 3 And txtSuche.Text.EndsWith("/") Then 'AVISO ID
|
|
If txtSuche.Text.Count(Function(c As Char) c = "/") > 2 Then
|
|
Exit Sub
|
|
End If
|
|
If txtSuche.Text.Contains("-") Then
|
|
|
|
Dim t As String = txtSuche.Text
|
|
' t = t.Replace("/V003/", "")
|
|
t = t.Replace("/", "")
|
|
Dim v() = t.Split("-")
|
|
'Dim o As New cOptionenDAL
|
|
If v.Length > 1 Then
|
|
|
|
Dim dt As DataTable = AvisoDAL.loadDataTableBySQL("SELECT TOP 1 tblSnd_AvisoID,tblSnd_SendungID FROM [tblSendungen] WHERE [FilialenNr]='" & v(0) & "' AND [AbfertigungsNr]='" & v(1) & "' AND [UnterNr]='" & v(2) & "' ")
|
|
If dt.Rows.Count > 0 Then
|
|
|
|
Dim avisoidTmp = dt.Rows(0)("tblSnd_AvisoID")
|
|
Dim sndidTmp = dt.Rows(0)("tblSnd_SendungID")
|
|
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
|
|
FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
|
|
gridAviso.ClearSelection()
|
|
'gridMyAviso.ClearSelection()
|
|
PARENT_FRMHAUPTFENSTER.UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection()
|
|
PARENT_FRMHAUPTFENSTER.Details_anzeigen(avisoidTmp, False)
|
|
selectRow(avisoidTmp)
|
|
Try
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "ATILLA"
|
|
Case Else ' "VERAG", "IMEX"
|
|
DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
|
|
End Select
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
txtSuche.Text = ""
|
|
End If
|
|
|
|
End If
|
|
Else
|
|
Dim avisoidTmp = txtSuche.Text.Replace("/", "")
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
|
|
FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
|
|
gridAviso.ClearSelection()
|
|
'gridMyAviso.ClearSelection()
|
|
PARENT_FRMHAUPTFENSTER.UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection()
|
|
PARENT_FRMHAUPTFENSTER.Details_anzeigen(avisoidTmp)
|
|
selectRow(avisoidTmp)
|
|
txtSuche.Text = ""
|
|
End If
|
|
End If
|
|
Else
|
|
' SucheStandort = ""
|
|
' Aviso_anzeigen("")
|
|
' JETZT NU BEI ENTER
|
|
|
|
'gridAviso.Refresh() 'für Variante mit Treffer gelb anzeigen
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub selectRow(AvisoId)
|
|
Try
|
|
For Each r As DataGridViewRow In gridAviso.Rows
|
|
If r.Cells("AvisoId").Value = AvisoId Then
|
|
r.Selected = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
'For Each r As DataGridViewRow In gridMyAviso.Rows
|
|
' If r.Cells("AvisoId").Value = AvisoId Then
|
|
' r.Selected = True
|
|
' Exit For
|
|
' End If
|
|
'Next
|
|
|
|
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 dtp_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpVon.ValueChanged, dtpBis.ValueChanged
|
|
If Not pnlSearch.Visible Then
|
|
If Not Grid_aktiv Then Exit Sub
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub WichtigChanged(sender As System.Object, e As System.EventArgs) Handles btnWichtigeStandort.Click, btnWichtige.Click
|
|
Grid_aktiv = False
|
|
Dim hSort As String = ""
|
|
|
|
' SucheStandort = ""
|
|
|
|
dtpVon.Value = Now.AddMonths(-1) ' Now.AddDays(-15)
|
|
dtpBis.Value = Now.AddDays(1)
|
|
'optAnkunft.Checked = True
|
|
tbcntrAvisoLKW.SelectedTab = tabAnkunft
|
|
txtSuche.Text = ""
|
|
hSort = " ORDER BY Ankunft"
|
|
' If sender Is btnWichtigeStandort Then SucheStandort = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Grenzstelle.Trim
|
|
If sender Is btnWichtigeStandort Then
|
|
cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
|
|
End If
|
|
If sender Is btnWichtige Then
|
|
cboGrenzstelle.SelectedIndex = 0
|
|
End If
|
|
|
|
Grid_aktiv = True
|
|
Aviso_anzeigen(hSort)
|
|
End Sub
|
|
|
|
Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
|
|
|
|
'Suche Bestimmungs.ZST
|
|
If cboGrenzstelle._value = "???" Then
|
|
Label10.Visible = True
|
|
txtBestimmungszollstelle.Visible = True
|
|
Else
|
|
Label10.Visible = False
|
|
txtBestimmungszollstelle.Visible = False
|
|
End If
|
|
|
|
If Grid_aktiv Then
|
|
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
|
|
Aviso_anzeigen("")
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged
|
|
If Grid_aktiv Then
|
|
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub btnHeute_Click(sender As System.Object, e As System.EventArgs) Handles MyComboBox1.SelectedIndexChanged, btnWoche.Click, btnHeute.Click, btnGestern.Click
|
|
If Not Grid_aktiv Then Exit Sub
|
|
Grid_aktiv = False
|
|
Dim hSort As String = ""
|
|
|
|
' SucheStandort = ""
|
|
If sender Is btnHeute Then
|
|
dtpVon.Value = Now.Date
|
|
dtpBis.Value = Now.Date
|
|
ElseIf sender Is btnGestern Then
|
|
dtpVon.Value = Now.Date.AddDays(-1)
|
|
dtpBis.Value = Now.Date.AddDays(-1)
|
|
ElseIf sender Is btnWoche Then
|
|
dtpVon.Value = Now.Date.AddDays(-7)
|
|
dtpBis.Value = Now.Date
|
|
End If
|
|
Grid_aktiv = True
|
|
Aviso_anzeigen(hSort)
|
|
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 cbx_My_LKW.Checked Then
|
|
|
|
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim f As New frmEintragAviso
|
|
f.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
|
|
PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick() 'Aviso_anzeigen("")
|
|
|
|
Else
|
|
|
|
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
|
|
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) Handles cboTeams.SelectedIndexChanged
|
|
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_LKW.CheckedChanged, 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 = Not cbx_My_LKW.Checked
|
|
cboMy_VB.Visible = Not cbx_My_LKW.Checked
|
|
cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked
|
|
lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
|
|
btnColor.Visible = 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) Handles cboImEx.SelectedIndexChanged
|
|
If Grid_aktiv Then
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtBestimmungszollstelle_VALUE_CHANGED() Handles 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
|
|
' meineAviso_anzeigen()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
|
|
btnColor.BackColor = Color.Orange
|
|
' meineAviso_anzeigen()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
|
|
btnColor.BackColor = Color.Yellow
|
|
' meineAviso_anzeigen()
|
|
End Sub
|
|
|
|
|
|
Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click
|
|
btnColor.BackColor = Color.White
|
|
' meineAviso_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
|
|
|
|
End Class
|