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) 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) Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
DtCuentasContables = ObjContabilidad.DtResultados DtCuentasContables = ObjContabilidad.DtResultados
@@ -1383,6 +1383,10 @@ Partial Class Compras_Proveedores
End Sub End Sub
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If DtCuentasContables Is Nothing Then If DtCuentasContables Is Nothing Then
End If End If
@@ -1431,7 +1435,7 @@ Partial Class Compras_Proveedores
Case "20" Case "20"
CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206) CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
End Select End Select
End If
End Sub End Sub
Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer) Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
@@ -1610,7 +1614,7 @@ Partial Class Compras_Proveedores
Dim ObjContaAC As ClsContPAQi = Nothing 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 = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL() ObjContaAC.IniciaTransacSQL()
@@ -1846,7 +1850,7 @@ Partial Class Compras_Proveedores
'End If 'End If
Dim CreoCuenta As Boolean = False 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 ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
If drCuenta IsNot Nothing Then If drCuenta IsNot Nothing Then
@@ -4256,7 +4260,7 @@ Partial Class Compras_Proveedores
#Region "CUENTAS CONTABLES" #Region "CUENTAS CONTABLES"
Private Sub ActivarRegistroAutomatico() 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) Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
'' 17/03/2017 FUNCIONALIDADES 249,250,251 '' 17/03/2017 FUNCIONALIDADES 249,250,251
@@ -4429,7 +4433,7 @@ Partial Class Compras_Proveedores
End Sub End Sub
Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList) 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 IdCuentaContable As Integer = -1
Dim CtaCodigo As String = "" Dim CtaCodigo As String = ""
Dim TieneError = False Dim TieneError = False