Ayuda Procedimiento Almacenado Sql

ANTRONIANOS:

les dejo un codigo pequeñito, no c por q me da el error si alguien me puede ayudar se lo argadeceria un kilo

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
ALTER PROCEDURE lda_Prepara_Datos_Informe
@Anio as int,
@Mes as decimal(12,0),
@AreCod as int,
@CentroAsociado as Varchar(6),
@Usuario as varchar(25),
@Moneda as Int,
@Presu as varchar(25),
@Empr as varchar(30)

AS
BEGIN
declare @CCosto as int
declare @CCosto_Asociado as int
declare @Informe as varchar(2)
declare @Placod as int
declare @NomEsp as varchar(100)
declare @NomIng as varchar(100)
declare @NomNor as varchar(100)
declare @Referencia as int
declare @NReferencia as varchar(50)
declare @Valor as bigint
declare @Total as bigint
declare @VmesAc as bigint
declare @VMesAn as bigint
declare @VAcumAc as bigint
declare @VAcumAn as bigint

IF(@AreCod=1)
BEGIN
--select 'OK Movimiento actualizado'
Declare Presu Cursor
For

IF @CentroAsociado = 'Todos'
BEGIN
SELECT CCosto, CCosto_Asociado
FROM Tbl_RefVar
Where Usuario = @Usuario

END
ELSE
BEGIN

SELECT CCosto, CCosto_Asociado
FROM Tbl_RefVar
Where Usuario = @Usuario AND CCosto_Asociado = @CentroAsociado


END

open Presu
Fetch Next From Presu
Into @CCosto, @CCosto_Asociado

END ----- fin del arecod =1

END ------fin prpcedure





GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO


me da el siguiente eror
Servidor: mensaje 156, nivel 15, estado 1, procedimiento lda_Prepara_Datos_Informe, línea 35
Sintaxis incorrecta cerca de la palabra clave 'IF'.

mi procedimiento es mucho mas largo pero lo estoy revisando por parte y este error me tiene pegao hace rato
PD: soy nuevo en esto de los procedimientos

De Antemano Se Agradece ANTRONIANOS

Compadre tiene el error aquí

"Declare Presu Cursor For IF" por sintaxis el cursor despues del for debe tener la consulta de seleccion... por eso le sugiero el codigo de abajo....

en todo caso me imagino que lo hiciste asi pa ahorrar codigo.... espero ayudar en algo.... xau


SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
ALTER PROCEDURE lda_Prepara_Datos_Informe
@Anio as int,
@Mes as decimal(12,0),
@AreCod as int,
@CentroAsociado as Varchar(6),
@Usuario as varchar(25),
@Moneda as Int,
@Presu as varchar(25),
@Empr as varchar(30)

AS
BEGIN
declare @CCosto as int
declare @CCosto_Asociado as int
declare @Informe as varchar(2)
declare @Placod as int
declare @NomEsp as varchar(100)
declare @NomIng as varchar(100)
declare @NomNor as varchar(100)
declare @Referencia as int
declare @NReferencia as varchar(50)
declare @Valor as bigint
declare @Total as bigint
declare @VmesAc as bigint
declare @VMesAn as bigint
declare @VAcumAc as bigint
declare @VAcumAn as bigint

IF @CentroAsociado = 'Todos'
BEGIN
IF @AreCod =1
BEGIN
--select 'OK Movimiento actualizado'
Declare Presu Cursor
For
SELECT CCosto, CCosto_Asociado
FROM Tbl_RefVar
Where Usuario = @Usuario
open Presu
Fetch Next From Presu
Into @CCosto, @CCosto_Asociado
end
ELSE
BEGIN
--select 'OK Movimiento actualizado'
Declare Presu Cursor
For
SELECT CCosto, CCosto_Asociado
FROM Tbl_RefVar
Where Usuario = @Usuario AND CCosto_Asociado = @CentroAsociado
open Presu
Fetch Next From Presu
Into @CCosto, @CCosto_Asociado
end
END


END ------fin prpcedure


GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

muxas gracias kompare ahora funk, lo abia exo asi pa ahorrar codigo como tu dices, gracias por la ayuda y la explikcion

Cuando quiera no más compadre....