aumentar el consecutivo

2021-02-22 11:07:00 -07:00
parent 94e4d5a933
commit b6d714fd98
1 changed files with 1 additions and 1 deletions
--- 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