diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index bb7c75bd0..d0dfa196f 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/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() diff --git a/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc b/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc index 1d82cfdad..9082511dd 100644 --- a/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc +++ b/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc @@ -33,6 +33,10 @@ FechaCompra System.String + + FechaMovto + System.String + Total System.Double @@ -268,7 +272,7 @@ 0.48633in 0.73547in 0.23622in - 6.8993in + 6.76774in 3 + + + + + + Textbox20 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + @@ -746,6 +790,40 @@ + + + + true + true + + + + + =Fields!FechaMovto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -932,13 +1010,14 @@ 2pt - 5 + 6 + @@ -1064,6 +1143,7 @@ + @@ -1093,7 +1173,7 @@ 2.18687cm 0.19063cm 1.42958cm - 21.07307cm + 21.11455cm 4 + + true + true + + + + + T.C.: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + 7.79798cm