-- corrección al traspasar saldo

Contabilidad2/CatCuentas.aspx.vb

@@ -488,13 +488,18 @@ Partial Class Contabilidad2_CatCuentas
                                         DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
                                         CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
                     If idnew > 0 Then
-                        If Not ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then
+                        If ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then
                             If Not ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda,
                                      DigAgrup, CveAgrupadorSat, NomIdioma) Then
+                                TieneError = True
                                 ObjConta.RollBack()
                                 ObjConta.Dispose()
                                 Exit Sub
                             End If
+                        Else
+                            TieneError = True
+                            ObjConta.RollBack()
+                            ObjConta.Dispose()
                         End If
                     End If
                 End If