From d8d3f6890de4990737b787f443c14337f09d7c70 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Wed, 25 Sep 2019 14:46:42 -0700
Subject: [PATCH]

---
 Ventas/Ventas.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0bf601e81..6d798bf11 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22595,7 +22595,9 @@ Partial Class Ventas
 
 #Region "  EMITIR DOCUMENTO NUEVO  "
     Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
-        If GvPagos.Rows.Count > 0 And GvPagos IsNot Nothing Then
+        If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then
+            Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
+        Else
             Dim FolioFijo As Integer = 0
 
             'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
@@ -22640,8 +22642,6 @@ Partial Class Ventas
 
             If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
             EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
-        Else
-            Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
         End If
 
     End Sub