reporte movido a popupverfactura

Bancos/IE.aspx.vb

@@ -941,7 +941,8 @@ Partial Class Bancos_IE
                     HplListaProveedores.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}"
 
                 Else
-                    HplListaProveedores.NavigateUrl = String.Format("/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}", ObjIE.CveIE)
+                    Dim StrEncript As String = Encripta($"OP=ImprimeMov&CveIE={ObjIE.CveIE}")
+                    HplListaProveedores.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", StrEncript)
                 End If
                 If CveIEDeposito2 > 0 Then
                     divDepositado.Visible = True

Compras/PopUpVerFactura.aspx.vb

@@ -382,6 +382,13 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        'Imprime Movimiento de IE
+        If UrlParametros("OP").ToString = "ImprimeMov" Then
+            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
+                ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero)
+            End If
+        End If
+
         'IMPRIME DEPOSITOS CAJA
         If UrlParametros("OP").ToString = "DC" Then
             If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
@@ -3922,10 +3929,166 @@ Partial Class PopUpVerFactura
 
         ObjIE.Dispose()
 
-    End Sub
+    End Sub
-
+
+    Private Sub ImprimeMov(CveIE As Integer)
+        Dim ObjIE As New ClsBancos()
+        Dim DtGvRH As New DataTable
+        Dim DtComprobacion As New DataTable
+        Dim ParamComprobacion As New DataTable
+
+        'Movimientos Relacionados de Comprobacion - Hijo
+        If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
+            DtGvRH = ObjIE.DtResultados
+        End If
+
+        If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then
+
+            If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+                ParamComprobacion = ObjIE.DtResultados
+            End If
+
+            Dim ObjMov As New ClsMovimientos
+            For Each dr As DataRow In DtGvRH.Rows
+                If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
+                    DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
+                End If
+            Next
+            ObjMov.Dispose()
+
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+            Dim params As New List(Of ReportParameter)
+
+            If Archivo.Exists Then
+
+                If UsuarioActual.CveEmpresa = 72 Then
+                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                    params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+                    params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
+                    params.Add(New ReportParameter("CveFyE", "0")) '
+
+                    params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                    params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                    params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
+                    params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
+                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                    params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
+                    params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
+
+                    ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
+                Else
+                    params.Add(New ReportParameter("Numero", "")) '
+                    params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
+                    params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
+                    params.Add(New ReportParameter("Fecha", Now.Date.ToString))
+                    params.Add(New ReportParameter("Elaboro", ""))
+                    params.Add(New ReportParameter("Autorizo", ""))
+                    params.Add(New ReportParameter("ElaboroPuesto", ""))
+                    params.Add(New ReportParameter("AutorizoPuesto", ""))
+                    ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
+                End If
+            Else
+                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+
+                params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
+                params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
+                params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
+                params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
+
+                If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", logouri))
+                Else
+                    params.Add(New ReportParameter("LogoPath", ""))
+                End If
+
+                ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
+            End If
+        Else
+            If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+                If ObjIE.DtResultados.Rows.Count > 0 Then
+
+                    Dim reportDataSetsList As New List(Of ReportDataSource)
+
+                    Dim dtMovs As New DataTable
+                    Dim Mov As New ClsContabilidad
+                    If Mov.GetPrePolizasDetalle(-1, CveIE) Then
+
+                        dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,312)")
+
+                        If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                            'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
+                            For Each Dr As DataRow In dtMovs.Rows
+                                Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
+                                Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                                Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                                Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                            Next
+                        End If
+
+                    End If
+                    Mov.Dispose()
+                    Dim rds = New ReportDataSource("DataSet1", dtMovs)
+                    reportDataSetsList.Add(rds)
+
+                    Dim dtnc As New DataTable
+                    Dim ObjCompra As New ClsCompras()
+                    If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
+                        dtnc = ObjCompra.DtResultados
+                    End If
+                    ObjCompra.Dispose()
+                    Dim rds2 = New ReportDataSource("DataSet2", dtnc)
+                    reportDataSetsList.Add(rds2)
+
+                    Dim paramList As New List(Of ReportParameter)
+                    With paramList
+                        'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                        Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
+                        Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+                        Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+                        .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                        .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+                        .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                        .Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
+                        .Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
+                        .Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
+                        .Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
+                        .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
+                        .Add(New ReportParameter("Folio", ObjIE.Folio, True))
+                        .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
+
+
+                        If Imagen.Exists Then
+                            .Add(New ReportParameter("LogoPath", logouri))
+                        Else
+                            .Add(New ReportParameter("LogoPath", ""))
+                        End If
+
+                    End With
+
+
+                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, "IE Movimient", "PDF")
+
+                End If
+
+            End If
+        End If
+
+        ObjIE.Dispose()
+    End Sub
+
 #End Region
-
+
 #Region "OP = RECIBO DE PAGOS"
     Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)