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 - - - - - - - - - - - - - "> - - - - - - Folio: - - - - Tipo: - - - - - - - Proyecto: - - - - - SubProyecto: - - - - - - Estatus - - - - - - - > - - - Activo Fijo - - - - - - Usuario - - - - - Fecha inicio - - - - - - - - - - - - - - - Fecha Fin - - - - - - - - - - - - - - - - - Clasificacion - - - - - Producto Servicio - - - - - - - - - - Proveedor - - - - Cliente - - - - - - - - - - - - - - - - - - - - - - - - $ - - - - - 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"> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Reporte Semanal - - - - - - - - Filtros para búsqueda - - - Fecha inicio: - - - - - - - - - - - - - - - Fecha Fin: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +<%@ 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 + + + + + + + + + + + + + "> + + + + + + Folio: + + + + Tipo: + + + + + + + Proyecto: + + + + + SubProyecto: + + + + + + Estatus + + + + + + + > + + + Activo Fijo + + + + + + Usuario + + + + + Usuario Autorizó + + + + + + + + Clasificacion + + + + + Producto Servicio + + + + Fecha inicio + + + + + + + + + + + + + + + Fecha Fin + + + + + + + + + + + + + + + + + Proveedor + + + + Cliente + + + + + + + + + + + + + + + + + + + + + + + + + + + $ + + + + + 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"> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Reporte Semanal + + + + + + + + Filtros para búsqueda + + + Fecha inicio: + + + + + + + + + + + + + + + Fecha Fin: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + + 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