boa tarde,
segue a formula:
ATRIBUI('MATALUNO',CAMPOTAB(6,'MATALUNO','S'));
ATRIBUI('CODCUR',CAMPOTAB(6,'CODCUR','V'));
ATRIBUI('CODPER',CAMPOTAB(6,'CODPER','V'));
ATRIBUI('CODMAT',CAMPOTAB(6,'CODMAT','S'));
EXECSQL ('FOR0301');
FOR ('01.06.01');
FOR ('01.06.02');
FOR ('01.06.03');
FOR ('01.06.04');
ATRIBUI('VNNOTA',RESULTSQL('FOR0301','MEDIA'));
ATRIBUI('VNAULA',SOMAAULASDISCFILHAS(0));
ATRIBUI('VNFALTA',RESULTSQL('FOR0301','FALTA'));
ATRIBUI('VSTATUS',CAMPOTAB(4,'STATUS','S'));
ATRIBUI('VNNULO',RESULTSQL('FOR0301','NULO'));
SE (MEMORIA('VSTATUS') = '2' OU MEMORIA('VSTATUS') = '3' OU MEMORIA('VSTATUS') = '9' OU MEMORIA('VSTATUS') = '10' OU MEMORIA('VSTATUS') = '14' OU MEMORIA('VSTATUS') = '15')
ENTAO GRAVATAB(6,'STATUS','S',MEMORIA('VSTATUS') );
GRAVATAB(6,'A0','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'A1','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'AD0','V',MEMORIA('VNAULA') );
GRAVATAB(6,'AD1','V',MEMORIA('VNAULA') );
GRAVATAB(6,'F0','V',MEMORIA('VNFALTA') );
GRAVATAB(6,'F1','V',MEMORIA('VNFALTA') )
SENAO
SE (MEMORIA('VNNOTA') >= 70) ENTAO
GRAVATAB(6,'STATUS','S','7');
GRAVATAB(6,'A0','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'A1','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'AD0','V',MEMORIA('VNAULA') );
GRAVATAB(6,'AD1','V',MEMORIA('VNAULA') );
GRAVATAB(6,'F0','V',MEMORIA('VNFALTA') );
GRAVATAB(6,'F1','V',MEMORIA('VNFALTA') )
SENAO
SE (MEMORIA('VNNULO') = -1) ENTAO
GRAVATAB(6,'STATUS','S','1');
GRAVATAB(6,'A0','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'A1','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'AD0','V',MEMORIA('VNAULA') );
GRAVATAB(6,'AD1','V',MEMORIA('VNAULA') );
GRAVATAB(6,'F0','V',MEMORIA('VNFALTA') );
GRAVATAB(6,'F1','V',MEMORIA('VNFALTA') )
SENAO
GRAVATAB(6,'STATUS','S','4');
GRAVATAB(6,'A0','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'A1','V',MEMORIA('VNNOTA') );
GRAVATAB(6,'AD0','V',MEMORIA('VNAULA') );
GRAVATAB(6,'AD1','V',MEMORIA('VNAULA') );
GRAVATAB(6,'F0','V',MEMORIA('VNFALTA') );
GRAVATAB(6,'F1','V',MEMORIA('VNFALTA') )
FIMSE
FIMSE
FIMSE;
MEMORIA('VSTATUS')