-- mejora en manejo de conta contpaq

2022-05-19 10:21:29 -07:00
parent d4debd67b6
commit f21fb602bf
1 changed files with 2 additions and 1 deletions
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2549,7 +2549,8 @@ Partial Class OC
        Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL())
        Dim ObjVentas As New ClsVentas(OC.IniciaTransacSQL())
        Dim Conta As ClsContPAQi = Nothing
-        If (UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto) Or UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto) Or UsuarioActual.Empresa.Funcionalidad(200) = "1") Then
            Conta = New ClsContPAQi(UsuarioActual.Empresa)
            Conta.IniciaTransacSQL()
        End If