--Facturacion de remisiones en cobranza

2024-05-18 23:16:48 -07:00
parent b7e7060a30
commit b920bd444c
3 changed files with 173 additions and 15 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25597,7 +25597,7 @@ Partial Class Ventas

                    Dim AplicaCancelacionConPagos As Boolean = False

-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFactura.Pagado > 0 Then
+                    If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFactura.Pagado > 0 Then
                        AplicaCancelacionConPagos = True
                    End If