//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;8;12;17;70;Prorrogacao de Horario;;;;;
:SKEL
VARIAVEL Z_fpfunopen = (sele("fp_ptfun")>0)
VARIAVEL Z_NIL  = if(!Z_fpfunopen,ABRA("0",r_siga,"fp_ptfun","fp_ptfun","fp_ptfun","FNUMERO","fp_ptfu2","FNOME"),NIL)
VARIAVEL Z_NIL  = DbSelectArea("fp_ptph")
VARIAVEL Z_DATA = if(x_operacao=1,DATE(),ctod(strzero(dia,2)+"."+Right(anomes,2)+"."+Left(anomes,2) ))
VARIAVEL M_LCOD    = GETENV("LOJA")
VARIAVEL M_LCOD    = IF(M_LCOD="","00",M_LCOD)
COMANDO ANTES M_FNUMERO = if(x_operacao=1.and.d_dobjeto="FP_PTPH1",fp_ptfun->fnumero,m_fnumero)
COMANDO ANTES z_nil = if(x_operacao=1.and.d_dobjeto="FP_PTPH1",__keyboard(chr(13)),NIL)

COMANDO DEPOIS M_ANOMES = SUBSTR(DTOS(Z_DATA),3,4)
COMANDO DEPOIS M_DIA    = DAY(Z_DATA)
COMANDO DEPOIS REGLOCK()
COMANDO DEPOIS PUT_VAR("LCOD",M_LCOD)
COMANDO DEPOIS PUT_VAR("anomes",m_anomes)
COMANDO DEPOIS PUT_VAR("dia",m_dia)
COMANDO DEPOIS PUT_VAR("MDATA",DATE())
COMANDO DEPOIS z_nil=if(!Z_fpfunopen,fp_ptfun->(DbCloseArea()),NIL)
COMANDO DEPOIS z_nil=if(!Z_fpfunopen,__keyboard("N"),NIL)

:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Matricula ..:;N; 5;FNUMERO;99999;;M_FNUMERO>0.AND.PSQ_BROW;FP_PTFUN;PFPFUN;N;S;3;17;FNOME;@S40;
 1; 3; 3;Funcionario.:;

 1; 5; 3;Data da Prorrogacao........:;P;8;z_data;99.99.99;;;;;N;; 0; 0;;;
 1; 6; 3;Hora Inicial da Prorrogacao:;C; 5;H1;99.99;;;;;N;; 0; 0;;;
 1; 7; 3;Hora Final da Prorrogacao..:;C; 5;H2;99.99;;;;;N;; 0; 0;;;

