//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8; 10;16;70;CONTROLE DE LIGACOES;;;;;
:SKEL
VARIAVEL Z_NIL  = ABRA("0",r_siga, "fp_liga", "fp_liga", "fp_liga", "FNUMERO", "fp_liga2","FNOME")
VARIAVEL Z_NIL  = DbSelectArea("fp_liga")


*- COMANDO ANTES ABRA ("1",r_siga, fp_lig, "fp_lig", fp_lig, "FNUMERO",fp_lig-"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="","00",M_LCOD)
*COMANDO DEPOIS REGLOCK()
*COMANDO DEPOIS PUT_VAR("HORA",TIME())
*COMANDO DEPOIS DBCOMMITALL()
COMANDO DEPOIS fp_liga->(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; 2; 3;Data .......:;D;8;DATA_MOV;;.f.;;;;N;; 0; 0;;;
 1; 2; 30;Hora .......:;C; 8;HORA;@S8;.f.;;;;N;; 0; 0;;;

//1; 3; 3;Colaborador..:;N;  //A5;FNUMERO;99999;;M_FNUMERO>0.AND.PSQ_BROW;FP_ptfun;PFpfun;N;S;3;30;FNOME;@S20;
 1; 3; 3;Colaborador.:;C;20;fnome;@s20;;psq_brow;fp_ptfun;pfptfun;N;S;;;;;
 
 1; 4;3;Numero Fone.:;C;15;fp_fone;@s15;;;;;N;; 0; 0;;;
 1; 5;3;Tempo Lig...:;D;8;fp_tempo;;;;;;N;; 0; 0;;;
 1; 6;3;OPeradora...:;C;15;fp_opera;@s15;;;;;N;; 0; 0;;;
 