AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Changes GUI ComServ

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-18 13:22:57 +01:00
parent 71fdc188c2
commit 6e94adc511
29 changed files with 3594 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
DD_CommunicationService/MyComService.Designer.vb generated
View File

@@ -44,6 +44,7 @@ Partial Class MyComService
'
'MyComService
'
Me.AutoLog = False
Me.CanShutdown = True
Me.ServiceName = "DDEDMI_ComService"

11
DD_CommunicationService/MyComService.vb
View File

@@ -83,7 +83,7 @@ Public Class MyComService
If oAccountRow.Item("GUID") = oEMAILACCOUNT_ID Then
oMailFrom = oAccountRow.Item("EMAIL_FROM")
oMailSMTP = oAccountRow.Item("SERVER_OUT")
oMailport = oAccountRow.Item("PORT")
oMailport = oAccountRow.Item("PORT_OUT")
oMailUser = oAccountRow.Item("EMAIL_USER")
oAuthType = oAccountRow.Item("AUTH_TYPE")
oMailPW = oAccountRow.Item("EMAIL_PW")
@@ -120,12 +120,17 @@ Public Class MyComService
End If
If _Email.NewEmail(oEmailTo, oSubject, oBody, oMailFrom, oMailSMTP, oMailport, oMailUser, oMailPW, oAuthType) = True Then
Dim upd = "UPDATE TBPMO_WORKFLOW_REMINDER SET EMAIL_SENT = CURRENT_TIMESTAMP WHERE GUID = " & oGUID
Dim upd = "UPDATE TBEDM_EMAIL_QUEUE SET EMAIL_SENT = CURRENT_TIMESTAMP WHERE GUID = " & oGUID
_firebird.ExecuteNonQuery(upd)
End If
Next
Else
_Logger.Warn("Check the Email_Config Tables in EDM_MASTER. At least on table returns nothing or is empty.")
If oDT_EMAIL_ACCOUNT.Rows.Count = 0 Then
_Logger.Warn("Check the Email_Config Table TBEDM_EMAIL_ACCOUNT. The table seems to be empty.")
ElseIf IsNothing(oDT_EMAIL_QUEUE) Then
_Logger.Warn($"DT_EMAIL_QUEUE is nothing: {oSQL}")
End If
End If