//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 0;23;79;Registro de Cartao;;;;;
:SKEL
VARIAVEL m_fdataemi = date()
VARIAVEL m_floja = val(getenv("LOJA"))
VARIAVEL m_si_caixa = val( getenv("CAIXA") )
VARIAVEL m_COD_OPERAC = 1
VARIAVEL Z_BlkNome={|x|abra_arq("sccrcli"),Sccrcli->(DbGoto(x)),m_cr_NOME:=sccrcli->cr_NOME,m_cr_cgc:=sccrcli->cr_cgc,sccrcli->(DbCloseArea()),DbSelectArea("ct_mcart"),.f.}
VARIAVEL Z_BlkData={|x|DbSelectArea("sccrdup"),m_fdataemi:=cr_dt_emis,m_fbompara:=cr_dt_venc,m_cr_valor:=cr_valor,m_fcli:=cr_cod_cli,DbSelectArea("ct_mcart"),.f.}
//,__keyboard(chr(13)+chr(13)+chr(13)+chr(13))
COMANDO ANTES abra_arq("SCCRDUP",.t.)
COMANDO ANTES DbSelectArea("CT_MCART")
COMANDO ANTES DBGOBOTTOM()
COMANDO SAIDA sccrdup->(DbCloseArea())
// 1; 2; 1;NOM_LOJA;C;40;NOM_LOJA;@S40;;;;;N;; 0; 0;;;
// 1; 4; 1;NOM_CARTAO;C;25;NOM_CARTAO;@S25;;;;;N;; 0; 0;;;
// 1; 6; 1;NOM_OPERAC;C;25;NOM_OPERAC;@S25;;;;;N;; 0; 0;;;
// 1; 8; 1;NOM_CAIXA;C;20;NOM_CAIXA;@S20;;;;;N;; 0; 0;;;
// 1; 3; 2;Cod.Cartao.....:;N; 2;fCARTAO;99;;;;;;;;      cr_valor
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict; when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Loja...........:;N; 2;floja;99;.f.;;;;N;; 0; 0;;;
 1; 3; 2;Cod.Cartao.....:;N; 2;fCARTAO;99;;psq_brow;vb_cart;pvbcart;N;N;3;37;ctnome;@s15; 
 1; 4; 2;Cod.Operacao...:;N; 2;COD_OPERAC;99;;;;;N;; 0; 0;;;
 1; 5; 2;Numero do Caixa:;N; 1;si_caixa;9;.f.;;;;N;; 0; 0;;;

 1; 7; 2;Cupom de Venda...:;C;10;cr_num_ped;@s10;;!empty(m_cr_num_ped).and.psq_brow;sccrdup;psccrdup;N;S;;;;;
 1; 8; 2;Data do Movimento:;D; 8;fdataemi;;eval(z_blkdata);;;;N;; 0; 0;;; 
 1; 9; 2;Valor de Venda...:;N; 9;cr_valor;999999.99;;;;;N;; 0; 0;;;
 
 1; 7;37;Cartao Bom Para..:;D; 8;fBOMPARA;;;;;;N;; 0; 0;;;
 1; 8;37;Parcelamento.....:;C;15;PARCELas;@S15;;;;;N;; 0; 0;;;
 1; 9;37;Numero do Cartao.:;C;19;fNUMCART;@S19;;;;;N;; 0; 0;;;

 1;11; 2;Codigo do Cliente:;N; 6;fcli;999999;eval(z_blknome,m_fcli);;;;N;; 0; 0;;;
 1;12; 2;CPF/CGC do Client:;C;20;cr_CGC;@S18;.f.;;;;N;; 0; 0;;;
 1;13; 2;Nome do Cliente..:;C;45;cr_NOME;@S45;.f.;;;;N;; 0; 0;;;
 1;14; 2;Observacao.......:;C;50;cr_OBS;@S50;;;;;N;; 0; 0;;;
 