Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsGenerales.vb

@@ -384,6 +384,54 @@ Public Class ClsGenerales
 
         Return Retorno
     End Function
+
+    Public Function AddGralPaqueteriasGuiasTipo(PaqueteriaGuiaTipo As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_PaqueteriasGuiasTipoAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@PaqueteriaGuiaTipo", SqlDbType.VarChar).Value = PaqueteriaGuiaTipo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar en el Catálogo de Paqueterias Guias Tipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function RemoveGralPaqueteriasGuiasTipo(CvePaqueteriaGuiaTipo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_PaqueteriasGuiasTipoDelete")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePaqueteriaGuiaTipo", SqlDbType.Int).Value = CvePaqueteriaGuiaTipo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar en el Catálogo de Paqueterias Guias Tipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function UpdateGralPaqueteriasGuiasTipo(CvePaqueteriaGuiaTipo As Integer, PaqueteriaGuiaTipo As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_PaqueteriasGuiasTipoUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePaqueteriaGuiaTipo", SqlDbType.Int).Value = CvePaqueteriaGuiaTipo
+            .Add("@PaqueteriaGuiaTipo", SqlDbType.VarChar).Value = PaqueteriaGuiaTipo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar en el Catálogo de Paqueterias Guias Tipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
 #End Region
 
 #Region "P L A N T I L L A S  C O N T R A T O S"

Compras/CatPaqueteriasGuiasTipo.aspx

@@ -0,0 +1,98 @@
+<%@ Page Title="Compras - Catálogo de Paquetería" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatPaqueteriasGuiasTipo.aspx.vb" Inherits="Comp_CatPaqueteriasGuiasTipo" %>
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<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 Paqueterías
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarPaqueteria" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePaqueteriaGuiaTipo,PaqueteriaGuiaTipo" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+                <Columns>
+                    <asp:TemplateField HeaderText ="Paqueteria Guia Tipo">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMotivoBaja" runat="server" Text='<%# Eval("PaqueteriaGuiaTipo", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtMotivoBaja" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("PaqueteriaGuiaTipo") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVMotivoBaja" runat="server" ControlToValidate="TxtMotivoBaja" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Baja''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCMotivoBaja" runat="server" HighlightCssClass="vco" TargetControlID="RFVMotivoBaja" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Editar">
+                        <EditItemTemplate>
+                            <center>
+                                <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
+                                &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>"	 />
+                            </center>
+                        </EditItemTemplate>
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgE" OnClick="GvDatos_RowEditing" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Eliminar">
+                        <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="Confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />
+            </asp:GridView>
+
+             <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Motivos de baja</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtPaqueteria" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="TxtPaqueteria" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Paqueteria''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="MotivoTxt">Paqueteria Guía Tipo: </label>
+                                    <i></i>
+                                </div>
+                                
+                            </div>
+                            <br />
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAgregarTiposDModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                                <asp:Button ID="BtnEditarTiposDModal" runat="server" class="btn btn-success" Text="Confirmar" ValidationGroup="GrpTiposD" />
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

Compras/CatPaqueteriasGuiasTipo.aspx.vb

@@ -0,0 +1,82 @@
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class Comp_CatPaqueteriasGuiasTipo
+    Inherits ClsPaginas
+
+    Private Property CvePaqueteriaGuiaTipo() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CvePaqueteriaGuiaTipo")), -1, CInt(ViewState("CvePaqueteriaGuiaTipo")))
+        End Get
+        Set
+            ViewState("CvePaqueteriaGuiaTipo") = Value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaDatos()
+        End If
+    End Sub
+
+    Public Sub CargaDatos()
+        Dim ObjGenerales As New ClsGenerales
+        If ObjGenerales.GetGralPaqueteriasGuiasTipo(UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjGenerales.DtResultados
+        End If
+        ObjGenerales.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
+    Protected Sub BtnAgregarPaqueteria_Click(sender As Object, e As EventArgs) Handles BtnAgregarPaqueteria.Click
+        BtnEditarTiposDModal.Visible = False
+        BtnAgregarTiposDModal.Visible = True
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
+    End Sub
+
+    Protected Sub BtnAgregarTiposDModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposDModal.Click
+        Dim ObjGeneral As New ClsGenerales
+        If ObjGeneral.AddGralPaqueteriasGuiasTipo(TxtPaqueteria.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
+            CargaDatos()
+            UpDatos.Update()
+            Alert("Agregado Correctamente")
+        End If
+        ObjGeneral.Dispose()
+    End Sub
+
+    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+        Dim ObjGeneral As New ClsGenerales
+        If ObjGeneral.RemoveGralPaqueteriasGuiasTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+            CargaDatos()
+            UpDatos.Update()
+            Alert("Eliminado con exito")
+        End If
+        ObjGeneral.Dispose()
+    End Sub
+
+    Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs)
+        BtnEditarTiposDModal.Visible = True
+        BtnAgregarTiposDModal.Visible = False
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
+        TxtPaqueteria.Text = GvRow.DataKey("PaqueteriaGuiaTipo")
+        CvePaqueteriaGuiaTipo = GvRow.DataKey("CvePaqueteriaGuiaTipo")
+
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
+    End Sub
+
+    Protected Sub BtnEditarTiposDModal_Click(sender As Object, e As EventArgs) Handles BtnEditarTiposDModal.Click
+        Dim ObjGeneral As New ClsGenerales
+        If ObjGeneral.UpdateGralPaqueteriasGuiasTipo(CvePaqueteriaGuiaTipo, TxtPaqueteria.Text) Then
+            CargaDatos()
+            UpDatos.Update()
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
+            Alert("Actualizado con exito")
+        End If
+        ObjGeneral.Dispose()
+    End Sub
+End Class