diff --git a/LSL2/STPROC/RDS_SERVICES.txt b/LSL2/STPROC/RDS_SERVICES.txt index bc7d09b..d29b3b2 100644 --- a/LSL2/STPROC/RDS_SERVICES.txt +++ b/LSL2/STPROC/RDS_SERVICES.txt @@ -418,8 +418,9 @@ end service // Rows are @FM delimted while columns are @VM delimited. //---------------------------------------------------------------------------------------------------------------------- Service GetRDSData(WorkOrderNo, Columns, ShowGasGauge, RDSOverrideList) - RDSList = '' + RDSList = '' + If ( (WorkOrderNo NE '') or (RDSOverrideList NE '') ) then If ShowGasGauge NE True$ then ShowGasGauge = False$ rv = Set_Status(0) @@ -431,6 +432,7 @@ Service GetRDSData(WorkOrderNo, Columns, ShowGasGauge, RDSOverrideList) Swap @FM with @VM in RDSOverrideList RDSKeys = RDSOverrideList end + StatusCode = '' If Get_Status(StatusCode) then Error_Services('Add', 'Error calling Extract_SI_Keys in the ' : Service : ' service. StatusCode: ' : StatusCode) @@ -489,7 +491,9 @@ Service GetRDSData(WorkOrderNo, Columns, ShowGasGauge, RDSOverrideList) end else Error_Services('Add', 'WorkOrderNo or RDSOverrideList argument was missing from the ' : Service : ' service.') end - + //Sort based on cassette number + Locate 'RUN_ORDER_NUM' in Columns using @VM setting ColNoCassNo else ColNoCassNo = 1 + RDSList = SRP_Sort_Array(RDSList, 'AR' : ColNoCassNo, True$, @FM) Response = RDSList end service @@ -1800,3 +1804,4 @@ return +