From ca2b2b148cb19552b5424b352ce52a0a00739f11 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Jun 2024 14:40:35 -0700
Subject: [PATCH] =?UTF-8?q?--=20cuando=20es=20flete/importaci=C3=B3n=20que?=
 =?UTF-8?q?=20no=20saque=20de=20almacen=20en=20autom=C3=A1tico?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6b13d5b35..69cde82c2 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3654,15 +3654,15 @@ Partial Class Compras_Compras
 
 
         If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
-                    If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then
-                        If ObjProveedor.DtResultados.Rows.Count > 0 Then
-                            Me.RequiereEvaluacion = ObjProveedor.DtResultados.Rows(0)("RequiereEvaluacion").ToString() = "1"
-                            Me.CveUsuarioEvaluador = ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString().ToEntero()
-                        End If
-                    End If
+            If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then
+                If ObjProveedor.DtResultados.Rows.Count > 0 Then
+                    Me.RequiereEvaluacion = ObjProveedor.DtResultados.Rows(0)("RequiereEvaluacion").ToString() = "1"
+                    Me.CveUsuarioEvaluador = ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString().ToEntero()
                 End If
+            End If
+        End If
 
-                ObjProveedor.Dispose()
+        ObjProveedor.Dispose()
     End Sub
 
     Private Sub CargaAnticipos(CveProveedor As Integer, Optional FiltroTipo As String = "-1")
@@ -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)
@@ -13801,10 +13801,10 @@ Partial Class Compras_Compras
                                 End If
                             End If
                         Else
-                                ErrorCancelar = True
-                            End If
-
+                            ErrorCancelar = True
                         End If
+
+                    End If
                 Next
 
             End If
@@ -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)