Validacion de inventario al editar remision

Ventas/PV.aspx.vb

@@ -1818,6 +1818,29 @@ Partial Class PV
         imgCalendario.Enabled = True
     End Sub
     Private Sub BtnPermisoEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnPermisoEditarRemision.Click
+        Dim TieneInventario As Boolean = False
+        Dim TieneErrorInv As Boolean = False
+
+        Using ObjInv As New ClsInventarios
+            If ObjInv.GetInv_Mov(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                If ObjInv.DtResultados.Rows.Count > 0 Then
+                    TieneInventario = True
+                End If
+            Else
+                TieneErrorInv = True
+            End If
+        End Using
+
+        If TieneInventario Then
+            Alert("La remisión no se puede editar porque ya tiene un movimiento de almacen.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If TieneErrorInv Then
+            Alert("No se pudo comprobar el inventario de la remisión", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
         HabilitarEdicion()
         BtnPermisoEditarRemision.Visible = False
         BtnEditarRemision.Visible = True