diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 5ae2e572e..ff9a10c2a 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9331,7 +9331,7 @@ Public Class ClsPaginas
         If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos Then ' N O T A   D E   C R E D I T O 
             Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
             Dim Ret As New ConceptosRetenciones
-            Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 2)
+            Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, Pago.CveMonedaPago, True, 2)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True