From 03e565a333195c37e25371fcce91eaa8a2fc462b Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 12 Feb 2020 11:33:01 -0700 Subject: [PATCH] nuevo catalogo de paqueteria guia tipo --- App_Code/ClsGenerales.vb | 48 ++++++++++++ Compras/CatPaqueteriasGuiasTipo.aspx | 98 +++++++++++++++++++++++++ Compras/CatPaqueteriasGuiasTipo.aspx.vb | 82 +++++++++++++++++++++ 3 files changed, 228 insertions(+) create mode 100644 Compras/CatPaqueteriasGuiasTipo.aspx create mode 100644 Compras/CatPaqueteriasGuiasTipo.aspx.vb 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