>dAll=.n. >begin transaction >select stock >if tableupdate(.t.) > select stockdetail > if tableupdate(.t.) > select cust > if tableupdate(.t.) > dAll=.y. > endif > endif >endif > >IF dAll > END TRANSACTION >ELSE > ROLLBACK > WAIT WINDOW 'Rollback, call your dealer' >ENDIF >>
dAll=.n. begin transaction select stock if tableupdate(.t.) AND GETNEXTMODIFIED(0)=0 select stockdetail if tableupdate(.t.) AND GETNEXTMODIFIED(0)=0 select cust if tableupdate(.t.) AND GETNEXTMODIFIED(0)=0 dAll=.y. endif endif endif IF dAll END TRANSACTION ELSE ROLLBACK WAIT WINDOW 'Rollback, call your dealer' ENDIF