-- cuando es flete/importación que no saque de almacen en automático

Compras/Compras.aspx.vb

@@ -4406,7 +4406,7 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        If UsuarioActual.TienePermisoProceso(121) Then
+        If UsuarioActual.TienePermisoProceso(121) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'valida que de salida, pero sino es importación o costoindirecto
             If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
                 If Not NCDevolucion And Not ChkNCInvNC.Checked Then
                     Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia)
@@ -18128,11 +18128,13 @@ Partial Class Compras_Compras
             Dr("CveUM") = DtEquivalencia.FiltroPrimeroValor("CveUM", "UnidadBase = 1")
             Dr("UM") = DtEquivalencia.FiltroPrimeroValor("UM", "UnidadBase = 1")
             Dr("Cantidad") = Dr("Cantidad").ToString.ToDouble * Equivalencia
+            Dr("CantidadF") = Dr("CantidadF").ToString.ToDouble * Equivalencia
             Dr("PU") = Math.Round(Dr("PU").ToString.ToDouble / Equivalencia, 6)
 
             TmpDT.AcceptChanges()
             GvPS.DataSource = TmpDT
             GvPS.DataBind()
+            CargaGvInv()
             UpPS.Update()
         Else
             Alert("La cantidad de equivalencia de la unidad de medida debe ser mayor a 0", TipoMensaje.MsgAdvertencia)