//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8; 10;16;70;Prorrogacao de Horario;;;;;
:SKEL
VARIAVEL Z_NIL  = ABRA("0",r_siga, "fp_ptfun", "fp_ptfun", "fp_ptfun", "FNUMERO", "fp_ptfu2","FNOME")
VARIAVEL Z_NIL  = DbSelectArea("fp_ptfo")

COMANDO ANTES M_DATA_MOV = DATE()
COMANDO ANTES M_HORA = TIME()
COMANDO ANTES M_LCOD = GETENV("LOJA")
COMANDO ANTES M_LCOD = IF(M_LCOD="","00",M_LCOD)
COMANDO DEPOIS fp_ptfun->(DbCloseArea())
COMANDO DEPOIS __keyboard("N")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib

fnumero
anomes
dia
tolerancia
h1*
h2*
h3*
h4*

 1; 2; 3;Data .......:;D; 8;DATA_MOV;;.f.;;;;N;; 0; 0;;;
 1; 3; 3;Hora .......:;C; 8;HORA;@S8;.f.;;;;N;; 0; 0;;;
 1; 2;47;Loja:;C; 2;lcod;xx;.f.;;;;N;; 0; 0;;;

 1; 5; 3;Matricula ..:;N; 5;FNUMERO;99999;;M_FNUMERO>0.AND.PSQ_BROW;FP_PTFUN;PFPFUN;N;S;6;17;FNOME;@S40;
 1; 6; 3;Funcionario.:;

 1; 3; 3;H1:;C; 5;H1;@S5;;;;;N;; 0; 0;;;
 1; 3; 3;H2:;C; 5;H2;@S5;;;;;N;; 0; 0;;;
 1; 3; 3;H3:;C; 5;H3;@S5;;;;;N;; 0; 0;;;
 1; 3; 3;H4:;C; 5;H4;@S5;;;;;N;; 0; 0;;;
