//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 4; 4;22;67;Movimento de Deposito;;;;;
:SKEL
VARIAVEL m_cmc7 = spac(34)
VARIAVEL zbCheqOk=#TEXTO_FONTE
   if m_recno_mov>=0 .and. m_recno_mov<=ct_mov->( lastrec() )
      ct_mov->( dbgoto(m_recno_mov) )
      if ct_mov->sitcheque$"APRTU" .and. .not. ct_mov->( deleted() )
         m_valor := ct_mov->valor
         m_Bomparadia := ct_mov->Bomparadia
         m_cli_forn := ct_mov->cli_forn 
         m_Cr_Cgc := ct_mov->Cr_Cgc   
         m_Cr_Nome := ct_mov->Cr_Nome  
         m_BANCO := ct_mov->BANCO    
         m_NCHEQUE := ct_mov->NCHEQUE  
         m_Agencia := ct_mov->Agencia  
         m_CCorrente := ct_mov->CCorrente
         m_DESCRICAO := ct_mov->DESCRICAO
         Return RefreshGetList()
      else
         Alert("O cheque com acesso "+str(m_recno_mov,6)+" não está liberado p/ Rel.Depos.")
         m_recno_mov := 0
      endif
   endif
   Return .f.
#FIM_TEXTO_FONTE
VARIAVEL zbChkCmc7=#TEXTO_FONTE
   if val(substr(m_cmc7,14,6)) > 0
      m_banco:=Val(substr(m_cmc7,2,3))
      m_Agencia:=substr(m_cmc7,5,4)
      m_nCheque:=val(substr(m_cmc7,14,6))
      m_Ccorrente:=Substr(m_cmc7,25,8)
      Return RefreshGetList()
   endif
   Return .t.
#FIM_TEXTO_FONTE
comando depois #TEXTO_FONTE
   ct_mov->(DbGoTo(m_recno_mov))
   RegLock()
   replace fNumero   with ct_trld->numero
   replace sitcheque with ct_mov->sitcheque
   replace doc       with ct_mov->doc
   if ct_mov->(banco<>m_banco .or. Agencia<>m_Agencia .or. NCHEQUE<>m_nCheque .or. CCorrente<>m_Ccorrente .or. Cr_Cgc<>m_Cr_Cgc .or. Cr_Nome<>m_Cr_Nome .or. DESCRICAO<>m_DESCRICAO)
      ct_mov->(RegLock(),_field->banco:=m_banco, _field->cli_forn:=m_cli_forn, _field->Cr_Cgc:=m_Cr_Cgc, _field->Cr_Nome:=m_Cr_Nome, _field->NCHEQUE:=m_NCHEQUE, _field->Agencia:=m_Agencia, _field->CCorrente:=m_CCorrente, _field->DESCRICAO:=m_DESCRICAO,DbCommit(),DbUnlock())
   endif
#FIM_TEXTO_FONTE

//Function pre_rldep()
//if x_operacao=1
//   m_tipodoc=w_tipodoc
//else
//   w_dataemi:=dataemi
//   m_banco:=banco
//   m_agencia:=agencia
//   m_ccorrente:=ccorrente
//endif
//if w_totrel>0
//   if ct_conta->( dbseek( str(m_banco,3)+m_agencia+m_ccorrente ) )
//      w_conta := ct_conta->( recno() )
//   endif
//endif
//rldep_status()
//return

//      Function bc_chq_c
//      return if( ct_banco->( dbseek(ct_mov->banco_cli) ) , "("+strzero(ct_mov->banco_cli,3)+"-"+ct_banco->abrev+") CHQ"+str(ct_mov->ncheque,6), "")


//* ----------------------------------------------------------------------------
//* Funcao para complementar informacoes apos gravacao de lancamento de relacao de deposito
//* ----------------------------------------------------------------------------
//Function pos_rldep()
//   sele ct_rldep
//   if reglock()
//      repl numero with w_rldep
//      repl banco with m_banco, agencia with m_agencia, ccorrente with m_ccorrente, abrev with m_abrev
//      repl dataemi with w_dataemi, tipodoc with m_tipodoc
//      repl recno_mov with m_recno_mov, valor with m_valor
//      repl ncheque with ct_mov->ncheque, bomparadia with ct_mov->bomparadia
//      repl sitcheque with ct_mov->sitcheque, doc with ct_mov->doc
//      repl cr_nome with ct_mov->cr_nome, cr_cgc with ct_mov->cr_cgc
//      if x_operacao=1
//         *- grava_dep()
//         w_totrel:=w_totrel+m_valor
//         if m_tipodoc="C"
//            w_ncheq:=w_ncheq+1
//         else
//            w_totesp:=w_totesp+m_valor
//         endif
//         rldep_status()
//      elseif x_operacao=2
//         *- cancela_dep()
//         *- grava_dep()
//      elseif x_operacao=3
//         *- cancela_dep()
//      endif
//   endif
//   commit
//   unlock all
//   sele ct_rldep
//return .t.

:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 1; 3;Data da inclusao na relacao:;D; 8;DATAEMI;(m_DATAEMI:=if(x_operacao=1,s_datual,m_DATAEMI),.t.);x_operacao=1;;;;N;; 0; 0;;;
 1; 2; 3;Codigo de Acesso do Cheque.:;N; 6;recno_mov;999999;;Chk_LastKey(5).or.(psq_brow().and.eVal(zbCheqOk));CT_MOV;PCTMOV;N;N;;
 
 1; 4; 3;Valor do Cheque:;N;10;VALOR;9999999.99;.f.;;
 1; 5; 3;Bom Para Dia...:;D; 8;Bomparadia;99.99.99;.f.;;

 1; 7; 3;Cliente.......:;N; 5;cli_forn;99999;;m_cli_forn=0.or.(psq_brow().and.sccrcli->(m_cr_cgc:=if(empty(m_cr_cgc),cr_cgc,m_cr_cgc),m_cr_nome:=if(empty(m_cr_nome,cr_nome,m_cr_nome)),RefreshGetlist()));SCCRCLI;PSCCRCLI;N;N;8;30;CR_NOME;@S30;
 1; 8; 3;CPF Emitente..:;C;18;Cr_Cgc;@S18;;;
 1; 9; 3;Nome Emitente.:;C;30;Cr_Nome;@S35;;;

 1;11; 3;Leitura CMC7..:;P;34;m_cmc7;@s34;;Chk_LastKey(5).or.eval(zbChkCmc7);;;
 
 1;12; 3;Banco ........:;N; 3;BANCO;999;;
 1;13; 3;No do Cheque..:;N; 6;NCHEQUE;999999;.f.;;
 1;14; 3;Agencia.......:;C; 4;Agencia;9999;;
 1;15; 3;Conta Corrente:;C; 8;CCorrente;99999999;;

 1;17; 3;Comentario....:;C;30;DESCRICAO;@S30;;;