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
+
+
+
+
+
+
+ Textbox3
+ 3.30716cm
+ 0.06614cm
+ 0.6cm
+ 4.82833cm
+ 9
+
+
+ 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
+
+
+
+
+
+
+ Textbox3
+ 1.6702cm
+ 0.06614cm
+ 0.6cm
+ 4.82833cm
+ 11
+
+
+ 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
+
+
+
+
+
+
+ Textbox3
+ 1.6702cm
+ 7.358cm
+ 0.6cm
+ 6.33646cm
+ 13
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
- 1.71028in
+ 2.5632in