-- candado de NC E140

Ventas/Ventas.aspx.vb

@@ -6595,7 +6595,7 @@ Partial Class Ventas
                             'RMF. validacion temporal
                             'verifica si tiene autorizaciones de Nota de crédito autorizadas
                             Dim ObjVentas As New ClsVentas
-                            If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, CveEstatus:=1) Then
+                            If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Ing", CveEstatus:=1) Then
                                 Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion")
                                 If RowAutorizacion IsNot Nothing Then
                                     DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos")
@@ -7938,7 +7938,7 @@ Partial Class Ventas
             Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero()
             Dim ObjVentas As New ClsVentas
             Try
-                If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, CveEstatus:=1) Then
+                If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, DdlTipoDocto.SelectedValue, CveEstatus:=1) Then
                     Dim RowAutorizacion As DataRow = Nothing
                     'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO
                     If TieneDiasVencidos Then
@@ -26920,15 +26920,48 @@ Partial Class Ventas
     Protected Sub BtnAplicarNC_Click(sender As Object, e As EventArgs)
         'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            If GvCxC.Rows.Count = 0 OrElse GvCxC.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("ChkCxC").Checked) = 0 Then
-                If ClienteEsDistribuidor AndAlso TxtImportesRemisionesNC.Text.ToDecimal() > 0 Then
-                    Alert("No se puede generar una nota de crédito para devolución de efectivo si el cliente es distribuidor.", TipoMensaje.MsgAdvertencia)
+
+            Dim Verificacion As Boolean = False
+
+            If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then ' si hay opciones seleccionadas, se activa el generar las NCs
+                Verificacion = True
+            Else
+                If UsuarioActual.TienePermisoProceso(175) Then ' si es una nc, que se va a generar directa,   el permiso de generar NC directas
+                    Verificacion = True
                 Else
-                    Alert("No se ha seleccionado ninguna factura, en caso de no seleccionar ninguna se creará una nueva nota de crédito. ¿Está seguro de realizar esta acción?", TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnAplicaNuevaNC();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ")
+                    'verificar autorizaciones
+                    Dim ObjVentas As New ClsVentas
+                    If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
+                        Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
+                        If RowAutorizacion IsNot Nothing Then
+                            Verificacion = True
+                        End If
+                    End If
+                    ObjVentas.Dispose()
+                    ' si es una nc, que se va a generar directa, debe de revisar que tenga una autorización, o el permiso de generar NC directas
+                End If
+
+            End If
+
+            If GvCxC.Rows.Count = 0 OrElse GvCxC.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("ChkCxC").Checked) = 0 Then
+                If Verificacion Then
+                    If ClienteEsDistribuidor AndAlso TxtImportesRemisionesNC.Text.ToDecimal() > 0 Then
+                        Alert("No se puede generar una nota de crédito para devolución de efectivo si el cliente es distribuidor.", TipoMensaje.MsgAdvertencia)
+                    Else
+                        Alert("No se ha seleccionado ninguna factura, en caso de no seleccionar ninguna se creará una nueva nota de crédito. ¿Está seguro de realizar esta acción?", TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnAplicaNuevaNC();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ")
+                    End If
+                Else
+                    Alert("No se puede Generar notas de crédito directas", TipoMensaje.MsgAdvertencia)
                 End If
 
             Else
-                AplicarNotaCreditoDesdeVenta()
+                ' si viene de remisiones, puede seguir adelante
+                If Verificacion Then
+                    AplicarNotaCreditoDesdeVenta()
+                Else
+                    Alert("No se puede Generar notas de crédito directas", TipoMensaje.MsgAdvertencia)
+                End If
+
             End If
         Else
             AplicarNotaCreditoDesdeVenta()
@@ -31524,6 +31557,7 @@ Partial Class Ventas
                 End If
 
                 ListaRemisionesNC.Add(RemNC)
+                BtnAplicarNC.Enabled = True
 
                 If TerminarCiclo Then
                     Exit For
@@ -31567,6 +31601,10 @@ Partial Class Ventas
         TxtImportesRemisionesNC.Text = TotalRemNCAplicado.FormatoNumero
         'TxtNCImporte.Text = TotalRemNCAplicado.FormatoNumero
 
+        If ListaRemisionesNC.Count > 0 Then ' si hay opciones seleccionadas, se activa el generar las NCs
+            BtnAplicarNC.Enabled = True
+        End If
+
         UpModalRemisionesNC.Update()
         UpAplicarNC.Update()