diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 3e035cf13..bb08cf310 100644
--- a/App_Code/ClsGenerales.vb
+++ b/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"
diff --git a/Compras/CatPaqueteriasGuiasTipo.aspx b/Compras/CatPaqueteriasGuiasTipo.aspx
new file mode 100644
index 000000000..7345ed5c3
--- /dev/null
+++ b/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" %>
+
+
+
+
+
+
+
+ Catálogo de Paqueterías
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Compras/CatPaqueteriasGuiasTipo.aspx.vb b/Compras/CatPaqueteriasGuiasTipo.aspx.vb
new file mode 100644
index 000000000..b606e5df0
--- /dev/null
+++ b/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