diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6d798bf11..6ac219c9d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22595,7 +22595,7 @@ Partial Class Ventas
 
 #Region "  EMITIR DOCUMENTO NUEVO  "
     Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
-        If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then
+        If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And RBLPago.SelectedValue.ToEntero = 2 Then
             Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
         Else
             Dim FolioFijo As Integer = 0