//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 4; 8;21;72;Pagamentos com Cheques;;;;;pre_lanpc()
:SKEL
//COMANDO ANTES ABRA ("1",r_siga,Ct_tipd, "Ct_tipd", Ct_tipd, "codigo")
//VARIAVEL z_nil = OrdSetFocus(3)
VARIAVEL z_nil = ABRA("6",r_siga,Ct_talao,"Ct_talao",Ct_talao,"str(banco,3)+agencia+ccorrente+str(chq_fim,6)")
VARIAVEL z_nil = ABRA("5",r_siga,Ct_conta,"Ct_conta",Ct_conta,"str(banco,3)+agencia+ccorrente")
VARIAVEL z_nil = ABRA("4",r_siga,"Cp_divis", "Cp_divis")
VARIAVEL z_nil = ABRA("3",r_siga,Ct_banco,"Ct_banco",Ct_banco,"banco")
VARIAVEL z_nil = DbSelectArea("CT_MOV")
VARIAVEL xconta=0
VARIAVEL xsaldo=0
VARIAVEL m_banco=banco
VARIAVEL m_agencia=agencia
VARIAVEL m_ccorrente=ccorrente
VARIAVEL z_foundcta = if( x_operacao<>1, ct_conta->( dbseek( str(m_banco,3)+m_agencia+m_ccorrente )), .f.)
VARIAVEL xconta = if( z_foundcta.and.x_operacao<>1, ct_conta->( recno() ), 0)
VARIAVEL xsaldo = if( z_foundcta.and.x_operacao<>1, ct_conta->saldo, 0)
*-
COMANDO ANTES m_data = if(x_operacao=1,s_datual,m_data)
COMANDO ANTES m_bomparadia = if(x_operacao=1,s_datual,m_bomparadia)
COMANDO ANTES m_SitCheque = if(x_operacao=1,"E",m_SitCheque)
COMANDO ANTES m_DC = if(x_operacao=1,"D",m_DC)
COMANDO ANTES m_OBS = if(x_operacao=1,"Ch Emitido",m_OBS)
*
COMANDO DEPOIS Reglock()
COMANDO DEPOIS Put_var("TL","3")
COMANDO DEPOIS Put_var("DC","D")
COMANDO DEPOIS Put_var("SitCheque","E")
COMANDO DEPOIS Put_var("banco",m_banco)
COMANDO DEPOIS Put_var("agencia",m_agencia)
COMANDO DEPOIS Put_var("ccorrente",m_ccorrente)
COMANDO DEPOIS z_foundcta = ct_conta->( dbseek( str(m_banco,3)+m_agencia+m_ccorrente ))
COMANDO DEPOIS z_nil = If(z_foundcta, Ct_Conta->(RegLock()), "")
COMANDO DEPOIS z_nil = If(z_foundcta, Ct_Conta->(put_var("saldo",saldo-m_valor)), "")
COMANDO DEPOIS z_nil = If(z_foundcta.and.x_operacao<>1, Ct_Conta->(put_var("saldo",saldo+xsaldo)) ,"")
COMANDO DEPOIS z_nil = DbSelectArea("CT_MOV")
//COMANDO DEPOIS z_nil = OrdSetFocus(1)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
//1; 2; 4;Tipo Doc.......:;C; 8;TIPODOC;XXXXXXXX;;psq_tipd;CT_TIPD;PCTTIPD;N;S; 2;32;DESCRICAO;@S25;
 1; 2; 4;Documento......:;C;10;DOC;@S10;;;;;N;; 0; 0;;;
 1; 3; 4;Data Movimento.:;D; 8;DATA;;;;;;N;; 0; 0;;;
 1; 4; 4;Bom Para Dia...:;D; 8;Bomparadia;99.99.99;;;;;N;; 0; 0;;;
 1; 4;34;Data Compensac.:;D; 8;DataDeposI;99.99.99;x_operacao<>1;;;;N;; 0; 0;;;
 1; 6; 4;Divisao de Pagt:;N; 2;CP_DIVISAO;99;;Chk_LastKey(5).or.psq_brow;cp_divis;pcpdivis;N;S; 6;34;desc;@s18;
 1; 8; 4;Codigo da Conta:;P; 3;xconta;999;;PSQ_CONTA;CT_CONTA;PCTCONTA;N;N; 8;34;bc_ag_cc();;
 1; 9; 4;Saldo da Conta.:;P;11;xsaldo;99999999.99;.f.;;;;N;; 0; 0;;;
 1;11; 4;No do Cheque...:;N; 6;NCHEQUE;999999;;lastkey()=5.or.tst_chq();;;N;; 0; 0;;;
 1;12; 4;Valor..........:;N;11;VALOR;99999999.99;;lastkey()=5.or.m_valor>0;;;N;; 0; 0;;;
 1;14; 4;Comentario.....:;C;30;DESCRICAO;@S30;;!Empty(m_DESCRICAO);;;N;;0;0;;;
 1;15; 4;Situacao.......:;C;30;Obs;@S30;x_operacao<>1;;;;N;;0;0;;;
