From e3b39d3d098b70f2db726a903fbc6d22cdc13bbb Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 2 Sep 2020 18:16:32 -0700 Subject: [PATCH] manejo sobre el usuario asignado, reporte cambios --- OC/OC.aspx | 4 ++++ OC/OC.aspx.vb | 10 +++++++++- OC/RepOC.aspx | 4 ++++ OC/RepOC.aspx.vb | 42 ++++++++++++++++++++++++++++++++++++++---- 4 files changed, 55 insertions(+), 5 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index af0786933..01867c377 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1485,6 +1485,10 @@ + + Asignado a: +

+ diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 8df2ee5f5..fe3846255 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -817,6 +817,7 @@ Partial Class OC End If End If + MostrarUsuarioAsignado() Me.Form.DefaultButton = "" End Sub @@ -3128,7 +3129,7 @@ Partial Class OC Else If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, - CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, + CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion) Then @@ -8038,6 +8039,13 @@ Partial Class OC UpSolicitarAnticipo.Update() End Sub + Private Sub MostrarUsuarioAsignado() + If CveUsuarioAsignado > 0 Then + PnlUsuarioYaAsignado.Visible = True + Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuario:=CveUsuarioAsignado).FiltroPrimeroValor("Nombre") + LblUsuarioYaAsignado.Text = NombreUsuario + End If + End Sub 'Private Sub CargaVentaRelacionada() ' Dim GridViewPSAux As GridView = GvD ' Dim CveOCDetalle As New StringBuilder() diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index b01887af2..68f0df94b 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -97,6 +97,9 @@
  • Excel por Atender
    • +
  • + PDF Pendientes +
  • Excel Pendientes
    • @@ -107,6 +110,7 @@ +     diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index f6bb99b72..f3c5712af 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -22,9 +22,17 @@ Partial Class RepOC Set(value As DataTable) ViewState("DtPorAtender") = value End Set - End Property + End Property + Private Property DtPendiente As DataTable + Get + Return DirectCast(ViewState("DtPendiente"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtPendiente") = value + End Set + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then txtFechaI.Text = Now.AddMonths(-3).ToShortDateString @@ -87,6 +95,7 @@ Partial Class RepOC CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto) GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text GvPendientes.Columns(5).HeaderText = LblSubProyecto.Text + GvConsultar.Columns(5).HeaderText = LblSubProyecto.Text DivProyectos.Visible = DdlProyectos.Visible End Sub @@ -182,6 +191,7 @@ Partial Class RepOC Protected Sub btnConsultarPendientes_Click(sender As Object, e As EventArgs) Handles btnConsultarPendientes.Click LbPorAtender.Visible = True LbPendientes.Visible = True + LbPendientesPDF.Visible = True LbConsultar.Visible = False Tab.Visible = True @@ -214,6 +224,7 @@ Partial Class RepOC DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then GvPendientes.DataSource = OC.DtResultados + DtPendiente = OC.DtResultados GvPendientes.DataBind() 'If (GvPendientes.Rows.Count > 0) Then ' GvPendientes.UseAccessibleHeader = True @@ -312,6 +323,7 @@ Partial Class RepOC Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click LbPorAtender.Visible = False LbPendientes.Visible = False + LbPendientesPDF.Visible = False LbConsultar.Visible = True DivConsultar.Visible = True DivPendiete.Visible = False @@ -330,7 +342,8 @@ Partial Class RepOC CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then GvConsultar.DataSource = OC.DtResultados - DtOC = OC.DtResultados + DtOC = OC.DtResultados + DtPorAtender = OC.DtResultados LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero If UsuarioActual.TienePermisoProceso(227) Then @@ -459,6 +472,7 @@ Partial Class RepOC params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("AgrupadoPor", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}")) params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text)) + params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER")) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) @@ -480,7 +494,27 @@ Partial Class RepOC End Sub Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click - GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString) + 'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString) + ImprimirPendientes("EXCEL") + End Sub + Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click + ImprimirPendientes("PDF") + End Sub + + Private Sub ImprimirPendientes(format As String) + If UsuarioActual.CveEmpresa.Contiene(72) Then + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text))) + params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString)) + params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text)) + + ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format) + Else + GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString) + End If End Sub Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click If UsuarioActual.CveEmpresa.Contiene(72) Then