Added logging to proc queue processing. Refactored code to delete request on failures. Restored MCP call in Service_Manager_Events to avoid issues calling certain procedures.

This commit is contained in:
Infineon\StieberD
2025-06-04 17:05:06 -07:00
parent 38fc89dac6
commit 869787e0f3
2 changed files with 51 additions and 15 deletions

View File

@ -108,7 +108,8 @@ Event WINDOW.TIMER()
Procedures = ServiceDetail<SERVICES.PROCEDURES$>
Arguments = ServiceDetail<SERVICES.ARGUMENTS$>
For Each Procedure in Procedures using @VM setting procPos
Command = 'RUN ' : Procedure
If Procedure[-9, 9] _EQC '_SERVICES' then Procedure[-9, 9] = ''
Command = 'RUN MCP ' : Quote(Procedure)
Arguments = Arguments<0, procPos>
If Arguments NE '' then
For Each Argument in Arguments using ','
@ -129,7 +130,7 @@ Event WINDOW.TIMER()
If Not(Num(Modifier)) then Modifier = ''
Argument = Date() + Modifier
end
Command := ' ' : Quote(Argument)
Command := ', ' : Quote(Argument)
Next Argument
end
Next Procedure