From 03b322f5f6a80a1e9f21789a1b20ef5507af6c12 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 1 Sep 2020 11:04:53 -0700
Subject: [PATCH] =?UTF-8?q?validaci=C3=B3n=20para=20mostrar=20una=20pesat?=
 =?UTF-8?q?=C3=B1a=20en=20ventas,=20en=20oc=20se=20recupera=20el=20usuario?=
 =?UTF-8?q?=20asignado?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx.vb         | 12 +++++++++++-
 Ventas/Ventas.aspx.vb |  2 +-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 645cf0e68..8df2ee5f5 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -18,6 +18,14 @@ Partial Class OC
             ViewState("CveEmpresaActual") = value
         End Set
     End Property
+    Private Property CveUsuarioAsignado As Integer
+        Get
+            Return If(IsNothing(ViewState("CveUsuarioAsignado")), -1, ViewState("CveUsuarioAsignado").ToString.ToEntero)
+        End Get
+        Set(value As Integer)
+            ViewState("CveUsuarioAsignado") = value
+        End Set
+    End Property
     Private Property TipoOC As String
         Get
             TipoOC = ViewState("TipoOC").ToString
@@ -1212,7 +1220,7 @@ Partial Class OC
             MPContrato.Enabled = False
             'SOLICITUD DE ANTICIPO
             CveIEAnticipo = objOC.CveIEAnticipo
-
+            CveUsuarioAsignado = objOC.CveUsuarioAsignado
             'LtImporteIEAnticipo.Text = objOC.ImporteAnticipo.FormatoNumero
             'LtFolioIEAnticipo.Text = $"<a class=""Texto"" href=""/Bancos/IE.aspx?CveIE={objOC.CveIEAnticipo}"" target=""_blank"">{objOC.FolioIEAnticipo}</a>"
 
@@ -5400,6 +5408,8 @@ Partial Class OC
                     DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(CveEmpresa:=CveEmpresaActual).FiltraParametros("Estatus = 1", "Nombre")
                     DdlUsuariosAsignado.DataBind()
                     DdlUsuariosAsignado.Items.Insert(0, New ListItem(" - ", "-1"))
+                    DdlUsuariosAsignado.SelectedValueExist(CveUsuarioAsignado)
+
                 End If
             Else
                 VerificaCotizacionesGanadoras()
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9843d7605..56ab2f9d3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3668,7 +3668,7 @@ Partial Class Ventas
                                 HlCuentaTerminal.Visible = True
                             End If
                             CargarSaldoAuxiliar(CveCliente)
-                            TabAuxiliarConta.Visible = True
+                            TabAuxiliarConta.Visible = UsuarioActual.TienePermisoProceso(306)
                             Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                             If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
                                 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)