From 5f450a9fbf3e53fb1e67feb18edda173fc5cc62c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Nov 2022 18:09:31 -0700 Subject: [PATCH] -- filtro de segmento negocio, en resultados mensual y anual --- App_Code/ClsContPAQi.vb | 110 +++++++++++++---------- Contabilidad/RepEstadoResultados.aspx.vb | 4 +- 2 files changed, 63 insertions(+), 51 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 5ba1df7bd..d2fe94141 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1072,7 +1072,7 @@ Public Class ClsContPAQi StrSQL.AppendLine(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") StrSQL.AppendLine(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") - StrSQL.AppendLine(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") + StrSQL.AppendLine(" LEFT JOIN [192.168.0.2].Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") @@ -5263,7 +5263,7 @@ Public Class ClsContPAQi Return Retorno End Function - Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer) As Boolean + Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean Dim Retorno = False If Not FNC_TotalMensual() Then @@ -5323,27 +5323,27 @@ Public Class ClsContPAQi INSERT INTO @Temp SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, IIF(LEN(Orden)=11,2,1) as IntSubOrden, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 1, @Tipo), 0) AS Enero, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 2, @Tipo), 0) AS Febrero, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 3, @Tipo), 0) AS Marzo, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 4, @Tipo), 0) AS Abril, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 5, @Tipo), 0) AS Mayo, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 6, @Tipo), 0) AS Junio, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 7, @Tipo), 0) AS Julio, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 8, @Tipo), 0) AS Agosto, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 9, @Tipo), 0) AS Septiembre, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 10, @Tipo), 0) AS Octubre, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 11, @Tipo), 0) AS Noviembre, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 12, @Tipo), 0) AS Diciembre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 1, @Tipo, @IdSegNeg), 0) AS Enero, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 2, @Tipo, @IdSegNeg), 0) AS Febrero, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 3, @Tipo, @IdSegNeg), 0) AS Marzo, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 4, @Tipo, @IdSegNeg), 0) AS Abril, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 5, @Tipo, @IdSegNeg), 0) AS Mayo, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 6, @Tipo, @IdSegNeg), 0) AS Junio, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 7, @Tipo, @IdSegNeg), 0) AS Julio, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 8, @Tipo, @IdSegNeg), 0) AS Agosto, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 9, @Tipo, @IdSegNeg), 0) AS Septiembre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 10, @Tipo, @IdSegNeg), 0) AS Octubre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 11, @Tipo, @IdSegNeg), 0) AS Noviembre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 12, @Tipo, @IdSegNeg), 0) AS Diciembre, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 3, @Tipo), 0) Trimestral1, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 4, 6, @Tipo), 0) Trimestral2, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 9, @Tipo), 0) Trimestral3, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 10, 12, @Tipo), 0) Trimestral4, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 3, @Tipo, @IdSegNeg), 0) Trimestral1, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 4, 6, @Tipo, @IdSegNeg), 0) Trimestral2, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 9, @Tipo, @IdSegNeg), 0) Trimestral3, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 10, 12, @Tipo, @IdSegNeg), 0) Trimestral4, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 4, @Tipo), 0) Cuatrimestral1, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 8, @Tipo), 0) Cuatrimestral2, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 9, 12, @Tipo), 0) Cuatrimestral3 + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 4, @Tipo, @IdSegNeg), 0) Cuatrimestral1, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 8, @Tipo, @IdSegNeg), 0) Cuatrimestral2, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 9, 12, @Tipo, @IdSegNeg), 0) Cuatrimestral3 FROM Rec D INNER JOIN Cuentas C ON D.IdSubCtade = C.Id INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo @@ -5543,6 +5543,7 @@ Public Class ClsContPAQi With SqlAdapter.SelectCommand.Parameters .Add("@ANO", SqlDbType.Int).Value = ANO .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos + .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg End With Try @@ -5833,7 +5834,7 @@ Public Class ClsContPAQi ' Return Retorno 'End Function - Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer) As Boolean + Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean Dim Retorno = False If Not FNC_TotalAnual() Then @@ -5885,26 +5886,26 @@ Public Class ClsContPAQi StrSQL.Append(" INSERT INTO @Temp ") StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, ") StrSQL.Append(" ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 0, @Tipo), 0) ELSE 0 END AS Ano1, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 1, @Tipo), 0) ELSE 0 END AS Ano2, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 2, @Tipo), 0) ELSE 0 END AS Ano3, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 3, @Tipo), 0) ELSE 0 END AS Ano4, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 4, @Tipo), 0) ELSE 0 END AS Ano5, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 5, @Tipo), 0) ELSE 0 END AS Ano6, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 6, @Tipo), 0) ELSE 0 END AS Ano7, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 7, @Tipo), 0) ELSE 0 END AS Ano8, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 8, @Tipo), 0) ELSE 0 END AS Ano9, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 9, @Tipo), 0) ELSE 0 END AS Ano10, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 10, @Tipo), 0) ELSE 0 END AS Ano11, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 11, @Tipo), 0) ELSE 0 END AS Ano12, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 12, @Tipo), 0) ELSE 0 END AS Ano13, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 13, @Tipo), 0) ELSE 0 END AS Ano14, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 14, @Tipo), 0) ELSE 0 END AS Ano15, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 15, @Tipo), 0) ELSE 0 END AS Ano16, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 16, @Tipo), 0) ELSE 0 END AS Ano17, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 17, @Tipo), 0) ELSE 0 END AS Ano18, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 18, @Tipo), 0) ELSE 0 END AS Ano19, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 19, @Tipo), 0) ELSE 0 END AS Ano20 ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 0, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano1, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 1, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano2, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 2, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano3, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 3, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano4, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 4, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano5, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 5, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano6, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 6, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano7, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 7, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano8, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 8, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano9, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 9, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano10, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 10, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano11, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 11, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano12, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 12, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano13, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 13, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano14, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 14, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano15, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 15, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano16, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 16, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano17, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 17, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano18, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 18, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano19, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 19, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano20 ") StrSQL.Append(" FROM Rec D ") StrSQL.Append(" INNER JOIN Cuentas C ON D.IdSubCtade = C.Id ") StrSQL.Append(" INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo ") @@ -6087,6 +6088,7 @@ Public Class ClsContPAQi With SqlAdapter.SelectCommand.Parameters .Add("@ANO", SqlDbType.Int).Value = ANO .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos + .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg End With Try @@ -10194,9 +10196,10 @@ Public Class ClsContPAQi StrSQL.Clear() StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_TotalAnual] ") StrSQL.Append(" ( ") - StrSQL.Append(" @IdCtaSup INT, ") - StrSQL.Append(" @Ano INT, ") - StrSQL.Append(" @Tipo INT ") + StrSQL.Append(" @IdCtaSup INT, ") + StrSQL.Append(" @Ano INT, ") + StrSQL.Append(" @Tipo INT, ") + StrSQL.Append(" @SegmentoNegocio INT = -1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -10238,6 +10241,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" IF @Tipo = 2 ") @@ -10252,7 +10256,8 @@ Public Class ClsContPAQi StrSQL.Append(" BEGIN ") StrSQL.Append(" INSERT INTO @TempMovtos ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") - StrSQL.Append(" FROM MovimientosPoliza MP INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") + StrSQL.Append(" FROM MovimientosPoliza MP INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" UNION ALL ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM Vw_PolizasComplementarias MP INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") @@ -10405,7 +10410,8 @@ Public Class ClsContPAQi StrSQL.Append(" @IdCtaSup INT, ") StrSQL.Append(" @Ano INT, ") StrSQL.Append(" @Mes INT, ") - StrSQL.Append(" @Tipo INT ") + StrSQL.Append(" @Tipo INT, ") + StrSQL.Append(" @SegmentoNegocio INT = -1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -10444,6 +10450,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" IF @Tipo = 2 ") @@ -10460,10 +10467,12 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" WHERE MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" AND (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" UNION ALL ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM Vw_PolizasComplementarias MP ") - StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" ") @@ -10516,7 +10525,8 @@ Public Class ClsContPAQi StrSQL.Append(" @Ano INT, ") StrSQL.Append(" @Mes INT, ") StrSQL.Append(" @Mes2 INT, ") - StrSQL.Append(" @Tipo INT ") + StrSQL.Append(" @Tipo INT, ") + StrSQL.Append(" @SegmentoNegocio INT = -1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -10557,6 +10567,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo >= @Mes AND MP.Periodo <= @Mes2 ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" IF @Tipo = 2 ") @@ -10573,6 +10584,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo >= @Mes AND MP.Periodo <= @Mes2 ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" UNION ALL ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM Vw_PolizasComplementarias MP ") diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index 7ae710b25..9a8d9b12f 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -441,7 +441,7 @@ Partial Class Contabilidad_RepEstadoResultados Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) - If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then + If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then DtDatosMensual = ObjConta.DtResultados Else DtDatosMensual = Nothing @@ -818,7 +818,7 @@ Partial Class Contabilidad_RepEstadoResultados Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) - If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then + If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then DtDatosAnual = ObjConta.DtResultados Else DtDatosAnual = Nothing