From 623470401af2ed0b4dd935c86a8ae1b73416ec9b Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 19 May 2020 13:40:51 -0700 Subject: [PATCH] filtro de "Usuario Autorizo" en rep oc --- App_Code/ClsOC.vb | 3 +- OC/RepOC.aspx | 995 +++++++++++++++++++++++----------------------- OC/RepOC.aspx.vb | 9 +- 3 files changed, 509 insertions(+), 498 deletions(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 19d38432e..ba3ba2c77 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -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, 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 DataAdapter("PA_OC_OrdenesCompraRep") @@ -1751,6 +1751,7 @@ Public Class ClsOC .Add("@Guia", SqlDbType.VarChar).Value = Guia .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso + .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo End With diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 1c595f300..7784cd01c 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -1,490 +1,495 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOC.aspx.vb" Inherits="RepOC" %> - - - - - - - - - - - - - - -
  • - PDF por Atender -
    • -     - - - -     -
  • - Excel por Atender -
    • -
  • - Excel Pendientes -
    • -
  • - Excel -
    • -     - - - - - -     -
  • - Reporte Semanal -
    • - - - -     - - - Reporte de Requisiciones y Ordenes de Compra - - - - - - - -
    -
    -
    - - - "> - -
    -
    -
    -
    - - -
    -
    - - - - - - -
    - -
    - - -
    - -
    - - -
    -
    - - - -
    -
    -
    -
    -
    > -
    -
    - -
    - - -
    -
    - -
    - - -
    - -
    -
    - - - - -
    - - - - - - -
    - -
    -
    - - - - -
    - - - - - - -
    -
    -
    - -
    - - -
    - -
    - -
    -
    - - -
    -
    -
    - -
    - -
    - -
    - -
    -
    -
    -
    -     -     -
    - - - -
    -
    -
    -
    - -
    -
    -
    -
    -
    -

    - $ - - - -

    - TOTAL ORDENES DE COMPRA -
    -
    - -
    -
    -
    -
    -
    - -
    -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - -
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    -
    -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOC.aspx.vb" Inherits="RepOC" %> + + + + + + + + + + + + + + +
  • + PDF por Atender +
    • +     + + + +     +
  • + Excel por Atender +
    • +
  • + Excel Pendientes +
    • +
  • + Excel +
    • +     + + + + + +     +
  • + Reporte Semanal +
    • + + + +     + + + Reporte de Requisiciones y Ordenes de Compra + + + + + + + +
    +
    +
    + + + "> + +
    +
    +
    +
    + + +
    +
    + + + + + + +
    + +
    + + +
    + +
    + + +
    +
    + + + +
    +
    +
    +
    +
    > +
    +
    + +
    + + +
    +
    + +
    + + +
    + +
    + + +
    + +
    +
    + +
    + + +
    + +
    + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    +
    +
    + +
    + +
    + +
    + +
    +
    + +
    +
    +
    +
    +     +     +
    + + + +
    +
    +
    +
    + +
    +
    +
    +
    +
    +

    + $ + + + +

    + TOTAL ORDENES DE COMPRA +
    +
    + +
    +
    +
    +
    +
    + +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + - + +     diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index a06502eed..f945d7c81 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -95,7 +95,12 @@ Partial Class RepOC Protected Sub CargaUsuarios() ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) 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 Protected Sub CargaProveedores() 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, 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, - 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 DtOC = OC.DtResultados