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
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()
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
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
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")
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