Ver Mensaje Individual
  #6  
Antiguo 21-02-2009
Tauro78 Tauro78 is offline
Miembro
 
Registrado: sep 2006
Posts: 88
Reputación: 18
Tauro78 Va por buen camino
Hola, de esta forma me funciono, gracias.

Código Delphi [-]
 
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
 
GO
 
-- =============================================
-- Author: 
-- Create date: 
-- Description: 
-- =============================================
 
ALTERPROCEDURE [dbo].[SP_BUSCAR_EMPRESA] 
 
-- Add the parameters for the stored procedure here
 
@SP_NOMBRE NVARCHAR(50) OUTPUT,
 
@RESULTADO INT OUTPUT,
 
@SP_FECHA_VTO_DGI DATETIME OUTPUT,
 
@SP_FECHA_VTO_BPS DATETIME OUTPUT,
 
@SP_FECHA_VTO_PL_TRABAJO DATETIME OUTPUT

 
AS
BEGIN
 
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
 
SET NOCOUNT ON;
 
IFEXISTS(SELECT NOMBRE, FECHA_VTO_DGI, FECHA_VTO_BPS, FECHA_VTO_PL_TRABAJO FROM EMPRESAS WHERE NOMBRE = @SP_NOMBRE)BEGIN
SET @RESULTADO = 1
SET @SP_NOMBRE =(SELECT NOMBRE FROM EMPRESAS WHERE NOMBRE = @SP_NOMBRE)
SET @SP_FECHA_VTO_DGI =(SELECT FECHA_VTO_DGI FROM EMPRESAS WHERE FECHA_VTO_DGI = @SP_FECHA_VTO_DGI)
SET @SP_FECHA_VTO_BPS =(SELECT FECHA_VTO_BPS FROM EMPRESAS WHERE FECHA_VTO_BPS = @SP_FECHA_VTO_BPS)
SET @SP_FECHA_VTO_PL_TRABAJO =(SELECT FECHA_VTO_PL_TRABAJO FROM EMPRESAS WHERE FECHA_VTO_PL_TRABAJO = @SP_FECHA_VTO_PL_TRABAJO)
END
ELSE
SET @RESULTADO = 0
 
-- Insert statements for procedure here 
 
END
Responder Con Cita