declare @FECHADESDE as date, @FECHAHASTA date,@IDALMACEN int,@IDSUMINISTRO int
 set @FECHADESDE ='20131001'
 set @FECHAHASTA ='20131031'
 set @IDALMACEN =42
 set @IDSUMINISTRO =1
 ;

 SELECT A.NOMBRE NOMBREALMACEN,
  --CP.IDSUMINISTRO, CP.DESCSUMINISTRO, CP.IDGRUPO, CP.CORRGRUPO, CP.DESCGRUPO, DM.IDPRODUCTO,
     FECHAMOVIMIENTO, convert(varchar, M.FECHAMOVIMIENTO, 103)as  FECHAMOVIMIENTO, isnull(convert(varchar, M.IDDOCUMENTO) + '/' + convert(varchar, M.ANIO), '') NUMERODOCUMENTO,
   CP.CORRPRODUCTO,
  CP.DESCLARGO, CP.DESCRIPCION UNIDADMEDIDA,

  --M.IDESTABLECIMIENTODESTINO,
   CASE WHEN E.NOMBRE IS NULL THEN LEH.NOMBRE_LUGAR_ENTREGA_HOSPITAL
   ELSE E.NOMBRE END ESTABLECIMIENTODESTINO,
      DM.CANTIDAD CANTIDADEGRESO, L.PRECIOLOTE PRECIOUNITARIO, (DM.CANTIDAD * L.PRECIOLOTE) MONTOEGRESO,
       isnull(L.CODIGO, '(N/A)') LOTE,
    L.FECHAVENCIMIENTO, isnull(convert(varchar, datepart(month, L.FECHAVENCIMIENTO)) + '/' + convert(varchar, datepart(year, L.FECHAVENCIMIENTO)), '') FECHAVENCIMIENTOMMAAAA,

   FF.NOMBRE FUENTEFINANCIAMIENTO,
    RD.NOMBRECORTO RESPONSABLEDISTRIBUCION,

    ---(DM.CANTIDAD * L.PRECIOLOTE) MONTOCALCULADO,
     EM.DESCRIPCION ESTADO, TT.DESCRIPCION TIPOTRANSACCION

     FROM SAB_ALM_DETALLEMOVIMIENTOS DM
     INNER JOIN SAB_ALM_LOTES L ON (DM.IDALMACEN = L.IDALMACEN AND DM.IDLOTE = L.IDLOTE)
     INNER JOIN SAB_ALM_MOVIMIENTOS M ON (DM.IDESTABLECIMIENTO = M.IDESTABLECIMIENTO AND DM.IDTIPOTRANSACCION = M.IDTIPOTRANSACCION AND DM.IDMOVIMIENTO = M.IDMOVIMIENTO)
     INNER JOIN vv_CATALOGOPRODUCTOS CP ON DM.IDPRODUCTO = CP.IDPRODUCTO
     LEFT OUTER JOIN SAB_CAT_ESTABLECIMIENTOS E ON M.IDESTABLECIMIENTODESTINO = E.IDESTABLECIMIENTO
     LEFT OUTER JOIN SAB_CAT_LUGARES_ENTREGA_HOSPITALES LEH ON M.ID_LUGAR_ENTREGA_HOSPITAL = LEH.ID_LUGAR_ENTREGA_HOSPITAL AND M.IDALMACEN = LEH.IDALMACEN
     INNER JOIN SAB_CAT_FUENTEFINANCIAMIENTOS FF ON L.IDFUENTEFINANCIAMIENTO = FF.IDFUENTEFINANCIAMIENTO
     INNER JOIN SAB_CAT_RESPONSABLEDISTRIBUCION RD ON L.IDRESPONSABLEDISTRIBUCION = RD.IDRESPONSABLEDISTRIBUCION
     INNER JOIN SAB_CAT_ALMACENES A ON DM.IDALMACEN = A.IDALMACEN INNER JOIN SAB_CAT_ESTADOSMOVIMIENTOS EM ON M.IDESTADO = EM.IDESTADO
     INNER JOIN SAB_CAT_TIPOTRANSACCIONES TT ON M.IDTIPOTRANSACCION = TT.IDTIPOTRANSACCION
     WHERE
		--adicionar linea para obtener salidas de el paraiso--
		DM.IDALMACEN = @IDALMACEN
		---adicionar linea para obtener salidas de otros almacenes menos el paraiso---
		---DM.IDALMACEN <> @IDALMACEN

		AND (CP.IDSUMINISTRO = @IDSUMINISTRO OR @IDSUMINISTRO = 0)
		AND CP.CORRPRODUCTO LIKE '005%'
        AND DM.IDTIPOTRANSACCION = 2 AND M.IDESTADO in (1, 2)
		AND ((M.FECHAMOVIMIENTO between @FECHADESDE AND @FECHAHASTA) OR (@FECHADESDE IS NULL OR @FECHAHASTA IS NULL))
		ORDER BY M.FECHAMOVIMIENTO, M.IDMOVIMIENTO, CP.CORRPRODUCTO, DM.IDDETALLEMOVIMIENTO