From 13f60556eb7158da4ed016da8f63de72b6fb6852 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 May 2024 07:09:51 -0700 Subject: [PATCH] -- parametro para editar la area. --- Acumuladores/CatFoliosGarantia.aspx.vb | 2 +- App_Code/ClsAcumuladores.vb | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 5f6459bd9..ef11572db 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia End If Else If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero, - DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then + DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then TxtFolioGarantia.Text = "" DdlEstatusEditar.SelectedValueExist("1") diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 120c6bcdb..505fc7eb3 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -543,7 +543,7 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean + Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -557,8 +557,8 @@ Public Class ClsAcumuladores .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio - .Add("@Limite", SqlDbType.Int).Value = Limite - + .Add("@Limite", SqlDbType.Int).Value = Limite + .Add("@Area", SqlDbType.Int).Value = Area End With Try