From 095f07d71dbafcd2a6a52f862cde5a925327b062 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 26 Sep 2024 17:35:16 -0700
Subject: [PATCH] =?UTF-8?q?--=20validar=20si=20el=20movto=20de=20almacen,?=
 =?UTF-8?q?=20corresponde=20a=20la=20OC,=20junto=20con=20la=20prep=C3=B3li?=
 =?UTF-8?q?za?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx.vb | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index eab349a5b..aff991241 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -81,6 +81,15 @@ Partial Class OC_OC
             ViewState("CveOrdenCompra") = value
         End Set
     End Property
+
+    Private Property InventarioPrePoliza176 As Integer
+        Get
+            InventarioPrePoliza176 = ViewState("InventarioPrePoliza176").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("InventarioPrePoliza176") = value
+        End Set
+    End Property
     Private Property CveIEAnticipo As Integer
         Get
             CveIEAnticipo = ViewState("CveIEAnticipo").ToString.ToEntero
@@ -631,11 +640,6 @@ Partial Class OC_OC
         End Set
     End Property
 
-
-
-
-
-
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -644,6 +648,7 @@ Partial Class OC_OC
             GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
             CargaDatosAgregarPS()
             CveProveedorOriginal = -1
+            InventarioPrePoliza176 = 0
             'EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx")
             'EnviarNotificacionWhatsApp("526621430964", "", "hello_world")
             'MODALIDAD MULTIEMPRESA
@@ -1034,7 +1039,7 @@ Partial Class OC_OC
 
     Private Sub ValidaCancelacionConAlamcen()
 
-        If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
+        If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And InventarioPrePoliza176 > 0 Then
             'BtnCancelarPrevio.Attributes.Remove("onclick")
             BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
             BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
@@ -7405,16 +7410,17 @@ Partial Class OC_OC
                     GVInv.DataSource = ObjInventarios.DtResultados
                     If ObjInventarios.DtResultados.Rows.Count > 0 Then
                         DdlMoneda.Enabled = False
+                        InventarioPrePoliza176 = ObjInventarios.DtResultados.MAX("PrePoliza176").ToEntero
                         Dim TipoEstatusTerminado As String = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoTermino", String.Format("CveEstatus = {0}", CboE.SelectedValue))
                         If TipoEstatusTerminado = "3" Then
                             LnkCambiarMoneda.Visible = True
                         End If
                     End If
                 End If
-                GVInv.DataBind()
             End If
 
             ObjInventarios.Dispose()
+            GVInv.DataBind()
             UpAlmacen.Update()
             UpAcciones.Update()
         End If