migrated from OI 9
This commit is contained in:
@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user