AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- filtro de segmento negocio, en resultados mensual y anual

Browse Source
This commit is contained in:
rrene
2022-11-11 18:09:31 -07:00
parent ee697fba14
commit 5f450a9fbf
2 changed files with 63 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

110
App_Code/ClsContPAQi.vb
View File

@@ -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 ")

4
Contabilidad/RepEstadoResultados.aspx.vb
View File

@@ -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