From 5828759032b9f72c9e04f794b1c33b6998b382a7 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Apr 2024 07:01:11 -0700 Subject: [PATCH 1/6] -- cambio de nombre de descarga pdf --- Transportes/RepContratoDetalle.aspx | 4 ++-- Transportes/RepContratoDetalle.aspx.vb | 3 +-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 0aee4aa8d..eb0470f9f 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -129,8 +129,8 @@ runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" UsaWebService="true" Enabled="false">
- +
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 0a2d19126..4ea26eb58 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -113,7 +113,6 @@ Partial Class RepContratoDetalle CveViajePasajero = 0 Session("FileExtension") = "" ArchivoUpdate = "" - TelefonoEmpresa = "" End If End Sub @@ -333,7 +332,7 @@ Partial Class RepContratoDetalle New ReportParameter("Usuario", UsuarioActual.Nombre) } - ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato") + ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:=LbFolio.Text) End Sub Protected Sub AgregarABitacora(Descripcion As String) Dim ObjEventoBitacora As New ClsOIEventos From 56420ed22f8312739bc6ad7e813ce38f5b294d3f Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Apr 2024 12:21:23 -0700 Subject: [PATCH 2/6] =?UTF-8?q?--=20no=20validar=20al=20iniciar=20si=20tie?= =?UTF-8?q?ne=20ventas=20registradas=20en=20el=20rfc,=20est=C3=A1=20alenta?= =?UTF-8?q?ndo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PopIECompras.aspx | 2 +- Bancos/PopIECompras.aspx.vb | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index 94086dd01..48e01ca67 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -47,7 +47,7 @@ Viaticos - Personal Deudores Acreedores - Ventas + Ventas diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 0ecfd9ef6..4249afa1d 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -337,11 +337,11 @@ Partial Class Bancos_PopIECompras CargaTipoTransaccion(TipoTransaccion) CargaCuentas() - Dim ObjVentas As New ClsVentas - If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then - RBLContado.Items(4).Enabled = True - End If - ObjVentas.Dispose() + 'Dim ObjVentas As New ClsVentas + 'If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + ' RBLContado.Items(4).Enabled = True + 'End If + 'ObjVentas.Dispose() If CveMoneda = 2 Then ChkPagarPesos.Visible = True From bf10197dfadbf7d085e30b84092d5a612cc2f922 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Apr 2024 12:21:30 -0700 Subject: [PATCH 3/6] - --- Ventas/RepVentaDetalle.aspx.vb | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 7850a1bcb..94dac0555 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -130,9 +130,7 @@ Partial Class RepVentaDetalle InicializaValores() ConfiguraEmpresa() - If ConsultaAlCargar Then - CargaDatos() - End If + If ConsultaAlCargar Then CargaDatos() If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then LblServicioDomicilioFiltro.Visible = True @@ -150,24 +148,22 @@ Partial Class RepVentaDetalle Private Sub InicializaValores() - ConsultaAlCargar = True Dim Grupo, CveCliente, CveSucursal, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatusFactura, CveCorte, IVA, TipoDocto, CveClienteClasificacion, CveCondicionesPago, CveTipoRelacion As String Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String - 'Dim CveSubProyecto As Integer + Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString + ConsultaAlCargar = If(Grupo <> "-1", True, False) CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString CveSucursal = If(Request("CveSucursal") IsNot Nothing AndAlso Request("CveSucursal").ToEntero() > 0, Request("CveSucursal").ToEntero(), -1).ToString CveSubProyectoEjecucion = If(Request("CveSubProyectoEjecucion") IsNot Nothing AndAlso Request("CveSubProyectoEjecucion").ToEntero() > 0, Request("CveSubProyectoEjecucion").ToEntero(), -1).ToString CveUsuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString - CveCorte = If(Request("CveCorte") IsNot Nothing AndAlso Request("CveCorte").ToEntero() > 0, Request("CveCorte").ToEntero(), -1).ToString IVA = If(Request("IVA") IsNot Nothing, Request("IVA").ToString, "-1").ToString - Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString From cd5c8ee4a53b42b27993a76d114dacacba14417a Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Apr 2024 12:21:41 -0700 Subject: [PATCH 4/6] - solo para rol=1, imagenes --- Ventas/ProductosServicios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index e26bd4a02..e85ff4dec 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -968,7 +968,7 @@ Partial Class ProductosyServicios hplImagen.Attributes.Add("href", String.Format("/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}", Extensiones.Encripta(Me.Imagen))) End If - DivImagen.Visible = True + If UsuarioActual.CveRol = 1 Then DivImagen.Visible = True upGaleria.Update() RegistraScript("clickgaleria();", "CG") From e1ccc172fe7c3ba6c94f26e71788d704a58445cf Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Apr 2024 12:21:57 -0700 Subject: [PATCH 5/6] -- limpieza de linea comentada --- App_Code/Timbrado.vb | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 28c10e7e6..91732112c 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -355,9 +355,7 @@ Public Class Timbrado Dim UsuarioServicio As String = If(CvePACCancelacion = 2, Empresa.RFC, "rene.molina@adsistemas.mx") Dim ClaveServicio As String = If(CvePACCancelacion = 2, Empresa.RFC.ToLower, "rene2018") Dim Clave As String = Empresa.ContraseñaKey - Dim UrlServicio As String = "" ' Produccion - - UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" + Dim UrlServicio As String = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" ' Produccion If Not Empresa.FacturaProduccion Then ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key" @@ -365,7 +363,6 @@ Public Class Timbrado UsuarioServicio = "UserTest" ClaveServicio = "1234567890" - 'UrlServicio = "http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx?WSDL" End If #Region "Valida" If Not File.Exists(ArchivoCertificado) Then From 5570d60af298b9fa9767d08c51fa5fcff6b86afc Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Apr 2024 14:39:48 -0700 Subject: [PATCH 6/6] - --- Ashx/E141.ashx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 07ca0b86d..4c914b2eb 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -460,7 +460,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim data As New JArray Dim DtSucursalesExistencias As DataTable = Nothing - + Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Using ObjInv As New ClsInventarios If ObjInv.GetExistenciasSucursales(JsonRequest("products").ToString(), CveEmpresa) Then DtSucursalesExistencias = ObjInv.DtResultados.Copy()