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

AAS Status

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-09-19 13:20:12 +02:00
parent 61052b43e9
commit 28a7f191b5
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -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) 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")) insertVermerk(r("AvisoId"), r("SendungsId"), 115, "(AAS) " & r("Hinweis_Vermerk"))
cVermerkeDAL.increaseWarnstufe(r("VermerkID")) cVermerkeDAL.increaseWarnstufe(r("VermerkID"))
MsgBox("done")
Next Next
End If End If
Catch ex As Exception Catch ex As Exception
@@ -3994,10 +3995,10 @@ Public Class frmStartOptions
Dim dt = SQL.loadDgvBySql(" Dim dt = SQL.loadDgvBySql("
SELECT TOP 1000 aviso.AvisoID, Datum SELECT TOP 1000 aviso.AvisoID, Datum
FROM [Aviso] 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 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 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") ", "AVISO")
If dt IsNot Nothing Then If dt IsNot Nothing Then
@@ -4041,7 +4042,7 @@ Public Class frmStartOptions
Return True Return True
End Function 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 'Benachrichtigung
If SendungsId Is DBNull.Value Then SendungsId = Nothing If SendungsId Is DBNull.Value Then SendungsId = Nothing
@@ -4101,7 +4102,7 @@ Public Class frmStartOptions
Case Else Case Else
MsgBox("!!!!!" & sendToID) 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) insertVermerk(AvisoId, SendungsId, 115, "(AAS) " & TXT_AAS_BODY)
End Select End Select