pre cutover push
This commit is contained in:
@ -23,7 +23,7 @@ $insert RTI_Debug_Common
|
||||
$insert Logical
|
||||
$insert SRPMail_Inserts
|
||||
|
||||
Declare function SRPSendMail, Datetime
|
||||
Declare function SRP_Send_Mail, Datetime
|
||||
|
||||
Process = 0
|
||||
Loop
|
||||
@ -77,7 +77,7 @@ Text:
|
||||
Text = ""
|
||||
Text<-1> = "App: " : @APPID<1>
|
||||
Text<-1> = "Window: " : @WINDOW
|
||||
Text<-1> = "User: " : @USERNAME
|
||||
Text<-1> = "User: " : @USER4
|
||||
Text<-1> = "Station: " : @STATION
|
||||
Text<-1> = " "
|
||||
Text<-1> = "SP Status: " : SPStatus@
|
||||
@ -111,7 +111,7 @@ return
|
||||
|
||||
|
||||
Send:
|
||||
* MsgSent = SRPSendMail(Message, ConfigFile)
|
||||
* MsgSent = SRP_Send_Mail(Message, ConfigFile)
|
||||
|
||||
Open "SQL_ERROR" to hSQL_ERROR then
|
||||
Write Text to hSQL_ERROR, Datetime() then null
|
||||
@ -124,3 +124,4 @@ Done:
|
||||
Done = Yes$
|
||||
return
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user