From d9e8e4907cdc046a71c40486373fec01c185d050 Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 11 Nov 2022 17:29:50 -0700 Subject: [PATCH 01/25] =?UTF-8?q?Rep=20Fluctuaci=C3=B3n=20Cambiaria:=20Exp?= =?UTF-8?q?ortar=20Excel=20con=20Gembox?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx | 2 +- Bancos/FluctuacionCambiaria.aspx.vb | 18 +++++++++--------- 2 files changed, 10 insertions(+), 10 deletions(-) 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..5a62e3fc0 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -1287,23 +1287,23 @@ Partial Class Bancos_FluctuacionCambiaria Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click If (T.ActiveTabIndex = 0) Then 'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString) - ExportToExcelGembox(GvProveedores, "FluctuacionCambiariaProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuaciones cambairasi proveedor") + GvProveedores.ExportToExcelGembox("FCProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores") ElseIf (T.ActiveTabIndex = 1) Then - GvProveedoresAnt.ExportToExcel("FluctuacionCambiariaProveedoresAnt_" & Now.ToShortDateString) + GvProveedoresAnt.ExportToExcelGembox("FCProveedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos") ElseIf (T.ActiveTabIndex = 2) Then - GvVentas.ExportToExcel("FluctuacionCambiariaClientes_" & Now.ToShortDateString) + GvVentas.ExportToExcelGembox("FCClientes_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes") ElseIf (T.ActiveTabIndex = 3) Then - GvClientesAnt.ExportToExcel("FluctuacionCambiariaClientesAnt_" & Now.ToShortDateString) + GvClientesAnt.ExportToExcelGembox("FCClientesAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes Anticipos") ElseIf (T.ActiveTabIndex = 4) Then - GvAcreedores.ExportToExcel("FluctuacionCambiariaComprasAcreedores_" & Now.ToShortDateString) + GvAcreedores.ExportToExcelGembox("FCComprasAcreedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Compras Acreedores") ElseIf (T.ActiveTabIndex = 5) Then - GvAcreedoresAnt.ExportToExcel("FluctuacionCambiariaAcreedoresAnt_" & Now.ToShortDateString) + GvAcreedoresAnt.ExportToExcelGembox("FCAcreedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Acreedores Anticipos") ElseIf (T.ActiveTabIndex = 6) Then - GvCuentas.ExportToExcel("FluctuacionCambiariaBancos_" & Now.ToShortDateString) + GvCuentas.ExportToExcelGembox("FCBancos_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Bancos") ElseIf (T.ActiveTabIndex = 7) Then - GvFiliales.ExportToExcel("FluctuacionCambiariaFilial_" & Now.ToShortDateString) + GvFiliales.ExportToExcelGembox("FCFilial_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Filiales") ElseIf (T.ActiveTabIndex = 8) Then - GvDeudores.ExportToExcel("FluctuacionCambiariaDeudores_" & Now.ToShortDateString) + GvDeudores.ExportToExcelGembox("FCDeudores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Deudores") End If ' ImprimirReportePdf("Excel") From b2158864e66efc440e216ae5b5ba584a601e76f8 Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 11 Nov 2022 18:03:28 -0700 Subject: [PATCH 02/25] =?UTF-8?q?Extension=20ExportToExcelGembox:=20No=20i?= =?UTF-8?q?ntentar=20generar=20excel=20si=20no=20hay=20datos=20Evita=20gen?= =?UTF-8?q?erar=20una=20p=C3=A1gina=20de=20error=20innecesaria=20al=20usua?= =?UTF-8?q?rio=20si=20accidentalmente=20genera=20el=20excel=20sin=20hacer?= =?UTF-8?q?=20antes=20consulta?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/modExtensiones.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 0f178b373..00f23851d 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2155,6 +2155,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) From 5f450a9fbf3e53fb1e67feb18edda173fc5cc62c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Nov 2022 18:09:31 -0700 Subject: [PATCH 03/25] -- filtro de segmento negocio, en resultados mensual y anual --- App_Code/ClsContPAQi.vb | 110 +++++++++++++---------- Contabilidad/RepEstadoResultados.aspx.vb | 4 +- 2 files changed, 63 insertions(+), 51 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 5ba1df7bd..d2fe94141 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1072,7 +1072,7 @@ Public Class ClsContPAQi StrSQL.AppendLine(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") StrSQL.AppendLine(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") - StrSQL.AppendLine(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") + StrSQL.AppendLine(" LEFT JOIN [192.168.0.2].Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") @@ -5263,7 +5263,7 @@ Public Class ClsContPAQi Return Retorno End Function - Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer) As Boolean + Public Function GetEstadoResultadosMensual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean Dim Retorno = False If Not FNC_TotalMensual() Then @@ -5323,27 +5323,27 @@ Public Class ClsContPAQi INSERT INTO @Temp SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, IIF(LEN(Orden)=11,2,1) as IntSubOrden, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 1, @Tipo), 0) AS Enero, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 2, @Tipo), 0) AS Febrero, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 3, @Tipo), 0) AS Marzo, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 4, @Tipo), 0) AS Abril, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 5, @Tipo), 0) AS Mayo, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 6, @Tipo), 0) AS Junio, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 7, @Tipo), 0) AS Julio, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 8, @Tipo), 0) AS Agosto, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 9, @Tipo), 0) AS Septiembre, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 10, @Tipo), 0) AS Octubre, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 11, @Tipo), 0) AS Noviembre, - ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 12, @Tipo), 0) AS Diciembre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 1, @Tipo, @IdSegNeg), 0) AS Enero, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 2, @Tipo, @IdSegNeg), 0) AS Febrero, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 3, @Tipo, @IdSegNeg), 0) AS Marzo, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 4, @Tipo, @IdSegNeg), 0) AS Abril, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 5, @Tipo, @IdSegNeg), 0) AS Mayo, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 6, @Tipo, @IdSegNeg), 0) AS Junio, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 7, @Tipo, @IdSegNeg), 0) AS Julio, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 8, @Tipo, @IdSegNeg), 0) AS Agosto, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 9, @Tipo, @IdSegNeg), 0) AS Septiembre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 10, @Tipo, @IdSegNeg), 0) AS Octubre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 11, @Tipo, @IdSegNeg), 0) AS Noviembre, + ISNULL (dbo.FNC_TotalMensual(c.Id, @ANO, 12, @Tipo, @IdSegNeg), 0) AS Diciembre, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 3, @Tipo), 0) Trimestral1, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 4, 6, @Tipo), 0) Trimestral2, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 9, @Tipo), 0) Trimestral3, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 10, 12, @Tipo), 0) Trimestral4, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 3, @Tipo, @IdSegNeg), 0) Trimestral1, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 4, 6, @Tipo, @IdSegNeg), 0) Trimestral2, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 9, @Tipo, @IdSegNeg), 0) Trimestral3, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 10, 12, @Tipo, @IdSegNeg), 0) Trimestral4, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 4, @Tipo), 0) Cuatrimestral1, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 8, @Tipo), 0) Cuatrimestral2, - ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 9, 12, @Tipo), 0) Cuatrimestral3 + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 1, 4, @Tipo, @IdSegNeg), 0) Cuatrimestral1, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 5, 8, @Tipo, @IdSegNeg), 0) Cuatrimestral2, + ISNULL (dbo.FNC_TotalMensualERSubTotales(c.Id, @ANO, 9, 12, @Tipo, @IdSegNeg), 0) Cuatrimestral3 FROM Rec D INNER JOIN Cuentas C ON D.IdSubCtade = C.Id INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo @@ -5543,6 +5543,7 @@ Public Class ClsContPAQi With SqlAdapter.SelectCommand.Parameters .Add("@ANO", SqlDbType.Int).Value = ANO .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos + .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg End With Try @@ -5833,7 +5834,7 @@ Public Class ClsContPAQi ' Return Retorno 'End Function - Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer) As Boolean + Public Function GetEstadoResultadosAnual(ANO As Integer, TipoMovtos As Integer, Optional IdSegNeg As Integer = -1) As Boolean Dim Retorno = False If Not FNC_TotalAnual() Then @@ -5885,26 +5886,26 @@ Public Class ClsContPAQi StrSQL.Append(" INSERT INTO @Temp ") StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, ") StrSQL.Append(" ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 0, @Tipo), 0) ELSE 0 END AS Ano1, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 1, @Tipo), 0) ELSE 0 END AS Ano2, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 2, @Tipo), 0) ELSE 0 END AS Ano3, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 3, @Tipo), 0) ELSE 0 END AS Ano4, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 4, @Tipo), 0) ELSE 0 END AS Ano5, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 5, @Tipo), 0) ELSE 0 END AS Ano6, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 6, @Tipo), 0) ELSE 0 END AS Ano7, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 7, @Tipo), 0) ELSE 0 END AS Ano8, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 8, @Tipo), 0) ELSE 0 END AS Ano9, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 9, @Tipo), 0) ELSE 0 END AS Ano10, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 10, @Tipo), 0) ELSE 0 END AS Ano11, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 11, @Tipo), 0) ELSE 0 END AS Ano12, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 12, @Tipo), 0) ELSE 0 END AS Ano13, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 13, @Tipo), 0) ELSE 0 END AS Ano14, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 14, @Tipo), 0) ELSE 0 END AS Ano15, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 15, @Tipo), 0) ELSE 0 END AS Ano16, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 16, @Tipo), 0) ELSE 0 END AS Ano17, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 17, @Tipo), 0) ELSE 0 END AS Ano18, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 18, @Tipo), 0) ELSE 0 END AS Ano19, ") - StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 19, @Tipo), 0) ELSE 0 END AS Ano20 ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 0, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano1, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 1, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano2, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 2, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano3, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 3, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano4, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 4, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano5, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 5, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano6, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 6, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano7, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 7, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano8, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 8, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano9, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 9, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano10, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 10, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano11, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 11, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano12, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 12, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano13, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 13, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano14, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 14, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano15, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 15, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano16, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 16, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano17, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 17, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano18, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 18, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano19, ") + StrSQL.Append(" CASE WHEN @ANO + 0 <= YEAR(GETDATE()) THEN ISNULL (dbo.FNC_TotalAnual(c.Id, @ANO + 19, @Tipo, @IdSegNeg), 0) ELSE 0 END AS Ano20 ") StrSQL.Append(" FROM Rec D ") StrSQL.Append(" INNER JOIN Cuentas C ON D.IdSubCtade = C.Id ") StrSQL.Append(" INNER JOIN Cuentas CT ON D.CtaSup = CT.Codigo ") @@ -6087,6 +6088,7 @@ Public Class ClsContPAQi With SqlAdapter.SelectCommand.Parameters .Add("@ANO", SqlDbType.Int).Value = ANO .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos + .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg End With Try @@ -10194,9 +10196,10 @@ Public Class ClsContPAQi StrSQL.Clear() StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_TotalAnual] ") StrSQL.Append(" ( ") - StrSQL.Append(" @IdCtaSup INT, ") - StrSQL.Append(" @Ano INT, ") - StrSQL.Append(" @Tipo INT ") + StrSQL.Append(" @IdCtaSup INT, ") + StrSQL.Append(" @Ano INT, ") + StrSQL.Append(" @Tipo INT, ") + StrSQL.Append(" @SegmentoNegocio INT = -1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -10238,6 +10241,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" IF @Tipo = 2 ") @@ -10252,7 +10256,8 @@ Public Class ClsContPAQi StrSQL.Append(" BEGIN ") StrSQL.Append(" INSERT INTO @TempMovtos ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") - StrSQL.Append(" FROM MovimientosPoliza MP INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") + StrSQL.Append(" FROM MovimientosPoliza MP INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" UNION ALL ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM Vw_PolizasComplementarias MP INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano ") @@ -10405,7 +10410,8 @@ Public Class ClsContPAQi StrSQL.Append(" @IdCtaSup INT, ") StrSQL.Append(" @Ano INT, ") StrSQL.Append(" @Mes INT, ") - StrSQL.Append(" @Tipo INT ") + StrSQL.Append(" @Tipo INT, ") + StrSQL.Append(" @SegmentoNegocio INT = -1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -10444,6 +10450,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" IF @Tipo = 2 ") @@ -10460,10 +10467,12 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" WHERE MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" AND (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" UNION ALL ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM Vw_PolizasComplementarias MP ") - StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo = @Mes ") + StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" ") @@ -10516,7 +10525,8 @@ Public Class ClsContPAQi StrSQL.Append(" @Ano INT, ") StrSQL.Append(" @Mes INT, ") StrSQL.Append(" @Mes2 INT, ") - StrSQL.Append(" @Tipo INT ") + StrSQL.Append(" @Tipo INT, ") + StrSQL.Append(" @SegmentoNegocio INT = -1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -10557,6 +10567,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo >= @Mes AND MP.Periodo <= @Mes2 ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" END ") StrSQL.Append(" ") StrSQL.Append(" IF @Tipo = 2 ") @@ -10573,6 +10584,7 @@ Public Class ClsContPAQi StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM MovimientosPoliza MP ") StrSQL.Append(" INNER JOIN @TempCuentas C ON C.IdCuenta = MP.IdCuenta AND MP.Ejercicio = @Ano AND MP.Periodo >= @Mes AND MP.Periodo <= @Mes2 ") + StrSQL.Append(" WHERE (@SegmentoNegocio = -1 OR MP.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" UNION ALL ") StrSQL.Append(" SELECT MP.IdCuenta, TipoMovto, Importe, Fecha ") StrSQL.Append(" FROM Vw_PolizasComplementarias MP ") diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index 7ae710b25..9a8d9b12f 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -441,7 +441,7 @@ Partial Class Contabilidad_RepEstadoResultados Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) - If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then + If ObjConta.GetEstadoResultadosMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then DtDatosMensual = ObjConta.DtResultados Else DtDatosMensual = Nothing @@ -818,7 +818,7 @@ Partial Class Contabilidad_RepEstadoResultados Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) - If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then + If ObjConta.GetEstadoResultadosAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then DtDatosAnual = ObjConta.DtResultados Else DtDatosAnual = Nothing From 10dcbc5b1ce260c0291e1bfcc9dc299d54039a0c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Nov 2022 18:10:46 -0700 Subject: [PATCH 04/25] =?UTF-8?q?--=20correcci=C3=B3n=20rengl=C3=B3n=20en?= =?UTF-8?q?=20carga=20excel?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/modExtensiones.vb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 0f178b373..0f511f73d 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -80,12 +80,11 @@ Namespace Extensiones Else 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 += 1 While curRow < worksheet.Rows.Count columns = New String(cols - 1) {} From 1e7b7730a5e820cfba74c18b63cb3226658c5071 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Nov 2022 18:11:17 -0700 Subject: [PATCH 05/25] -- carga masiva layout de folios de facturas, -- si mandan importe cero, selecciona el total de la factura --- Ventas/ClientesAbonar.aspx | 21 ++++----- Ventas/ClientesAbonar.aspx.vb | 85 +++-------------------------------- 2 files changed, 15 insertions(+), 91 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 8b2b40ae8..326731853 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -652,17 +652,7 @@
- - -
-
- -
-
- - Descargar Formato -
-
+
@@ -680,8 +670,13 @@
- - +
+ +
+
+ + +
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 6ce81b19c..f03547ae9 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -3139,11 +3139,8 @@ Partial Class Ventas_ClientesAbonar - - Protected Sub LnkAccionesModalSeleccionLayout_Click(sender As Object, e As EventArgs) - TxtModalLayoutExcel.Text = "[]" UpModalSeleccionLayout.Update() RegistraScript("$('#ModalSeleccionLayout').modal('show');") @@ -3165,23 +3162,19 @@ Partial Class Ventas_ClientesAbonar Dim Directorio As String = Server.MapPath("~") & file.path Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - - Dim DT As New DataTable Dim ErrorArchivo = False Dim ErrorExcel = False - - - DT = ReadSeleccionExcelFile(Directorio + file.filename, True) + DT = ReadExcelFile(Directorio + file.filename, True) If Not dt.Columns(0).ColumnName.ToUpper = "FOLIO" Then Alert("El nombre de la primera columna debe ser 'Folio'. Favor de corregirlo", TipoMensaje.MsgAdvertencia) Exit Sub End If - If Not dt.Columns(1).ColumnName.ToUpper = "IMPORTE PAGO" Then - Alert("El nombre de la segunda columna debe ser 'Importe Pago'.Favor de corregirlo", TipoMensaje.MsgAdvertencia) + If Not DT.Columns(1).ColumnName.ToUpper = "IMPORTE PAGO" Then + Alert("El nombre de la segunda columna debe ser 'Importe Pago'.Favor de corregirlo." & DT.Columns(1).ColumnName, TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -3191,17 +3184,16 @@ Partial Class Ventas_ClientesAbonar Dim ImportePago As Decimal = Drow("Importe Pago").ToString.ToDecimal.RoundSQL(2) Dim SerieFolioEncontrado As Boolean = False - If ImportePago > 0 Then + If ImportePago >= 0 Then For Each GvRow As GridViewRow In GvCxC.Rows Dim SerieFolioGv As String = GvRow.DataKey("SerieFolio").Trim.ToUpper - If SerieFolioBusqueda = SerieFolioGv Then SerieFolioEncontrado = True Dim SaldoGV As Decimal = GvRow.DataKey("Saldo").ToDecimal - + If ImportePago = 0 Then ImportePago = SaldoGV 'si no se especifica cantidad toma la totalidad del saldo Dim Diferencia As Decimal = SaldoGV - ImportePago If Diferencia < 0 Then @@ -3215,30 +3207,19 @@ Partial Class Ventas_ClientesAbonar End If End If - - - Dim ChkGv As CheckBox = GvRow.FCCheckBox("Chk") - Dim TxtAbonarGv As TextBox = GvRow.FCTextBox("TxtAbonar") - - ChkGv.Checked = True - TxtAbonarGv.Text = ImportePago.ToString("###,###,###.00") + GvRow.FCCheckBox("Chk").Checked = True + GvRow.FCTextBox("TxtAbonar").Text = ImportePago.ToString("###,###,###.00") TotalSeleccion = TotalSeleccion + ImportePago - - - CountRegistros = CountRegistros + 1 Exit For End If Next - If Not SerieFolioEncontrado Then SBNoEncotradosEnLista.AppendLine($"{SerieFolioBusqueda}
") End If - - End If Next @@ -3246,9 +3227,6 @@ Partial Class Ventas_ClientesAbonar Alert("Se debe seleccionar un archivo", TipoMensaje.MsgError) End If - - - If ProcesoOK Then Alert($"Facturas seleccionadas: {CountRegistros}
{SBNoEncotradosEnLista.ToString}") @@ -3269,55 +3247,6 @@ Partial Class Ventas_ClientesAbonar End Sub - Public Function ReadSeleccionExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean, Optional curRow As Integer = 0) As DataTable - GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath) - - Dim unnamed As Integer = 0 - Dim cols As Integer - Dim columns As String() - 'Dim curRow As Integer = 0 - Dim curCol As Integer = 0 - 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 - - If firstRowHasHeaders Then - - If worksheet.Rows(curRow).Cells(cols).Value IsNot Nothing Then - dataTable.Columns.Add(worksheet.Rows(curRow).Cells(cols).Value.ToString()) - Else - dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) - End If - - - Else - dataTable.Columns.Add("Column " & (cols + 1)) - End If - Next - - curRow = 1 - - While curRow < worksheet.Rows.Count - columns = New String(cols - 1) {} - - For curCol = 0 To cols - 1 - - If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then - columns(curCol) = "" - Else - columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() - End If - Next - - dataTable.Rows.Add(columns) - curRow += 1 - End While - - Return dataTable - End Function - Protected Sub LnkDescargaFormato_Click(sender As Object, e As EventArgs) From 8cb682edc33ed0e2ed7c243f3b612a28f98aabbd Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 11 Nov 2022 19:10:50 -0700 Subject: [PATCH 06/25] =?UTF-8?q?Rep=20Excel=20Fluctuacion=20Cambiaria:=20?= =?UTF-8?q?Mostrar=20filtro=20mes/a=C3=B1o=20y=20TC=20Adicionalmente,=20se?= =?UTF-8?q?=20ajusta=20el=20formato=20del=20nombre=20de=20archivo=20genera?= =?UTF-8?q?do=20siguiendo=20la=20estructura=20Fluctuacion.NombreTAB.Filtro?= =?UTF-8?q?mes.Filtroa=C3=B1o.xlsx?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx.vb | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 5a62e3fc0..8b2fe1754 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -1285,25 +1285,31 @@ 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("{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) - GvProveedores.ExportToExcelGembox("FCProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores") + 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.ExportToExcelGembox("FCProveedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos") + 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.ExportToExcelGembox("FCClientes_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes") + 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.ExportToExcelGembox("FCClientesAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes Anticipos") + 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.ExportToExcelGembox("FCComprasAcreedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Compras Acreedores") + 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.ExportToExcelGembox("FCAcreedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Acreedores Anticipos") + 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.ExportToExcelGembox("FCBancos_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Bancos") + 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.ExportToExcelGembox("FCFilial_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Filiales") + 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.ExportToExcelGembox("FCDeudores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Deudores") + GvDeudores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Deudores", DatosFiltros:=StrFiltro.ToString()) End If ' ImprimirReportePdf("Excel") From 0b87e255d6cea7953ad30848aba4f86cbcfbc5d6 Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 11 Nov 2022 19:30:28 -0700 Subject: [PATCH 07/25] =?UTF-8?q?Delete=20vwd.webinfo=20Estaba=20ya=20en?= =?UTF-8?q?=20.gitignore=20pero=20se=20les=20olvid=C3=B3=20eliminar=20tamb?= =?UTF-8?q?i=C3=A9n=20el=20archivo,=20por=20eso=20segu=C3=ADa=20apareciend?= =?UTF-8?q?o=20en=20la=20lista=20de=20commits.=20Es=20un=20archivo=20tempo?= =?UTF-8?q?ral=20de=20Visual=20Studio,=20no=20es=20necesario=20en=20el=20s?= =?UTF-8?q?ource=20tree.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- vwd.webinfo | 592 ---------------------------------------------------- 1 file changed, 592 deletions(-) delete mode 100644 vwd.webinfo diff --git a/vwd.webinfo b/vwd.webinfo deleted file mode 100644 index fad050abd..000000000 --- a/vwd.webinfo +++ /dev/null @@ -1,592 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file From a64b1b1a51258aa4693051b780e21bcbeb5da200 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 12 Nov 2022 08:33:18 -0700 Subject: [PATCH 08/25] -- filtro de "vista" SAT/Contable --- SAT/SolicitudesIngresoSat.aspx | 11 ++++++++--- SAT/SolicitudesIngresoSat.aspx.cs | 2 +- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 7440908a1..1672916ce 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -257,9 +257,7 @@
-
- <%----%> - +
@@ -285,6 +283,13 @@
+ +
+ + + + +
diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index 5f31aa90d..969df533f 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -112,7 +112,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas using (ClsNominas ObjNom = new ClsNominas()) { - if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero())) + if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(),DdlVista.SelectedValue.ToEntero())) { if (DdlReporte.SelectedValue.ToEntero() == 1) { From 2804d239dab5547e8fda144a2a7ff31fd6de5421 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 12 Nov 2022 08:33:39 -0700 Subject: [PATCH 09/25] -- bdh- temporal para cuadre de caja --- Bancos/DepositosCaja.aspx.vb | 1 + 1 file changed, 1 insertion(+) 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 From 82a18cfb4815b460ddcc921c81d89f26c72c7283 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 12 Nov 2022 08:33:59 -0700 Subject: [PATCH 10/25] =?UTF-8?q?--=20mejora=20d=C3=B3lares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ProveedoresAbonar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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" From c3e0bba72e6402cecda80285855d69785bf181e5 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 12 Nov 2022 10:05:58 -0700 Subject: [PATCH 11/25] . --- .gitignore | 2 + vwd.webinfo | 592 ---------------------------------------------------- 2 files changed, 2 insertions(+), 592 deletions(-) delete mode 100644 vwd.webinfo 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/vwd.webinfo b/vwd.webinfo deleted file mode 100644 index fad050abd..000000000 --- a/vwd.webinfo +++ /dev/null @@ -1,592 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file From 92c6fc2056a8115eae24b10b3711c8edf07b6158 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 12 Nov 2022 10:15:37 -0700 Subject: [PATCH 12/25] -- agregado de texto --- Bancos/FluctuacionCambiaria.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 8b2fe1754..b465c2df1 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -1287,6 +1287,7 @@ Partial Class Bancos_FluctuacionCambiaria 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) From 79f82d957e5f15a8ffb058ee70e3139a776305c7 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 12 Nov 2022 15:02:29 -0700 Subject: [PATCH 13/25] =?UTF-8?q?Solicitudes=20Ingreso=20SAT:=20Arreglos?= =?UTF-8?q?=20cosm=C3=A9ticos=20-=20Tama=C3=B1o=20modal=20de=20solicitudes?= =?UTF-8?q?=20m=C3=A1s=20grande=20-=20Se=20meti=C3=B3=20bot=C3=B3n=20de=20?= =?UTF-8?q?Consulta=20al=20rengl=C3=B3n=20de=20filtros=20-=20LnkSerieFolio?= =?UTF-8?q?=20>=20Serie=20Folio?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SAT/SolicitudesIngresoSat.aspx | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 1672916ce..707ff58c8 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -257,7 +257,7 @@
-
+
@@ -270,7 +270,7 @@
-
+
<%----%>
@@ -284,19 +284,17 @@
-
+
-
- -
- + +