--Cambios rep cortes E193

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()))