Fórum Funções em crystal, é possivel ? #325719

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


ALTER  FUNCTION fn_Inv_LastAvgCost(
@IDStoreint,
@IDModelint,
@MovDateDateTime
) RETURNS money AS
BEGIN

DECLARE @AvgCost money
SET @AvgCost = 0

SELECT
@AvgCost = IM.AvgCost
FROM
InventoryMov IM
INNER JOIN (
SELECT MAX(MovDate) MovDate
FROM InventoryMov
WHERE MovDate <= @MovDate AND ModelID = @IDModel 
) A ON (IM.MovDate = A.MovDate)
WHERE
IM.StoreID = (CASE @IDStore WHEN 0 THEN IM.StoreID ELSE @IDStore END)
AND IM.ModelID = @IDModel
AND IsNull(IM.AvgCost, 0) <> 0

RETURN @AvgCost
END


GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO