From be84dcbbeae72e188781d88780cee9d32f2415df Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 2 Oct 2020 10:36:20 +0200 Subject: [PATCH] neu --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/My Project/Resources.Designer.vb | 11 ++++++++++- Aviso/My Project/Resources.resx | 5 ++++- Aviso/frmHauptfenster.vb | 6 +++++- 4 files changed, 21 insertions(+), 5 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index e1bf6c8..1bd27a4 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index e5715fb..c781fd1 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -1079,6 +1079,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property sdfgsdfgdf3dfdfgdfg() As String + Get + Return ResourceManager.GetString("sdfgsdfgdf3dfdfgdfg", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1399,7 +1408,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 3.5.4.2 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 3.5.4.5 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx index 82387bf..f5640a5 100644 --- a/Aviso/My Project/Resources.resx +++ b/Aviso/My Project/Resources.resx @@ -527,7 +527,7 @@ ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 3.5.4.2 + 3.5.4.5 ..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -577,4 +577,7 @@ ..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + \ No newline at end of file diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index bda52f6..5933432 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -110,6 +110,9 @@ Public Class frmHauptfenster ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then 'cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung ' End If + + MyComboBox1.changeItem(UStatus_AVEingang) + tbcntrAviso.SelectedIndex = 0 txtSuche.Text = "" txtSuche.Focus() @@ -387,7 +390,8 @@ Public Class frmHauptfenster 'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then - Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " + 'dateadd(DAY,10,VoraussichtlichesEintreffen) --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL) If anz > 0 Then ' MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation)