4 respuestas en este tema

[razadi]

Saludos amigos, tengo un problema, según yo, este script esta bien pero al correrlo en FireBird me dice que hay error en el SELECT, alguien que me ayude a enter el porque, si mal no recuerdo eso es válido o no?

eh aquí el script

sql

CREATE TRIGGER OBI_PEDIME FOR SAAIO_PEDIME
ACTIVE AFTER INSERT OR UPDATE OR DELETE
POSITION 0
AS
DECLARE iID INTEGER;
DECLARE sTIPO VARCHAR(1);
DECLARE sREFE VARCHAR(15);
BEGIN
  IF (INSERTING) THEN BEGIN
    sTIPO = 'I';
    sREFE = NEW.NUM_REFE;
  END ELSE IF (UPDATING) THEN BEGIN
    sTIPO = 'U';
    sREFE = OLD.NUM_REFE;                                                                                                  
  END ELSE IF (DELETING) THEN BEGIN                                       
  	sTIPO = 'D';
  	sREFE = OLD.NUM_REFE;
  END 
  
  IF (SELECT COUNT(SYS_ID) FROM SYS_LOG WHERE (SYS_TABLA='SAAIO_PEDIME') AND (SYS_REFE=:sREFE))=0 THEN
    INSERT INTO SYS_LOG (SYS_TIPO,SYS_FECHA,SYS_OPER,SYS_TABLA,SYS_REFE,SYS_CAMPO,SYS_VALOR,SYS_NUMCVE) VALUES (:sTIPO,'NOW','O','SAAIO_PEDIME',:sREFE,'NUM_REFE',:sREFE,1);
END;

Saludos...

[pcicom]

intenta asi..

sql

CREATE TRIGGER OBI_PEDIME FOR SAAIO_PEDIME
ACTIVE AFTER INSERT OR UPDATE OR DELETE
POSITION 0
AS
DECLARE iID INTEGER;
DECLARE nCuantos INTEGER;
DECLARE sTIPO VARCHAR(1);
DECLARE sREFE VARCHAR(15);
BEGIN
IF (INSERTING) THEN BEGIN
sTIPO = 'I';
sREFE = NEW.NUM_REFE;
END ELSE IF (UPDATING) THEN BEGIN
sTIPO = 'U';
sREFE = OLD.NUM_REFE; 
END ELSE IF (DELETING) THEN BEGIN 
sTIPO = 'D';
sREFE = OLD.NUM_REFE;
END 
 
 
SELECT COUNT(SYS_ID) FROM SYS_LOG WHERE (SYS_TABLA='SAAIO_PEDIME') AND (SYS_REFE=:sREFE)
   INTO :nCuantos;
 
 
IF (nCuantos=0) THEN
   INSERT INTO SYS_LOG   (SYS_TIPO,SYS_FECHA,SYS_OPER,SYS_TABLA,SYS_REFE,SYS_CAMPO,SYS_VALOR,SYS_NUMCVE) VALUES (:sTIPO,CURRENT_DATE,'O','SAAIO_PEDIME',:sREFE,'NUM_REFE',:sREFE,1);
END;

[razadi]

Efectivamente, con eso quedó listo, gracias amigo pcicom, lo que no entiendo es, que no se supone que en si es lo mismo?, en fin asi como lo planteas si funciona.

GRacias. 

[Rolphy Reyes]

Saludos.

Un poco tarde pero....

sql

CREATE TRIGGER OBI_PEDIME FOR SAAIO_PEDIME
ACTIVE AFTER INSERT OR UPDATE OR DELETE
POSITION 0
AS
DECLARE iID INTEGER;
DECLARE sTIPO VARCHAR(1);
DECLARE sREFE VARCHAR(15);
BEGIN
  IF (INSERTING) THEN BEGIN
    sTIPO = 'I';
    sREFE = NEW.NUM_REFE;
  END ELSE IF (UPDATING) THEN BEGIN
    sTIPO = 'U';
    sREFE = OLD.NUM_REFE;                                                                                                  
  END ELSE IF (DELETING) THEN BEGIN                                       
      sTIPO = 'D';
      sREFE = OLD.NUM_REFE;
  END 
 
  IF (NOT EXISTS(SELECT SYS_ID FROM SYS_LOG WHERE (SYS_TABLA='SAAIO_PEDIME') AND (SYS_REFE=:sREFE))) THEN
    INSERT INTO SYS_LOG (SYS_TIPO,SYS_FECHA,SYS_OPER,SYS_TABLA,SYS_REFE,SYS_CAMPO,SYS_VALOR,SYS_NUMCVE) VALUES (:sTIPO,'NOW','O','SAAIO_PEDIME',:sREFE,'NUM_REFE',:sREFE,1);
END;

[Marc]

Efectivamente, con eso quedó listo, gracias amigo pcicom, lo que no entiendo es, que no se supone que en si es lo mismo?, en fin asi como lo planteas si funciona.

GRacias. 

Firebird, al menos en sus primeras versiones (no sé si ha cambiado en FB 2.1 - 2.5), no permite utilizar subconsultas en la condición de una construcción IF. Por eso debes poner el resultado de la subconsulta en una variable, y evaluar la condición usando esa variable.

Saludos.