AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

que sugiera el mes siguiente despues de agregar

Browse Source
This commit is contained in:
Rene Molina
2019-08-23 16:10:09 -07:00
parent 0c42113eb6
commit 40b328ff5d
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -97,8 +97,9 @@ Partial Class Acumuladores_CatFoliosGarantia
If DdlMarca.SelectedValue <> -1 Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero) If DdlMarca.SelectedValue <> -1 Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero)
If DdlTipoUso.SelectedValue <> -1 Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero) If DdlTipoUso.SelectedValue <> -1 Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero)
TxtMes.Text = "" TxtMes.Text = TxtMes.Text.ToEntero + 1
TxtValor.Text = "" TxtValor.Text = ""
TxtMes.Focus()
Actualizar = False Actualizar = False
UpGral.Update() UpGral.Update()
@@ -129,8 +130,9 @@ Partial Class Acumuladores_CatFoliosGarantia
If Not Actualizar Then If Not Actualizar Then
If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) 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 = "" TxtValor.Text = ""
TxtMes.Focus()
CargadatosGvFolioGarantia() CargadatosGvFolioGarantia()

2
Compras/Proveedores.aspx.vb
View File

@@ -1144,7 +1144,7 @@ Partial Class Compras_Proveedores
'VA POR EL CATALOGO DE CUENTAS 'VA POR EL CATALOGO DE CUENTAS
If Ddl.Attributes("onclick") <> "" Then 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 End If
'RECARGA EL DDL 'RECARGA EL DDL