Ver Mensaje Individual
  #4  
Antiguo 23-11-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Reputación: 30
jhonny Va camino a la famajhonny Va camino a la fama
Cita:
Empezado por RONPABLO Ver Mensaje
Depronto así también puede funcionar
Sinceramente no creo que Interbase 6.0 admita el hecho de comparar el valor sin pasarlo a una variable, por lo que creo que existe mas probabilidad de que funcione el siguiente, aunque tampoco estoy muy seguro de que sea capaz de ejecutarlo:

Código SQL [-]
CREATE trigger trigg_dfactura_in for dfactura
active after insert position 0
AS
declare variable v_Pro_Precio double precision;
begin
  Select Pro_Precio From Producto Where Pro_Codigo = new.codigo
  into :v_pro_precio;

  if (:v_pro_precio < new.DFA_Precio) then
  begin
    update Producto Set Pro_Precio=new.DFa_Precio
    where Producto.Pro_Codigo = new.Pro_Codigo;
  end 
end
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita