[firebase-br] Problemas com a Execução de uma SP.

[Tiago Sartori Costa - YAHOO]

Turma, alguém pode me ajudar?

Estou excutando a SP abaixo e ela não está excluindo os registros. Já
debuguei a rotina e está fazendo tudo certo, más na hora que consulto a
tabela os registros ainda estão lá!!! É como se a operação não tivesse
comitado ou não tivesse executada a rotina EXECUTE STATEMENT!

Por favor, alguém me dê uma luz!!!!!!!



BEGIN
   VCOMANDO    = '';
   VNOMETABELA = '';
   VCONTADOR   = 0;

   SELECT COUNT( * ) AS TOTAL
   FROM tabelas
   WHERE PD < 2 AND CODIGO = :VCODIGO
   INTO :VCONTADOR;

   If ( :VCONTADOR > 0 ) THEN BEGIN
      SELECT FIRST(1) NOMETABELA
      FROM tabelas
      WHERE PD < 2 AND CODIGO = :VCODIGO
      INTO :VNOMETABELA;
      IF ( :VCODIGO = 0 ) THEN BEGIN
         VCOMANDO = 'DELETE FROM ' || :VNOMETABELA || ' WHERE NUMPESSOA <>
0';
      END ELSE BEGIN
         VCOMANDO = 'DELETE FROM ' || :VNOMETABELA;
      END
      EXECUTE STATEMENT( VCOMANDO );
   END
END

Obrigado

Tiago.