FP_PTFUN;Funcionarios Cadastrados;sys_tbbrow; 3;2;20;79;padraox;;
:SKEL
VARIAVEL S_LOJA := xGetEnv("LOJA")
VARIAVEL z_dAtual := S_DATUAL

VARIAVEL z_BlkH := #TEXTO_FONTE
   Private zSelect:=Select() , zChavePtTh:=str(ftabela,3)+substr(dtos(z_dAtual),3,4)
   Abra ("0NOIDX", r_siga, wFP_PTth,  "fp_ptth",  wFP_PTth, "STR(TABELA,3)+ANOMES+STRZERO(DIA,2)")
   se DbSeek(zChavePtTh) entao Brow_Db("FP_PTTH1",.t.) senao Alert("A Tabela de Horarios "+left(zChavePtTh,3)+" nao esta cadastrada para ano "+substr(zChavePtTh,4,2)+" mes "+substr(zChavePtTh,6,2),,"R/W")
   fp_ptth->(DbCloseArea())
   DbSelectArea(zSelect)
#FIM_TEXTO_FONTE

VARIAVEL z_BlkF := #TEXTO_FONTE
   Private zSelect:=Select() 
   Abra ("0NOIDX", r_siga, wFP_PTfo,  "fp_ptfo",  wFP_PTfo, "STR(fnumero,5)+ANOMES+STRZERO(DIA,2)")
   Brow_Db("FP_PTFO1")
   fp_ptfo->(DbCloseArea())
   DbSelectArea(zSelect)
#FIM_TEXTO_FONTE

VARIAVEL z_BlkPH := #TEXTO_FONTE
   Private zSelect:=Select()
   Abra ("0NOIDX",r_siga,wFP_PTph,"fp_ptph",wFP_PTph,"STR(fnumero,5)+ANOMES+STRZERO(DIA,2)")
   Brow_Db("FP_PTPH1")
   fp_ptph->(DbCloseArea())
   DbSelectArea(zSelect)
#FIM_TEXTO_FONTE

VARIAVEL z_BlkP := #TEXTO_FONTE
   Private zSelect:=Select(), zChavePtBh:=str(fnumero,5)+substr(dtos(z_dAtual),3,4)
   Abra ("0NOIDX", r_siga, wFP_PTbh, "fp_ptbh", wFP_PTbh, "STR(fnumero,5)+ANOMESDIA")
   se DbSeek(zChavePtBh) entao Brow_Db("FP_PTBH1",.t.) senao Alert("Sem Banco de Horas para Mat "+ltrim(left(zChavePtBh,5))+" no ano "+substr(zChavePtBh,6,2)+" mes "+substr(zChavePtBh,8,2),,"R/W")
   fp_ptbh->(DbCloseArea())
   DbSelectArea(zSelect)
#FIM_TEXTO_FONTE
VARIAVEL zbPrtLista:={||Relat('lst_exec("FP04RF")','nb','NaoFecheTabelasNaSaida')}
VARIAVEL zbPrtCracha:={||Relat('lst_exec("FP04CF")','nb','NaoFecheTabelasNaSaida')}
:TBMT
 13;if(val(s_loja)=0.or.relogio=0.or.relogio=VAL(S_LOJA),doget(D_ob),Mensagem("Alteracao nao Permitida ! Operacao permitida apenas na loja "+strzero(relogio,2),1));Enter-Edita ;
 32;Eval(z_BlkH);Barra-Horario ;
 65;if(val(s_loja)=0.or.relogio=0.or.relogio=VAL(S_LOJA),tb_update(D_OB),Mensagem("Acesso nao Permitido ! Operacao permitida apenas na loja "+strzero(relogio,2),1));A-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_OB);T-Trecho ;
 73;eVal(zbPrtCracha);I-ListaFun;I-Imprime Lista de Funcionarios da Loja;impressora.ico;;;;;&I-ListaFun;;;
 73;eVal(zbPrtCracha);H-Crachas;H-Imprime Crachas de Funcionarios;impressora.ico;;;;;&H-Crachas;;;
 79;tb_index(D_OB);O-Ordena ;
  7;tb_del(D_OB);Del-Deleta ;
 22;tb_insert(D_OB);Ins-Inclui ;
 67;tb_locate(D_OB);C-Continua Busca; 
:TBFI
Matric;FNUMERO;N;99999;  5;N;
Barras;PDIC6;N;9999999999999;  13;N;
Nome;FNOME;C;@S30; 30;N;
Aniv Admis;left(dtoc(fdtnasc),5)+" "+Dtoc(FdtAdmis);C;@S14;14;N;
Lj;Relogio;N;99;  2;S;
Tb;Ftabela;N;99;2;S;
HT;Ftabelaht;N;99;2;S;
dmt;FFG_DEMIT;L;L;3;S;
Dt Rescis;FdtRescis;D;99.99.9999;10;S;
Cargo;Fcargo;C;@S25;25;S;
Matric;FNUMERO;N;99999;  5;N;
Lj;Relogio;N;99;  2;S;
CPF;Fcpf;C;@S14;14;S;
Nome Cracha;FNOMEGuerr;C;@S19; 19;S;
Funcao;FFuncao;C;@S30;30;S;
Nome Abrev;FnomeAbr;C;@s19;15;S;