From c3de42e7930ad174dbe8c5775e9a2ed9384f8183 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 23 Aug 2019 16:04:49 -0700
Subject: [PATCH] Asignar unicamente la sucusal del contratro

---
 Inventarios/RepNotasSinAlmacen.aspx.vb | 10 +++++-----
 Ventas/Ventas.aspx.vb                  |  3 +++
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb
index 0610c3b7e..0f7e28329 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -291,17 +291,17 @@ Partial Class RepNotasSinAlmacen
         If UsuarioActual.TienePermisoProceso(278) Then
             Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-            Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle")
-            Dim CveCompra As Integer = GvRow.DataKey("CveCompra")
-            Dim CvePS As Integer = GvRow.DataKey("CveCompra")
+            Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle").ToEntero()
+            Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
+            Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero()
 
             Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
 
             Dim ObjCompras As New ClsCompras
             Dim ObjEventos As New ClsOIEventos
             If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then
-                If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibirlo", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
-                    Alert("El producto se marcó como 'no recibirlo' correctamente.")
+                If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibido", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+                    Alert("El producto se marcó como 'no recibido' correctamente.")
                 End If
             End If
             ObjCompras.Dispose()
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7f4141744..ac1669fe6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2781,6 +2781,9 @@ Partial Class Ventas
 
             If DrContrato("CveSucursalCliente").ToString.ToEntero > 0 Then
                 DdlSucursalCliente.SelectedValueExist(DrContrato("CveSucursalCliente"))
+                DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty)
+                DdlSucursalCliente.Enabled = False
+                DdlSucursalCliente.Attributes.Add("disabled", "")
             End If
 
             Dim CveAlmacenDestino As Integer = DrContrato("CveAlmacenDestino").ToString.ToEntero