From 28a7f191b5e8ed6c0a1d890d6e3c2ec236fbc9a4 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 19 Sep 2024 13:20:12 +0200 Subject: [PATCH] AAS Status --- initATLASAufschubkonten/frmStartOptions.vb | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index b630611..99c9003 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3980,6 +3980,7 @@ Public Class frmStartOptions insertBenachrichtigung_AAS(r("AvisoId"), r("SendungsId"), VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(r("FilialenNr")), VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AAE_Benachrichtigung, "AAS: REMINDER", "REMINDER: " & r("Hinweis_Vermerk"), 1) insertVermerk(r("AvisoId"), r("SendungsId"), 115, "(AAS) " & r("Hinweis_Vermerk")) cVermerkeDAL.increaseWarnstufe(r("VermerkID")) + MsgBox("done") Next End If Catch ex As Exception @@ -3994,10 +3995,10 @@ Public Class frmStartOptions Dim dt = SQL.loadDgvBySql(" SELECT TOP 1000 aviso.AvisoID, Datum FROM [Aviso] - WHERE [Aviso].Status NOT IN (1,2) + WHERE [Aviso].Status NOT IN (1,2,5) and DATEDIFF(HOUR, (select top 1 Datum from Vermerke where Vermerke.AvisoID=aviso.AvisoID order by Vermerke.Datum desc),GETDATE())>24 and DATEDIFF(HOUR, (select top 1 Datum from Aenderungen where Aenderungen.AvisoID=aviso.AvisoID order by Aenderungen.Datum desc),GETDATE())>24 - AND Datum > DATEADD( day,-2,GETDATE()) + AND Datum > DATEADD( day,-2,GETDATE()) AND [Aviso].Firma not in ( 'ATILLA') ", "AVISO") If dt IsNot Nothing Then @@ -4041,7 +4042,7 @@ Public Class frmStartOptions Return True End Function - Function insertBenachrichtigung_AAS(AvisoId, SendungsId, firma, code, TXT_AAS_HEAD, TXT_AAS_BODY, prio) + Function insertBenachrichtigung_AAS(AvisoId, SendungsId, firma, code, TXT_AAS_HEAD, TXT_AAS_BODY, prio, VermerkID) ' 'Benachrichtigung If SendungsId Is DBNull.Value Then SendungsId = Nothing @@ -4096,12 +4097,12 @@ Public Class frmStartOptions Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO") ' If GrenzstelleAVISO = "???" Then Select Case statusAVISO - Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben - 'Nicht - Case Else + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + 'Nicht + Case Else MsgBox("!!!!!" & sendToID) - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, code, art, sendToID, TXT_AAS_HEAD, prio, , TXT_AAS_BODY.Trim,,, firma) + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, code, art, sendToID, TXT_AAS_HEAD, prio, , TXT_AAS_BODY.Trim,,, firma, VermerkID) insertVermerk(AvisoId, SendungsId, 115, "(AAS) " & TXT_AAS_BODY) End Select