diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 92da3a058..5a89103af 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3240,7 +3240,7 @@ Partial Class Compras_Compras
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetAnticiposProveedor(CveProveedor, -1, CveMoneda:=-1, SelectTop:=-1, TipoDocto:=FiltroTipo) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
             Dim CveMoneda As Integer = If(ChkPagarConPesos.Checked, 1, If(ChkPagarConDolares.Checked, 2, DdlMoneda.SelectedValue.ToEntero))
-            If DdlMoneda.SelectedValue.ToEntero = 1 Then DivPagarConDolares.Visible = True Else DivPagarConPesos.Visible = True
+            If DdlMoneda.SelectedValue.ToEntero = 1 AndAlso CveCompra > 0 Then DivPagarConDolares.Visible = True Else If CveCompra > 0 Then DivPagarConPesos.Visible = True
             GVAnticipos.DataSource = ObjMovtos.DtResultados.FiltraParametros($"Tipo = 'Act' AND CveMoneda = {CveMoneda}")
             If ObjMovtos.DtResultados.FiltraParametros("Saldo > 0").Rows.Count > 0 Then
                 BtnAceptarAnticipos.Enabled = True