diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5db262b65..b94e46669 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1977,14 +1977,17 @@ Partial Class Compras_Compras
                     TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString
 
                     Dim drMon As DataRow = GlobalDTMonedas.FiltroPrimero(String.Format(" (Abreviatura LIKE '%{0}%' OR Moneda LIKE '%{0}%' )", Moneda))
+
                     If drMon IsNot Nothing Then
                         DdlMoneda.SelectedValue = drMon("CveMoneda").ToString
+                        CveMoneda = drMon("CveMoneda").ToString.ToEntero
                     Else
                         'sino busco en la tabla de alias
                         drMon = GlobalDTMonedasAlias.FiltroPrimero(String.Format("MonedaAlias LIKE '%{0}%' ", Moneda))
 
                         If drMon IsNot Nothing Then
                             DdlMoneda.SelectedValue = drMon("CveMoneda").ToString
+                            CveMoneda = drMon("CveMoneda").ToString.ToEntero
                         Else
                             LblMoneda.Text = Moneda
                             LblMoneda.ForeColor = Drawing.Color.Red