USE
USE medicamente
SCAN FOR diagnostic="diabet"
replace compensare WITH 60
ENDSCAN
GO TOP
SCAN FOR valabilita<=DATE()
?? denumire
ENDSCAN
GO TOP
SCAN FOR denumire="diclofenac"
replace pret WITH (pret-pret*(60/100))
ENDSCAN
GO TOP
DISPLAY FIELDS denumire, diagnostic, valabilita, compensare, pret OFF NEXT 10
USE