diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 18fb5bee9..20408025b 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -6536,7 +6536,7 @@ Partial Class PV
             If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                 Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
                 If resultado < Limite Or Limite = 0 Then
-                    TxtConsecutivoAjuste.Text = resultado.ToString
+                    TxtConsecutivoAjuste.Text = (resultado + 1).ToString
                 Else
                     Alert("limite de folios alcanzado")
                 End If