Como criar um recibo de venda a partir de um aplicativo Delphi

A linguagem de programação Delphi, ou Turbo Pascal, se tornou um ponto de partida para muitos desenvolvedores. Graças à sintaxe simples e clara e à capacidade de escrever em um estilo procedural, acabou sendo muito fácil de aprender. Muitos o comparariam com o Visual Basic, mas no auge de sua popularidade o Delphi deu muito mais oportunidades graças aos componentes para o trabalho com bancos de dados e seu próprio banco de dados - Interbase.

Apesar de C# e a plataforma .Net terem substituído Delphi e VCL, ainda existe um grande número de seus adeptos. Mesmo aplicativos antigos escritos nesta linguagem podem ser facilmente atualizados usando bibliotecas modernas, por exemplo, o gerador de relatórios FastReport 6 VCL. Por exemplo, sistemas de contabilidade automatizados precisam de relatórios.

Um sistema automatizado de contabilidade de vendas deve permitir a formação de documentos de pagamento, como um recibo de venda. Neste artigo, veremos como criar e imprimir um recibo de venda a partir de um aplicativo Delphi. Usaremos o gerador de relatórios FastReport VCL para criar o próprio recibo e um aplicativo de usuário para imprimi-lo. Além de imprimir, você pode simplesmente exibir seu recibo na janela de exibição de relatório, na qual você pode imprimir o recibo, salvá-lo em um dos formatos de documento mais comuns, enviá-lo por e-mail ou carregá-lo para armazenamento em nuvem.

Para criar um recibo de venda, precisamos das informações sobre: pedido, cliente, vendedor e conteúdo do pedido.

Neste exemplo, usaremos o banco de dados demo.mdb da distribuição FastReport VCL.

Para criar a aplicação, usaremos o ambiente de desenvolvimento Delphi 7.

Vamos adicionar dois botões ao formulário: um para executar o designer de relatório, outro para exibir ou imprimir o relatório concluído. Adicione o componente OpenDialog ao formulário também - isso nos permitirá selecionar o arquivo de relatório desejado para abrir.

Agora, vamos prosseguir para a criação de uma fonte de dados para o relatório - recibo de venda. Conforme mencionado acima, utilizamos o banco de dados demo.mdb, ou mais precisamente as tabelas: Pedidos, Clientes, Itens, Peças e Funcionário. Usaremos o componente ADOConnection para conectar ao banco de dados e os componentes ADOTable para obter dados de cada tabela. A tabela Pedidos está vinculada às tabelas Clientes, Itens e Funcionários. Portanto, precisamos configurar essas conexões. Para isso, adicione um componente DataSource para cada ADOTable e para disponibilizar todas essas tabelas no relatório, adicione o componente frxBDDataSet para cada tabela.

Assim, para trabalhar com uma tabela, devemos obter três componentes: ADOTable, DataSource, frxDBDataSet.

Em ADOConnection, crie uma conexão com o banco de dados demo.mdb a partir da entrega do FastReport VCL.

As configurações desses componentes (para cada uma das cinco tabelas) estão abaixo.

Tabela Orders:

1. Para ADOTable, set as propriedades:

− Connection – ADOConnection1;
− Name – Orders;
− TableName – orders.

2. Para DataSource, set as propriedades:

− DataSet – Orders.

3. Para frxDBDataSet, set as propriedades:

− DataSet – Orders;

− UserName – Orders.

Tabela Customers:

1. Para ADOTable, set as propriedades:

− Connection – ADOConnection1;

− Name – Customer;

− IndexFieldnames – CustNo;

− MasterSource – DataSource1;

− MasterFields - CustNo

− TableName – customer.

2. Para DataSource, set as propriedades:

− DataSet – Customer.

3. For frxDBDataSet, set the properties:

− DataSet – Customer;

− UserName – Customer.

Tabela Items:

1. Para ADOTable, set as propriedades:

− Connection – ADOConnection1;

− Name – Items;

− IndexFieldnames – OrderNo;

− MasterSource – DataSource1;

− MasterFields - OrderNo

− TableName – items.

2. Para DataSource, set as propriedades:

− DataSet – Items.

3. Para frxDBDataSet, set as propriedades:

− DataSet – items;

− UserName – Items.

Tabela Parts:

1. Para ADOTable, set as propriedades:

− Connection – ADOConnection1;

− Name – Parts;

− TableName – parts.

2. Para DataSource, set as propriedades:

− DataSet – Parts.

3. Para frxDBDataSet, set as propriedades:

− DataSet – Parts;

− UserName – Parts.

Tabela Employee:

1. Para ADOTable, set as propriedades:

− Connection – ADOConnection1;

− Name – Employee;

− IndexFieldnames – EmpNo;

− MasterSource – DataSource1;

− MasterFields - EmpNo

− TableName – employee.

2. Para DataSource, set as propriedades:

− DataSet – Employee.

3. Para frxDBDataSet, set as propriedades:

− DataSet – Employee;

− UserName – Employee.

As tabelas Customer, Items e Employee têm uma relação com DataSource1 (a primeira tabela - Pedidos). Eles são vinculados por chave de forma que para um registro na tabela Pedidos os registros correspondentes dessas tabelas sejam selecionados.

A tabela Itens contém informações sobre os itens do pedido. Não há dados específicos sobre o item - apenas um link para a tabela de peças. Vamos adicionar dois campos da tabela Peças - Preço e Descrição - à tabela ADOT para a tabela Itens. Portanto, não precisamos usar a tabela de peças no futuro.

Para adicionar os campos computáveis à tabela de Itens, clique duas vezes no objeto ADOTable e veja uma janela com os campos da tabela. Inicialmente está vazio, mas você pode carregá-los a partir do menu de contexto selecionando Adicionar campos…:

Os campos Price e Description serão obtidos da tabela parts.

Select New field… no menu content e acrescente o campo Price:

Acrescente a descrição do produto (campo Description) tda mesma forma:

Agora, assim que criamos a fonte de dados e configuramos os relacionamentos entre as tabelas, vamos adicionar alguns botões ao formulário. Como você deve se lembrar, o primeiro botão inicia o designer de relatório e o segundo exibe o relatório.

Não se esqueça de adicionar o componente frxReport ao formulário.

Adicione um evento de clique para cada um dos botões. Aqui está o código do manipulador de eventos para exibir o designer de relatório:

1

frxReport1.DesignReport();

Para imprimir o relatório finalizado, você pode adicionar a caixa de diálogo Abrir Arquivo ao formulário para selecionar o relatório criado no designer. O código para imprimir o relatório será assim:

1
2
3
4
5
6
7
8

OpenDialog1.Filter := 'FastReport VCL (*.fr3)|*.FR3';
 OpenDialog1.Execute();
 if Length(OpenDialog1.FileName)>0 then
 begin
 frxReport1.LoadFromFile(OpenDialog1.FileName);
 frxReport1.PrepareReport();
 frxReport1.Print();
end

Se você precisar visualizar o relatório, pode substituir a função Imprimir pela exibição do Relatório:

1

 frxReport1.ShowReport();

Agora você pode executar o aplicativo, clique no botão Projetar relatório e prossiga para a criação do relatório.

Em primeiro lugar, selecione os datasets.

Não precisamos da tabela Partes neste relatório, portanto, não há necessidade de selecioná-la. Vamos prosseguir para a criação do modelo. Existem duas bandas de dados em nosso relatório: MasterData e DetailData. Na primeira banda de dados, geramos as informações sobre o client:

• name - Customer.Company;
• address - Customer.Addr1;
• phone - Customer.Phone.

…e de customer:

• company name;
• employee – Employee.FirstName Employee.Last Name;
• order number – Orders.OrderNo;
• sale date – Orders.SaleDate.

Esta banda está vinculada à tabela Pedidos. As informações de conteúdo do pedido serão exibidas em uma faixa de dados subordinada: nome do produto, quantidade, preço do item, preço para a quantidade especificada.

Totais - como o valor líquido total, taxa de imposto, valor final incluindo imposto - serão exibidos no rodapé.

Os subtotais do total da linha são calculados multiplicando a quantidade e o preço do item como parte de uma única entrada da tabela:

[<Items."Qty">*<Items."Price">]

Os subtotais líquidos são calculados pela fórmula:

∑(item quantity * item price)

[SUM(<Items."Qty">*<Items."Price">)]

Valor total do imposto:

∑(item quantity* item price * tax rate)

[SUM(<Items."Qty">*<Items."Price">)*0.05]

Total devido:

∑(item quantity * item price)+ ∑( item quantity * item price * tax rate)

[SUM(<Items."Qty">*<Items."Price">) + SUM(<Items."Qty">*<Items."Price">)*0.05]

Além disso, o método de pagamento é refletido no rodapé da base de dados. Espera-se que seja especificado ao imprimir um recibo de venda manualmente.

Aqui podemos dizer que nosso relatório está pronto para exibição. Salve-o no armazenamento local e feche o designer de relatórios. Usando o segundo botão no formulário, selecione o relatório salvo e imprima (se você usou a opção de impressão no código) ou visualize-o se você escolheu a opção de visualização do relatório - ShowReport().

É isso. Com pouco esforço, você pode implementar funcionalidades úteis para seu sistema de contabilidade. Agora, na janela de visualização do relatório, você pode imprimi-lo ou salvá-lo em um dos formatos de documento populares: PDF, DOCS, XLSX, XML, RTF e muitos outros.