Validacion de inventario al editar remision

Inventarios/RecepcionUsados.aspx.vb

@@ -2037,7 +2037,13 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True)
         If DdlClientes.SelectedValue.ToEntero > 0 Then
-            Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", ""))
+            Dim strDistribuidor = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", "")
+            If String.IsNullOrEmpty(strDistribuidor) Then
+                strDistribuidor = "False"
+            End If
+
+            Me.EsDistribuidor = CBool(strDistribuidor)
+
             If CargaSucursales Then
                 DivClienteSucursal.Visible = False
                 DdlClientesSucursales.Items.Clear()

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