FP_PTBH;("Banco de Horas de "+Alltrim(Fp_PtFun->Fnome)+" (Mat:"+Str(fnumero,5)+")");skip_blk(x); 3; 0;23;79;padraox;;
:SKEL
VARIAVEL Z_STATUS := SPAC(5)
VARIAVEL w_chave := zChavePtBh
VARIAVEL w_mensagem := "Sem mais Assinaturas"
VARIAVEL w_block := {|| w_chave <> STR(fnumero,5)+left(ANOMESDIA,4) }
VARIAVEL zbDiaSem := {||zdata:=Ctod(Right(anomesdia,2)+'.'+Substr(anomesdia,3,2)+'.'+Left(AnoMesDia,2)) , Right(AnoMesDia,2)+' '+Substr( 'DomSegTerQuaQuiSexSab', dow(zdata)*3-2, 3)}
:TBMT
 13;pt_doget(D_ob);Enter-Ocorrencia ;
 32;AjustPt(fnumero,anomesdia,,d_Ob);Barra-Ajusta_Dia ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_OB);T-Trecho ;
 73;lst_alias(D_OB);I-Imprime ;
 79;tb_index(D_OB);O-Ordena ;
 7;tb_del(D_OB);Del-Deleta ;
:TBFI
St;SITUACAO;C;!;2;N;
Trab;if(hta>0,StrZero(Int(HTA/60),2)+":"+StrZero(HTA-60*Int(HTA/60),2),"     ");C;@S5;5;N;
Dia;Eval(zbDiaSem);P;@s7;7;N;
Ent1;H1a;C;@S5;5;S;
Sai1;H2a;C;@S5;5;S;
Ent2;H3a;C;@S5;5;S;
Sai2;H4a;C;@S5;5;S;
Horario: E1 S1 E2 S2;Ht1+" "+ht2+" "+ht3+" "+ht4;C;@S23; 23;N;
AaMmDd;ANOMESDIA;C;@S6;6;N;
HTrb;if(hta>0,StrZero(Int(HT/60),2)+":"+StrZero(HT-60*Int(HT/60),2),"     ");C;@S5;5;N;
Real E1 S1 E2 S2;H1+" "+h2+" "+h3+" "+h4;C;@S23; 23;N;
Lj Tb;str(RELOGIO,2)+" "+Str(TABELA,2);C;@s5;5;N;
Matricula;FNUMERO;N;99999;9;N;