--Impresion directa, deposito de caja

PA;
--PA_Banc_IEMovimientosDepositosGet

Compras/PopUpVerFactura.aspx.vb

@@ -1418,7 +1418,11 @@ Partial Class PopUpVerFactura
         'IMPRIME DEPOSITOS CAJA
         If UrlParametros("OP").ToString = "DC" Then
             If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
-                CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString)
+                Dim TipoPago As String = ""
+                If UrlParametros("TIPOPAGO") IsNot Nothing Then
+                    TipoPago = UrlParametros("TIPOPAGO").ToString()
+                End If
+                CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString, TipoPago)
             End If
         End If
 
@@ -5261,22 +5265,25 @@ Partial Class PopUpVerFactura
 #End Region
 
 #Region "OP = 'DC' - DEPOSITOS CAJA"
-    Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
+    Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String, TipoPago As String)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
 
+        Dim Tabla As DataTable = Nothing
+
         Dim ObjIE As New ClsBancos()
-        Dim Tabla As DataTable
-        ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa)
+        If ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa) Then
+            Tabla = ObjIE.DtResultados.Copy()
+        End If
+        ObjIE.Dispose()
 
-
-        If ObjIE.DtResultados IsNot Nothing AndAlso ObjIE.DtResultados.Rows.Count > 0 Then
-            Tabla = ObjIE.DtResultados
+        If Tabla IsNot Nothing AndAlso Tabla.Rows.Count > 0 Then
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("Fecha", NowADS().ToDateTime.ToString))
-            params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
+            params.Add(New ReportParameter("FechaIE", Tabla(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
             params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
             params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
+            params.Add(New ReportParameter("TipoPago", TipoPago))
 
             If Archivo.Exists Then
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -5287,11 +5294,6 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-
-
-
-        ObjIE.Dispose()
-
     End Sub
 #End Region