Imports System.Web.UI.WebControls Imports DAKOSY_Worker.SumAErledigungsinformationVorpapier Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlBenachrichtigungenNEW Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL Dim ASF As New AvisoStatusFunctions Dim See_Cbam As Boolean = False Public Event SelectionChanged() Public Sub initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) Try ' Wenn Grid nicht aktiv, nichts tun If Not Grid_aktiv Then Exit Sub ' Merke zuvor ausgewählte ab_id (wenn genau eine Zeile selektiert) Dim prevSelectedAbId As Integer = -1 Try If gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then Dim v = gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_id").Value If v IsNot Nothing AndAlso v IsNot DBNull.Value AndAlso IsNumeric(v) Then prevSelectedAbId = CInt(v) End If End If Catch prevSelectedAbId = -1 End Try With gridAvisoBenachrichtigungen .DefaultCellStyle.Font = gridFont If .Columns IsNot Nothing AndAlso .Columns.Count > 0 Then .Columns.Clear() Dim whereMA = " AND ( 1<>1 " 'WARENORT If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then whereMA &= " OR (ab_TO_Art='W' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "') " 'NEUKUNDEN ElseIf cbxNeukunden.Checked Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='13') " 'TEAM_NEUKUNDEN --> VERAG End Select 'SONST Else If cbxCluster.Checked Then whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') " Else whereMA &= " OR (ab_TO_Art='B' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "') " whereMA &= " OR (ab_TO_Art='N' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "') " whereMA &= " OR (ab_TO_Art='A' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG & "') " whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') " End If If cbxVerwarung.Checked Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='26') " 'TEAM_VERWARUNG --> VERAG End Select End If If cbxTaskForce.Checked Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='7') " 'TEAM_TASKFORCE --> VERAG End Select End If If See_Cbam Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERIMEX", "AMBAR" Case Else whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='33') " 'TEAM_CBAM --> VERAG End Select End If If cbxTeams.Checked Then whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) " Else If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId & "') " End If End If End If whereMA &= " ) " Dim whereStatus As String Dim selectBestaetigung As String = "" Dim joinBestaetigung As String = "" If CheckBox1.Checked Then Dim datumAb As Date If Date.TryParse(txtDatumAb.Text, datumAb) Then whereStatus = " AND ab_status <> 0 AND ab_Bestaetigt_Datum >= '" & datumAb.ToString("yyyyMMdd") & "' " Else whereStatus = " AND ab_status <> 0 " End If If txtSearch.Text.Trim <> "" Then Dim s As String = Replace(txtSearch.Text.Trim, "'", "''") whereStatus &= " AND (" & "ab_Vermerk LIKE '%" & s & "%' " & "OR LKW_Nr LIKE '%" & s & "%'" & ") " End If selectBestaetigung = ",ab_Bestaetigt_Datum,MA.mit_username AS BestaetigtVon " joinBestaetigung = " LEFT JOIN ADMIN.dbo.tblMitarbeiter MA ON MA.mit_id = ab_Bestaetigt_MaId " Else whereStatus = " AND ab_status = 0 " End If Dim sqlStr As String = "SELECT ab_id,ab_AvisoID,ab_SendungID,ab_Art,ab_Beschreibung,LKW_Nr" & selectBestaetigung & ",ab_TO_Art,ab_TO_Code,ab_Bestaetigt_MaId,ab_Datum,ab_Status,ab_BenachrichtigungCode,ab_Prioritaet,ab_MitarbeiterId,ab_Firma,ab_Cluster,ab_collAnhId,ab_Vermerk,ab_ReminderVermerkID,ab_ReminderVermerkCode,ab_VermerkID,Status " & "FROM tblAvisoBenachrichtigungen " & "INNER JOIN AVISO ON AvisoId=ab_AvisoID " & joinBestaetigung & "WHERE 1=1 " & whereStatus & whereMA & " ORDER BY CASE WHEN ANKUNFT<'20010101' THEN '29990101' ELSE ANKUNFT END ASC,ab_Datum ASC" Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) .DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list,,, 3) If .DataSource Is Nothing Then Exit Sub Dim nfont = New Font(.Font.FontFamily, .Font.Size, FontStyle.Regular) If .Columns.Count = 0 Then Exit Sub .DefaultCellStyle.Font = nfont .MultiSelect = False .Columns("ab_id").Visible = False .Columns("ab_AvisoID").Visible = False .Columns("ab_SendungID").Visible = False .Columns("ab_BenachrichtigungCode").Visible = False .Columns("ab_Prioritaet").Visible = False .Columns("ab_Status").Visible = False .Columns("ab_Vermerk").Visible = False .Columns("ab_collAnhId").Visible = False .Columns("ab_ReminderVermerkID").Visible = False .Columns("ab_VermerkID").Visible = False .Columns("ab_ReminderVermerkCode").Visible = False .Columns("ab_TO_Art").Visible = False .Columns("ab_TO_Code").Visible = False .Columns("ab_Bestaetigt_MaId").Visible = False ' .Columns("ab_Bestaetigt_Datum").Visible = False .Columns("ab_Firma").Visible = False .Columns("ab_Cluster").Visible = False .Columns("Status").Visible = False .Columns("ab_Art").Width = 30 .Columns("ab_Art").HeaderText = "Art" .Columns("ab_Art").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("LKW_Nr").MinimumWidth = 95 .Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen" .Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("ab_Datum").Visible = False .Columns("ab_Datum").Width = 80 .Columns("ab_Datum").HeaderText = "Datum" .Columns("ab_Datum").DefaultCellStyle.Format = "dd.MM. HH:mm" .Columns("ab_Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("ab_Beschreibung").MinimumWidth = 140 .Columns("ab_Beschreibung").HeaderText = "Beschreibung" .Columns("ab_Beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("ab_Bestaetigt_MaId").Visible = False .Columns("ab_MitarbeiterId").Visible = False If CheckBox1.Checked Then .Columns("ab_Bestaetigt_Datum").Visible = True .Columns("BestaetigtVon").Visible = True .Columns("ab_Bestaetigt_Datum").HeaderText = "Bestätigt" .Columns("ab_Bestaetigt_Datum").Width = 95 .Columns("ab_Bestaetigt_Datum").DefaultCellStyle.Format = "dd.MM. HH:mm" .Columns("BestaetigtVon").HeaderText = "Bestätigt von" .Columns("BestaetigtVon").Width = 100 End If If .RowCount = 0 Then .Columns.Clear() : Exit Sub Dim t = New DataGridViewTextBoxColumn t.Name = "cmlnInfo" t.HeaderText = "" t.DefaultCellStyle.NullValue = "i" t.Width = 20 : t.DefaultCellStyle.Padding = New Padding(2) : t.DefaultCellStyle.BackColor = Color.Gray t.DefaultCellStyle.Font = New Font(.Font.FontFamily, .Font.Size, FontStyle.Bold) t.DefaultCellStyle.ForeColor = Color.White t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter t.Visible = False .Columns.Insert(0, t) .SelectionMode = DataGridViewSelectionMode.FullRowSelect For Each r As DataGridViewRow In .Rows If r.Cells("Status").Value = 3 Then r.DefaultCellStyle.ForeColor = Color.Red r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold) End If If r.Cells("ab_BenachrichtigungCode").Value = "6" Then r.Cells("ab_Art").Value = "VK" End If Next .ClearSelection() ' Grid_aktiv = False ' Falls zuvor eine Zeile markiert war, wieder auswählen und in Sicht bringen If prevSelectedAbId > -1 Then Try For Each rr As DataGridViewRow In .Rows Dim vid = rr.Cells("ab_id").Value If vid IsNot Nothing AndAlso vid IsNot DBNull.Value AndAlso IsNumeric(vid) Then If CInt(vid) = prevSelectedAbId Then .ClearSelection() Dim colIndex As Integer = .Columns("LKW_Nr").Index If Not .Rows(rr.Index).Cells(colIndex).Visible Then colIndex = .FirstDisplayedCell.ColumnIndex End If .CurrentCell = .Rows(rr.Index).Cells(colIndex) .Rows(rr.Index).Selected = True .FirstDisplayedScrollingRowIndex = Math.Max(0, rr.Index - 2) Exit For End If End If Next Catch ' ignore End Try End If End With Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub gridAvisoBenachrichtigungen_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Beschreibung").Value.ToString.Contains("AAS:") Then If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then e.Graphics.DrawImage(My.Resources.reminder, e.CellBounds) 'e.CellStyle.BackColor = Color.White gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Value = "" gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Style.BackColor = Color.Gray End If If Not e.Handled Then e.Handled = True e.PaintContent(e.CellBounds) End If End If End If End Sub Private Sub usrCntlBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load 'MyComboBox2.Items.Clear() 'MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer")) 'MyComboBox2.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False) 'MyComboBox2.changeItem("Benutzer") ' MyComboBox2.chang Timer1.Enabled = True MyComboBox2.Items.Clear() MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeCluster", "AVISO") Then cbxCluster.Visible = True If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then cbxCluster.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER End If End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeNeukunden", "AVISO") Then cbxNeukunden.Visible = True 'cbxNeukunden.Checked = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeCBAM", "AVISO") Then See_Cbam = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeVerwahrung", "AVISO") Then cbxVerwarung.Visible = True cbxVerwarung.Checked = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeTaskForce", "AVISO") Then cbxTaskForce.Visible = True cbxTaskForce.Checked = True End If 'NEIN; weils zB Waidhaus dann alles sieht und übernimmt 'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then ' If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True 'End If 'Nur VERIMEX Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERIMEX" If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True End If Case "ATILLA" cbxCluster.Visible = False cbxTeams.Visible = False End Select ' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click If CheckBox1.Checked Then initDgvAvisoBenachrichtigungen(True, Me.Font) Else If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then Dim AB As New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_id").Value) 'BEstätigen Select Case AB.ab_BenachrichtigungCode Case 5 ' REMINDER VERMERK Dim f As New frmAvisoBenachrichtigungReminderBestaetigen(AB) Select Case f.ShowDialog(Me) Case DialogResult.OK AB.BESTAETIGEN_BENACHRICHTIGUNG() 'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)# frmHauptfensterNew.REFRESH_AVISO_MAIN(AB.ab_AvisoID) initDgvAvisoBenachrichtigungen(True, Me.Font) Case DialogResult.Cancel 'NIX Case DialogResult.Yes AB.BESTAETIGEN_BENACHRICHTIGUNG() initDgvAvisoBenachrichtigungen(True, Me.Font) Case Else 'NIX soll eig nicht vorkommen End Select Case Else 'Weiterleitung Akt/Snd If AB.BESTAETIGEN_BENACHRICHTIGUNG Then Select Case AB.ab_BenachrichtigungCode Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.Vorauskasse_OK AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'Vorauskasse OK' bestätigt.", 46) 'Akt nicht übernehmen Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'ZOLL:Dokumentenbeschau' bestätigt.", 46) 'Akt nicht übernehmen Case Else 'Weiterleitung --> Übermehmen If AB.ab_Art = "A" Then If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub ' If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub Else If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub End If End Select 'VERMERK inserieren 'insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46) Dim f As New frmAvisoWeiterleitenBestaetigen(AB) f.ShowDialog(Me) 'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True) frmHauptfensterNew.REFRESH_AVISO_MAIN(AB.ab_AvisoID) initDgvAvisoBenachrichtigungen(True, Me.Font) End If End Select End If End If End Sub Private Sub gridAvisoBenachrichtigungen_CellClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAvisoBenachrichtigungen.CellMouseClick, gridAvisoBenachrichtigungen.CellMouseClick RaiseEvent SelectionChanged() End Sub Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAvisoBenachrichtigungen.KeyUp Try If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then If sender.selectedRows.count = 0 Then Exit Sub RaiseEvent SelectionChanged() End If Catch ex As Exception End Try End Sub Private Sub usrCntlBenachrichtigungen_SelectionChanged() Handles gridAvisoBenachrichtigungen.SelectionChanged Button10.Enabled = ((gridAvisoBenachrichtigungen.SelectedRows.Count > 0) Or (CheckBox1.Checked = True)) txtVermerk.Text = "" If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then txtVermerk.Text = If(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_vermerk").Value, "") End If End Sub Private Sub usrCntlBenachrichtigungen_SelectionChanged(sender As Object, e As EventArgs) Handles gridAvisoBenachrichtigungen.SelectionChanged End Sub Private Sub cbxTeams_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTeams.CheckedChanged 'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) 'initDgvAvisoBenachrichtigungen(True, Me.Font) initDgvAvisoBenachrichtigungen(True, Me.Font) End Sub Private Sub cbxCluster_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCluster.CheckedChanged initDgvAvisoBenachrichtigungen(True, Me.Font) End Sub Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged, cbxVerwarung.CheckedChanged, cbxTaskForce.CheckedChanged initDgvAvisoBenachrichtigungen(True, Me.Font) End Sub Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting 'If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then ' If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then ' If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then ' 'e.Graphics.Clear(Color.White) ' e.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2) ' ' e.CellStyle.ForeColor = Color.White ' gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "" ' ' e.PaintContent(e.CellBounds) ' End If ' If Not e.Handled Then ' e.Handled = True ' e.PaintContent(e.CellBounds) ' End If ' End If 'End If End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then txtDatumAb.Visible = True Label1.Visible = True Label2.Visible = True txtSearch.Visible = True txtVermerk.Visible = False txtDatumAb._value = Now.AddDays(0).ToShortDateString Button10.Image = My.Resources.search Button10.Text = "Suchen" Else txtDatumAb.Visible = False Label1.Visible = False Label2.Visible = False txtSearch.Visible = False txtSearch.Text = "" txtVermerk.Visible = True Button10.Image = My.Resources.ok Button10.Text = "Bestätigen" End If initDgvAvisoBenachrichtigungen(True, Me.Font) End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Try If Not CheckBox1.Checked Then initDgvAvisoBenachrichtigungen(True, Me.Font) End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub txtSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown If CheckBox1.Checked Then If e.KeyCode = Keys.Enter Then initDgvAvisoBenachrichtigungen(True, Me.Font) End If End If End Sub Private Sub txtDatumAb_ValueChanged() Handles txtDatumAb.ValueChanged If CheckBox1.Checked Then initDgvAvisoBenachrichtigungen(True, Me.Font) End If End Sub End Class