Cristhor1982
14-03-2013, 23:13:57
Hola amigos, como estan? espero que bien
les cuento tengo lo siguiente
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
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
les cuento tengo lo siguiente
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
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