//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6;12;18;75;Ficha de Talao de Cheques;;;;;;
:SKEL
VARIAVEL m_dataemi   = if(x_operacao=1,s_datual,dataemi)
VARIAVEL m_banco     = if(x_operacao<>1,banco,0)
VARIAVEL m_agencia   = if(x_operacao<>1,agencia,"")
VARIAVEL m_ccorrente = if(x_operacao<>1,ccorrente,"")
VARIAVEL m_abrev     = if(x_operacao<>1,abrev,"")
VARIAVEL xconta      = 0
VARIAVEL xsaldo      = 0
COMANDO ANTES ABRA ("2",r_siga,Ct_conta,"Ct_conta",Ct_conta,"str(banco,3)+agencia+ccorrente")
COMANDO ANTES DbSelectArea("CT_TALAO")
COMANDO ANTES Z_NIL = if(x_operacao<>1,ct_conta->(dbseek(str(m_banco,3)+m_agencia+m_ccorrente)),"")
COMANDO ANTES xconta = If(x_operacao<>1,ct_conta->(recno()),xconta)
COMANDO ANTES xsaldo = If(x_operacao<>1,ct_conta->saldo,xsaldo)
COMANDO DEPOIS reglock()
COMANDO DEPOIS put_var("banco",m_banco)
COMANDO DEPOIS put_var("agencia",m_agencia)
COMANDO DEPOIS put_var("ccorrente",m_ccorrente)
COMANDO DEPOIS put_var("abrev",m_abrev)
COMANDO DEPOIS CT_CONTA->(DbCloseArea())
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 4;Numero do Talao:;N; 4;;9999;;POS_REG();;;E;; 0; 0;;;
 1; 4; 4;Codigo da Conta:;P; 3;xconta;999;;PSQ_CONTA;CT_CONTA;PCTCONTA;N;N; 4;34;bc_ag_cc();;
 1; 6; 4;Emissao........:;D; 8;DATAEMI;;;lastkey()=5.OR.DAY(M_DATAEMI)>0;;;N;; 0; 0;;;
 1; 8; 4;Cheque Inicial.:;N; 6;CHQ_INI;999999;;lastkey()=5.OR.M_CHQ_INI>0;;;N;; 0; 0;;;
 1;10; 4;Cheque Final...:;N; 6;CHQ_FIM;999999;;lastkey()=5.OR.M_CHQ_FIM>M_CHQ_INI;;;N;; 0; 0;;;
