Code: Select all
If Mode = 9 .And. Focus = "ADJSTOCK"
Declare nAdjust Type Number
nAdjust := SCRRead("ADJSTOCK")
SCRWrite("ADJSTOCK", 0)
SCRWrite("STOCK_IN", SCRRead("STOCK_IN") - nAdjust)
SCRWrite("STVARIANCE", SCRRead("STVARIANCE") + nAdjust)
Endif
Users browsing this forum: No registered users and 4 guests
Copyright © 1985 - 2019 Capital Office Business Software. All Rights Reserved.