From 7a7c1f71eaeebed18ff7c4289d8b34ccea5997d2 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 8 Oct 2020 18:33:17 -0700 Subject: [PATCH] =?UTF-8?q?se=20agrego=20un=20nuevo=20cat=C3=A1logo=20de?= =?UTF-8?q?=20equivalencias=20en=20medidas=20para=20econollantas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsGenerales.vb | 81 ++++++++++++ App_Code/ClsPaginas.vb | 1 + Compras/CatTipoGasto.aspx | 2 +- General/CatMedidaEquivalencia.aspx | 96 ++++++++++++++ General/CatMedidaEquivalencia.aspx.cs | 132 ++++++++++++++++++++ Inventarios/PopUpExistenciasAlmacen.aspx | 27 +++- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 11 ++ 7 files changed, 348 insertions(+), 2 deletions(-) create mode 100644 General/CatMedidaEquivalencia.aspx create mode 100644 General/CatMedidaEquivalencia.aspx.cs diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 2b82c5a1b..16d1f7a61 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1106,6 +1106,87 @@ Public Class ClsGenerales OnError("Ocurrió un error al eliminar el modelo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + Public Function GetMedidasEquivalentes(CveEmpresa As Integer, Optional CveMedida As Integer = -1, Optional CveRin As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_MedidasEquivalenciasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveMedida", SqlDbType.Int).Value = CveMedida + .Add("@CveRin", SqlDbType.Int).Value = CveRin + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las equivalencias de medidas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddMedidasEquivalentes(CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_MedidasEquivalenciasAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedida", SqlDbType.Int).Value = CveMedida + .Add("@CveRin", SqlDbType.Int).Value = CveRin + .Add("@CveMedidaEquivalente", SqlDbType.Int).Value = CveMedidaEquivalente + .Add("@CveRinEquivalente", SqlDbType.Int).Value = CveRinEquivalente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdateMedidasEquivalentes(CveMedidaEquivalencia As Integer, CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_MedidasEquivalenciasUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia + .Add("@CveMedida", SqlDbType.Int).Value = CveMedida + .Add("@CveRin", SqlDbType.Int).Value = CveRin + .Add("@CveMedidaEquivalente", SqlDbType.Int).Value = CveMedidaEquivalente + .Add("@CveRinEquivalente", SqlDbType.Int).Value = CveRinEquivalente + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveMedidasEquivalentes(CveMedidaEquivalencia As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_MedidasEquivalenciasDelete") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function #End Region diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c8384b872..8cef487fc 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4420,6 +4420,7 @@ Public Class ClsPaginas PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711) PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712) PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) + PaginaDict.Add("/General/CatMedidaEquivalencia.aspx".ToUpper(), 773) #End Region diff --git a/Compras/CatTipoGasto.aspx b/Compras/CatTipoGasto.aspx index c1f4a738e..ac328153b 100644 --- a/Compras/CatTipoGasto.aspx +++ b/Compras/CatTipoGasto.aspx @@ -45,7 +45,7 @@

- Tipo Gastos de Rechazo

+ Tipo Gastos
diff --git a/General/CatMedidaEquivalencia.aspx b/General/CatMedidaEquivalencia.aspx new file mode 100644 index 000000000..aa284a51a --- /dev/null +++ b/General/CatMedidaEquivalencia.aspx @@ -0,0 +1,96 @@ +<%@ Page Title="General - Catálogo de Equivalencias de Medida" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatMedidaEquivalencia.aspx.cs" Inherits="General_CatMedidaEquivalencia" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + Catálogo de Equivalencias de Medida + + + + +
  • + +
    • +     +     +     + + + + + + + + + + + + + + + + + + + + + + + diff --git a/General/CatMedidaEquivalencia.aspx.cs b/General/CatMedidaEquivalencia.aspx.cs new file mode 100644 index 000000000..765a94476 --- /dev/null +++ b/General/CatMedidaEquivalencia.aspx.cs @@ -0,0 +1,132 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; + +public partial class General_CatMedidaEquivalencia : ClsPaginas +{ + private int CveMedidaEquivalencia + { + get + { + return ViewState["CveMedidaEquivalencia"].ToString().ToEntero(); + } + + set + { + ViewState["CveMedidaEquivalencia"] = value; + } + } + + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + CargaDatos(); + CargaDatosModal(); + } + } + + private void CargaDatos() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.GetMedidasEquivalentes(UsuarioActual.CveEmpresa)) + { + GvDatos.DataSource = ObjGeneral.DtResultados; + GvDatos.DataBind(); + } + ObjGeneral.Dispose(); + } + + private void CargaDatosModal() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.GetMedidas(UsuarioActual.CveEmpresa)) + { + DdlMedidas.DataSource = ObjGeneral.DtResultados; + DdlMedidasEquivalente.DataSource = ObjGeneral.DtResultados; + } + if (ObjGeneral.GetRimTamanios(UsuarioActual.CveEmpresa)) + { + DdlRin.DataSource = ObjGeneral.DtResultados; + DdlRinEquivalente.DataSource = ObjGeneral.DtResultados; + } + ObjGeneral.Dispose(); + DdlMedidas.DataBind(); + DdlMedidasEquivalente.DataBind(); + DdlRin.DataBind(); + DdlRinEquivalente.DataBind(); + DdlMedidas.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlMedidasEquivalente.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlRin.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlRinEquivalente.Items.Insert(0, new ListItem("Seleccione", "-1")); + } + + protected void BtnAgregarMedidaEquivalente_Click(object sender, EventArgs e) + { + BtnAgregarEquivalente.Text = "Agregar"; + DdlMedidas.SelectedValueExist(-1); + DdlMedidasEquivalente.SelectedValueExist(-1); + DdlRin.SelectedValueExist(-1); + DdlRinEquivalente.SelectedValueExist(-1); + UpModalTiposD.Update(); + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")); + } + + protected void LnkEditar_Click(object sender, EventArgs e) + { + BtnAgregarEquivalente.Text = "Actualizar"; + GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CveMedidaEquivalencia = GvRow.DataKey("CveMedidaEquivalencia").ToEntero(); + int CveMedida = GvRow.DataKey("CveMedida").ToEntero(); + int CveRin = GvRow.DataKey("CveRin").ToEntero(); + int CveMedidaEquivalente = GvRow.DataKey("CveMedidaEquivalente").ToEntero(); + int CveRinEquivalente = GvRow.DataKey("CveRinEquivalente").ToEntero(); + DdlMedidas.SelectedValueExist(CveMedida); + DdlMedidasEquivalente.SelectedValueExist(CveMedidaEquivalente); + DdlRin.SelectedValueExist(CveRin); + DdlRinEquivalente.SelectedValueExist(CveRinEquivalente); + UpModalTiposD.Update(); + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")); + } + + protected void LnkEliminar_Click(object sender, EventArgs e) + { + GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + int CveMedidaEquivalenciaEliminar = GvRow.DataKey("CveMedidaEquivalencia").ToEntero(); + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.RemoveMedidasEquivalentes(CveMedidaEquivalenciaEliminar)) + { + Alert("Equivalencia eliminada correctamente"); + CargaDatos(); + UpDatos.Update(); + } + ObjGeneral.Dispose(); + } + + protected void BtnAgregarEquivalente_Click(object sender, EventArgs e) + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if(BtnAgregarEquivalente.Text == "Agregar") + { + if (ObjGeneral.AddMedidasEquivalentes(DdlMedidas.SelectedValue.ToEntero(),DdlRin.SelectedValue.ToEntero(), DdlMedidasEquivalente.SelectedValue.ToEntero(),DdlRinEquivalente.SelectedValue.ToEntero())) + { + Alert("Se agregó la equivalencia correctamente"); + } + }else + { + if (ObjGeneral.UpdateMedidasEquivalentes(CveMedidaEquivalencia, DdlMedidas.SelectedValue.ToEntero(), DdlRin.SelectedValue.ToEntero(), DdlMedidasEquivalente.SelectedValue.ToEntero(), DdlRinEquivalente.SelectedValue.ToEntero())) + { + Alert("Se actualizó la equivalencia correctamente"); + } + } + ObjGeneral.Dispose(); + CargaDatos(); + UpDatos.Update(); + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")); + } +} \ No newline at end of file diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx index e8a120fa6..eec03b6a6 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx +++ b/Inventarios/PopUpExistenciasAlmacen.aspx @@ -35,18 +35,37 @@ + + + Medida: + +
    + + + + + + + + + +
    + Rin: + + + C. Barras: @@ -60,6 +79,9 @@ + + + @@ -67,12 +89,15 @@ + + + @@ -113,7 +138,7 @@
    -
    +
    diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index b71e823e5..7b6ec9130 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -70,6 +70,7 @@ Partial Class Inventarios_Default DivRin.Visible = True CargarMedRin() DivMedRin.Visible = True + DivEquivalentes.Visible = True DivPS.Visible = False End If Dim Txt As String = IfNull(Request("Txt"), "").ToString @@ -89,6 +90,7 @@ Partial Class Inventarios_Default Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then CargarDatosMedRin() + CargaEquivalencia() Else CargaDatos(DDlPS.SelectedValue.ToEntero, 1) End If @@ -243,6 +245,15 @@ Partial Class Inventarios_Default UPDatos.Update() End Sub + Private Sub CargaEquivalencia() + Dim ObjGeneral As New ClsGenerales + If ObjGeneral.GetMedidasEquivalentes(UsuarioActual.CveEmpresa, DdlMedidas.SelectedValue.ToEntero(), DdlRin.SelectedValue.ToEntero()) Then + GvEquival.DataSource = ObjGeneral.DtResultados + End If + ObjGeneral.Dispose() + GvEquival.DataBind() + End Sub + Private Function ValidarFiltrosSeleccionados() As Boolean If DDlPS.SelectedValue.ToEntero > 0 Then Return True Return False