-- validar si el movto de almacen, corresponde a la OC, junto con la prepóliza

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