Ver Mensaje Individual
  #1  
Antiguo 14-03-2013
Avatar de Cristhor1982
Cristhor1982 Cristhor1982 is offline
Miembro
NULL
 
Registrado: dic 2012
Posts: 60
Reputación: 12
Cristhor1982 Va por buen camino
Ayuda para generar evento a traves de RaisError SQL

Hola amigos, como estan? espero que bien

les cuento tengo lo siguiente
Código SQL [-]
IF EXISTS (
      SELECT  Cod_Sindicato
      FROM     Trabajadores
      WHERE   Vic=@Vic
      AND    Cod_Sucursal<>@Cod_Sucursal
           )
        BEGIN
          SET     @MSG = Char(13) + Char(13) + 'Mensaje'
            RaisError  (@MSG, 11, 1, 0)
          Return
        END

en Delphi lo siguiente

Código Delphi [-]
 fr_clave.TB_Consulta.Close;
      fr_clave.TB_Consulta.sql.Clear;
      fr_clave.TB_Consulta.sql.Add('EXEC_aCTeMPLEADOSsINDICATO 1,');;
      fr_clave.TB_Consulta.sql.Add(''''+ trim(copy(fr_clave.CB_Sucursales.Text, 50,100)) +''',');
      fr_clave.TB_Consulta.sql.Add(''''+ USindicatos.FR_Sindicatos.TX_Codigo.Text +''',');
      fr_clave.TB_Consulta.sql.Add(''''+Tx_Vic.Text +''',');
      fr_clave.TB_Consulta.sql.Add(''''+ fr_clave.TX_Usuario.Text +''',0,0,0');
      fr_clave.TB_Consulta.ExecSQL;


Necesito a lo que se termine de ejecutar en delphi y me envie el mensaje desde sql...Abra un modulo existente, en realidad seria solo llamar en base al mensaje desde SQL...Alguien me puede ayudar, aLGUNA IDEA


Graciias
Responder Con Cita