phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

migrated from OI 9

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-10 12:03:26 -07:00
parent 3cdb08d0fd
commit f9f296fa5e
26 changed files with 55036 additions and 8195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -242,7 +242,6 @@ Service AddComment(RDSNo, Comment, UsernameOpt)
oblParms := Fields:@RM
oblParms := Values:@RM
oblParms := "TOP" :@VM: "TOP" :@VM: "TOP"
obj_Post_Log('Create',oblParms)
End Service
@ -455,17 +454,23 @@ Service GetRDSData(WorkOrderNo, Columns, ShowGasGauge, RDSOverrideList)
If Error_Services('NoError') then
For each Column in Columns using @VM setting vPos
LoadTimeStart = GetTickCount()
If Column NE 'ELAPSED_HOURS' then
RDSList<fPos, vPos> = Calculate(Column)
end else
Val = OConv(Calculate(Column), 'MD2L')
Hours = Field(Val, '.', 1)
Minutes = '0.':Field(Val, '.', 2)
Minutes = 60 * Minutes
Minutes = Minutes[1, 'F.']
Minutes = Fmt(Minutes, 'R(0)#2')
RDSList<fPos, vPos> = Hours:':':Minutes
end
Begin Case
Case Column EQ 'HOLD_STATUS'
HoldStatus = Calculate(Column)
If HoldStatus EQ 'No' then HoldStatus = 'Off Hold'
RDSList<fPos, vPos> = HoldStatus
Case Column EQ 'ELAPSED_HOURS'
Val = OConv(Calculate(Column), 'MD2L')
Hours = Field(Val, '.', 1)
Minutes = '0.':Field(Val, '.', 2)
Minutes = 60 * Minutes
Minutes = Minutes[1, 'F.']
Minutes = Fmt(Minutes, 'R(0)#2')
RDSList<fPos, vPos> = Hours:':':Minutes
Case Otherwise$
RDSList<fPos, vPos> = Calculate(Column)
End Case
Next Column
end else
Error_Services('Add', 'Error reading RDS Record ' : @ID : ' in the ' : Service : ' service.')
@ -1518,3 +1523,4 @@ return