Procedure para organizar valores por ordem venda

Question

Pessoal,Talvez at� j� tenha discutido sobre esse assunto, mas n�o me dou muito bem na pesquisa desse f�rum. Bem, estou querendo fazer uma procedure que me devolvesse o seguinte, a venda dos vendedores...

Diegotiemann · Answer

Uma solu��o seria fazer uma consulta SQL do tipo:

Select first 9 nome_forncedor valor_venda from ....order by valor_venda desc
union 
select �Outros� , Sum(valor_venda) from ... where fornecedor not in (select  first 9 fornecedor .......)

Resolveria, � s� adaptar pras suas tabelas mas vai ficar lento.

Digitom · Answer

Blz, mas acho que n�o resolve o meu problema.

Veja s� como � meu banco de dados:
TABELA (Campos)
FORNECEDOR (CODFOR - NOMEFOR)
PRODUTOS (CODPRO - NOMEPRODUTO - CODFOR)
NFSAIDA (NFNUMNOTA - NFVENDCOD - CODCLI - NFEMISSAO)
ITENSNOTAFISCAL (NUMNOTA - CODCLI - CODPRO - VALORVENDA - QUANTIDADE)
VENDEDORES (VENDCOD - VENDNOME)

Ent�o pensei em fazer o seguinte:
Criar uma procedure para percorrer o cadastro de vendedor, e depois percorrer o cadastro de NFSAIDA juntamente com os ITENS para saber se existe venda do determinado fornecedor.

Emerson Nascimento · Answer

qual o banco de dados utilizado?...

Digitom · Answer

Estou usando o FIREBIRD...

Emerson Nascimento · Answer

creio que isso seja poss�vel somente com stored procedure.

crie uma SP assim:

CREATE PROCEDURE VENDA_POR_FORNECEDOR (
    listar integer)
returns (
    id_fornecedor integer,
    nomefornecedor varchar(60),
    valor float
)
as
declare variable isql varchar(255); -- instru��o sql
declare variable ifor varchar(255); -- lista de fornecedores
begin
  listar = coalesce(listar, 0);

  if (listar < 0) then listar = 0;

  if (listar = 0) then
  begin
    select �TODOS�, sum(it.valorvenda * it.quantidade)
    from itensnotafiscal
    into :nomefornecedor, :valor;

    id_fornecedor = -1;
  end
  else
  begin
    isql = �select first � || cast(:listar as varchar(5)) ||
           � f.codfor, f.nomefor,� ||
           � sum(it.valorvenda * it.quantidade)� ||
           �from itensnotafiscal it� ||
           � inner join produtos p on (p.codpro = it.codpro)� ||
           � inner join fornecedor f on (f.codfor = p.codfor)� ||
           � group by f.codfor, f.nomefor� ||
           � order by 3 desc �;

    ifor = ��;

    for execute statement isql into :id_fornecedor, :nomefornecedor, :valor do
    begin
      if (ifor <> ��) then ifor = ifor || �,�;
      ifor = ifor || cast(:id_fornecedor as varchar(10));

      suspend;
    end

    isql = �select ��OUTROS��, sum(it.valorvenda * it.quantidade) � ||
           �from itensnotafiscal it � ||
           �inner join produtos p on (p.codpro = it.codpro) � ||
           �where not p.codfor in (� || ifor || �)�;
  
    execute statement isql into :nomefornecedor, :valor;
    id_fornecedor = -1;
  end

  suspend;
end

e execute um select como se fosse uma tabela normal:
select * from venda_por_fornecedor(5) -- lista os 5 maiores e consolida os demais

F�rum Procedure para organizar valores por ordem venda #364838