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

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_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 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 zbPrtLista:={||Relat('lst_exec("FP04RF")','nb','NaoFecheTabelasNaSaida')}
VARIAVEL zbPrtCracha:={||Relat('lst_exec("ETQ_CRACHA")','nb','NaoFecheTabelasNaSaida','X')}

// 82;if(val(s_loja)=0.or.relogio=0.or.relogio=VAL(S_LOJA),Eval(z_BlkPH),Mensagem("Acesso nao Permitido ! Operacao permitida apenas na loja "+strzero(relogio,2),1));R-Prorrogacoes ;

VARIAVEL zbCor = ""
VARIAVEL znAzul0:=16711680
VARIAVEL zWhite:=16777215
VARIAVEL zBlack:=0
VARIAVEL zRed:=255
VARIAVEL zGreen:=32768
VARIAVEL znCinza:=8421504
VARIAVEL zYellow:=65535
VARIAVEL zCorDemit := {zRed,zWhite,zWhite,zRed}
VARIAVEL zCorOk:= {znAzul0,zWhite,zWhite,znAzul0}

variavel #TEXTO_FONTE
   se .not. sGuiMode .and. QuickDialog("FPPTFUN_DtRef", "Data de Referencia", {{"Referencia:","@z_dAtual",@z_dAtual,"99.99.9999","",""}} ) entao SetAliasAaMm(z_dAtual)
   DbSelectArea("FP_PTFUN")
   //ONINIT
	   if sGuiMode
	      zbCor := {|| if(FFG_DEMIT,zCorDemit,zCorOk) }
			hwg_TbFi(@D_oB,"Matric;FNUMERO;N;999999;6;N;zbCor;")
			hwg_TbFi(@D_oB,"Barras;PDIC6;N;9999999999999;13;S;zbCor;")
			hwg_TbFi(@D_oB,"Nome;FNOME;C;@S30;30;N;zbCor;")
	   else
			hwg_TbFi(@D_oB,"Matric;FNUMERO;N;99999;  5;N;")
			hwg_TbFi(@D_oB,"Barras;PDIC6;N;9999999999999;13;S;")
			hwg_TbFi(@D_oB,"Nome;FNOME;C;@S30; 30;N;")
	   endif
		hwg_TbFi(@D_oB,"Aniv Admis;left(dtoc(fdtnasc),5)+' '+Dtoc(FdtAdmis);P;@S14;14;N;")
		hwg_TbFi(@D_oB,"Lj;Relogio;N;99;  2;S;")
		hwg_TbFi(@D_oB,"Tb;Ftabela;N;99;2;S;")
		hwg_TbFi(@D_oB,"HT;Ftabelaht;N;99;2;S;")
		hwg_TbFi(@D_oB,"dmt;FFG_DEMIT;L;L;3;S;")
		hwg_TbFi(@D_oB,"Dt Rescis;FdtRescis;D;99.99.9999;10;S;")
		hwg_TbFi(@D_oB,"Nome Cracha;FNOMEGuerr;C;@S19; 19;S;")
		hwg_TbFi(@D_oB,"Cargo;Fcargo;C;@S25;25;S;")
		hwg_TbFi(@D_oB,"Funcao;FFuncao;C;@S30;30;S;")
		hwg_TbFi(@D_oB,"CPF;Fcpf;C;@S14;14;S;")
		hwg_TbFi(@D_oB,"Nome Cartao Banco;FnomeAbr;C;@s19;15;S;")
   //ENDONINIT
   //ONDLGINIT
   oDlg:Maximize()
   //ENDDLGINIT
#FIM_TEXTO_FONTE
: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),Eval(z_BlkP),Mensagem("Acesso nao Permitido ! Operacao permitida apenas na loja "+strzero(relogio,2),1));A-Altera_Ponto ;
 70;if(val(s_loja)=0.or.relogio=0.or.relogio=VAL(S_LOJA),Eval(z_BlkF),Mensagem("Acesso nao Permitido ! Operacao permitida apenas na loja "+strzero(relogio,2),1));F-Folgas/Excecoes ;
 72;if(val(s_loja)=0.or.relogio=0.or.relogio=VAL(S_LOJA),AjustPt(fnumero),Mensagem("Acesso nao Permitido ! Operacao permitida apenas na loja "+strzero(relogio,2),1));H-Ajusta_Horario ;
 79;tb_index(D_OB);O-Ordena ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_OB);T-Trecho ;
 67;tb_locate(D_OB);C-Continua_Busca ; 
  7;tb_del(D_OB);Del-Deleta ;
 22;tb_insert(D_OB);Ins-Inclui ;
 69;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));E-Altera_Ficha ;
 73;eVal(zbPrtLista);I-ListaFun;I-Imprime Lista de Funcionarios da Loja;impressora.ico;;;;;&I-ListaFun;;;
 83;eVal(zbPrtCracha);S-Crachas;S-Imprime Crachas de Funcionarios;impressora.ico;;;;;&S-Crachas;;;
