FP_PTFO;Folgas/Atestados/Excessoes;sys_tbbrow; 6; 1;20;79;padrao;;
:SKEL
VARIAVEL Z_NIL = fp_ptfo->(ABRA("0",r_siga,"fp_ptfun","fp_ptfun","fp_ptfun","FNUMERO","fp_ptfu2","FNOME"))
VARIAVEL Z_BlkFun = {|x_fnumero| fp_ptfun->(dbseek(x_fnumero)), fp_ptfun->fnome}
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)}
COMANDO saida fp_ptfun->(DbCloseArea())
:TBFI
Matr;FNUMERO;N;99999;5;;
Nome do Funcionario;eval(z_BlkFun,fnumero);C;@s20;20;N;
AaMm;ANOMES;C;9999;4;S;
Dia;DIA;N;99;3;;
S;situacao;C;9;1;;
H1;H1;C;99.99;5;;
H2;H2;C;99.99;5;;
H3;H3;C;99.99;5;;
H4;H4;C;99.99;5;;
Toler;TOLERANCIA;N;99;2;;
AaMm Dia;AnoMes+" "+Str(Dia,2)+" "+ Eval(zbDiaSem);P;@s12;12;N;
