ActiveDelphi

[marciobatista]

tenho a SP a seguir :

CREATE PROCEDURE GERVENDEDORES (
PINICIAL DATE,
PFINAL DATE)
RETURNS (
VENDEDOR CHAR(30),
TOTAL DECIMAL(15,2),
TOTALCAN DECIMAL(15,2),
TOTALGER DECIMAL(15,2),
TOTALVALECLI DECIMAL(15,2))
AS
DECLARE VARIABLE NOVOCODIGO CHAR(30);
begin
FOR select RESUMO_VENDAS.vendedor,sum(RESUMO_VENDAS.total_vendas-resumo_Vendas.total_descto) ,RESUMO_VENDAS.vendedor FROM resumo_vendas WHERE (resumo_vendas.DATA>=:pinicial) and (resumo_vendas.data<=:pfinal) and (resumo_vendas.situacao<>\'CANCELADA\' or (resumo_vendas.situacao is null) )
group by resumo_vendas.vendedor into :novocodigo,:total, :vendedor

do begin
select sum(trocas.valor)
from trocas where (trocas.vendedor = :novocodigo) and (trocas.datarec>=:pinicial) and (trocas.datarec <= :pfinal) and (extract (month from trocas.datarec) > extract (month from trocas.data))
into :totalvalecli;
select sum(canceladas.total_vendas)
from canceladas where (canceladas.vendedor = :novocodigo) and (canceladas.excluido>=:pinicial) and (canceladas.excluido <= :pfinal) and (extract (month from canceladas.excluido) > extract (month from canceladas.data))
into :totalcan;
if ((totalcan>0) or (totalvalecli>0)) then begin
totalger=total-(totalcan-totalvalecli) ;
end else
totalger=total;
suspend;
end
end

para acessa no delphi utilizo o seguinte comando :

FormrelDven.simpledataset2.Active:=False;
FormrelDven.simpledataset2.dataset.CommandText := \'select * from gervendedores (:pinicial,:pfinal) order by totalger\';
FormrelDven.simpledataset2.dataset.ParamByName(\'pInicial\').AsSTRING := INICIO;
FormrelDven.simpledataset2.dataset.ParamByName(\'pFinal\').AsSTRING :=FINAL;
FormrelDven.simpledataset2.Active:=True;

o problema e que quando existe valor no campo totalcan ou no campo totalvalecli o totager fica = null

como posso resolver isso ?
desde ja agradeço

[Sufolk]

Olá Márcio,
deve ser o mesmo problema do companheiro abaixo com os campos NULL, qualquer dúvida retorne:

http://www.activedelphi.com.br/modules.php?op=modload&name=XForum&file=viewthread&tid=25925#pid67201

[marciobatista]

vlw sulfoc era isso msm.
muito obrigado + uma vez

[Sufolk]

Blz Márcio,
precisando posta ae.

Sufolk.