Ver Mensaje Individual
  #11  
Antiguo 18-02-2008
ozegarra ozegarra is offline
Miembro
 
Registrado: nov 2007
Ubicación: Lima - Peru
Posts: 35
Reputación: 0
ozegarra Va por buen camino
Gracias muchachos por la ayuda.
Estuve intentando con el aplicationEvents y capturar el mensaje en el evento onExepcion pero no entra a ese evento. Derrepente estoy mostrando mal el mensaje desde firebird. Muestro un ejm. de codigo de mi procedimiento a ver si me pueden ayudar un pokito mas:
Código SQL [-]
if (Contador=0) then
   begin
   exception No_hay_Stock;
   /*suspend;*/
   end

y en delphi ejecutado el procedimiento asi:
Código Delphi [-]
ADOQuery_ActLocales.Active:=False;
    ADOQuery_ActLocales.Parameters.ParamByName('Accion').Value := Accion;
    ADOQuery_ActLocales.Parameters.ParamByName('Item').Value := EdtCodigo.Text);
    ADOQuery_ActLocales.Parameters.ParamByName('Cantidad').Value := EdtCantidad.Text;
    ADOQuery_ActLocales.ExecSQL;


Espero haber sido lo suficiente claro y me puedan ayudar.
Muchas gracias.


Oscar
Responder Con Cita