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

2022-05-25 20:47:19 -07:00
parent 76d972e63a 7d62be91ab
commit 52ad6094b8
11 changed files with 243 additions and 599 deletions
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3440,7 +3440,7 @@ Partial Class PV
                Dim ObjAcum As New ClsAcumuladores
                Dim ObjVentas As New ClsVentas(ObjAcum.IniciaTransacSQL())
                Dim ObjContPaq As ClsContPAQi = Nothing
-                If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                    ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                End If