Catalogo Clasificaiones Viáticos Comprobaciones

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
 

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)

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" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">   
+</asp:Content>
+
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Clasificaciones Viáticos y Comprobaciones
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="row">
+                            <div class="col-md-6">
+
+                 <asp:GridView runat="server" ID="GvClasificaciones" DataKeyNames="CveClasificacion, Clasificacion,TipoComprobacion" GridLines="None" CssClass="table table-striped table-hover Widthall" AutoGenerateColumns="false">
+                            <Columns>
+
+                                <asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" />                                
+                                
+                                <asp:BoundField DataField="TipoComprobacionStr" HeaderText="Tipo Comprobacion" />
+
+                                <asp:TemplateField ItemStyle-Width="40px" ItemStyle-HorizontalAlign="Right">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" OnClick="ActualizaModalClasif" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                              <%--  <asp:TemplateField ItemStyle-HorizontalAlign="center">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea Elminar?" data-btn-ok-label="si" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>--%>
+
+                            </Columns>
+                        </asp:GridView>
+            </div>
+
+            </div>
+
+ 
+                       
+
+
+           
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    <div id="ModalClasificaciones" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalClasificaciones" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloModal" runat="server">Agregar Clasificaciones</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtClasificaciones" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" ValidationGroup="Clasif" Enabled="false"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVCampaña" runat="server" ControlToValidate="TxtClasificaciones" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
+                            <label for="<%= TxtClasificaciones.ClientID.ToString()%>">Clasificación:</label>
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="<%= DdlTipoComprobacion.ClientID.ToString()%>">Tipo Comprobacion:</label>
+                            <br />
+                            <asp:DropDownList runat="server" ID="DdlTipoComprobacion" CssClass="select2me">
+                                <asp:ListItem Value="-1">Sin Asignar</asp:ListItem>
+                                <asp:ListItem Value="1">Biaticos</asp:ListItem>
+                                <asp:ListItem Value="2">Comprobacines</asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVOrden" runat="server" InitialValue="-1" ControlToValidate="DdlTipoComprobacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Comprobacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
+                            
+                        </div>
+
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="LbAgregarClasificacion" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarRegistro" />
+                        <button id="BtnCancelarCampaña" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                    <asp:HiddenField ID="HdnModalidadClasificacion" runat="server" Value="I" ClientIDMode="Static" />
+                    <asp:HiddenField ID="HdnIDClasificacion" runat="server" Value="-1" ClientIDMode="Static" />
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+ 
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

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