Added removal of WO_STEP_KEY from RDS void routine
This commit is contained in:
@ -1818,6 +1818,7 @@ Service DetachRDSFromWO(RDSNo)
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
|
||||
if Error_Services('NoError') then
|
||||
RDSRec<RDS_WO$> = ''
|
||||
RDSRec<RDS_WO_STEP_KEY$> = ''
|
||||
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, False$, False$, False$)
|
||||
If Error_Services('HasError') then
|
||||
ErrorMessage = Error_Services('GetMessage')
|
||||
@ -1857,3 +1858,4 @@ return
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user