From 5a4e735812e0118ab71f3891bc2456ee5630f715 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 2 Jan 2025 11:19:53 -0700 Subject: [PATCH] Gdiaz --- Compras/PopUpVerFactura.aspx.vb | 17 +- Compras/RepComprasDetalle.aspx | 84 +-- Compras/RepComprasDetalle.aspx.vb | 15 +- .../186/Formatos/EtiquetaDeRecepcion.rdlc | 204 +++++++- Empresas/189/Formatos/Entradas.rdlc | 481 +++++++++++++++--- Planeacion/CatSubProyectos.aspx | 5 + Planeacion/CatSubProyectos.aspx.vb | 2 +- Ventas/PopUpBuscarFolio.aspx | 22 +- Ventas/PopUpBuscarFolio.aspx.vb | 6 +- 9 files changed, 706 insertions(+), 130 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index ad5b9c958..f016f7235 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3092,11 +3092,9 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - Else - params.Add(New ReportParameter("Fecha", Fecha)) - End If + + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("dd/MM/yyyy"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString())) @@ -3124,6 +3122,15 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, ""))) params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, ""))) + + params.Add(New ReportParameter("FechaFactura", If(CveCompra > 0, dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"), ""))) + params.Add(New ReportParameter("SerieFolio", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) + params.Add(New ReportParameter("Moneda", If(CveCompra > 0, dr("Moneda").ToString, ""))) + + params.Add(New ReportParameter("Condicion", If(CveCompra > 0, (((dr("FechaVencimiento").ToString.ToDate - dr("Fecha").ToString.ToDate)).TotalDays).ToString, ""))) + + params.Add(New ReportParameter("Saldo", If(CveCompra > 0, dr("Saldo").ToString.ToDouble.FormatoNumero(2), ""))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index 4765f5ede..9173f4f06 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -302,138 +302,154 @@ + <%--0--%> - Fecha - + Fecha + <%--1--%> - Serie/Folio - + Serie/Folio - + <%--2--%> - Folio Fiscal - + Folio Fiscal - + <%--3--%> - Cant. - + Cant. + <%--4--%> - SubTotal - + SubTotal + <%--5--%> - IVA - + IVA + <%--6--%> - IEPS - + IEPS + <%--7--%> - Descuentos - + Descuentos + <%--8--%> + <%--9--%> + <%--10--%> - Total - + Total + <%--11--%> - Moneda - + Moneda - + <%--12--%> - Proveedor - + Proveedor + <%--13--%> - Folio Inv - + Folio Inv + <%--14--%> - Fecha Movimiento - + Fecha Movimiento + <%--15--%> - Observaciones - + Observaciones - + <%--16--%> + + + Descripción + + + + + + <%--17--%> + + + Almacén + + + + + @@ -521,7 +537,9 @@ - + + + diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 6a69044fc..db983457b 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -380,7 +380,19 @@ Partial Class Compras_RepComprasDetalle params.Add(New ReportParameter("FechaImpresion", NowADS().ToString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}")) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion) + + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepComprasDetalle.rdlc", UsuarioActual.Empresa.Ruta)) + + If Archivo.Exists Then + ImprimirPDF(Archivo.FullName, DtDatos, params, "ReporteComprasDetalles", Opcion) + Else + ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion) + End If + + + + Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If @@ -463,6 +475,7 @@ Partial Class Compras_RepComprasDetalle GvDatos.Columns(14).Visible = ChkFecha.Checked GvDatos.Columns(15).Visible = ChkObs.Checked GvDatos.Columns(16).Visible = ChkDescripcion.Checked + GvDatos.Columns(17).Visible = ChkAlmacen.Checked Personalizo = 1 If Personalizo = 1 Then diff --git a/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc b/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc index 0b0529c02..66e9b3b1a 100644 --- a/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc +++ b/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc @@ -23,9 +23,9 @@ PS 0.14111cm - 2.48778cm - 1.1761cm - 6.93443cm + 2.49661cm + 1.11613cm + 6.06038cm @@ -186,10 +186,10 @@ Embedded Logo FitProportional - 1.5468cm - 8.2016cm + 1.40569cm + 8.55699cm 0.74287cm - 1.52823cm + 1.19402cm 6 + + Embedded + ImagendeWhatsApp20241231alas090549_f3f7f850 + FitProportional + 0.25428cm + 8.55699cm + 1.11613cm + 1.19402cm + 7 + + + + 0.92351in @@ -857,9 +857,9 @@ 1.53162cm - 0.17882cm + 0.14707cm 0cm - 19.11979cm + 21.07279cm 1 - Textbox30 @@ -1654,9 +1657,9 @@ DsPrePoliza 2.33687cm - 0.18166cm + 0.14991cm 1.17898cm - 19.11695cm + 21.19397cm 5 + + + + + + + =Parameters!FechaFactura.Value + + + + + + + + + + + =Parameters!SerieFolio.Value + + + + + + + + + + + =Parameters!Moneda.Value + + + + + + + + + + + =Parameters!OCVinculada.Value + + + + - - =Parameters!Fecha.Value - - - - - - - - - Folio Factura del Proveedor: - - - - =Parameters!FacturaProveedor.Value - - + + true + true + + + + + Fecha de Entrada: + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + + + =Parameters!Condicion.Value + + + + + + + + + =Parameters!SubTotal.Value + + + + + + + + + =Parameters!IVA.Value + + + + + + + + + =Parameters!Total.Value + + + + + + + + + =Parameters!Saldo.Value + + + + + + + Textbox2 + 2.13642cm + 18.06883cm + 2.87013cm + 3.15103cm + 5 + + =Parameters!CveTipoAlmacen.Value = "19" + + + + 2pt + 2pt + 2pt + 2pt + +