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("", 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