FP_PTFO;("Excecoes de "+alltrim(Fp_Ptfun->Fnome));skip_blk(x); 8; 6;16;79;padrao;;
:SKEL
//Tolerancia;TOLERANCIA;C;99;3;;
VARIAVEL w_chave    = str(fp_ptfun->fnumero,5)+substr(dtos(s_datual),3,4)
VARIAVEL w_mensagem = "Sem mais Excecoes"
VARIAVEL w_block    = {|| w_chave <> STR(fnumero,5)+ANOMES}

VARIAVEL zbDiaSem := {||Z_data:=Ctod(Str(Dia,2)+'.'+Right(anomes,2)+'.'+Left(AnoMes,2)), Str(Dia,3)+' '+Substr( 'DomSegTerQuaQuiSexSab', dow(z_data)*3-2, 3)}
VARIAVEL z_BlkS := {|| Z_sit:=if(val(situacao)<=0.or.val(situacao)>4,1,val(situacao)), aSits:={"Trabalho Normal","Falta Justificada","Falta NAO Justificada","Folga do Funcionario"}, aSits[Z_sit] }

//Tb AaMm;StrZero(TABELA,2)+" "+AnoMes;P;@S7;7;;
:TBFI
Sit;Situacao;C;9;3;S;
Descricao;Eval(z_BlkS);P;@s21;21;N;
AaMm;ANOMES;C;9999;4;S;
Dia;DIA;N;99;3;;
Ent1;H1;C;@S5;  5;;
Sai1;H2;C;@S5;  5;;
Ent2;H3;C;@S5;  5;;
Sai2;H4;C;@S5;  5;;
AaMm Dia;Eval(zbDiaSem);P;@s11;11;N;
Matr;fp_ptfun->fnumero;P;9999;4;;
