tipocontabilidad 2

Contabilidad2/CatCuentas.aspx.vb

@@ -315,7 +315,7 @@ Partial Class Contabilidad2_CatCuentas
 
                 Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
 
-                If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
                     Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
 
@@ -371,7 +371,7 @@ Partial Class Contabilidad2_CatCuentas
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjConta2 As ClsContPAQi
 
         Dim CuentaEfectivo As Integer = 0
         Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
@@ -388,6 +388,9 @@ Partial Class Contabilidad2_CatCuentas
         If idnew > 0 Then
 
             Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa)
+
                 If ObjConta2.GetCuentas(-1, "-1", -1) Then
                     Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
                     Dim IdAgrupador As Integer
@@ -406,6 +409,7 @@ Partial Class Contabilidad2_CatCuentas
 
                     End If
                 End If
+            End If
 
             Dim dr As DataRow = DtDatos.NewRow
         dr("CveCuenta") = idnew
@@ -444,7 +448,7 @@ Partial Class Contabilidad2_CatCuentas
         End If
 
         ObjConta.Dispose()
-        ObjConta2.Dispose()
+        If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
     End Sub
     Private Sub LimpiarCampos()
         TxtCuenta.Text = ""