From fe2567f24ad6b7f9e89b153ec913b7d23809ed31 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 2 Sep 2020 12:10:49 -0700 Subject: [PATCH 1/5] faltaba un dispose en una instancia de ClsVentas --- App_Code/ClsPaginas.vb | 2 +- Bancos/RepCortes.aspx | 19 ++++++++++--------- Bancos/RepCortes.aspx.vb | 4 +--- Compras/PopUpVerFactura.aspx.vb | 2 +- General/PopUpPaqueteriasGuias.aspx.cs | 9 +++++---- 5 files changed, 18 insertions(+), 18 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 12d2a0ae5..bd8ed3709 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6990,7 +6990,7 @@ Public Class ClsPaginas Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte lrds.Add(rds5) - If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then + If UsuarioActual.CveEmpresa.Contiene(141, 152) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString)) End If 'Imprime los parametros diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 887e726ba..e76a349bd 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -52,7 +52,7 @@ Personalizar - + @@ -72,7 +72,8 @@
- SubProyecto + + <%--SubProyecto--%>
@@ -160,7 +161,7 @@ - + @@ -187,7 +188,7 @@ - + @@ -196,7 +197,7 @@ - + @@ -298,7 +299,7 @@ Detalles del Corte - + @@ -306,15 +307,15 @@ - SerieFolio + Serie - Folio - + - + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 6bd36841f..df363cc2c 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -61,9 +61,7 @@ Partial Class Bancos_RepCortes txtFechaVI.Text = Now.ToShortDateString txtFechaVF.Text = Now.ToShortDateString Me.Form.DefaultButton = BtnConsultar.UniqueID - DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) - DdlSubProyectos.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) End If End Sub diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0f88f211d..9fd43424e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -518,7 +518,7 @@ Partial Class PopUpVerFactura End If ObjVenta.Dispose() ObjPuntoVenta.Dispose() - Dim FechaCorte As String = $" Fecha Corte: {Fecha}" + Dim FechaCorte As String = $" Fecha fin: {Fecha}" Dim Usuario As String = $" Usuario: {Nombre}" If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs index 33cc3edab..be70f9f33 100644 --- a/General/PopUpPaqueteriasGuias.aspx.cs +++ b/General/PopUpPaqueteriasGuias.aspx.cs @@ -864,17 +864,18 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas { ClsVentas ObjVenta = new ClsVentas(); - if (ObjVenta.GetVentaDetalle(CveVenta)) + if (ObjVenta.GetVenta(CveVenta,UsuarioActual.CveEmpresa)) { - DataTable VentasDetalle = ObjVenta.DtResultados; - if (VentasDetalle.Rows.Count > 0) + if (ObjVenta.DtResultados.Rows.Count > 0) { - double Total = VentasDetalle.SUM("Total"); + DataRow VentasDetalle = ObjVenta.DtResultados.Rows[0]; + double Total = VentasDetalle["Total"].ToString().ToDouble(); bool Mostrar = (Total >= 100000.00); tdLblPolizaSeguro.Visible = Mostrar; tdTxtPolizaSeguro.Visible = Mostrar; } } + ObjVenta.Dispose(); } } \ No newline at end of file From e3b39d3d098b70f2db726a903fbc6d22cdc13bbb Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 2 Sep 2020 18:16:32 -0700 Subject: [PATCH 2/5] 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 From 7487d02f05cb7dda54a1144e4f6f6b392175fce0 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 2 Sep 2020 19:20:15 -0700 Subject: [PATCH 3/5] --- .../Grales/Formatos/RepAuxiliarFacturas.rdlc | 1093 +++++++++++++++++ 1 file changed, 1093 insertions(+) create mode 100644 Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc diff --git a/Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc b/Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc new file mode 100644 index 000000000..2608173b6 --- /dev/null +++ b/Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc @@ -0,0 +1,1093 @@ + + + + + + + + + + + + true + true + + + + + Cliente + + + + Textbox3 + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Grupo + + + + Textbox28 + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + Textbox5 + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 2.36727cm + + + 2.63186cm + + + 2.55248cm + + + 2.12915cm + + + 2.49956cm + + + + + 0.43067cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubTotal.Value + + + + + + + SubTotal + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IVA.Value + + + + + + + IVA + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.6cm + + + true + true + + + + + Cantidad + + + + Textbox40 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Sub Total + + + + Textbox42 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Descuento + + + + Textbox44 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + IVA + + + + Textbox51 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + true + true + + + + + Total + + + + Textbox47 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!GPO.Value + + + + 6.6678cm + + + true + true + + + + + =Fields!Cliente.Value + + + + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + 5.97807cm + + + true + true + + + + + =Fields!GPO.Value + + + + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + 2.5cm + + + true + true + + + + + =Fields!Fecha.Value + + + + + + =IIF(Fields!TipoFila.Value = 1,"CornflowerBlue","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + DataSet1 + 0.8255cm + 0.06614cm + 1.03067cm + 27.32619cm + + + + + + true + true + + + + + =Parameters!Filtros.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.78077in + + + + + + + Textbox1 + 0.18521cm + 2.57968cm + 0.6cm + 23.22592cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE AUXILIAR DE FACTURAS + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 2.57968cm + 0.52945cm + 22.85474cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.84667cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 25.23387cm + 0.68085cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21cm + 29.7cm + 1cm + 1cm + 0.5cm + 0.5cm + 0.13cm +