9 Formato de pago, Poner fecha de recepción y TC, en impresión

Compras/PopUpVerFactura.aspx.vb

@@ -5995,6 +5995,7 @@ Partial Class PopUpVerFactura
                     Dim reportDataSetsList As New List(Of ReportDataSource)
                     Dim CvePrePoliza As Integer = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
                     Dim dtMovs As New DataTable
+                    Dim TC As Decimal = ObjIE.TipoCambio
                     If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
 
                         dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
@@ -6042,6 +6043,8 @@ Partial Class PopUpVerFactura
                         .Add(New ReportParameter("Folio", ObjIE.Folio, True))
                         .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
                         .Add(New ReportParameter("LogoPath", RutaImagenLogo))
+                        .Add(New ReportParameter("TC", TC.ToString))
+
                     End With
                     dtMovs.Dispose()