local contador1, contador2
contador1=0
contador2=0
select bi
scan
if bi.u_aprovado = .t.
contador1 = contador1 +1
endif
if bi.u_aprovado = .f.
contador2 = contador2 +1
endif
endscan
if contador1>=1 and Contador2=0
replace bo.trab5 with "Aprovado totalidade"
else
if contador1=0 and Contador2>=1
replace bo.trab5 with "Reprovado"
else
replace bo.trab5 with "Aprovado parcialmente "+astr(contador1) + " / "+ astr(contador2)
endif
endif
↧