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

*- COMANDO ANTES ABRA ("1",r_siga, fp_fun, "fp_fun", fp_fun, "FNUMERO",fp_fun-"LN","LCOD+FNOME")
COMANDO ANTES M_DATA_MOV = DATE()
COMANDO ANTES M_HORA = TIME()
COMANDO ANTES M_LCOD = GETENV("LOJA")
COMANDO ANTES M_LCOD = IF(M_LCOD="","01",M_LCOD)
*COMANDO DEPOIS REGLOCK()
*COMANDO DEPOIS PUT_VAR("HORA",TIME())
*COMANDO DEPOIS DBCOMMITALL()
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

// 1; 5; 3;Locacao.....:;C; 2;LCOD;xx;(m_lcod:=fp_ptfun->lcod,.t.);;;;N;; 0; 0;;;
 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.:;
