Autor: Daniel Morais

Esta semana eu precisei fazer um gráfico dos 10 produtos mais vendidos de uma empresa. Utilizei a expressão Limit na Sql para limitar apenas a quantidade de registros (10 registros) que eu estava precisando e estava dando erro. Depois de algum tempo de pesquisa, entendi o erro.
A expressão Limit que eu utilizava em PostgreSQL é incompatível com o Firebird. No Firebird temos que utilizar a expressão First, Exemplo:

SELECT FIRST 10 cup_item.produto, cup_item.descricao, SUM(cup_item.qtde) as Quantidade,cup_item.unitario,
  SUM(cup_item.total), grupo.descricao as Desc_gru
FROM  produto, cup_venda, cup_item, grupo
WHERE  produto.codigo=cup_item.produto
AND cup_item.id_venda=cup_venda.id_venda
AND produto.grupo=grupo.codigo
AND cup_venda.data >= :dInicio
AND cup_venda.data <= :dFinal
GROUP BY  cup_item.produto, cup_item.descricao, Desc_gru, cup_item.unitario
ORDER BY  quantidade desc

Exemplo em PostgreSQL com o comando Limit:

SELECT cup_item.produto, cup_item.descricao, SUM(cup_item.qtde) as Quantidade,cup_item.unitario,
  SUM(cup_item.total), grupo.descricao as Desc_gru
FROM  produto, cup_venda, cup_item, grupo
WHERE  produto.codigo=cup_item.produto
AND cup_item.id_venda=cup_venda.id_venda
AND produto.grupo=grupo.codigo
AND cup_venda.data >= :dInicio
AND cup_venda.data <= :dFinal
GROUP BY  cup_item.produto, cup_item.descricao, Desc_gru, cup_item.unitario
ORDER BY  quantidade desc
LIMIT 10

Então se na nossa tabela existir milhares de registros, não importa, pois só serão exibidos os 10 registros determinados pelo comando Limit ou First.

Para quem esta desenvolvendo softwares para emissão de boletos do Banco do Brasil e quer uma mãozinha no calculo do digito verificador do campo NOSSO NÚMERO de 11 posições, esta ai uma função que criei em Delphi que esta rodando direitinho:

Comando: CalculaDV11bb(<nosso numero>)
Como parâmetro você deve passar o NossoNumero e a função vai retornar o digito verificador, exemplo:

DigitoVerificador.text  := CalculaDV11BB(NossoNumero.text);

  Função:

function TForm1.CalculaDV11BB(cCONTA:string):string;
{cálculo do dígito verificador do nosso número de 11 posições
utilizado para gerar os boletos do banco do Brasil
Criado por Dane Morais – danegd@gmail.com}
var
  cMultiplicador : string;
  nResult2       : integer;
  nParcial       : integer;
  nX             : integer;
begin
  cMultiplicador := ‘78923456789’;
  nX  := 0;
  nParcial := 0;
  nResult2 := 0;
  for nX := 1 to 11 do
       nParcial := nParcial+ (StrToInt(copy(cConta,nX,1)) * StrToInt(copy(cMultiplicador,nX,1))) ;    nResult2 := (nParcial mod 11);
   if nResult2 < 10 then
      result := IntToStr(nResult2);
   if nresult2 = 10 then
      result := ‘X’;
   if nResult2 = 0 then
      result := ‘0’;
end ;

  PostgreSql é um Sistema de Gerenciamento de Banco de Dados Open Source (gratuito), estável e confiável. Compatível com as principais linguagens e plataformas de programação e disponível para vários sistemas operacionais (Linux, Unix, Mac OS X e WIndows). Possui replicador próprio entre servidores, suporte a ACID (Atomicidade, Consistência, Isolamento e Durabilidade), multithreads (múltiplas conexões com banco de dados de uma só vez), cluster (utilizando dois ou mais computadores interligados para atender e agilizar as demandas do banco de dados), Conexões seguras e criptografias, Gatilhos (triggers), etc. . Dados sobre armazenamento:

  http://www.postgresql.org/ http://www.postgresql.org.br/

O ZeosLib é um conjunto de componentes para o acesso de banco de dados como: MySQL, PostgreSQL, Interbase, Firebird, MS SQL, Sybase, Oracle e SQLite para Delphi, FreePascal / Lazarus, Kylix e C + + Builder. Zeoslib  permite ao desenvolvedor trabalhar com a conexão feita diretamente entre o sistema e o banco de dados. A Conexão Nativa é a conexão feita diretamente entre o sistema e o banco de dados sem uso de nenhum tipo de driver auxiliar, como por exemplo conexões que usam ODBC, tornando assim a conexão do sistema com o banco de dados muito mais rápida e, consequentemente, tornando o sistema também muito mais leve. Clique aqui para download