diff --git a/LSL2/STPROC/RDS_SERVICES.txt b/LSL2/STPROC/RDS_SERVICES.txt index 5da6980..c59019f 100644 --- a/LSL2/STPROC/RDS_SERVICES.txt +++ b/LSL2/STPROC/RDS_SERVICES.txt @@ -1157,37 +1157,47 @@ Service CopyRDSLayerParameters(RDSNo) CopyRDSLayerKeys = Xlate('RDS', CopyRDSNo, 'RDS_LAYER_KEYS', 'X') If CopyRDSLayerKeys NE '' then For each CopyRDSLayerKey in CopyRDSLayerKeys + Until ErrMsg NE '' // Copy RDS layer records LayerID = Field(CopyRDSLayerKey, '*', 2) DestRDSLayerKey = RDSNo:'*':LayerID - CopyRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', CopyRDSLayerKey) - DestRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', DestRDSLayerKey) - - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = 'CopyService' - DestRDSLayerRec = DateTime() - Database_Services('WriteDataRow', 'RDS_LAYER', DestRDSLayerKey, DestRDSLayerRec, True$, True$, True$) - + CopyRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', CopyRDSLayerKey) + if Error_Services('NoError') then + DestRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', DestRDSLayerKey) + If Error_Services('NoError') then + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = 'CopyService' + DestRDSLayerRec = DateTime() + Database_Services('WriteDataRow', 'RDS_LAYER', DestRDSLayerKey, DestRDSLayerRec, True$, True$, True$) + If Error_Services('HasError') then + ErrMsg = Error_Services('GetMessage') + end + end else + ErrMsg = Error_Services('GetMessage') + end + end else + ErrMsg = Error_Services('GetMessage') + end Next CopyRDSLayerKey end end else @@ -3381,3 +3391,4 @@ ClearCursors: return +