MUE ENACHE

private valcodcl1
private valnrore
private valcodp

valcodcl1=upper(alltrim(thisform.editcodcl1.text))
valnrore=val(alltrim(thisform.editnrore.text))
valcodp=alltrim(thisform.editcodp.text)

if len(alltrim(thisform.editcodcl1.text))=0
messagebox("Nu ati introdus clasa!")
return
endif

if len(alltrim(thisform.editnrore.text))=0
messagebox("Nu ati introdus numar de ore!")
return
endif

sele 3
use incadrare
append blank
replace codcl with valcodcl1
replace codp with valcodp
replace nrore with valnrore
messagebox("Adaugare reusita.Resetati incadrare!")
close all
use