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

automatisches Setzen auf nciht eingetroffen von Containen auf 20 Tage

Browse Source
This commit is contained in:
d.breimaier
2024-04-11 16:52:52 +02:00
parent cd1c040eb7
commit 150cce3b37
3 changed files with 161 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/frmHauptfenster.vb
View File

@@ -488,7 +488,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 dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') "
'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 & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') "
Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and ((Transportmittelart = 'CONTAINER' and dateadd(DAY,20,VoraussichtlichesEintreffen) < GETDATE()) or (Transportmittelart <> 'CONTAINER' and dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE()))"
'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
@@ -4551,6 +4552,10 @@ Public Class frmHauptfenster
Dim f = New frmAvisoAnhangsarten("tblAvisoAnhangsArten", "AVISO")
f.Show()
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
End Sub
End Class
Public Class AvisoStatusFunctions