From d90a86351f6b6e78913d0d0acefc15a199896451 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 24 Sep 2024 19:31:10 -0700 Subject: [PATCH 1/2] --activar carga de documento en Roles --- App_Code/ClsSisRoles.vb | 20 ++++++ SigAyuda.aspx | 90 ++++++++++++++++++++------- SigAyuda.aspx.vb | 27 +++++++- Sistemas/RolesDetalle.aspx | 112 ++++++++++++++++++++++------------ Sistemas/RolesDetalle.aspx.vb | 71 +++++++++++++++++++++ 5 files changed, 258 insertions(+), 62 deletions(-) diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index 6cc5d759b..0df89d1ae 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -329,6 +329,26 @@ Public Class ClsSisRoles Return Retorno End Function + Public Function UpdateRolAdjunto(CveRol As Integer, Adjunto As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Sis_RolAdjuntoUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveRol", SqlDbType.Int).Value = CveRol + .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el adjunto del rol.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then diff --git a/SigAyuda.aspx b/SigAyuda.aspx index fcf0a1a56..4b4f934bf 100644 --- a/SigAyuda.aspx +++ b/SigAyuda.aspx @@ -6,13 +6,15 @@