From 40b328ff5dbef2d594be304fc15c2113475d43da Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 23 Aug 2019 16:10:09 -0700 Subject: [PATCH] que sugiera el mes siguiente despues de agregar --- Acumuladores/CatGarantiasMeses.aspx.vb | 6 ++++-- Compras/Proveedores.aspx.vb | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb index b4023f7e4..3e71a5f47 100644 --- a/Acumuladores/CatGarantiasMeses.aspx.vb +++ b/Acumuladores/CatGarantiasMeses.aspx.vb @@ -97,8 +97,9 @@ Partial Class Acumuladores_CatFoliosGarantia If DdlMarca.SelectedValue <> -1 Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero) If DdlTipoUso.SelectedValue <> -1 Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero) - TxtMes.Text = "" + TxtMes.Text = TxtMes.Text.ToEntero + 1 TxtValor.Text = "" + TxtMes.Focus() Actualizar = False UpGral.Update() @@ -129,8 +130,9 @@ Partial Class Acumuladores_CatFoliosGarantia If Not Actualizar Then If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TxtMes.Text = "" + TxtMes.Text = TxtMes.Text.ToEntero + 1 TxtValor.Text = "" + TxtMes.Focus() CargadatosGvFolioGarantia() diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 06cf44aa7..085417382 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1144,7 +1144,7 @@ Partial Class Compras_Proveedores 'VA POR EL CATALOGO DE CUENTAS If Ddl.Attributes("onclick") <> "" Then - CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero, -1)) + CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero, 1)) End If 'RECARGA EL DDL