diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 7f8ceb36f..79c553a79 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9634,7 +9634,8 @@ Public Class ClsPaginas
         Dim TCValuacion As Decimal = CompraActual.TC
         Dim TCValuacionPago As Decimal = Pago.TCPago
         Dim tFechaUltimaFluctuacion As Date
-        Dim tImportePago, tImporteCompra As Decimal
+        Dim tImportePago As Decimal
+        Dim tImporteCompra As Decimal = Pago.ImportePago
         Dim CveConceptoContableComplementaria As Integer = 206
 
         Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago)  'si viene en parametro lo toma com primera opcion, sino el 17
@@ -9664,6 +9665,7 @@ Public Class ClsPaginas
 
         If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
             tImportePago = ((Pago.ImportePago * TCValuacion / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
+            tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
         ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
             tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
             tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL