diff --git a/.gitignore b/.gitignore index fc88d30cc..567748c29 100644 --- a/.gitignore +++ b/.gitignore @@ -280,3 +280,5 @@ vwd.webinfo /Bin.rar /Ashx/sigfox.ashx /BinOLD +/App_Data/PublishProfiles/FolderProfile.pubxml +/vwd.webinfo 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/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 5caa49efb..0cbfb0931 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -110,28 +110,28 @@ Public Class ClsMovimientos Public Sub Commit() SqlTransacc.Commit() - End Sub - + End Sub + #Region "CxC" - 'Public Function GetCxCCliente(CveCliente As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' 'Data = New DataTable - ' 'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion) - ' 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure - ' DataAdapter("PA_ClienteCxC") - ' SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As SqlException - ' OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function - - Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional CveIESustitucion As Integer = -1, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean + 'Public Function GetCxCCliente(CveCliente As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' 'Data = New DataTable + ' 'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion) + ' 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + ' DataAdapter("PA_ClienteCxC") + ' SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As SqlException + ' OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try + + ' Return Retorno + 'End Function + + Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean Dim Retorno As Boolean = False FechaCorte = IIf(FechaCorte = Nothing, Date.Now.AddYears(1), FechaCorte).ToString.ToDate @@ -146,8 +146,7 @@ Public Class ClsMovimientos .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte - .Add("@CveIESustitucion", SqlDbType.Int).Value = CveIESustitucion + .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte .Add("@FechaVencimientoI", SqlDbType.Date).Value = FechaVencimientoI .Add("@FechaVencimientoF", SqlDbType.Date).Value = FechaVencimientoF End With diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index c2289f545..2c3753280 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2593,7 +2593,7 @@ Public Class ClsNominas Return retorno End Function #End Region - Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String) As Boolean + Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String, Optional CveRegistroPatronal As Integer = -1) As Boolean Dim retorno As Boolean = False Try DTSet = New DataSet() @@ -2601,6 +2601,7 @@ Public Class ClsNominas With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal .Add("@Fecha", SqlDbType.Date).Value = FechaCalculo End With SqlAdapter.Fill(DTSet) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 319c6a699..8d378ccd0 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1375,7 +1375,7 @@ Public Class ClsProductosServicios Return Retorno End Function - Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer) As Boolean + Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_ProductosServiciosAliasAdd") @@ -1384,6 +1384,7 @@ Public Class ClsProductosServicios .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@Flexible", SqlDbType.Bit).Value = If(Flexible, 1, 0) .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index b5c42d4a8..d07254317 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -7089,15 +7089,16 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End If ListaTagsDocumentost.Add(New TagsDocumentos("{Sexo}", DtResultados(0)("Genero").ToString)) - ListaTagsDocumentost.Add(New TagsDocumentos("{NombreEmpresa}", DtResultados(0)("Empresa").ToString)) - Dim SalarioDiarioTag As String = DtResultados(0)("SalarioDiario").ToString.ToDouble.Texto2Letras() - ListaTagsDocumentost.Add(New TagsDocumentos("{Sueldo}", DtResultados(0)("SalarioDiario").ToString.ToDouble.ToString("###,###,###.00"))) ListaTagsDocumentost.Add(New TagsDocumentos("{SueldoLetra}", SalarioDiarioTag)) - ListaTagsDocumentost.Add(New TagsDocumentos("{Nacionalidad}", DtResultados(0)("ClaveSATPaisDescripcion").ToString)) - - + ListaTagsDocumentost.Add(New TagsDocumentos("{Nacionalidad}", DtResultados(0)("ClaveSATPaisDescripcion").ToString)) + + ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaNombre}", DtResultados(0)("Empresa").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaDireccion}", DtResultados(0)("EmpresaDireccion").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaCiudad}", DtResultados(0)("EmpresaCiudad").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaRFC}", DtResultados(0)("EmpresaRFC").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaRepresentante}", DtResultados(0)("EmpresaRepresentante").ToString)) End If diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 6fee37f4c..8f2cafafa 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -19,7 +19,7 @@ Public Class LogicNominas sw.Start() End If - Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, CvePAC) 'CvePersonal, CvePeriodo, + Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False) 'CvePersonal, CvePeriodo, If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then If Not cfdi.Timbrado Then Dim ObjTimbrado As New Timbrado @@ -81,7 +81,7 @@ Public Class LogicNominas Return Retorno End Function Dim hasfiniquito As Boolean - Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean, Optional CvePAC As Integer = 4) As CFDITimbre + Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean) As CFDITimbre Dim continuar As Boolean = True hasfiniquito = False Dim CvePersonal As Integer = -1 @@ -439,7 +439,7 @@ Public Class LogicNominas cfdi.Comprobante.TipoComprobante = "N" cfdi.Comprobante.TipoDocto = "Egs" cfdi.Comprobante.MetodoPago = "PUE" - cfdi.Comprobante.CondicionesdePago = If(CvePAC < 4, "CONTADO", "") '"" '"" + cfdi.Comprobante.CondicionesdePago = "" '"CONTADO" cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99") cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index ab0e74c3a..21e8ecf2f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2415,31 +2415,83 @@ Namespace Modelos Select Case ConceptoContable Case 1 'Cliente If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then + Dim TCCliente As Decimal = tipoCambio + Dim TCFluctuacion As Decimal = tipoCambio + 'TOMA EL TC DE LA ULTIMA FLUCTUACION + If ValorMultiplicador = -1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso ObjFactura.CveMoneda = 2 Then + Dim UltimaFluctuacion As ClsPaginas.MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now) + + If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then + If UltimaFluctuacion.FechaFluctuacion <= Now Then + TCCliente = UltimaFluctuacion.TCFluctuacion + TCFluctuacion = UltimaFluctuacion.TCFluctuacion + End If + End If + End If + If ObjFactura.CveMoneda > 1 Then ConceptoContable = 291 importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador - importeMX = importeMovimiento * tipoCambio * Multiplicador + importeMX = importeMovimiento * TCCliente * Multiplicador FechaMovimiento = ObjFactura.FechaPago CveSubProyectoContabilizar = CveSubProyectoVenta 'If ObjFactura.TipoDocto.Contiene("Ant") Then ' TipoMovimiento = Not TipoMovimiento 'lo contrario a ingreso, en este caso es anticipo 'End If - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + If TCCliente > 1 Then Concepto += $" TC:{TCCliente} ${importeMovimiento.FormatoNumero(2)}" - If tipoCambio = 1 Then + If TCCliente = 1 Then IdCtaContable = ObjFactura.Cliente.IdCtaContClientes Else IdCtaContable = ObjFactura.Cliente.IdCtaContComplementaria If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsaComplementariaClientes) Then importeMX = importeMovimiento - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, 0, Referencia, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Math.Round(importeMovimiento * tipoCambio - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, 0, Referencia, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Math.Round(importeMovimiento * TCCliente - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=If(TCCliente = 1, 0, importeMovimiento), TipoCambio:=TCCliente, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If + + 'CONSIDERO FLUCTUACIÓN. + If ValorMultiplicador = -1 AndAlso tipoCambio <> TCFluctuacion AndAlso TCFluctuacion > 1 AndAlso tipoCambio > 1 Then + Dim difFluctuacion As Decimal = tipoCambio - TCFluctuacion + Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida + Dim TipoMovtoFluctua As Boolean = True + Dim IdCtaContableFluctua As Integer + If difFluctuacion < 0 Then + CveConceptoFluctua = 65 + TipoMovtoFluctua = False + IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria + Else + CveConceptoFluctua = 64 + TipoMovtoFluctua = True + IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria + End If + Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimiento * difFluctuacion).RoundSQL) + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=TCCliente) Then + ErrorPrepoliza = True + Exit For + End If + + End If End If IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera End If IdCtaContableCliente = IdCtaContable + + If ValorMultiplicador = -1 AndAlso ConceptoContable = 291 Then + If IdCtaContable <= 0 Then + CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + idCuentaContabilizacion = 0 + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 291, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(TCCliente = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCCliente, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + Exit For + End If + + importeMovimiento = 0 + End If End If Case 3 'Cliente @@ -2801,7 +2853,7 @@ Namespace Modelos End If - Case 136 'Otros Conceptos Dinamicos + Case 136 'Otros Conceptos Dinamicos If ObjFactura.DtOtrosConceptos IsNot Nothing Then For Each row2 As DataRow In ObjFactura.DtOtrosConceptos.Rows If row2("Importe").ToString().ToDecimal > 0 Then @@ -4953,7 +5005,7 @@ Namespace Modelos CveEstatusRefacturacion = 0 End If - Dim CancelacionFecha As Date + Dim CancelacionFecha As Date = MinFecha Dim FolioFiscal As String = ObjFactura.FolioFiscal Dim SolicitudCancelacionAcuse As String = "" Dim CancelacionAcuse As String = "" @@ -6319,9 +6371,13 @@ Namespace Modelos Dim CveVentaDetalleRem = DrRem("CveVentaDetalleRemision").ToString.ToEntero Dim CantidadRem = DrRem("Cantidad").ToString.ToDecimal + 'SI NO UTILIZA EL CAMPO DEBE TOMAR DE LA VENTA If Not CveVentaDetalleRem > 0 Then - ErrorCancelar = True - Exit For + CveVentaDetalleRem = DrRem("CveVentaDetalle").ToString.ToEntero + If Not CveVentaDetalleRem > 0 Then + ErrorCancelar = True + Exit For + End If End If If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, FechaCaducidad:=DrRem("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero(), CveSeccionAlmacen:=-3) Then @@ -8794,6 +8850,42 @@ Namespace Modelos HttpContext.Current.Application("GlobalDTTiposDocumentos") = value End Set End Property + Public ReadOnly Property GlobalTipoCambioUltimaFluctuacion(Optional Fecha As Date = MinFecha) As ClsPaginas.MTipoCambioFluctuacion + Get + + If HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") Is Nothing Then + Dim ObjGral As New ClsGenerales + If ObjGral.GetTipoCambioUltimaFluctuacion(-1, Now) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then + HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") = ObjGral.DtResultados.Copy() + Else + HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") = Nothing + End If + ObjGral.Dispose() + End If + + Dim fluctuacion = New ClsPaginas.MTipoCambioFluctuacion() With { + .TCFluctuacion = 0, + .FechaFluctuacion = MinFecha + } + + 'sino tiene dato lo recargo por si ya esta insertado + If Fecha = MinFecha Then Fecha = Now + + If HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then + + Dim dr = DirectCast(HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha <= '{0}'", Fecha), Orderby:="Fecha DESC") + If dr IsNot Nothing Then + fluctuacion.TCFluctuacion = dr("TCFluctuacion").ToString().ToDecimal() + fluctuacion.FechaFluctuacion = dr("FechaFluctuacion").ToString().ToDateTime() + End If + + Return fluctuacion + Else + Return fluctuacion + End If + + End Get + End Property Property GlobalDTCobranzaEstatus(CveEmpresa As Integer) As DataTable Get If CveEmpresa <> -1 Then diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 0f178b373..e37d222e5 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -71,7 +71,7 @@ Namespace Extensiones Dim dataTable As DataTable = New DataTable() Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0) - For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 + For cols = 0 To worksheet.Rows(curRow).AllocatedCells.Count - 1 If firstRowHasHeaders Then @@ -81,12 +81,13 @@ Namespace Extensiones dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) End If - curRow = 1 Else dataTable.Columns.Add("Column " & (cols + 1)) End If Next - + If firstRowHasHeaders Then + curRow = curRow + 1 + End If While curRow < worksheet.Rows.Count columns = New String(cols - 1) {} @@ -2155,6 +2156,7 @@ Namespace Extensiones Dim worksheet = excel.Worksheets(0) worksheet.Rows.InsertEmpty(0, TotalRowHeader) Dim celdasConTexto = worksheet.GetUsedCellRange(True) + If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error celdasConTexto.Style.Font.Name = "Calibri Light" Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index d1c1b01fc..1a4095086 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -142,8 +142,8 @@ Partial Class Bancos_DepositoTerminal IdCuentaBancaria = 0 IdCuentaBancariaComplementaria = 0 - CveCuentaBancaria = 0 - CveCuentaBancariaComplementaria = 0 + 'CveCuentaBancaria = 0 + 'CveCuentaBancariaComplementaria = 0 End If If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then @@ -259,7 +259,7 @@ Partial Class Bancos_DepositoTerminal ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR IdCuentaBancaria = 0 - CveCuentaBancaria = 0 + 'CveCuentaBancaria = 0 End If If gvr.DataKey("CveMoneda").ToEntero = 2 Then @@ -436,14 +436,14 @@ Partial Class Bancos_DepositoTerminal Next If IdCuentaBancariaComplementaria > 0 Then - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then MsgError = "No se pudo insertar la póliza" End If - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancariaComplementaria) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then MsgError = "No se pudo insertar la póliza" End If Else - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then MsgError = "No se pudo insertar la póliza" End If End If diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 5b5937e02..3f9794c24 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -46,6 +46,7 @@ Partial Class Bancos_DepositosCaja 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then DdlCajaChica.Items.Add(New ListItem("Todas", "-1")) + DdlCuentaDeposito.Items.Add(New ListItem("Cuadre Solidaridad", "7850")) divFolio.Visible = True End If diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index f15eb6946..0bbd521d5 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FluctuacionCambiaria.aspx.vb" Inherits="Bancos_FluctuacionCambiaria" %> +<%@ Page Title="" Language="VB" EnableEventValidation="false" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FluctuacionCambiaria.aspx.vb" Inherits="Bancos_FluctuacionCambiaria" %> diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 57615683d..b465c2df1 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -1285,25 +1285,32 @@ Partial Class Bancos_FluctuacionCambiaria #Region " EXPORTA EXCEL " Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + Dim StrFiltro As New StringBuilder + 'If DdlProveedor.SelectedValue.ToEntero > 0 Then + StrFiltro.AppendFormat("Filtro: ", DdlMes.SelectedItem.ToString) + StrFiltro.AppendFormat("{0} ", DdlMes.SelectedItem.ToString) + StrFiltro.AppendFormat("{0} ", DdlAnio.SelectedValue) + StrFiltro.AppendFormat("TC: {0}", LtTipoCambioActual.Text) + If (T.ActiveTabIndex = 0) Then 'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString) - ExportToExcelGembox(GvProveedores, "FluctuacionCambiariaProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuaciones cambairasi proveedor") + GvProveedores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 1) Then - GvProveedoresAnt.ExportToExcel("FluctuacionCambiariaProveedoresAnt_" & Now.ToShortDateString) + GvProveedoresAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 2) Then - GvVentas.ExportToExcel("FluctuacionCambiariaClientes_" & Now.ToShortDateString) + GvVentas.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Clientes", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 3) Then - GvClientesAnt.ExportToExcel("FluctuacionCambiariaClientesAnt_" & Now.ToShortDateString) + GvClientesAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Clientes Anticipos", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 4) Then - GvAcreedores.ExportToExcel("FluctuacionCambiariaComprasAcreedores_" & Now.ToShortDateString) + GvAcreedores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Compras Acreedores", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 5) Then - GvAcreedoresAnt.ExportToExcel("FluctuacionCambiariaAcreedoresAnt_" & Now.ToShortDateString) + GvAcreedoresAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Acreedores Anticipos", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 6) Then - GvCuentas.ExportToExcel("FluctuacionCambiariaBancos_" & Now.ToShortDateString) + GvCuentas.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Bancos", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 7) Then - GvFiliales.ExportToExcel("FluctuacionCambiariaFilial_" & Now.ToShortDateString) + GvFiliales.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Filiales", DatosFiltros:=StrFiltro.ToString()) ElseIf (T.ActiveTabIndex = 8) Then - GvDeudores.ExportToExcel("FluctuacionCambiariaDeudores_" & Now.ToShortDateString) + GvDeudores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Deudores", DatosFiltros:=StrFiltro.ToString()) End If ' ImprimirReportePdf("Excel") diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index da2e46109..02deb93e3 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -900,7 +900,7 @@ Partial Class Bancos_ProveedoresAbonar Else - If Not UsaComplementariaBancos Then tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL + If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then MsgError = "No se pudo insertar la póliza" diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 3656903b0..e25ec6628 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index f63896887..38b0e8adc 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -392,7 +392,7 @@ Partial Class Compras_RepComprasAFDetalle params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) If Imagen.Exists Then - pparams.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 24abbf0ce..44d945232 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -457,7 +457,7 @@ - @@ -520,6 +520,7 @@ + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index e4664c7df..22370ba6d 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -835,13 +835,14 @@ Partial Class Compras_eFacturas If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then TabTraslados.Visible = True - If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then + 'If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then - If ObjDatos.DtResultados.Rows.Count > 0 Then - DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'") - End If + ' If ObjDatos.DtResultados.Rows.Count > 0 Then + ' DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'") + ' End If - End If + 'End If + DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'") End If LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0")) @@ -905,9 +906,6 @@ Partial Class Compras_eFacturas Dim msgs As String() = Mensajes.Split("|"c) Dim NFacturas As Integer = 0 - - - If msgs.Length >= 2 Then Try NFacturas = msgs(0).ToEntero @@ -921,11 +919,8 @@ Partial Class Compras_eFacturas Mensajes = "La actualización se realizó correctamente" End If - - LnkNoRecibidas_Click(LnkNoRecibias, EventArgs.Empty, ValidaRowCount:=ValidaRowCount) - 'Else ' Dim Str As New StringBuilder ' Dim conta As Integer = 1 @@ -4706,12 +4701,7 @@ Partial Class Compras_eFacturas End If ObjCompra.Dispose() - - - End If - - Next @@ -4734,8 +4724,6 @@ Partial Class Compras_eFacturas Protected Sub GvTraslados_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTraslados.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("TipoComprobante") = "T" Then @@ -4752,7 +4740,10 @@ Partial Class Compras_eFacturas If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then e.Row.FCLiteral("LtlXML").Text = String.Format("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML"))) If e.Row.DBCampo("TipoComprobante") = "T" And e.Row.DBCampo("FueValidado") = "1" Then - e.Row.FCLinkButton("LnkAgregarTraslado").Visible = True + ' e.Row.FCLinkButton("LnkAgregarTraslado").Visible = True + e.Row.FCHyperLink("HplAgregar").NavigateUrl = String.Format("/Compras/Compras.aspx?CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCDe")) + + End If Else e.Row.FCLiteral("LtlXML").Text = "N/D" ' String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML")) ' @@ -4808,18 +4799,18 @@ Partial Class Compras_eFacturas End If - Dim CveComplementoTraslado As Integer = e.Row.DataKey("CveComplementoTraslado").ToString.ToEntero + 'Dim CveComplementoTraslado As Integer = e.Row.DataKey("CveComplementoTraslado").ToString.ToEntero - If CveComplementoTraslado > 0 Then - e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm green" - e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" - e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Ver vinculación") - Else - e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm blue" - e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" - e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Vincular Traslado") - End If + 'If CveComplementoTraslado > 0 Then + ' e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm green" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Ver vinculación") + 'Else + ' e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm blue" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Vincular Traslado") + 'End If End If diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 50deab8a5..3b3e942db 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2360,7 +2360,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ErrorArchivo = False Dim ErrorExcel = False DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue - dt = ReadExcelFile(Ruta + FileName, True) + dt = ReadExcelFile(Ruta + FileName, True, 0) If Not ErrorArchivo Then 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 diff --git a/GPS/PalletEtiqueta.rdlc b/GPS/PalletEtiqueta.rdlc index bdfd61a05..0151edb60 100644 --- a/GPS/PalletEtiqueta.rdlc +++ b/GPS/PalletEtiqueta.rdlc @@ -1606,7 +1606,7 @@ KM12 HERMOSILLO, SONORA 5.84433in @@ -23,7 +23,9 @@
  • - + Cargar archivo SUA +
    • +
  • Descargar
  • @@ -32,7 +34,7 @@
  • Mostrar archivos
    • -
  • +
  • Descargar Archivos IDSE
    • @@ -55,7 +57,7 @@
    Tipo : -
    +
    @@ -63,7 +65,7 @@
    Fecha : -
    +
    @@ -77,7 +79,14 @@
    -
    + + +
    + + + +
    +
    @@ -86,18 +95,23 @@
    +
    + + +
    - + + <%----%> - @@ -112,13 +126,13 @@ - + - + - + @@ -179,6 +193,15 @@ + + + Salario +
    SUA +     + + + +     @@ -186,7 +209,7 @@ integrado - + @@ -196,7 +219,7 @@ variable - + @@ -206,7 +229,7 @@ cotización - + @@ -214,7 +237,15 @@ Modificación - + + + + + + +
    + +
    @@ -224,7 +255,7 @@ - @@ -331,7 +362,7 @@ - @@ -344,9 +375,10 @@ - + - Fecha alta
    + Fecha alta +
    o reingreso     @@ -373,18 +405,20 @@     - + - Percepciones
    + Percepciones +
    variables     - + - Días
    + Días +
    incapacidad     @@ -417,7 +451,7 @@     - +     @@ -580,7 +614,223 @@
    + @@ -600,6 +850,32 @@ document.body.removeChild(elem); } } + + + function showResult() { + /* + setTimeout(function () { + let collapse = $('#cargaarchivoprocesasua .expand'); + let body = $('#cargaarchivoprocesasua .portlet-body'); + if (collapse && collapse.length > 0) { + collapse.removeClass('collapse'); + collapse.addClass('expand'); + } + if (body && body.length > 0) { + body.css('display', 'none'); + } + collapse = $('#resultadoprocesasua .collapse'); + body = $('#resultadoprocesasua .portlet-body'); + if (collapse && collapse.length > 0) { + collapse.addClass('collapse'); + collapse.removeClass('expand'); + } + if (body && body.length > 0) { + body.css('display', ''); + } + setTimeout(function () { loadadscroll(); }, 50); + }, 400);*/ + } diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs index b5f629625..cd627e747 100644 --- a/RH/CalculoSBC.aspx.cs +++ b/RH/CalculoSBC.aspx.cs @@ -2,6 +2,7 @@ using System.Collections.Generic; using System.Data; using System.Linq; +using System.Text; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; @@ -23,6 +24,17 @@ public partial class RH_CalculoSBC : ClsPaginas if (!IsPostBack) { TxtFechaPago.Text = String.Format("{0:01/MM/yyyy}", DateTime.Now); + + + ClsRH ObjRH = new ClsRH(); + + if (ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, 1)) + DdlRegistroPatronal.DataSource = ObjRH.DtResultados; + else + DdlRegistroPatronal.DataSource = null; + + DdlRegistroPatronal.DataBind(); + ObjRH.Dispose(); //string rutarchivos = string.Format("{0}modificacionsalarios\\", UsuarioActual.Empresa.RutaArchivos); //Alert(rutarchivos); //ADSNetLibrary.SIGAPI.Services.Agropecuaria.IAgropecuariaService servicioAgro = new ADSNetLibrary.SIGAPI.Services.Agropecuaria.AgropecuariaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); @@ -34,11 +46,157 @@ public partial class RH_CalculoSBC : ClsPaginas } } + protected void LnkDownExcelSua_Click(object sender, EventArgs e) + { + } + protected void LnkUpSuamodal_Click(object sender, EventArgs e) + { + TxtArchivoSua.Text = ""; + GVProcesarSUA.DataSource = null; + GVProcesarSUA.DataBind(); + RegistraScript("$('#DmodalCompareSua').modal();shownew();"); + UpArchivoSua.Update(); + } + protected void LnkUpSuaFile_Click(object sender, EventArgs e) + { + string fileurl = ""; + GVProcesarSUA.DataSource = null; + Files archivos = TxtArchivoSua.getfiles(); + if (archivos.Archivos.Count > 0) + { + fileurl = archivos.Archivos[0].FileUrl; + string SuaFiletext = System.IO.File.ReadAllText(fileurl, Encoding.GetEncoding("iso-8859-1")); + using (ClsNominas ObjPersonal = new ClsNominas()) + { + if (ObjPersonal.ProcesarSUA(SuaFiletext, UsuarioActual.CveEmpresa)) + { + if (ObjPersonal.DTSetResultados.Tables.Count > 4) + { + DateTime dateperiodo; + DateTime.TryParseExact(string.Format("{0}01", ObjPersonal.DTSetResultados.Tables[1].Rows[0]["Periodo"]), "yyyyMMdd", new System.Globalization.CultureInfo("es-MX"), System.Globalization.DateTimeStyles.None, out dateperiodo); + LtlPeriodo.Text = dateperiodo.Date.ToString("MMMM yyyy", new System.Globalization.CultureInfo("es-MX")); + //DtSuaProcesado = ObjPersonal.DTSetResultados.Tables[3]; + GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3]; + } + } + } + + } + GVProcesarSUA.DataBind(); + TxtArchivoSua.Text = ""; + //RegistraScript("showResult();"); + RegistraScript("$('#DmodalCompareSua').modal('hide');shownew();"); + Alert("El archivo se a procesado Correctamente"); + LnkCalcular_Click(null,null); + UpArchivoSua.Update(); + } + + protected void GVProcesarSUA_RowDataBound(object sender, GridViewRowEventArgs e) + { + + if (e.Row.RowType == DataControlRowType.DataRow) + { + if (e.Row.RowIndex == 0) + { + e.Row.CssClass = "Totales"; + } + string SalarioSUA = string.Format("{0:N2}", e.Row.DataKey("SalarioSUA").ToDecimal()); + string SalarioSIG = string.Format("{0:N2}", e.Row.DataKey("SalarioSIG").ToDecimal()); + int celda = 1; + if (Math.Abs(SalarioSUA.ToDecimal() - SalarioSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 4; + string CuotaExcedenteSUA = string.Format("{0:N2}", e.Row.DataKey("CuotaExcedenteSUA").ToDecimal()); + string CuotaExcedenteSIG = string.Format("{0:N2}", e.Row.DataKey("CuotaExcedenteSIG").ToDecimal()); + if (Math.Abs(CuotaExcedenteSUA.ToDecimal() - CuotaExcedenteSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string PrestacionesDineroSUA = string.Format("{0:N2}", e.Row.DataKey("PrestacionesDineroSUA").ToDecimal()); + string PrestacionesSIG = string.Format("{0:N2}", e.Row.DataKey("PrestacionesSIG").ToDecimal()); + if (Math.Abs(PrestacionesDineroSUA.ToDecimal() - PrestacionesSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string GastosMedPenSUA = string.Format("{0:N2}", e.Row.DataKey("GastosMedPenSUA").ToDecimal()); + string GastosMedicosSIG = string.Format("{0:N2}", e.Row.DataKey("GastosMedicosSIG").ToDecimal()); + if (Math.Abs(GastosMedPenSUA.ToDecimal() - GastosMedicosSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string InvalidezyVidaSUA = string.Format("{0:N2}", e.Row.DataKey("InvalidezyVidaSUA").ToDecimal()); + string InvalidezyVidaSIG = string.Format("{0:N2}", e.Row.DataKey("InvalidezyVidaSIG").ToDecimal()); + if (Math.Abs(InvalidezyVidaSUA.ToDecimal() - InvalidezyVidaSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string CesantiayVejezObreraSUA = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezObreraSUA").ToDecimal()); + string CesantiayVejezObreraSIG = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezObreraSIG").ToDecimal()); + if (Math.Abs(CesantiayVejezObreraSUA.ToDecimal() - CesantiayVejezObreraSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string CuotaFijaSUA = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSUA").ToDecimal()); + string CuotaFijaSIG = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSIG").ToDecimal()); + if (Math.Abs(CuotaFijaSUA.ToDecimal() - CuotaFijaSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string RiesgosdeTrabajoSUA = string.Format("{0:N2}", e.Row.DataKey("RiesgosdeTrabajoSUA").ToDecimal()); + string RiesgoTrabajoSIG = string.Format("{0:N2}", e.Row.DataKey("RiesgoTrabajoSIG").ToDecimal()); + if (Math.Abs(RiesgosdeTrabajoSUA.ToDecimal() - RiesgoTrabajoSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string GuarderiaSUA = string.Format("{0:N2}", e.Row.DataKey("GuarderiaSUA").ToDecimal()); + string GuarderiaSIG = string.Format("{0:N2}", e.Row.DataKey("GuarderiaSIG").ToDecimal()); + if (Math.Abs(GuarderiaSUA.ToDecimal() - GuarderiaSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string RetiroSUA = string.Format("{0:N2}", e.Row.DataKey("RetiroSUA").ToDecimal()); + string RetiroSIG = string.Format("{0:N2}", e.Row.DataKey("RetiroSIG").ToDecimal()); + if (Math.Abs(RetiroSUA.ToDecimal() - RetiroSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + celda = celda + 2; + string CesantiayVejezPatronalSUA = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezPatronalSUA").ToDecimal()); + string CesantiayVejezPatronalSIG = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezPatronalSIG").ToDecimal()); + if (Math.Abs(CesantiayVejezPatronalSUA.ToDecimal() - CesantiayVejezPatronalSIG.ToDecimal()) > 1) + { + e.Row.Cells[celda].CssClass = "cellFail"; + e.Row.Cells[celda + 1].CssClass = "cellFail"; + } + + } + } + protected void LnkCalcular_Click(object sender, EventArgs e) { using (ClsNominas objnom = new ClsNominas()) { - if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text)) + if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text,DdlRegistroPatronal.SelectedValue.ToEntero())) { GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0]; GVCFija.DataSource = objnom.DTSetResultados.Tables[0]; @@ -92,7 +250,7 @@ public partial class RH_CalculoSBC : ClsPaginas double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2); double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2); string RegistroPatronal = item.DataKey("RegistroPatronal"); - if(oldRegistroPatronal != "-1" && oldRegistroPatronal != RegistroPatronal) + if(oldRegistroPatronal != "-1" && oldRegistroPatronal != RegistroPatronal ) { MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, $"************* 00{(contador < 1000 ? "0" : "")}{(contador < 100 ? "0" : "")}{(contador < 10 ? "0" : "")}{contador} 00001 9"); @@ -103,7 +261,7 @@ public partial class RH_CalculoSBC : ClsPaginas concater = ""; contador = 0; } - if (SalarioDiarioSSNuevo != SalarioDiarioSS) + if (SalarioDiarioSSNuevo != SalarioDiarioSS || item.FCCheckBox("chkCon").Checked) { MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item.DataKey("Movtotxt")); concater = "\\r\\n"; @@ -249,18 +407,18 @@ public partial class RH_CalculoSBC : ClsPaginas //libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}"; libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}"; libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}"; - libro.Range(5, 8, 5, 11).Merge().Value = "Actual"; - libro.Range(5, 12, 5, 14).Merge().Value = "Nuevo"; + libro.Range(5, 8, 5, 12).Merge().Value = "Actual"; + libro.Range(5, 13, 5, 15).Merge().Value = "Nuevo"; libro.Range(5, 1, 6, 14).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; - libro.Range(5, 1, 6, 13).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - libro.Range(5, 1, 5, 13).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.None; + libro.Range(5, 1, 6, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(5, 1, 5, 16).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.None; - libro.Range(5, 8, 6, 11).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 100, 162)); - libro.Range(5, 8, 6, 11).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(5, 12, 6, 14).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(136, 214, 205)); - libro.Range(5, 12, 6, 14).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(5, 8, 6, 12).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 100, 162)); + libro.Range(5, 8, 6, 12).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(5, 13, 6, 15).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(136, 214, 205)); + libro.Range(5, 13, 6, 15).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; libro.Range(7, 8, 7 + dt.Rows.Count, 12).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right; diff --git a/RH/CatDocumentos.aspx b/RH/CatDocumentos.aspx index ff6cb37ec..f01accffd 100644 --- a/RH/CatDocumentos.aspx +++ b/RH/CatDocumentos.aspx @@ -372,23 +372,22 @@