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 https://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 (
CNPJVARCHAR(18) NOT NULL,
FANTASIA VARCHAR(20) NOT NULL,
RAZAOVARCHAR(150),
IEVARCHAR(18) NOT NULL,
ENDERECOVARCHAR(100),
BAIRROVARCHAR(50),
COMPLEMENTO VARCHAR(30),
CIDADEVARCHAR(50),
ESTADOVARCHAR(2),
CEPVARCHAR(9),
TELEFONEVARCHAR(15),
FAXVARCHAR(15),
DT_CADASTRO TIMESTAMP,
STATUSVARCHAR(1),
DT_ALTERACAO TIMESTAMP);
CREATE TABLE CONTAS (
BANCOINTEGER NOT NULL,
AGENCIAVARCHAR(10) NOT NULL,
CONTAVARCHAR(10) NOT NULL,
NOME_AGENCIA VARCHAR(30),
NOME_CONTAVARCHAR(30),
ENDERECOVARCHAR(100),
BAIRROVARCHAR(50),
COMPLEMENTO VARCHAR(30),
CIDADEVARCHAR(50),
ESTADOVARCHAR(2),
CEPVARCHAR(9),
TELEFONEVARCHAR(15),
FAXVARCHAR(15),
DT_CADASTRO TIMESTAMP,
CONTATOVARCHAR(50),
STATUSVARCHAR(1),
DT_ALTERACAO TIMESTAMP);
CREATE TABLE FORNECEDORES (
CNPJVARCHAR(18) NOT NULL,
FANTASIAVARCHAR(20) NOT NULL,
RAZAOVARCHAR(150),
IEVARCHAR(18) NOT NULL,
" [...] continue lendo...
