edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-02 10:36:20 +02:00
parent bead6bad6d
commit be84dcbbea
4 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmHauptfenster.vb
View File

@@ -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)