>form::CheckforFilledvalues > >lparameters tcBaseClass, toRef >local loRef >assert not empty(lcBaseClass) >if empty(toRef) > toRef = thisform >endif >llReturn = .t. >for each loRef in toRef > if vartype(loRef.controlcount) = 'N' > llReturn = thisform.TestAllvalues( lcBaseClass,loRef) > if not llReturn > return llReturn > ENDIF > else > if vartype(loRef.value) <> 'U' and ; > vartype(loRef.value) <> 'L' and ; > loRef.BaseClass = proper(alltrim(tcBaseClass)) > if empty(loRef.value) > return .f. > endif > endif > endif >endfor >return llReturn > >>