From 1ff61a7a5e1e831e865f4214f8cc355d4fa27487 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 12 Apr 2024 19:41:19 -0700 Subject: [PATCH] --Cambios rep cortes E193 --- Compras/PopUpVerFactura.aspx.vb | 27 +- Empresas/193/Formatos/RepCortes.rdlc | 869 ++++++++++++++++++++++++++- 2 files changed, 880 insertions(+), 16 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 490365528..519938730 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1570,6 +1570,7 @@ Partial Class PopUpVerFactura Dim DtCortesVentas As DataTable = Nothing Dim DtReporteCorte As DataTable = Nothing Dim DtIngresosRetiros As DataTable = Nothing + Dim DtDepositos As DataTable = Nothing Dim Fecha As String = "", Nombre As String = "" Dim OpcionDetallado As Integer = 1 @@ -1597,9 +1598,13 @@ Partial Class PopUpVerFactura DtReporteCorte = ObjPuntoVenta.DtResultados.FiltraParametros("CveCorte > 0") End If - If ObjPuntoVenta.GetVta_MovimientosCajasReporte(CveCorte, -1) Then + If ObjPuntoVenta.GetVta_MovimientosCajas(CveCorte, -1) Then DtIngresosRetiros = ObjPuntoVenta.DtResultados.Copy() End If + + If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVenta.GetCortesDetalleDepositosCaja(CveCorte, -1, UsuarioActual.CveEmpresa) Then + DtDepositos = ObjVenta.DtResultados.Copy() + End If End If ObjVenta.Dispose() @@ -1625,7 +1630,7 @@ Partial Class PopUpVerFactura Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString)) + params.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt"))) params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}")) params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) @@ -1748,6 +1753,24 @@ Partial Class PopUpVerFactura Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = DtIngresosRetiros} lrds.Add(rds5) + + If UsuarioActual.CveEmpresa = 193 Then + + Dim CveCuenta As Integer = 186367 + Using ObjConta As New ClsContabilidad + If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then + Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados} + lrds.Add(rdsConta) + End If + End Using + + If DtDepositos IsNot Nothing Then + Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos} + lrds.Add(rdsDepositos) + End If + + End If + 'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString())) 'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString())) 'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString())) diff --git a/Empresas/193/Formatos/RepCortes.rdlc b/Empresas/193/Formatos/RepCortes.rdlc index 3d72d3b77..0310acaab 100644 --- a/Empresas/193/Formatos/RepCortes.rdlc +++ b/Empresas/193/Formatos/RepCortes.rdlc @@ -196,7 +196,7 @@ - Detalles de Pagos + Detalles de pago + + + + + true + true + + + + + Movimientos del día + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.73022cm + + + 2.09811cm + + + 2.28714cm + + + + + 0.47879cm + + + + + true + true + + + + + Tipo de deposito + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox16 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox18 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.45234cm + + + + + true + + + + + =Fields!TipoTransaccion.Value + + + + + + + MetodoPago + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!FolioPago.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + ImportePagado + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DsDepositos + 2.30548cm + 0.06614cm + 0.93113cm + 7.11547cm + 10 + + + + + + true + true + + + + + Depositos de caja + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.06748cm + + + 2.51199cm + + + 2.28714cm + + + 2.40196cm + + + 2.15604cm + + + + + 0.47879cm + + + + + true + true + + + + + Código + + + + + + + Textbox4 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox16 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox18 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox43 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox47 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.45234cm + + + + + true + + + + + =Fields!Codigo.Value + + + + + + + MetodoPago + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!Nombre.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cargos.Value + + + + + + + ImportePagado + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Abonos.Value + + + + + + + Abonos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =(Fields!Cargos.Value - Fields!Abonos.Value) + + + + + + + Abonos1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsContabilidad + 2.30548cm + 7.358cm + 0.93113cm + 11.42461cm + 12 + + + + + + true + true + + + + + Estado contable de la caja + + + + + + 2pt + 2pt + 2pt + 2pt + + - 1.71028in + 2.5632in