FP_PTPH;("Prorrogacoes p/ "+Alltrim(Fp_Ptfun->Fnome));skip_blk(x); 3;42;23;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 z_xBlk1 = "Z_data:=Ctod(Str(Dia,2)+'.'+Right(anomes,2)+'.'+Left(AnoMes,2)) ,"
VARIAVEL z_xBlk1 = z_xBlk1 + "AnoMes+' '+Str(Dia,3)+' '+Substr('DomSegTerQuaQuiSexSab',dow(z_data)*3-2,3)"
VARIAVEL z_BlkD  = _CreateBlock( z_xBlk1 )
VARIAVEL z_xBlk1 = ""
//Tb AaMm;StrZero(TABELA,2)+" "+AnoMes;P;@S7;7;;

:TBFI
AaMm;ANOMES;C;9999;4;S;
Dia;DIA;N;99;3;;
Ent;H1;C;99.99;5;;
Sai;H2;C;99.99;5;;
Matr;fp_ptfun->fnumero;P;9999;4;n;
AaMm Dia;AnoMes+" "+Str(Dia,2)+" "+ Eval(z_BlkD);P;@s12;12;N;
