[firebase-br] Erro estranho

[BandaLemuel]

        Pessoal..  um complemento...

    Antes esta procedure estava funcionando agora não funciona mais... ela 
para o firebird... , qualquer ajda é bem vinda.. Obrigado. Wesley


BEGIN
    IF ( :ACAO = 1 ) THEN
       BEGIN
           INSERT INTO FIN1000 ( DTLCT , DTVEN , TPOPR , CDCCT , HISTO , 
NRDOC , VRLAN ,
                                 NRCHQ , CDFIL , PLCON , CDFOR , CDCLI , 
CDCEN , CDBDT ,
                                 CDSNP , FLDUP , DTDOC , CDBAN , CDRAT , 
INDRT ) VALUES
                               ( CURRENT_DATE  ,:DTVEN ,:TPOPR ,:CDCCT 
,:HISTO ,:NRDOC ,:VRLAN ,
                                :NRCHQ ,:CDFIL ,:PLCON ,:CDFOR ,:CDCLI 
,:CDCEN ,:CDBDT ,
                                :CDSNP ,:FLDUP ,:DTDOC ,:CDBAN ,:CDRAT , 
:INDRT );
       END
    ELSE IF ( :ACAO = 2 ) THEN
       BEGIN
         IF ( :FLBXA = 'S' ) THEN
           BEGIN
             UPDATE FIN1000 SET DTVEN=:DTVEN , TPOPR=:TPOPR , CDCCT=:CDCCT , 
HISTO=:HISTO ,
                                VRLAN=:VRLAN , NRCHQ=:NRCHQ , CDFIL=:CDFIL , 
PLCON=:PLCON ,
                                CDFOR=:CDFOR , CDCLI=:CDCLI , CDCEN=:CDCEN , 
CDBDT=:CDBDT ,
                                CDSNP=:CDSNP , FLDUP=:FLDUP , DTDOC=:DTDOC , 
CDBAN=:CDBAN ,
                                FLBXA=:FLBXA , CDMOV=:CDMOV , INDRT=:INDRT
                                WHERE CDLAN=:CDLAN AND NRDOC=:NRDOC;
           END
         ELSE IF ( :FLBXA <> 'S' ) THEN
           BEGIN
             UPDATE FIN1000 SET DTVEN=:DTVEN , TPOPR=:TPOPR , CDCCT=:CDCCT , 
HISTO=:HISTO ,
                                VRLAN=:VRLAN , NRCHQ=:NRCHQ , CDFIL=:CDFIL , 
PLCON=:PLCON ,
                                CDFOR=:CDFOR , CDCLI=:CDCLI , CDCEN=:CDCEN , 
CDBDT=:CDBDT ,
                                CDSNP=:CDSNP , FLDUP=:FLDUP , DTDOC=:DTDOC , 
CDBAN=:CDBAN ,
                                NRDOC=:NRDOC  WHERE CDLAN=:CDLAN ;
           END
       END
   ELSE IF ( :ACAO = 3 ) THEN
       BEGIN
            DELETE FROM FIN1000 WHERE CDLAN=:CDLAN AND NRDOC=:NRDOC;
       END
END












----- Original Message ----- 
From: "BandaLemuel" <bandalemuel em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, March 12, 2007 9:09 AM
Subject: [firebase-br] Erro estranho


Ola lista...

    Estou desenvolvendo um sistema financeiro e executo um comando INSERT 
mais ou menos 13 vezes num for, até ai td bem , ele grava certinho, depois 
quando vou executar um outro insert logo em seguida ele fala que não acha o 
servidor 127.0.0.1 ( servidor que esta o banco ) , como se estivesse parado 
o Firebird .

        Alguem já viu isso ?

        Desde ja agradeço

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


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.9/719 - Release Date: 12/03/2007 
08:41



		
_______________________________________________________ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/