CT_DEB;Cheques Emitidos;skip_blk(x); 5; 2;21;79;padrao;;
:SKEL
VARIAVEL m_cadastro = "CT_DEB"
VARIAVEL w_mensagem = "Sem Lancamentos de Pagamentos com Cheques"
VARIAVEL w_chave = "3"
VARIAVEL w_block = {|| w_chave <> tl }
COMANDO ANTES Ct_Mov->(DbCloseArea())
COMANDO ANTES ABRA("1",R_SIGA,CT_MOV,"CT_MOV",CT_MOV,"TL+DTOS(BOMPARADIA)+SITCHEQUE",CT_MOV-"CC","STR(CLI_FORN,5)+DTOS(BOMPARADIA)",CT_MOV-"NC","STR(NCHEQUE,6)+STR(CLI_FORN,5)+TL+STR(VALOR,10,2)")
:TBFI
Cheque;NCHEQUE;N;;6;;
BomPara;BOMPARADIA;D;;8;;
Sit;SitCheque;C;;1;;
Valor;VALOR;N;99999.99;8;;
Comentario;DESCRICAO;C;@S30;30;;
Bco;BANCO;N;;  3;;
Obs;OBS;C;; 30;;
Emissao;DATA;D;;  8;;
Conta;CCORRENTE;C;; 10;;
Agenc;AGENCIA;C;;  5;;
DataDep;DataDeposI;D;;  8;;
