-

2020-01-11 15:36:57 -07:00
parent bdbdff0f9c
commit 61981273d7
3 changed files with 13 additions and 12 deletions
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5018,7 +5018,7 @@ Partial Class PV

    Private Sub CargaAjuste()
        Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then
            DdlFolioGarantia.DataSource = ObjAcum.DtResultados
            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If