permiso de asignar folio fiscal

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"