From cf8a3fd05d752039a16920a33263a6750d9ce986 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 21 May 2021 08:11:24 -0700 Subject: [PATCH] =?UTF-8?q?-=20correci=C3=B3n=20de=20tipocontabilidad?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index c80bca90a..d41facbad 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -141,7 +141,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1")) - If UsuarioActual.Empresa.TipoContabilizacion = 2 Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim Conta As New ClsContabilidad Dim dtt As New DataTable @@ -378,7 +378,7 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then 'cargar la cuenta - If UsuarioActual.Empresa.TipoContabilizacion = 0 Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then 'busco en la cuenta contable, lo que tenga asignado Dim Con As New ClsContabilidad Dim dtt As DataTable = Nothing