FP_PTTH;Tabelas de Horarios;sys_tbbrow; 3; 14;20;77;padrao;;
:SKEL
VARIAVEL z_xBlk1 = "z_data:=ctod(str(dia,2)+'.'+right(anomes,2)+'.'+Left(anomes,2)) ,"
VARIAVEL z_xBlk1 = z_xBlk1 + "Substr( 'DomSegTerQuaQuiSexSab', dow(z_data)*3-2, 3) "
VARIAVEL z_BlkD  = _CreateBlock( z_xBlk1 )
VARIAVEL z_xBlk1 = ""
:TBFI
Tb;TABELA;N;99; 2;;
AaMm Dia;AnoMes+" "+Str(Dia,2)+" "+ Eval(z_BlkD);P;@s12;12;;
Ent1;H1;C;@S5;  5;;
Sai1;H2;C;@S5;  5;;
Ent2;H3;C;@S5;  5;;
Sai2;H4;C;@S5;  5;;
Tol;TOLERANCIA;C;99; 3;;
