AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora en manejo de conta contpaq

Browse Source
This commit is contained in:
rrene
2022-05-19 10:21:29 -07:00
parent d4debd67b6
commit f21fb602bf
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
OC/OC.aspx.vb
View File

@@ -2549,7 +2549,8 @@ Partial Class OC
Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL())
Dim ObjVentas As New ClsVentas(OC.IniciaTransacSQL()) Dim ObjVentas As New ClsVentas(OC.IniciaTransacSQL())
Dim Conta As ClsContPAQi = Nothing 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 = New ClsContPAQi(UsuarioActual.Empresa)
Conta.IniciaTransacSQL() Conta.IniciaTransacSQL()
End If End If