diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7c6996cc0..65702d6b0 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3398,10 +3398,10 @@ Partial Class Ventas
                                 '    End If
                                 'End If
                             End If
-                            If LblFolioFiscal.Text.Trim = "" Then HplFolioFiscalModal.Visible = True
                         End If
                     End If
 
+                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev") AndAlso LblFolioFiscal.Text.Trim = "" Then HplFolioFiscalModal.Visible = True
 
                     Select Case DbRowVenta("TipoDocto").ToString
                         Case "Ing"