Re: [firebase-br] Store Procedure - Esta tá difícil

Nilton Souza ntn em bbs2.sul.com.br
Qui Jan 27 09:53:43 -03 2005


Olá Ramj,

Qual é a versão do teu FB e qual é o cabeçalho de tua SP ?

A sintaxe está ok, aparentemente não era para ocorrer este erro, tente fazer
o seguinte:

1) Coloque os "DOIS-PONTOS" na frente da variável DATAANT nesta linha: "if
(DATAANT IS NOT NULL) then" ficando assim: "if (:DATAANT IS NOT NULL) then"

2) Remova o último suspend.

3) Verifique se o SELECT de seu FOR está realmente retornando valores.

[]'s
Nilton Souza

----- Original Message -----
From: "RAMJ SISTEMAS & CONSULTORIA" <jubrovolski em yahoo.com.br>
To: "'FireBase'" <lista em firebase.com.br>
Sent: Thursday, January 27, 2005 8:31 AM
Subject: [firebase-br] Store Procedure - Esta tá difícil


Cantu ou aquele que souber

Minha sp não executa o for select nem atualiza o campo saldo. O que há de
errado? Por favor, isso é muito urgente. Tenho um cliente com este problema
e esta me pressionando.

**************************************

begin
   SALDOANT=0;
   select Max(DATALAN) from MOVCAIXA where DATALAN<:DATA and CODCAIXA =
:CAIXA into :DATAANT;
   if (DATAANT IS NOT NULL) then
      begin
       select Max(NUMLAN) from MOVCAIXA where DATALAN=:DATAANT and CODCAIXA
= :CAIXA into :ultlancto;
       select SALDOAT from MOVCAIXA where NUMLAN=:ultlancto  into :SALDOANT;
      end
   else
      begin
       select Min(DATALAN) from MOVCAIXA where CODCAIXA =:CAIXA into
:DATAANT;
       select Min(NUMLAN) from MOVCAIXA where DATALAN=:DATAANT and CODCAIXA
= :CAIXA into :ultlancto;
       SALDOANT=0;
      end

/* até aqui esta funcionando e retornando os valores corretos */


   for select NUMLAN,TIPOLAN,VALORLAN from MOVCAIXA where DATALAN>=:DATA and
CODCAIXA = :CAIXA order by DATALAN,NUMLAN into :ID,:TIPO,:VALOR do
   begin
        if  (:TIPO='C') then begin
          SALDOANT=:SALDOANT+:VALOR;
        end else begin
          SALDOANT=:SALDOANT-:VALOR;
        end
        update MOVCAIXA set SALDOAT=:SALDOANT where NUMLAN=:ID;
        suspend;
   end
   suspend;
End



Reuber






______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br






Mais detalhes sobre a lista de discussão lista