filtro de "Usuario Autorizo" en rep oc

This commit is contained in:
2020-05-19 13:40:51 -07:00
parent 65d2670015
commit 623470401a
3 changed files with 509 additions and 498 deletions

View File

@@ -1726,7 +1726,7 @@ Public Class ClsOC
Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer,
FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1, FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1,
Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OC_OrdenesCompraRep") DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1751,6 +1751,7 @@ Public Class ClsOC
.Add("@Guia", SqlDbType.VarChar).Value = Guia .Add("@Guia", SqlDbType.VarChar).Value = Guia
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
.Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
.Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo
End With End With

View File

@@ -84,7 +84,7 @@
<asp:UpdatePanel ID="UpAcciones" runat="server"> <asp:UpdatePanel ID="UpAcciones" runat="server">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpDescarga" runat="server" > <asp:UpdatePanel ID="UpDescarga" runat="server">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LbPorAtenderPDF" runat="server" OnClick="LbPorAtenderPDF_Click"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF por Atender</asp:LinkButton> <asp:LinkButton ID="LbPorAtenderPDF" runat="server" OnClick="LbPorAtenderPDF_Click"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF por Atender</asp:LinkButton>
@@ -178,9 +178,26 @@
</div> </div>
<label class="colf-1">Usuario</label> <label class="colf-1">Usuario</label>
<div class="colf-2"> <div class="colf-2">
<asp:DropDownList ID="ddlUsuario" runat="server" CssClass="form-control input-sm select2me" DataTextField="Usuario" DataValueField="CveUsuario"> <asp:DropDownList ID="ddlUsuario" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="colf-1">Usuario Autorizó</label>
<div class="colf-2">
<asp:DropDownList ID="DdlUsuarioAutorizo" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList>
</div>
</div>
<div class="row rownomargin">
<label class="colf-1 truncate">Clasificacion</label>
<div class="colf-2">
<asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true">
</asp:DropDownList>
</div>
<label class="colf-1 truncate">Producto Servicio</label>
<div class="colf-2">
<ADS:Dropdownlost runat="server" ID="DDlPS" CssStyle="width: 100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
</div>
<label class="colf-1 truncate">Fecha inicio</label> <label class="colf-1 truncate">Fecha inicio</label>
<div class="colf-2"> <div class="colf-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="padding: 0px;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="padding: 0px;">
@@ -212,21 +229,6 @@
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row rownomargin">
<label class="colf-1 truncate">Clasificacion</label>
<div class="colf-2">
<asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true">
</asp:DropDownList>
</div>
<label class="colf-1 truncate">Producto Servicio</label>
<div class="colf-2">
<ADS:Dropdownlost runat="server" ID="DDlPS" CssStyle="width: 100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
</div>
<div class="colf-2">
<asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" />
</div>
</div>
<div class="row rownomargin"> <div class="row rownomargin">
<label class="colf-1 truncate">Proveedor</label> <label class="colf-1 truncate">Proveedor</label>
<div class="colf-2"> <div class="colf-2">
@@ -236,6 +238,9 @@
<div class="colf-2" id="clintesdiv2" runat="server" visible="false"> <div class="colf-2" id="clintesdiv2" runat="server" visible="false">
<asp:DropDownList ID="ddlcliente" runat="server" CssClass="form-control input-sm select2me" DataTextField="NombreComercial" DataValueField="CveCliente"></asp:DropDownList> <asp:DropDownList ID="ddlcliente" runat="server" CssClass="form-control input-sm select2me" DataTextField="NombreComercial" DataValueField="CveCliente"></asp:DropDownList>
</div> </div>
<div class="colf-3">
<asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" />
</div>
</div> </div>
</div> </div>
</div> </div>

View File

@@ -96,6 +96,11 @@ Partial Class RepOC
ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
ddlUsuario.DataBind() ddlUsuario.DataBind()
ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioAutorizo.DataBind()
DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Protected Sub CargaProveedores() Protected Sub CargaProveedores()
ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -313,7 +318,7 @@ Partial Class RepOC
If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero()) Then
GvConsultar.DataSource = OC.DtResultados GvConsultar.DataSource = OC.DtResultados
DtOC = OC.DtResultados DtOC = OC.DtResultados