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

Div

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-02-26 12:42:03 +01:00
parent bc90be294b
commit a08b48ca78
6 changed files with 69 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Aviso/frmLogin.vb
View File

@@ -167,14 +167,34 @@ Public Class frmLogin
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [Aviso] where datum >= '19.04.2022'
and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO")
Dim SQLSTR = "
SELECT AVISOID,KDNR FROM
(
SELECT AvisoId,Auftraggeber_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
UNION
SELECT AvisoId,Frächter_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
UNION
SELECT AvisoId,tblSnd_AvisiererKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
UNION
SELECT AvisoId,tblSnd_FrachtfuehrerKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
) as T1
where KDNR is not null and kdnr >0
/*and(SELECT COUNT(*) FROM tblAvisoStatusMails where asm_AvisoId=AvisoID AND asm_KdNr=KdNr and asm_StatuscodeSent=5) =0 */
and(SELECT COUNT(*) FROM ADMIN.dbo.[tblAPI] where [api_AvisoId]=AvisoID AND [api_KundenNr]=KdNr and [api_Type]='MAIL' and api_status='1' and [api_apiArt]='1' and [api_apiUArt]='5') =0
GROUP BY AVISOID,KDNR
order by AvisoID "
'Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE())
' and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO")
Dim dt = VERAGSQL.loadDgvBySql(SQLSTR, "AVISO")
For Each r In dt.Rows
'MsgBox("SO: " & (r("AvisoID")))
Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "")
If AVISO IsNot Nothing Then
AvisoStatusFunctions.SendStatusEmail(AVISO)
AvisoStatusFunctions.SendStatusEmailByKdNr(AVISO, r("KDNR"))
End If
Next
Catch ex As Exception