From b6d714fd983cf005f092cd5d315e4aa3c9cce769 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 22 Feb 2021 11:07:00 -0700
Subject: [PATCH] aumentar el consecutivo

---
 Ventas/PV.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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