-- mejora en tipocontabilidad

2022-05-23 14:15:57 -07:00
parent edd39a974f
commit 1c93bd111f
1 changed files with 56 additions and 52 deletions
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -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,55 +1383,59 @@ Partial Class Compras_Proveedores
    End Sub

    Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
-        If DtCuentasContables Is Nothing Then

+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+
+
+            If DtCuentasContables Is Nothing Then
+
+            End If
+
+            Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+
+            Select Case HdnCuenta.Value
+                Case "1"
+                    CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
+                Case "2"
+                    CargaCuentasDDL(DdlCtaContAnticipos, 204)
+                Case "3"
+                    CargaCuentasDDL(DdlCtaContFondoGarantia, 231)
+                Case "4"
+                    CargaCuentasDDL(DdlCtaContRetIVA, 206)
+                Case "5"
+                    CargaCuentasDDL(DdlCtaContRetISR, 206)
+                Case "6"
+                    CargaCuentasDDL(DdlCtaContAcreedores, 202)
+                Case "7"
+                    CargaCuentasDDL(DdlCtaContComplementaria, 201)
+                Case "8"
+                    CargaCuentasDDL(DdlCtaContExtranjera, 201)
+                Case "9"
+                    CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202)
+                Case "10"
+                    CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202)
+                Case "11"
+                    CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204)
+                Case "12"
+                    CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204)
+                Case "13"
+                    CargaCuentasDDL(DdlCtaContDeudor, 205)
+                Case "14"
+                    CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205)
+                Case "15"
+                    CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205)
+                Case "16"
+                    CargaCuentasDDL(DdlCtaContDocsXPagar, 203)
+                Case "17"
+                    CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203)
+                Case "18"
+                    CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203)
+                Case "19"
+                    CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206)
+                Case "20"
+                    CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
+            End Select
        End If
-
-        Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-
-        Select Case HdnCuenta.Value
-            Case "1"
-                CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
-            Case "2"
-                CargaCuentasDDL(DdlCtaContAnticipos, 204)
-            Case "3"
-                CargaCuentasDDL(DdlCtaContFondoGarantia, 231)
-            Case "4"
-                CargaCuentasDDL(DdlCtaContRetIVA, 206)
-            Case "5"
-                CargaCuentasDDL(DdlCtaContRetISR, 206)
-            Case "6"
-                CargaCuentasDDL(DdlCtaContAcreedores, 202)
-            Case "7"
-                CargaCuentasDDL(DdlCtaContComplementaria, 201)
-            Case "8"
-                CargaCuentasDDL(DdlCtaContExtranjera, 201)
-            Case "9"
-                CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202)
-            Case "10"
-                CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202)
-            Case "11"
-                CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204)
-            Case "12"
-                CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204)
-            Case "13"
-                CargaCuentasDDL(DdlCtaContDeudor, 205)
-            Case "14"
-                CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205)
-            Case "15"
-                CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205)
-            Case "16"
-                CargaCuentasDDL(DdlCtaContDocsXPagar, 203)
-            Case "17"
-                CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203)
-            Case "18"
-                CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203)
-            Case "19"
-                CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206)
-            Case "20"
-                CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
-        End Select
-
    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