From 6078eb9855eaf5c9de60044741079ee5a9c211a7 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Tue, 18 May 2021 02:14:15 -0700 Subject: [PATCH] --- AF/CatAF.aspx.vb | 11 +- App_Code/ClsContabilidad.vb | 4 +- Bancos/DepositosCaja.aspx | 95 +- Bancos/IE.aspx | 34 +- Bancos/IE.aspx.vb | 60 +- CRM/Acercamiento.aspx | 2 +- Contabilidad/FiltraPolizas.aspx.vb | 9 +- Contabilidad/PlantillasPolizasDetalle.aspx | 17 +- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 22 +- Contabilidad/RegPrePoliza.aspx.vb | 8 +- Contabilidad/RegPrePolizaS.aspx.vb | 98 +- Empresas/Grales/Formatos/RepClientes.rdlc | 2049 +++++++++-------- OC/CatEstatus.aspx | 4 +- OC/OC.aspx | 4 +- OC/RepCotizaciones.aspx | 2 +- OC/RepOC.aspx | 5 +- vwd.webinfo | 4 + 17 files changed, 1239 insertions(+), 1189 deletions(-) diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index b5e500e31..14a3d44f4 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -458,7 +458,8 @@ Partial Class AF_CatAF Dim params As New List(Of ReportParameter) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Ruta As String = "" params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) @@ -468,7 +469,13 @@ Partial Class AF_CatAF Else params.Add(New ReportParameter("LogoPath", "")) End If - ImprimirPDF(String.Format("{0}Formatos\CatAF.rdlc", UsuarioActual.Empresa.Ruta), DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato) + + If Archivo.Exists Then + Ruta = UsuarioActual.Empresa.Ruta & "Formatos/CatAF.rdlc" + Else + Ruta = "Empresas/Grales/Formatos/CatAF.rdlc" + End If + ImprimirPDF(Ruta, DtActivosFijos, params, "CatalogoActivosFijos", Formato:=Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8b5995aea..a23c60cc3 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -2445,7 +2445,7 @@ Public Class ClsContabilidad End Function Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer, - Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean + Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveCuenta As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Conta_PlantillasPolizasDetalleUpdate") @@ -2460,6 +2460,8 @@ Public Class ClsContabilidad .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + End With Try diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index e3177fe7f..373fb7416 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -41,7 +41,7 @@
-
+
@@ -56,7 +56,7 @@
-
+
@@ -110,7 +110,7 @@
- +
@@ -137,27 +137,26 @@
-
- -
-