FP_PTPH;Prorrogacoes de Horarios;sys_tbbrow; 6; 1;20;79;padrao;;
:SKEL
VARIAVEL Z_NIL  = ABRA("0",r_siga,"fp_ptfun","fp_ptfun","fp_ptfun","FNUMERO","fp_ptfu2","FNOME")
VARIAVEL Z_NIL  = DbSelectArea("fp_ptph")
VARIAVEL Z_BlkFun = {|x_fnumero| fp_ptfun->(dbseek(x_fnumero)), fp_ptfun->fnome}
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 = ""
COMANDO DEPOIS fp_ptfun->(DbCloseArea())
:TBFI
Matr;FNUMERO;N;99999;5;;
Nome do Funcionario;eval(z_BlkFun,fnumero);C;@s24;24;N;
AaMm;ANOMES;C;9999;4;S;
Dia;DIA;N;99;3;;
H1;H1;C;99.99;5;;
H2;H2;C;99.99;5;;
AaMm Dia;AnoMes+" "+Str(Dia,2)+" "+ Eval(z_BlkD);P;@s12;12;N;
