From d2d0797fe5c55b8211e460123cf871e815e5fd97 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 Apr 2021 11:40:07 -0700 Subject: [PATCH] - --- Contabilidad2/CatCuentas.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 720b93107..c8c3f3b34 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/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