campo preciolibre

2021-02-04 13:05:09 -07:00
parent 93f84142d3
commit 914d659ce6
4 changed files with 9 additions and 4 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19628,7 +19628,7 @@ Private Sub CargaNCINV()
        If DdlFletes.SelectedValue.ToEntero > 0 Then
            Dim ObjInventario As New ClsInventarios
            Dim Dr As DataRow = Nothing
-            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero) Then
+            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero, OpcionInventario:=1) Then
                If ObjInventario.DtResultados.Rows.Count > 0 Then
                    Dr = ObjInventario.DtResultados.Rows(0)
                End If