-- recepcion por costo indirecto de multiples facturas(fletes)

Inventarios/Fletes.aspx.vb

@@ -99,7 +99,11 @@ Partial Class Compras_Fletes
                 Else
                     Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError)
                 End If
-                CargarComprasRelacionadas()
+
+                If ObjInv.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
+                    GvComprasVinculadas.DataSource = ObjInv.DtResultados
+                End If
+
             Else
                 Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
             End If
@@ -109,6 +113,7 @@ Partial Class Compras_Fletes
 
         ObjInv.Dispose()
         CargaGrid()
+        GvComprasVinculadas.DataBind()
         UpRegistro.Update()
 
     End Sub
@@ -428,14 +433,5 @@ Partial Class Compras_Fletes
 
     End Sub
 
-    Private Sub CargarComprasRelacionadas()
-        Dim ObjCompras As New ClsCompras
-        If ObjCompras.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
-            GvComprasVinculadas.DataSource = ObjCompras.DtResultados
-        End If
-        ObjCompras.Dispose()
-        GvComprasVinculadas.DataBind()
-    End Sub
-
 
 End Class