MUE ENACHE 2

private valcodcl
private valcodp
set talk off

valcodcl=val(alltrim(upper(thisform.editcodcl.text)))
if len(alltrim(thisform.editcodcl.text))=0
messagebox("Introdu clasa la care e diriginte!")
return
endif
valcodp=val(alltrim(thisform.editcodp.text))
sele 2
use clasa
locate for codcl=valcodcl
replace diriginte with valcodp
close all
use