Artigo Clube Delphi 87 - Contas a Pagar e Cobrança

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (4)  (0)

Crie um sistema completo com Delphi, Firebird 2.0 e dbExpress. Neste artigo, criaremos os principais cadastros que farão parte do exemplo, como: Clientes, Fornecedores e Contas Correntes.

Esse artigo faz parte da revista Clube Delphi Edição 87. Clique aqui para ler todos os artigos desta edição

Mini-curso

Contas a Pagar e Cobrança

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

 

Bem-vindos ao novo mini-curso da ClubeDelphi, onde o leitor aprenderá como criar um sistema completo de gerenciamento de contas a pagar e receber, com emissão de boletos bancários, baixa de pagamentos, fluxo de caixa, impressão de cheques e uma série de outros recursos encontrados nesse tipo de sistema.

O sistema que criaremos terá como principal objetivo proporcionar ao usuário o controle total de contas a pagar e a receber, ou seja, será possível adicionar contas de luz, telefone, água, gastos com office-boy, compra de equipamentos etc.

Da mesma forma, o usuário poderá incluir as faturas que tem a receber de seus clientes, processo esse que chamaremos de Cobrança. Com essas informações no sistema, sempre atualizadas, poderemos emitir relatórios, gráficos, boletos bancários e fluxo de caixa para o acompanhamento das contas correntes.

Neste artigo, criaremos os principais cadastros que farão parte do exemplo, como: Clientes, Fornecedores e Contas Correntes.

 

Metodologia

O exemplo deste artigo utiliza a arquitetura cliente/servidor. Para mais informações sobre essa arquitetura e outras, visite http://www.devmedia.com.br/articles/viewcomp.asp?comp=5219

 

Criando o banco de dados

Para iniciar o projeto, vamos primeiramente criar o banco de dados e as tabelas necessárias para cada tela de cadastro. As tabelas são: Clientes, Fornecedores e Contas. Neste artigo, criaremos o banco de dados utilizando a ferramenta IBExpert em sua versão Standard. Por isso, acesse o link www.ibexpert.com e em seguida entre no item IBExpert.

 

ClubeDelphi PLUS!

Acesse agora o mesmo o portal do assinante ClubeDelphi e assista a uma vídeo aula de Luciano Pimenta que mostra como baixar e instalar o IBExpert em sua versão gratuita.  

www.devmedia.com.br/articles/viewcomp.asp?comp=3082

 

À esquerda do site do fabricante clique em Download>Free. Preencha o formulário de cadastro e aguarde o e-mail com as instruções de download da ferramenta. Após isso, abra o IBExpert e vamos criar o banco de dados usando a opção Script Executive presente no menu Tools.

Com a tela de scripts aberta, digite o código da Listagem 1. Nele estão contidos os esquemas para a criação do banco de dados assim como de cada tabela do sistema. Digitado o script, basta executá-lo usando o botão Run Script ou pressione a tecla F9.

 

Nota: Substitua <Caminho>\SYSPAGUE.FDB pelo diretório do banco de dados e seu nome, ex: C:\BancoDeDados\SysPague.fdb.

 

Listagem 1. Criação do banco, tabelas e índices

SET SQL DIALECT 3;

SET NAMES WIN1252;

 

CREATE DATABASE '<Caminho>\SYSPAGUE.FDB'

USER 'SYSDBA' PASSWORD 'masterkey'

PAGE_SIZE 8192

DEFAULT CHARACTER SET WIN1252;

 

CREATE TABLE CLIENTES (

  CNPJ          VARCHAR(18) NOT NULL,

  FANTASIA      VARCHAR(20) NOT NULL,

  RAZAO         VARCHAR(150),

  IE            VARCHAR(18) NOT NULL,

  ENDERECO      VARCHAR(100),

  BAIRRO        VARCHAR(50),

  COMPLEMENTO   VARCHAR(30),

  CIDADE        VARCHAR(50),

  ESTADO        VARCHAR(2),

  CEP           VARCHAR(9),

  TELEFONE      VARCHAR(15),

  FAX           VARCHAR(15),

  DT_CADASTRO   TIMESTAMP,

  STATUS        VARCHAR(1),

  DT_ALTERACAO  TIMESTAMP);

 

CREATE TABLE CONTAS (

  BANCO         INTEGER NOT NULL,

  AGENCIA       VARCHAR(10) NOT NULL,

  CONTA         VARCHAR(10) NOT NULL,

  NOME_AGENCIA  VARCHAR(30),

  NOME_CONTA    VARCHAR(30),

  ENDERECO      VARCHAR(100),

  BAIRRO        VARCHAR(50),

  COMPLEMENTO   VARCHAR(30),

  CIDADE        VARCHAR(50),

  ESTADO        VARCHAR(2),

  CEP           VARCHAR(9),

  TELEFONE      VARCHAR(15),

  FAX           VARCHAR(15),

  DT_CADASTRO   TIMESTAMP,

  CONTATO       VARCHAR(50),

  STATUS        VARCHAR(1),

  DT_ALTERACAO  TIMESTAMP);

 

CREATE TABLE FORNECEDORES (

  CNPJ          VARCHAR(18) NOT NULL,

  FANTASIA      VARCHAR(20) NOT NULL,

  RAZAO         VARCHAR(150),

  IE            VARCHAR(18) NOT "

A exibição deste artigo foi interrompida :(
Este post está disponível para assinantes MVP

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?