Amigos,
O aluno ultrapassou o limite de faltas, teria que está reprovado, porém no sistema consta como aprovado, gostaria de uma ajuda para refazer esta formula. Segue a formula:
DECL A1, A2, A3, A4,M, PF,F0, F1,F2,NF,F,TF, AD;
SETVAR(A1,CAMPOTAB(6,"A1","V"));
SETVAR(AD,CAMPOTAB(6,"AD1","V"));
SETVAR(A2,CAMPOTAB(6,"A2","V"));
SETVAR(F1,CAMPOTAB(6,"F1","V"));
SETVAR(F2,CAMPOTAB(6,"F2","V"));
SETVAR(PF,CAMPOTAB(6,"A4","V"));
SETVAR(F,(F1+F2));
SETVAR(TF,(AD*0.25));
SETVAR(M,((A1+A2)/2));
GRAVATAB(6,"A3","V",M);
GRAVATAB(6,"F0","V",F);
GRAVATAB(6,"A0","V",M);
GRAVATAB(6,"AD0","V",AD);
Se (M>=7) Entao
GRAVATAB(6,"STATUS","S","08")
Fimse;
Se (M>=3) e (M<7) Entao
Se CAMPOTAB(6,"A4","S")<>"" Entao
GRAVATAB(6, "A0", "V",((M+PF)/2))
Senao
GRAVATAB(6, "A0", "V",M)
Fimse;
SETVAR(NF,CAMPOTAB(6,"A0","V"));
Se CAMPOTAB(6,"A4","S")<>"" Entao
Se (NF>=5) Entao
GRAVATAB(6,"STATUS","S","08")
Senao
GRAVATAB(6,"STATUS","S","09")
FimSe
FimSe
Fimse;
Se (M<3) Entao
GRAVATAB(6,"STATUS","S","09")
Fimse;
Se (F0 >TF) Entao
GRAVATAB(6,"STATUS","S","10")
Fimse;
NF