diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 53af55cb1..ac468f62c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21143,7 +21143,7 @@ Partial Class Ventas
             'Puede facturar
             If Not UsuarioActual.TienePermisoProceso(60) Then
                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                If Not UsuarioActual.TienePermisoProceso(399) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
                 If Not UsuarioActual.TienePermisoProceso(175) Then
                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
                 End If
@@ -21151,6 +21151,10 @@ Partial Class Ventas
                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev"))
                 End If
             End If
+            'Puede anticipos
+            If UsuarioActual.TienePermisoProceso(399) Then
+                If DdlTipoComprobante.Items.FindByValue("Ant") Is Nothing Then DdlTipoComprobante.Items.Add(New ListItem("Anticipo", "Ant"))
+            End If
 
             'Puede remisionar
             If Not UsuarioActual.TienePermisoProceso(199) Then