//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5; 0;20;79;;;;;;
:SKEL
COMANDO ANTES M_FDATAEMI = If( Day(m_fdataemi)=0, DATE(), m_fdataemi)
COMANDO ANTES Z_SELE = SELECT()
COMANDO ANTES z_nil=if(select("sccrcli")=0,ABRA("0RO",R_SIGA,"SCCRCLI","SCCRCLI","SCCRNOM","CR_NOME"),NIL)
COMANDO ANTES DBSELECTAREA(Z_SELE)
COMANDO DEPOIS SCCRCLI->(DbCloseArea())
COMANDO DEPOIS REGLOCK()
COMANDO DEPOIS PUT_VAR("FVALPAGO",M_FVAL)
COMANDO DEPOIS PUT_VAR("FDATAALTER",DATE())
COMANDO DEPOIS PUT_VAR("FHORAALTER",TIME())
COMANDO DEPOIS PUT_VAR("FHORA",TIME())
COMANDO DEPOIS PUT_VAR("FIMPRESSA",TIME())
COMANDO DEPOIS PUT_VAR("FG_LIB","S")
COMANDO DEPOIS PUT_VAR("FG_FAT","S")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Pedido......:;N; 7;FNUMPED;9999999;;M_FNUMPED>0;;;N;; 0; 0;;;
 1; 3; 2;Cliente.....:;N; 5;FCLI;99999;;psq_brow;sccrcli;PSCCrcli;N;N; 3;30;Cr_nome;@s35;
 1; 4; 2;Associado...:;N; 7;FCODFUNC;9999999;sccrcli->cr_tip_cli="2";lastkey()=5.or.psq_brow;vb_ass;pvbass3;N;S;4;30;nome;@s25;Str(M_Fcli,5)+str(m_fcodfunc,7);matricula;
 1; 5; 2;Vendedor....:;N; 2;FVENDEDOR;99;;lastkey()=5.or.psq_brow;sf_vend;psfvend;N;N;5;30;nome;@s25;
 1; 6; 2;Emissao.....:;D; 8;FDATAEMI;;;;;;N;; 0; 0;;;
 1; 7; 2;Valor.......:;N;12;FVAL;9999999.99;;M_FVAL>0;;;N;; 0; 0;;;
//
 1; 9; 2;Banco.......:;N; 3;FBANCO;999;;;;;N;; 0; 0;;;
 1;10; 2;Num. Cheque.:;N; 6;FCHEQUE;999999;;;;;N;; 0; 0;;;
 1;11; 2;Bom Para Dia:;D; 8;FBOMPARA;;;;;;N;; 0; 0;;;
//
 1;12;2;Cartao......:;N; 3;FCARTAO;999;;;;;N;; 0; 0;;;
 1;13;2;Num. Cartao.:;C;20;FNUMCART;@S20;;;;;N;; 0; 0;;;
// 2; 5; 1;FTOTPROD;N; 4;FTOTPROD;9999;;;;;N;; 0; 0;;;
// 2; 6; 1;FTOTUNID;N; 6;FTOTUNID;999999;;;;;N;; 0; 0;;;
// 2; 7; 1;FTOTFALT;N; 6;FTOTFALT;999999;;;;;N;; 0; 0;;;
// 2; 8; 1;FVALDEV;N;12;FVALDEV;9999999.99;;;;;N;; 0; 0;;;
// 2;12; 1;FG_PSICO;C; 1;FG_PSICO;x;;;;;N;; 0; 0;;;
// 1; 7; 1;FCODOP;C; 4;FCODOP;xxxx;;;;;N;; 0; 0;;;
// 1;11; 1;FTOTIPI;N; 1;FTOTIPI;9;;;;;N;; 0; 0;;;
// 1;12; 1;FTOTICMS;N; 1;FTOTICMS;9;;;;;N;; 0; 0;;;
// 1;13; 1;FTAXAICMS;N; 1;FTAXAICMS;9;;;;;N;; 0; 0;;;
// 1;14; 1;FTAXAIPI;N; 1;FTAXAIPI;9;;;;;N;; 0; 0;;;
