diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6995a4d14..8fd465a2c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -31362,7 +31362,7 @@ Partial Class Ventas
 
         divAnticipoMsg.Visible = False
 
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
                 Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}")
                 divAmortizacionTipoRelacion.Visible = False
@@ -38190,7 +38190,7 @@ Partial Class Ventas
         ' $get('HdnTipoDescuento').value = '3'; MuestraAnticipos();
         HdnTipoDescuento.Value = "3"
 
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             If DdlTipoAmortizacionAnticipo.Items.FindByValue("4") Is Nothing Then
                 DdlTipoAmortizacionAnticipo.Items.Insert(1, New ListItem("Pago con devolución", "4"))
             End If