Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

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
+                Dim UrlServicio As String = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" ' Produccion
-
-                UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
 
                 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

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

Bancos/PopIECompras.aspx

@@ -47,7 +47,7 @@
                                     <asp:ListItem Value="2">Viaticos - Personal</asp:ListItem>
                                     <asp:ListItem Value="4">Deudores</asp:ListItem>
                                     <asp:ListItem Value="5">Acreedores</asp:ListItem>
-                                    <asp:ListItem Value="6" Enabled ="False">Ventas</asp:ListItem>
+                                    <asp:ListItem Value="6">Ventas</asp:ListItem>
                                 </asp:RadioButtonList>
                             </div>
                         </div> 

Bancos/PopIECompras.aspx.vb

@@ -337,11 +337,11 @@ Partial Class Bancos_PopIECompras
             CargaTipoTransaccion(TipoTransaccion)
             CargaCuentas()
 
-            Dim ObjVentas As New ClsVentas
+            '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
+            '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
+            '    RBLContado.Items(4).Enabled = True
-            End If
+            'End If
-            ObjVentas.Dispose()
+            'ObjVentas.Dispose()
 
             If CveMoneda = 2 Then
                 ChkPagarPesos.Visible = True

Transportes/RepContratoDetalle.aspx

@@ -129,8 +129,8 @@
                                                         runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"
                                                         UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
                                                     <div class="input-group-addon" style="background-color: #428bca">
-                                                        <asp:LinkButton runat="server" ForeColor="White" Text="<i class='fa fa-add'></i>"
+                                                        <asp:HyperLink id="HplAddCliente" runat="server" ForeColor="White" Text="<i class='fa fa-add'></i>"
-                                                            PostBackUrl="~/Ventas/Clientes.aspx?CveCliente=-1"></asp:LinkButton>
+                                                            navigateUrl="/Ventas/Clientes.aspx?CveCliente=-1"></asp:HyperLink>
                                                     </div>
                                                 </div>
                                             </div>

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

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

Ventas/RepVentaDetalle.aspx.vb

@@ -130,9 +130,7 @@ Partial Class RepVentaDetalle
             InicializaValores()
             ConfiguraEmpresa()
 
-            If ConsultaAlCargar Then
+            If ConsultaAlCargar Then CargaDatos()
-                CargaDatos()
-            End If
 
             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