-- mejora en tipocontabilidad

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