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 Polizas p ON mp.IdPoliza = p.Id ")
StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ")
StrSQL.AppendLine(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") 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(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ")
StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ")
StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ")
@@ -5263,7 +5263,7 @@ Public Class ClsContPAQi
Return Retorno Return Retorno
End Function 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 Dim Retorno = False
If Not FNC_TotalMensual() Then If Not FNC_TotalMensual() Then
@@ -5323,27 +5323,27 @@ Public Class ClsContPAQi
INSERT INTO @Temp 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, 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, 1, @Tipo, @IdSegNeg), 0) AS Enero,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 2, @Tipo), 0) AS Febrero, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 2, @Tipo, @IdSegNeg), 0) AS Febrero,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 3, @Tipo), 0) AS Marzo, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 3, @Tipo, @IdSegNeg), 0) AS Marzo,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 4, @Tipo), 0) AS Abril, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 4, @Tipo, @IdSegNeg), 0) AS Abril,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 5, @Tipo), 0) AS Mayo, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 5, @Tipo, @IdSegNeg), 0) AS Mayo,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 6, @Tipo), 0) AS Junio, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 6, @Tipo, @IdSegNeg), 0) AS Junio,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 7, @Tipo), 0) AS Julio, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 7, @Tipo, @IdSegNeg), 0) AS Julio,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 8, @Tipo), 0) AS Agosto, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 8, @Tipo, @IdSegNeg), 0) AS Agosto,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 9, @Tipo), 0) AS Septiembre, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 9, @Tipo, @IdSegNeg), 0) AS Septiembre,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 10, @Tipo), 0) AS Octubre, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 10, @Tipo, @IdSegNeg), 0) AS Octubre,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 11, @Tipo), 0) AS Noviembre, ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 11, @Tipo, @IdSegNeg), 0) AS Noviembre,
ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 12, @Tipo), 0) AS Diciembre, 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, 1, 3, @Tipo, @IdSegNeg), 0) Trimestral1,
ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 4, 6, @Tipo), 0) Trimestral2, ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 4, 6, @Tipo, @IdSegNeg), 0) Trimestral2,
ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 9, @Tipo), 0) Trimestral3, ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 9, @Tipo, @IdSegNeg), 0) Trimestral3,
ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 10, 12, @Tipo), 0) Trimestral4, 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, 1, 4, @Tipo, @IdSegNeg), 0) Cuatrimestral1,
ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 8, @Tipo), 0) Cuatrimestral2, ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 8, @Tipo, @IdSegNeg), 0) Cuatrimestral2,
ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 9, 12, @Tipo), 0) Cuatrimestral3 ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 9, 12, @Tipo, @IdSegNeg), 0) Cuatrimestral3
FROM Rec D FROM Rec D
INNER JOIN Cuentas C ON D.IdSubCtade = C.Id INNER JOIN Cuentas C ON D.IdSubCtade = C.Id
INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo
@@ -5543,6 +5543,7 @@ Public Class ClsContPAQi
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@ANO", SqlDbType.Int).Value = ANO .Add("@ANO", SqlDbType.Int).Value = ANO
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
.Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg
End With End With
Try Try
@@ -5833,7 +5834,7 @@ Public Class ClsContPAQi
' Return Retorno ' Return Retorno
'End Function '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 Dim Retorno = False
If Not FNC_TotalAnual() Then If Not FNC_TotalAnual() Then
@@ -5885,26 +5886,26 @@ Public Class ClsContPAQi
StrSQL.Append(" INSERT INTO @Temp ") 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(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, ")
StrSQL.Append(" ") 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 + 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), 0) ELSE 0 END AS Ano2, ") 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), 0) ELSE 0 END AS Ano3, ") 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), 0) ELSE 0 END AS Ano4, ") 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), 0) ELSE 0 END AS Ano5, ") 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), 0) ELSE 0 END AS Ano6, ") 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), 0) ELSE 0 END AS Ano7, ") 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), 0) ELSE 0 END AS Ano8, ") 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), 0) ELSE 0 END AS Ano9, ") 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), 0) ELSE 0 END AS Ano10, ") 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), 0) ELSE 0 END AS Ano11, ") 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), 0) ELSE 0 END AS Ano12, ") 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), 0) ELSE 0 END AS Ano13, ") 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), 0) ELSE 0 END AS Ano14, ") 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), 0) ELSE 0 END AS Ano15, ") 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), 0) ELSE 0 END AS Ano16, ") 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), 0) ELSE 0 END AS Ano17, ") 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), 0) ELSE 0 END AS Ano18, ") 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), 0) ELSE 0 END AS Ano19, ") 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), 0) ELSE 0 END AS Ano20 ") 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(" FROM Rec D ")
StrSQL.Append(" INNER JOIN Cuentas C ON D.IdSubCtade = C.Id ") StrSQL.Append(" INNER JOIN Cuentas C ON D.IdSubCtade = C.Id ")
StrSQL.Append(" INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo ") StrSQL.Append(" INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo ")
@@ -6087,6 +6088,7 @@ Public Class ClsContPAQi
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@ANO", SqlDbType.Int).Value = ANO .Add("@ANO", SqlDbType.Int).Value = ANO
.Add("@Tipo", SqlDbType.Int).Value = TipoMovtos .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
.Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg
End With End With
Try Try
@@ -10194,9 +10196,10 @@ Public Class ClsContPAQi
StrSQL.Clear() StrSQL.Clear()
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_TotalAnual] ") StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_TotalAnual] ")
StrSQL.Append(" ( ") StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ") StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @Ano INT, ") StrSQL.Append(" @Ano INT, ")
StrSQL.Append(" @Tipo INT ") StrSQL.Append(" @Tipo INT, ")
StrSQL.Append(" @SegmentoNegocio INT = -1 ")
StrSQL.Append(" ) ") StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" RETURNS FLOAT ")
StrSQL.Append(" AS ") StrSQL.Append(" AS ")
@@ -10238,6 +10241,7 @@ Public Class ClsContPAQi
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ")
StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" FROM MovimientosPoliza MP ")
StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") 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(" END ")
StrSQL.Append(" ") StrSQL.Append(" ")
StrSQL.Append(" IF @Tipo = 2 ") StrSQL.Append(" IF @Tipo = 2 ")
@@ -10252,7 +10256,8 @@ Public Class ClsContPAQi
StrSQL.Append(" BEGIN ") StrSQL.Append(" BEGIN ")
StrSQL.Append(" INSERT INTO @TempMovtos ") StrSQL.Append(" INSERT INTO @TempMovtos ")
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") 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(" UNION ALL ")
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") 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 ") 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(" @IdCtaSup INT, ")
StrSQL.Append(" @Ano INT, ") StrSQL.Append(" @Ano INT, ")
StrSQL.Append(" @Mes INT, ") StrSQL.Append(" @Mes INT, ")
StrSQL.Append(" @Tipo INT ") StrSQL.Append(" @Tipo INT, ")
StrSQL.Append(" @SegmentoNegocio INT = -1 ")
StrSQL.Append(" ) ") StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" RETURNS FLOAT ")
StrSQL.Append(" AS ") StrSQL.Append(" AS ")
@@ -10444,6 +10450,7 @@ Public Class ClsContPAQi
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ")
StrSQL.Append(" FROM MovimientosPoliza MP ") 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(" 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(" END ")
StrSQL.Append(" ") StrSQL.Append(" ")
StrSQL.Append(" IF @Tipo = 2 ") StrSQL.Append(" IF @Tipo = 2 ")
@@ -10460,10 +10467,12 @@ Public Class ClsContPAQi
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ")
StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" FROM MovimientosPoliza MP ")
StrSQL.Append(" WHERE MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") 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(" UNION ALL ")
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ")
StrSQL.Append(" FROM Vw_PolizasComplementarias MP ") 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(" END ")
StrSQL.Append(" ") StrSQL.Append(" ")
StrSQL.Append(" ") StrSQL.Append(" ")
@@ -10516,7 +10525,8 @@ Public Class ClsContPAQi
StrSQL.Append(" @Ano INT, ") StrSQL.Append(" @Ano INT, ")
StrSQL.Append(" @Mes INT, ") StrSQL.Append(" @Mes INT, ")
StrSQL.Append(" @Mes2 INT, ") StrSQL.Append(" @Mes2 INT, ")
StrSQL.Append(" @Tipo INT ") StrSQL.Append(" @Tipo INT, ")
StrSQL.Append(" @SegmentoNegocio INT = -1 ")
StrSQL.Append(" ) ") StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" RETURNS FLOAT ")
StrSQL.Append(" AS ") StrSQL.Append(" AS ")
@@ -10557,6 +10567,7 @@ Public Class ClsContPAQi
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ")
StrSQL.Append(" FROM MovimientosPoliza MP ") 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(" 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(" END ")
StrSQL.Append(" ") StrSQL.Append(" ")
StrSQL.Append(" IF @Tipo = 2 ") StrSQL.Append(" IF @Tipo = 2 ")
@@ -10573,6 +10584,7 @@ Public Class ClsContPAQi
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ")
StrSQL.Append(" FROM MovimientosPoliza MP ") 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(" 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(" UNION ALL ")
StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ")
StrSQL.Append(" FROM Vw_PolizasComplementarias MP ") 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) Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) 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 DtDatosMensual = ObjConta.DtResultados
Else Else
DtDatosMensual = Nothing DtDatosMensual = Nothing
@@ -818,7 +818,7 @@ Partial Class Contabilidad_RepEstadoResultados
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) 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 DtDatosAnual = ObjConta.DtResultados
Else Else
DtDatosAnual = Nothing DtDatosAnual = Nothing