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)