CONTAS A RECEBER / PAGAR

bom segue imagem da tela , lembrando que vamos fazer a construção das rotinas de consultas uma a uma. Vc so precisa deixa a tela aqui.

CONTAS A RECEBER / PAGAR

Bom pra ficar mais rapido a nossas contrução vamos fazer o seguinte :
Vc ja tem o cadastro de cliente criado entao coloque alguns dados neles .
!!
Vamos criar outra tabela para interagir com essa nas consultas que iremos fazer.
tcontasareceber segue script :

CREATE TABLE tcontasareceber
(
numcontrole serial NOT NULL,
numconta character varying(20),
numtit integer DEFAULT 0,
situacao character varying(1) DEFAULT '1'::character varying,
dataconta timestamp without time zone,
prazo integer DEFAULT 0,
datavencimento timestamp without time zone,
datapagamento timestamp without time zone,
datarecebimento timestamp without time zone,
datadevrec timestamp without time zone,
ndeparc integer DEFAULT 0,
parcinicial integer DEFAULT 0,
codcliente integer DEFAULT 0,
valorconta numeric DEFAULT 0,
valorjuros numeric DEFAULT 0,
percjuros numeric DEFAULT 0,
valorpago numeric(15,2) DEFAULT 0,
valordesconto numeric DEFAULT 0,
pdescvencimento numeric DEFAULT 0,
entrada numeric DEFAULT 0,
dataentrada timestamp without time zone,
numbanco character varying(10),
nomedobanco character varying(50),
numagencia character varying(10),
numcheque character varying(15),
numcontacorrente character varying(20),
numcartao character varying(30),
nomecartao character varying(30),
validadecartao timestamp without time zone,
obs text,
codcobrador integer DEFAULT 0,
dataparacobranca timestamp without time zone,
dataaver timestamp without time zone,
valoraver numeric DEFAULT 0,
tipocobranca integer DEFAULT 1,
ccorrente character varying(10),
diastolerancia integer DEFAULT 0,
perccobranca numeric(15,2) DEFAULT 0,
CONSTRAINT tcontasareceber_pkey PRIMARY KEY (numcontrole)
)
WITH (
OIDS=FALSE
);
ALTER TABLE tcontasareceber OWNER TO postgres;

-- Index: "tcontasareceber_por cliente"

-- DROP INDEX "tcontasareceber_por cliente";

CREATE INDEX "tcontasareceber_por cliente"
ON tcontasareceber
USING btree
(codcliente);

-- Index: "tcontasareceber_por conta"

-- DROP INDEX "tcontasareceber_por conta";

CREATE INDEX "tcontasareceber_por conta"
ON tcontasareceber
USING btree
(numconta);

-- Index: "tcontasareceber_por vencimento"

-- DROP INDEX "tcontasareceber_por vencimento";

CREATE INDEX "tcontasareceber_por vencimento"
ON tcontasareceber
USING btree
(datavencimento);

Cadastros de Clientes 03

Bom seguinte nao vou entra na questao de criar a tela de cadastro vou apenas mostras como deve esta a parte grafica, lembrando que vc pode fazer de qual quer forma :

MAIS OS CODIGOS DOS BOTÕES DE INSERIR, EDITAR,EXCLUIR , IMPRIMIR TODOS SERAO POSTADOS AQUI !

SEGUINDO !!

Instalação do zeos

1- Baixe no link http://zeos.firmos.at/downloads.php?sid=6ddc3a6bfba988ac1355bf82021fbad4
2 - Crie uma pasta chamada Zeos7 dentro da pasta Lib do RAD Studio. Por exemplo, meu RAD Studio esta em C:\Program Files\CodeGear\RAD Studio\6.0\lib, então meu diretório base será: C:\Program Files\CodeGear\RAD Studio\6.0\lib\zeos7
3 - Descompacte os arquivos dentro do diretório recem criado no ítem 2.
4 - Com o Delphi 2009/2010 aberto, vá em File -Open Project (Ctrl+F11) e abra o arquivo ZeosDbo.GroupProj, dentro de C:\Program Files\CodeGear\RAD Studio\6.0\lib\zeos7\packages\delphi12
5 - Vá ao menu Project - Build All Projects
6 - Antes de continuar, se você estiver usando o Windows Vista ou Windows 7 com o UAC habilitado, você terá que dar permissão TOTAL para a pasta Zeos7 criada, caso contrário não irá funcionar.
7 - Agora, antes da instalação vá ao menu Tools - Options - Evironment Options - Delphi Options - Library - Win 32 e adicione o caminho a seguir no Library Path: $(BDS)\lib\Zeos7\packages\delphi12\build
8 - Feito isto, minimize o Delphi, abra o diretório C:\Program Files\CodeGear\RAD Studio\6.0\lib\zeos7\packages\delphi12\build, selecione todos os arquivos ".bpl" copie-os e cole-o dentro da pasta Bpl do RAD Studio: C:\Users\Public\Documents\RAD Studio\6.0\Bpl
9 - Volte ao Delphi vá ao menu View - Project Manager (Ctrl + Atl + F11). Selecione e compile as bpls abaixo, uma a uma. Para compilar, clique com o botão direto sobre o bpl. É a primeira opção.

- ZCore120.Bpl
- ZPlain120.Bpl
- ZParseSql120.Bpl
- ZDbc120.Blq
- ZComponent120.Bpl
- ZComponentDesign120.Bpl

10 - Depois de compiladas, clique com o botão direito sobre o pacote ZComponentDesign120.Bpl (o único em negrito) e clique em Install.
11 - Pronto, feche tudo (File - Close All). Crie um novo projeto e veja que os componentes já podem ser utilizados.

Cadastros de Clientes 02

bom primeira coisa e entender como o Delphi vai fazer para ver os dados no postgresql
entao e o seguinte , vamos usar o COMPONENTE ZEOS , que acessa diretamente a base.
isso mesmo diretamente a base , portando podemos usar as view com mais qualidade .
entao procere ante intender como se usa o zeos , ok ,

no link : http://genivaldolima.blogspot.com/2010/05/instalacao-do-zeos.html


seguindo ,
entao a primeira coisa e lembra que o postgresql trabalho com o pouco mais de requinte em relação as consultas .entao e bom dar uma linda sobre o tipo acesso aos dados no postgresql
link: http://pgdocptbr.sourceforge.net/pg80/sql-set-transaction.html
lembrando que vamos usar sempre READ COMMITTED .

Cadastros de Clientes 01

vamos La!

Bom partindo do principio de que o cadastro de uma pessoa tem que conte todos os principais dados, segue o modelo que estou usando para fazer o erp ,. use o sql para gerar a tabela para nao perdemos temos: "Lembrando que esse primeiro modelo vamos fazer no postgresql "
CREATE TABLE tclientes
(
codcliente serial NOT NULL,
apelido character varying(30),
nomecliente character varying(255) NOT NULL,
sexo integer DEFAULT 0,
enderecocliente character varying(50),
bairrocliente character varying(30),
referencia character varying(100),
correio boolean,
cepcliente character varying(15),
cidadecliente character varying(50),
estadocliente character varying(2),
cpfcliente character varying(30),
rgcliente character varying(25),
datarg timestamp without time zone,
fonecliente character varying(40),
mododemoradia character varying(20),
valoraluguel numeric DEFAULT 0,
faxcliente character varying(14),
cgccliente character varying(30),
insccliente character varying(30),
cxpostal character varying(5),
instrucao integer DEFAULT 0,
contato character varying(30),
enderecodecobranca character varying(50),
obs text,
estadocivil integer DEFAULT 0,
conjugue character varying(50),
trabconjugue character varying(30),
filhos integer DEFAULT 0,
nomesfilhos text,
profissconjugue character varying(20),
rgconjugue character varying(20),
cpfconjugue character varying(20),
datanascimento timestamp without time zone,
naturalidade character varying(30),
profissao character varying(30),
empresatrabalho character varying(30),
enderecotrabalho character varying(50),
cargotrabalho character varying(30),
telefoneempresa character varying(30),
tempodetrabalho character varying(15),
rendimento numeric DEFAULT 0,
nomedopai character varying(50),
nomedamae character varying(50),
enderecopais character varying(50),
nomeavalista character varying(50),
foneavalista character varying(15),
enderecoavalista character varying(50),
trabalhoavalista character varying(30),
endtrabavalista character varying(50),
fonetrabalhoaval character varying(15),
spc boolean,
dataspc timestamp without time zone,
destinospc character varying(30),
datacadastro timestamp without time zone,
televisao character varying(15),
novela character varying(50),
programalocal character varying(200),
radios integer DEFAULT 0,
prefvestuario character varying(30),
prefcalcado character varying(30),
cartaodecredito character varying(20),
email character varying(50),
limdecredito integer DEFAULT 1,
valorlimite numeric DEFAULT 0,
codsetor integer DEFAULT 0,
codconvenio integer DEFAULT 0,
numchapa character varying(8),
clienteespecial boolean,
clienteinativo boolean,
datainativo timestamp without time zone,
datacobranca timestamp without time zone,
refpessoalnome character varying(100),
refpessoalendereco character varying(100),
refpessoalbairro character varying(30),
refpessoalcidade character varying(30),
refpessoalfone character varying(30),
parentenome character varying(100),
parenteendereco character varying(100),
parentebairro character varying(30),
parentecidade character varying(50),
parentefone character varying(30),
refcomercialnome1 character varying(100),
refcomercialnome2 character varying(100),
refcomercialnome3 character varying(100),
numconsulta bigint DEFAULT 0,
dataconsulta date,
empresatrabconj character varying(200),
funcaotrabconj character varying(50),
salarioconj numeric(15,2) DEFAULT 0,
enderecotrabconj character varying(200),
cidadetrabconj character varying(100),
fonetrabconj character varying(50),
datanascconj date,
datasaidaspc date,
CONSTRAINT tclientes_pkey PRIMARY KEY (codcliente)
)
WITH (
OIDS=FALSE
);
ALTER TABLE tclientes OWNER TO postgres;

-- Index: tclientes_pornome

-- DROP INDEX tclientes_pornome;

CREATE INDEX tclientes_pornome
ON tclientes
USING btree
(nomecliente);

COMEÇANDO UM ERP COMPLETO DELPHI / POSTGRESQL

1. DESCRIÇÃO

ERP (Enterprise Resource Planning) são sistemas automatizados que abrangem pessoas, máquinas e métodos organizados para coletar, processar, transmitir e disseminar dados que representam informação para o usuário,integrando todos os dados e processos de uma organização em um único sistema. Em geral, ERP é uma plataforma de software desenvolvida para integrar diversos departamentos de uma empresa possibilitando a automação e armazenamento de todas as informações de negócios .
Bom Vamos utilizar neste primeiro momento o seguinte :

• Banco de dados Postgresql
• Delphi 2007 ou 2009
• Rave Report
• Banco de Dados Firebird

Bom é isso !! então mãos a obra!

Ah ! os mudulos que criaremos serão :

• Cadastros Gerais
• Compras
• Vendas
• Estoque
• Orçamentos
• Boletos
• Relatorios Gerais / analiticos e sinteticos