This commit is contained in:
rrene
2020-07-28 23:17:12 -07:00
6 changed files with 348 additions and 16 deletions

View File

@@ -5059,6 +5059,92 @@ Public Class ClsInventarios
#End Region
#Region "Almacen Clasificacion Secciones"
Public Function AddAlmacenClasificacionSecciones(CveAlmacen As Integer, CveClasificacion As Integer, CveClasificacionDetalle As Integer, CveMarca As Integer,
CveSeccionAlmacen As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar la relación Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetAlmacenClasificacionSecciones(CveSeccionClasificacion As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSeccionClasificacion", SqlDbType.Int).Value = CveSeccionClasificacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateAlmacenClasificacionSecciones(CveSeccionClasificacion As Integer, CveAlmacen As Integer, CveClasificacion As Integer, CveClasificacionDetalle As Integer,
CveMarca As Integer, CveSeccionAlmacen As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSeccionClasificacion", SqlDbType.Int).Value = CveSeccionClasificacion
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function RemoveAlmacenClasificacionSecciones(CveSeccionClasificacion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_AlmacenClasificacionesSeccionesDelete")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSeccionClasificacion", SqlDbType.Int).Value = CveSeccionClasificacion
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el Almacén Clasificación Sección.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region " IDisposable Support "
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)

View File

@@ -4477,6 +4477,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892)
PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
PaginaDict.Add("/Inventarios/EntregasPorRealizar.aspx".ToUpper(), 728)
PaginaDict.Add("/Inventarios/CatAlmacenClasificacionSecciones.aspx".ToUpper(), 764)
#End Region
#Region "MF"

View File

@@ -0,0 +1,91 @@
<%@ Page Title="Inventarios - Catálogo almacén clasificación secciones" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatAlmacenClasificacionSecciones.aspx.cs" Inherits="Inventarios_CatAlmacenClasificacionSecciones" %>
<%@ 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 Almacén Clasificacion Secciones
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarAlmacenClasificacionSeccion" OnClick="BtnAgregarAlmacenClasificacionSeccion_Click" data-toggle="tooltip" data-placement="left" title="Agregar" 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="CveSeccionClasificacion,CveAlmacen,CveClasificacion,CveClasificacionDetalle,CveMarca,CveSeccionAlmacen,Almacen,Clasificacion,ClasificacionDetalle,Marca,SeccionAlmacen"
EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%"
GridLines="None">
<Columns>
<asp:BoundField DataField="Almacen" HeaderText="Almacén" />
<asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" />
<asp:BoundField DataField="ClasificacionDetalle" HeaderText="Tipo" />
<asp:BoundField DataField="Marca" HeaderText="Marca" />
<asp:BoundField DataField="SeccionAlmacen" HeaderText="Sección Almacén" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<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">Almacén Clasificación Sección</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<label for="DdlAlmacen">Almacén:</label><br />
<asp:DropDownList runat="server" ID="DdlAlmacen" DataTextField="Almacen" DataValueField="CveAlmacen" OnSelectedIndexChanged="DdlAlmacen_Change" AutoPostBack="true" CssClass="select2me" Width="100%" />
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlClasificacion">Clasificación:</label><br />
<asp:DropDownList runat="server" ID="DdlClasificacion" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="select2me" Width="100%" />
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlTipo">Tipo:</label><br />
<asp:DropDownList runat="server" ID="DdlTipo" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" CssClass="select2me" Width="100%" />
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlMarca">Marca:</label><br />
<asp:DropDownList runat="server" ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" Width="100%" />
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlSeccionAlmacen">Sección Almacén:</label><br />
<asp:DropDownList runat="server" ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="select2me" Width="100%" />
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnAgregarACS" OnClick="BtnAgregarACS_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -0,0 +1,153 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data;
using Extensiones;
public partial class Inventarios_CatAlmacenClasificacionSecciones : ClsPaginas
{
private int CveSeccionClasificacion
{
get
{
return ViewState["CveSeccionClasificacion"].ToString().ToEntero();
}
set
{
ViewState["CveSeccionClasificacion"] = value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!Page.IsPostBack)
{
CargarDatos();
CargarDropDowns();
}
}
private void CargarDatos()
{
ClsInventarios Objinv = new ClsInventarios();
if (Objinv.GetAlmacenClasificacionSecciones(-1,UsuarioActual.CveEmpresa))
{
GvDatos.DataSource = Objinv.DtResultados;
}
Objinv.Dispose();
GvDatos.DataBind();
}
private void CargarDropDowns()
{
DdlAlmacen.DataSource = get_GlobalDTAlmacen(UsuarioActual.CveEmpresa);
DdlAlmacen.DataBind();
DdlAlmacen.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlClasificacion.DataSource = get_GlobalDTClasificaciones(CveEmpresa:UsuarioActual.CveEmpresa);
DdlClasificacion.DataBind();
DdlClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlTipo.DataSource = get_GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa);
DdlTipo.DataBind();
DdlTipo.Items.Insert(0, new ListItem("Seleccione", "-1"));
ClsProductosServicios ObjMarcas = new ClsProductosServicios();
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa);
DdlMarca.DataSource = ObjMarcas.DtResultados;
ObjMarcas.Dispose();
DdlMarca.DataBind();
DdlMarca.Items.Insert(0, new ListItem("Seleccione", "-1"));
}
protected void DdlAlmacen_Change(object sender, EventArgs e)
{
int CveAlmacen = ((DropDownList)sender).SelectedValue.ToEntero();
CargarSeccionAlmacen(CveAlmacen);
}
private void CargarSeccionAlmacen(int CveAlmacen)
{
DdlSeccionAlmacen.DataSource = get_GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, CveAlmacen);
DdlSeccionAlmacen.DataBind();
DdlSeccionAlmacen.Items.Insert(0, new ListItem("Seleccione", "-1"));
}
protected void BtnAgregarAlmacenClasificacionSeccion_Click(object sender, EventArgs e)
{
DdlAlmacen.SelectedValue = "-1";
DdlClasificacion.SelectedValue = "-1";
DdlTipo.SelectedValue = "-1";
DdlMarca.SelectedValue = "-1";
DdlSeccionAlmacen.Items.Clear();
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
}
protected void BtnAgregarACS_Click(object sender, EventArgs e)
{
ClsInventarios ObjInv = new ClsInventarios();
if (BtnAgregarACS.Text == "Agregar")
{
if (ObjInv.AddAlmacenClasificacionSecciones(DdlAlmacen.SelectedValue.ToEntero(),DdlClasificacion.SelectedValue.ToEntero(),DdlTipo.SelectedValue.ToEntero(),
DdlMarca.SelectedValue.ToEntero(),DdlSeccionAlmacen.SelectedValue.ToEntero()))
{
Alert("Se agregó correctamente Almacén Clasificación Sección");
}
}else
{
if (ObjInv.UpdateAlmacenClasificacionSecciones(CveSeccionClasificacion,DdlAlmacen.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero(), DdlTipo.SelectedValue.ToEntero(),
DdlMarca.SelectedValue.ToEntero(), DdlSeccionAlmacen.SelectedValue.ToEntero()))
{
Alert("Se actualizó correctamente Almacén Clasificación Sección");
}
}
CargarDatos();
UpDatos.Update();
ObjInv.Dispose();
}
protected void LnkEditar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
string CveAlmacen = GvRow.DataKey("CveAlmacen");
string CveClasificacion = GvRow.DataKey("CveClasificacion");
string CveClasificacionDetalle = GvRow.DataKey("CveClasificacionDetalle");
string CveMarca = GvRow.DataKey("CveMarca");
string CveSeccionAlmacen = GvRow.DataKey("CveSeccionAlmacen");
BtnAgregarACS.Text = "Actualizar";
CveSeccionClasificacion = GvRow.DataKey("CveSeccionClasificacion").ToEntero();
DdlAlmacen.SelectedValue = CveAlmacen;
CargarSeccionAlmacen(CveAlmacen.ToEntero());
DdlClasificacion.SelectedValue = CveClasificacion;
DdlTipo.SelectedValue = CveClasificacionDetalle;
DdlMarca.SelectedValue = CveMarca;
DdlSeccionAlmacen.SelectedValueExist(CveSeccionAlmacen);
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
}
protected void LnkEliminar_Click(object sender,EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
int CveSeccionClasificacion = GvRow.DataKey("CveSeccionClasificacion").ToEntero();
ClsInventarios ObjInv = new ClsInventarios();
if (ObjInv.RemoveAlmacenClasificacionSecciones(CveSeccionClasificacion))
{
CargarDatos();
UpDatos.Update();
Alert("Se eliminó correctamente Almacén Clasificación Sección");
}
ObjInv.Dispose();
}
}

View File

@@ -68,13 +68,13 @@
</td>
</tr>
<tr>
<td runat="server" id="TdProyecto" class="text-right"><b>Proyecto:</b></td>
<td runat="server" id="TdProyecto" class="text-right"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>
<td runat="server" id="TdProyecto2">
<asp:DropDownList ID="DdlProyectos" AutoPostBack="true" OnSelectedIndexChanged="DdlProyectos_SelectedIndexChanged" runat="server" CssClass="form-control input-sm select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 200px !important;"></asp:DropDownList>
</td>
<td class="text-right">
<b>
<asp:Literal Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
<asp:Label Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
</td>
<td>
<asp:DropDownList ID="DdlSubProyectos" AutoPostBack="false" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 200px !important;"></asp:DropDownList>

View File

@@ -70,18 +70,19 @@ Partial Class OC_PopUpBuscarReq
txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
CargaEstatus()
If UsuarioActual.Empresa.GralSoloProyecto Then
TdProyecto.Visible = False
TdProyecto2.Visible = False
LtSubProyecto.Text = "Proyecto:"
Else
'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyectos.DataBind()
DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End If
CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
'If UsuarioActual.Empresa.GralSoloProyecto Then
' TdProyecto.Visible = False
' TdProyecto2.Visible = False
' LtSubProyecto.Text = "Proyecto:"
'Else
' 'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
' 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
' ' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
' DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
' DdlProyectos.DataBind()
' DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
'End If
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind()
@@ -161,10 +162,10 @@ Partial Class OC_PopUpBuscarReq
Dim CveProyecto = -1
Dim CveSubProyecto = -1
If UsuarioActual.Empresa.GralSoloProyecto Then
If LblProyecto.Visible Then
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
Else
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
End If