From 07302120e10dd013511795155ad843fe1f028f8c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 9 Jun 2023 13:30:05 -0700
Subject: [PATCH] =?UTF-8?q?-validaci=C3=B3n=20sino=20se=20selccion=C3=B3?=
 =?UTF-8?q?=20la=20cuenta?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 AF/AF.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 063d14778..5db814ec3 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -2498,7 +2498,7 @@ Partial Class AF_AF
                                          FechaBaja:=FechaBaja, Lat:=TxtLatitud.Text, Longi:=TxtLongitud.Text, AgroCuenta:=TxtAgroCuenta.Text) > 0 Then
                     ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
                     GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
-                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso DdlCtaContable.SelectedValue.ToEntero > 0 Then
                         If Not ObjContabilidad.AddCuentasAsignaciones(49, UsuarioActual.CveEmpresa, CveCuenta:=DdlCtaContable.SelectedValue.ToEntero, CveActivoFijo:=ObjAF.CveActivoFijo) Then
                             ErrorGuardar = True
                         End If