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

-- mejora en tipocontabilidad

Browse Source
This commit is contained in:
rrene
2022-05-23 14:15:57 -07:00
parent edd39a974f
commit 1c93bd111f
1 changed files with 56 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Compras/Proveedores.aspx.vb
View File

@@ -681,7 +681,7 @@ Partial Class Compras_Proveedores
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
If UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
DtCuentasContables = ObjContabilidad.DtResultados
@@ -1383,6 +1383,10 @@ Partial Class Compras_Proveedores
End Sub
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If DtCuentasContables Is Nothing Then
End If
@@ -1431,7 +1435,7 @@ Partial Class Compras_Proveedores
Case "20"
CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
End Select
End If
End Sub
Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
@@ -1610,7 +1614,7 @@ Partial Class Compras_Proveedores
Dim ObjContaAC As ClsContPAQi = Nothing
If (UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0)) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL()
@@ -1846,7 +1850,7 @@ Partial Class Compras_Proveedores
'End If
Dim CreoCuenta As Boolean = False
If (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
If drCuenta IsNot Nothing Then
@@ -4256,7 +4260,7 @@ Partial Class Compras_Proveedores
#Region "CUENTAS CONTABLES"
Private Sub ActivarRegistroAutomatico()
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
'' 17/03/2017 FUNCIONALIDADES 249,250,251
@@ -4429,7 +4433,7 @@ Partial Class Compras_Proveedores
End Sub
Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
If UsuarioActual.Empresa.UsaContabilidad = True Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then
Dim IdCuentaContable As Integer = -1
Dim CtaCodigo As String = ""
Dim TieneError = False