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)
|
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
|
||||||
if Error_Services('NoError') then
|
if Error_Services('NoError') then
|
||||||
RDSRec<RDS_WO$> = ''
|
RDSRec<RDS_WO$> = ''
|
||||||
|
RDSRec<RDS_WO_STEP_KEY$> = ''
|
||||||
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, False$, False$, False$)
|
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, False$, False$, False$)
|
||||||
If Error_Services('HasError') then
|
If Error_Services('HasError') then
|
||||||
ErrorMessage = Error_Services('GetMessage')
|
ErrorMessage = Error_Services('GetMessage')
|
||||||
@ -1857,3 +1858,4 @@ return
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user