Validacion IF ClsconpaQi Tipo conta 2, Ventas

2022-05-24 09:37:09 -07:00
parent a67e332374
commit f6eb811225
2 changed files with 63 additions and 49 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