From ec4cfc41691feaaad05fdfe82653dd57c0bd5d20 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 29 Apr 2020 19:02:45 -0700 Subject: [PATCH] =?UTF-8?q?Catalogo=20Clasificaiones=20Vi=C3=A1ticos=20Com?= =?UTF-8?q?probaciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsClasificaciones.vb | 23 +++- App_Code/ClsPaginas.vb | 1 + General/CatClasificacionesComprobaciones.aspx | 102 ++++++++++++++++++ .../CatClasificacionesComprobaciones.aspx.vb | 78 ++++++++++++++ 4 files changed, 203 insertions(+), 1 deletion(-) create mode 100644 General/CatClasificacionesComprobaciones.aspx create mode 100644 General/CatClasificacionesComprobaciones.aspx.vb diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index ec598938a..d25465616 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -137,13 +137,14 @@ Public Class ClsClasificaciones Return Retorno End Function - Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer) As Boolean + Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClasificacionesComprobacionesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try SqlAdapter.Fill(Data) @@ -152,6 +153,26 @@ Public Class ClsClasificaciones OnError("Ocurrió un error al consultar las Clasificaciones de comprobaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function AddClasificacionesComprobaciones(CveClasificacion As Integer, CveEmpresa As Integer, TipoComprobacion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClasificacionesComprobacionesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al modificar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index d2f18f913..ccdf9227a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4183,6 +4183,7 @@ Public Class ClsPaginas 'GENERAL #Region "General" PaginaDict.Add("/General/CatClasificaciones.aspx".ToUpper(), 425) + PaginaDict.Add("/General/CatClasificacionesComprobaciones.aspx".ToUpper(), 1308) PaginaDict.Add("/General/CatPSCaracteristicas.aspx".ToUpper(), 101) PaginaDict.Add("/General/CatCategorias.aspx".ToUpper(), 233) PaginaDict.Add("/General/SaldosIniciales.aspx".ToUpper(), 526) diff --git a/General/CatClasificacionesComprobaciones.aspx b/General/CatClasificacionesComprobaciones.aspx new file mode 100644 index 000000000..53df1ed7a --- /dev/null +++ b/General/CatClasificacionesComprobaciones.aspx @@ -0,0 +1,102 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" EnableEventValidation="false" CodeFile="CatClasificacionesComprobaciones.aspx.vb" Inherits="Gral_CatClasificacionesComprobaciones" %> + + + + + + + + + + Catálogo de Clasificaciones Viáticos y Comprobaciones + + + + + + + +
+
+ + + + + + + + + + + + + + + <%-- + + + + --%> + + + +
+ +
+ + + + + + + + + + + + + + + + + + diff --git a/General/CatClasificacionesComprobaciones.aspx.vb b/General/CatClasificacionesComprobaciones.aspx.vb new file mode 100644 index 000000000..dfe095bbc --- /dev/null +++ b/General/CatClasificacionesComprobaciones.aspx.vb @@ -0,0 +1,78 @@ +Option Explicit On +Option Strict On + +Imports Extensiones +Partial Class Gral_CatClasificacionesComprobaciones + Inherits ClsPaginas + + Property CveClasificacion As Integer + + Get + + If ViewState("CveClasificacion") Is Nothing Then + Return -1 + Else + Return ViewState("CveClasificacion").ToString.ToEntero + End If + + End Get + + Set(value As Integer) + ViewState("CveClasificacion") = value + End Set + + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaGridClasificaciones() + End If + End Sub + +#Region " C L A S I F I C A C I O N E S" + Protected Sub CargaGridClasificaciones() + + Dim ObjClasificaciones As New ClsClasificaciones() + If ObjClasificaciones.GetClasificacionesComprobaciones(UsuarioActual.CveEmpresa, 2) Then + GvClasificaciones.DataSource = ObjClasificaciones.DtResultados + GvClasificaciones.DataBind() + End If + ObjClasificaciones.Dispose() + + End Sub + Private Sub LbAgregarClasificacion_Click(sender As Object, e As EventArgs) Handles LbAgregarClasificacion.Click + + + Dim ObjClasificaciones As New ClsClasificaciones() + + + If ObjClasificaciones.AddClasificacionesComprobaciones(CveClasificacion, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then + Alert("La clasificación se agregó correctamente.") + CargaGridClasificaciones() + UpDatos.Update() + + RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones")) + End If + + ObjClasificaciones.Dispose() + + End Sub + + Public Sub ActualizaModalClasif(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + TxtClasificaciones.Text = GvRow.DataKey("Clasificacion") + CveClasificacion = GvRow.DataKey("CveClasificacion").ToString.ToEntero + RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones")) + + DdlTipoComprobacion.SelectedValueExist(GvRow.DataKey("TipoComprobacion")) + + UpModalClasificaciones.Update() + + End Sub +#End Region + + + +End Class \ No newline at end of file