Cierre de mes de una obra

SELECT  O.Obra,V.Num_Cap,V.Nombre_Capitulo,V.Tipo,V.Nivel,o.dIRECCION
,V.COD_PRECIO Codigo,V.Ud,V.DESCRIPCION Descripcion,V.MEDICION Medicion,V.PRECIO1 PrecioVenta,V.PRESU1 Presupuesto
,V.Presu2 CostePrevisto
, CASE V.TIPO WHEN 'C' THEN C.COSTE_FINAL_PREVISTO_T ELSE P.COSTE_FINAL_PREVISTO END CosteFinalPrevisto

,V.IMP_PRODU Produccion,V.IMP_CERTI Certificacion, V.IMP_COSTE Coste

,CASE V.TIPO WHEN 'P' THEN v.imp_coste-(v.precio2*v.certificacion)  ELSE (
       SELECT SUM(PE.PRECIO2*PA.CERTIFICACION) FROM T_PARTIDAS PA 
        JOIN T_CAPITULOS CAPI ON CAPI.EMPRESA=PA.EMPRESA AND CAPI.OBRA=PA.OBRA AND CAPI.CAPITULO=PA.CAPITULO
       JOIN T_PRECIOS PE ON PE.EMPRESA=PA.EMPRESA AND PA.OBRA=PE.OBRA AND PE.COD_INTERNO=PA.COD_INTERNO
       WHERE PA.EMPRESA=V.EMPRESA AND PA.OBRA=V.OBRA AND CAPI.COD_CAP LIKE COALESCE(V.COD_CAP,'')+'%'
)
 END DesviaciÛnCostePrevisto

,(SELECT dbo.F_IMP_COSTE(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,NULL,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0))) CosteHastaMesAnterior
,(SELECT dbo.F_IMP_COSTE(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0),null)) CosteMesActual

,(SELECT dbo.F_IMP_Certificacion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,NULL,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0))) CertificacionHastaMesAnterior
,(SELECT dbo.F_IMP_Certificacion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0),null)) CertificacionMesActual

,(SELECT dbo.F_IMP_Produccion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,NULL,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0))) ProduccionHastaMesAnterior
,(SELECT dbo.F_IMP_Produccion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0),null)) ProduccionMesActual
,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0) FechaInicioMes

FROM T_OBRAS O
JOIN V_CAP_PARTIDAS_T V ON V.EMPRESA=O.EMPRESA AND V.OBRA=O.OBRA
LEFT JOIN T_CAPITULOS C ON C.EMPRESA=V.EMPRESA AND C.OBRA=V.OBRA AND C.CAPITULO=COALESCE(V.CAPITULO,V.PADRE) 
LEFT JOIN T_PARTIDAS P ON P.EMPRESA=V.EMPRESA AND P.OBRA=V.OBRA AND P.CAPITULO=V.PADRE AND P.COD_INTERNO=V.COD_INTERNO AND V.TIPO='P'
{WFiltro} AND V.TIPO<>'T'
ORDER BY V.EMPRESA,V.OBRA,V.COD_CAP,V.ORDEN

Cierre de mes de todas las obras

SELECT  O.Obra,o.TIPO_OBRA TipoObra,V.Nombre_Capitulo Nombre,V.PRESU1 Presupuesto
,V.Presu2 CostePrevisto
, CASE V.TIPO WHEN 'C' THEN C.COSTE_FINAL_PREVISTO_T ELSE P.COSTE_FINAL_PREVISTO END CosteFinalPrevisto

,V.IMP_PRODU ProducciÛn,V.IMP_CERTI Certificacion, V.IMP_COSTE Coste

,CASE V.TIPO WHEN 'P' THEN v.imp_coste-(v.precio2*v.certificacion)  ELSE (
       SELECT SUM(PE.PRECIO2*PA.CERTIFICACION) FROM T_PARTIDAS PA 
        JOIN T_CAPITULOS CAPI ON CAPI.EMPRESA=PA.EMPRESA AND CAPI.OBRA=PA.OBRA AND CAPI.CAPITULO=PA.CAPITULO
       JOIN T_PRECIOS PE ON PE.EMPRESA=PA.EMPRESA AND PA.OBRA=PE.OBRA AND PE.COD_INTERNO=PA.COD_INTERNO
       WHERE PA.EMPRESA=V.EMPRESA AND PA.OBRA=V.OBRA AND CAPI.COD_CAP LIKE COALESCE(V.COD_CAP,'')+'%'
)
 END DesviacionCostePrevisto

,(SELECT dbo.F_IMP_COSTE(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,NULL,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0))) CosteHastaMesAnterior
,(SELECT dbo.F_IMP_COSTE(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0),null)) CosteMesActual

,(SELECT dbo.F_IMP_Certificacion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,NULL,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0))) CertificacionHastaMesAnterior
,(SELECT dbo.F_IMP_Certificacion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0),null)) CertificacionMesActual

,(SELECT sum(importe_base) FROM T_FRAV WHERE EMPRESA=V.EMPRESA AND OBRA=V.OBRA AND FECHA<dateadd(mm, datediff(mm,0,getdate()),="" 0))="" frav_hastamesanterior="" ,(select="" sum(importe_base)="" from="" t_frav="" where="" empresa="V.EMPRESA" and="" obra="V.OBRA" fecha="">=DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0)) FraV_MesActual

,(SELECT dbo.F_IMP_Produccion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,NULL,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0))) ProduccionHastaMesAnterior
,(SELECT dbo.F_IMP_Produccion(V.EMPRESA,V.OBRA,C.COD_CAP,V.COD_INTERNO,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0),null)) ProduccionMesActual
,DATEADD(MM, DATEDIFF(MM,0,GETDATE()), 0) FechaInicioMes

,O.DIRECCION

FROM T_OBRAS O
JOIN V_CAP_PARTIDAS_T V ON V.EMPRESA=O.EMPRESA AND V.OBRA=O.OBRA
LEFT JOIN T_CAPITULOS C ON C.EMPRESA=V.EMPRESA AND C.OBRA=V.OBRA AND C.CAPITULO=COALESCE(V.CAPITULO,V.PADRE) 
LEFT JOIN T_PARTIDAS P ON P.EMPRESA=V.EMPRESA AND P.OBRA=V.OBRA AND P.CAPITULO=V.PADRE AND P.COD_INTERNO=V.COD_INTERNO AND V.TIPO='P'
{WFiltro} AND V.TIPO<>'T' and v.capitulo='00000000'
ORDER BY V.EMPRESA,V.OBRA,V.COD_CAP,V.ORDEN
</dateadd(mm,>

Aplicar permisos de acceso a obras en listados personalizados

Es necesario usar la tabla T_ACCESOS donde se definen las obras a las que el usuario tiene acceso.

Por tanto, suponiendo que en nuestra consulta existe una tabla de obras T_OBRAS con ALIAS O, la consulta deberá incluir las líneas indicadas en rojo para que se apliquen los permisos de acceso:

SELECT  O.Obra[,restoDeCampos]
FROM T_OBRAS O
[JOIN RestoDeTablas Alias ON condiciones]LEFT JOIN T_ACCESOS A ON O.EMPRESA=A.EMPRESA AND O.OBRA=A.OBRA AND A.USUARIO='@@P.Usuario@@'
 WHERE [CondicionesDelListado]AND (A.OBRA IS NOT NULL OR '@@P.Perfil@@'<>'' OR '@@P.Usuario@@'='TREE')

Listados diario de producción vs coste