FP_PTTH;Tabelas de Horarios;skip_blk(x); 3; 27;23;79;semfunc;;
:SKEL
//Tolerancia;TOLERANCIA;C;99;3;;
VARIAVEL w_chave = zChavePtTh
VARIAVEL w_mensagem = "Sem mais horarios na Tabela"
VARIAVEL w_block    = {|| w_chave <> STR(TABELA,3)+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)}
:TBFI
Dia;Eval(zbDiaSem);P;@s7;7;N;
Ent1;H1;C;@S5;  5;;
Sai1;H2;C;@S5;  5;;
Ent2;H3;C;@S5;  5;;
Sai2;H4;C;@S5;  5;;
Tb AaMm;StrZero(TABELA,2)+" "+AnoMes;P;@S7;7;;
