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