Artigo Clube Delphi 90 - Contas a Pagar e Cobrança - Parte 4

Mini-curso

Contas a Pagar e Cobrança

Crie um sistema completo com Delphi, Firebird 2.0 e dbExpress - Parte 4

Chegamos a quarta parte do nosso mini-curso Sistema de Contas a Pagar e Cobrança onde estamos vendo alguns dos principais recursos em aplicações dessa natureza. Uma aplicação de contas a pagar e cobrança não se resume apenas em entradas e saídas de caixa. Deve-se pensar também em fluxo de caixa e geração de boletos bancários para cobrança, um dos carros-chefe da aplicação.

Para iniciarmos nosso artigo, veremos rapidamente o que foi criado no exemplo anterior:

·         Cadastro de contas a receber;

·         Manutenção do Data Module principal para criação da tabela Contas_Receber;

·         Criação do recurso de duplicação de contas parceladas;

Daremos continuidade ao curso entendendo e desenvolvendo outro recurso bastante importante: Geração de texto para Cobrança Escritural. Nesse artigo veremos como fazer a geração do arquivo texto para envio à instituição bancária que por sua vez se encarregará de gerar os boletos e envio dos mesmos efetuando desta forma a cobrança bancária.

Alterando o banco de dados de exemplo

Diferentemente dos artigos anteriores não precisaremos criar tabelas. Dessa vez criaremos uma Stored Procedure selecionável que resultará os dados necessários para geração dos arquivos de remessa.

Uma Stored Procedure selecionável é basicamente uma função criada no banco de dados capaz de preencher um ou mais parâmetros de saída que posteriormente serão usados pela aplicação Delphi como se fosse uma tabela comum.

Nossa Stored Procedure fará um filtro na tabela de contas a receber usando como parâmetros de entrada duas datas. Essas datas serão usadas na cláusula Where da SP (“Stored Procedure”) onde faremos o filtro no campo DT_VECTO, ou seja, filtraremos todos os registros de contas a receber que estejam entre as duas datas recebidas.

Será levado em consideração também se o registro é diferente de “I” (“inativo”) e “B” (“baixado”). Assim evitamos enviar um título inativo por meio de cancelamento/exclusão ou ainda que tenha sido liquidado (“baixado”).

Para criar nossa SP selecionável abra o IBExpert e conecte-se a base de dados de exemplo SysPague. Em seguida clique com o botão direito em Procedure e selecione New Procedure. Repare que o IBExpert exibe, em seu editor, uma divisão onde encontramos os botões Input Parameters, Output Parameters, Variables e Cursor. E mais acima podemos ver uma área vazia com os títulos Name, Type, Size, Scale, Default Source, Subtype, Charset e Description. É nessa área que criaremos os parâmetros de entrada (“Input Parameters”) e saída (“Output Parameters”) que por sinal se assemelha bastante com a criação de campos em uma tabela.

Pois bem, clique em Input Parameters e com o botão direito do mouse na área vazia selecione a opção Append parameter/variable ou localize este botão logo acima dessa área e clique-o. Um novo parâmetro será criado, agora basta modificar seu Name para “DT_INICIO” e seu "

A exibição deste artigo foi interrompida.

  Este é um post disponível para assinantes MVP

Este post também está disponível para assinantes da ClubeDelphi DIGITAL
ou para quem possui Créditos DevMedia.  Clique aqui para saber mais!

Saiba como acessar este post através de Créditos DevMedia:

Assinatura de Créditos – Aqui este post custa R$ 1,47
Com esse plano você compra R$ 180,00 em créditos e ganha, em média, 80% de desconto no preço do post.  
Assine agora

Plano ocasional - Aqui este post custa: R$ 1,96 (assinante) ou R$ 2,45 (não-assinante)
Você compra um mínimo de R$ 60,00 em créditos e ganha, em média, 50% de desconto no preço do post.  
Compre agora

Plano conveniência – Neste plano este post custa R$ 4,90
Neste plano você compra somente um post, pagando seu preço sem desconto.  
Compre agora