-

Contabilidad2/CatCuentas.aspx.vb

@@ -372,10 +372,9 @@ Partial Class Contabilidad2_CatCuentas
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-<<<<<<< HEAD
+
         Dim ObjConta2 As ClsContPAQi
-=======
+
->>>>>>> ee1135d888f76469fa6e3e68f0b6393f8450045a
 
         Dim CuentaEfectivo As Integer = 0
         Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
@@ -460,10 +459,11 @@ Partial Class Contabilidad2_CatCuentas
 
                     Alert("La cuenta se guardo correctamente")
                 End If
+            End If
+        End If
+        ObjConta.Dispose()
 
-                ObjConta.Dispose()
+            If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
-
-                If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
 
 
     End Sub