Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -9712,8 +9712,17 @@ Partial Class Ventas
         End If
 
         Me.CveAutorizacion = -1
+        Dim PermiteAutorizacion As Boolean = False
+
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing") Then
+            PermiteAutorizacion = True
+        End If
+        If DdlTipoComprobante.SelectedValue.Contiene("Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            PermiteAutorizacion = True
+        End If
+
         'SI ES A CREDITO DEBE VERIFICAR SI TIENE AUTORIZACIONES
-        If UsuarioActual.Empresa.Funcionalidad(595) = "2" AndAlso CveCliente > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") AndAlso RBLPago.SelectedValue = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(595) = "2" AndAlso CveCliente > 0 AndAlso PermiteAutorizacion AndAlso RBLPago.SelectedValue = "1" Then
             Dim TipoDocumentoAutorizacion As String = ""
             Dim ImporteAutorizacion As Decimal = 0
             Dim TipoAutorizacion As Integer = 0
@@ -31896,6 +31905,11 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If Not UsuarioActual.TienePermisoProceso(60) Then
+            Alert("El usuario no tiene permiso para facturar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'MARCA LAS SELECCIONADAS
         VerificaCotizaciones(DtCotizaciones)
 
@@ -32423,6 +32437,11 @@ Partial Class Ventas
                 Exit Sub
             End If
 
+            If Not UsuarioActual.TienePermisoProceso(60) Then
+                Alert("El usuario no tiene permiso para facturar.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
             'Checa las facturas selecionadas
             If Not VerificaRemisiones(DTRemisiones) Then
                 Alert("La cantidad/total debe ser mayor que 0", TipoMensaje.MsgAdvertencia)
@@ -33000,6 +33019,11 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If Not UsuarioActual.TienePermisoProceso(60) Then
+            Alert("El usuario no tiene permiso para facturar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'MARCA LAS SELECCIONADAS
         VerificaPedidos2(DtPedidos2)
         Dim DTSeleccionadas As DataTable = DtPedidos2.FiltraParametros("Aplicado = True")