From f6919eb9d123dbdd417d5c0a925516527a5e4ddf Mon Sep 17 00:00:00 2001 From: david Date: Thu, 24 Jul 2008 08:55:09 +0000 Subject: [PATCH] =?UTF-8?q?Arreglado=20un=20fallo=20al=20saltar=20una=20ax?= =?UTF-8?q?cepci=C3=B3n=20en=20el=20servidor=20al=20no=20poder=20salvar=20?= =?UTF-8?q?un=20contacto.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@288 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Modulos/Contactos/Views/uEditorCliente.pas | 4 ++-- Source/Modulos/Contactos/Views/uEditorProveedor.pas | 5 +++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.pas b/Source/Modulos/Contactos/Views/uEditorCliente.pas index 40cb63fb..4ce93e99 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.pas +++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas @@ -102,8 +102,8 @@ begin //Evitamos que cada vez que se añada un cliente te pregunta por defecto se crea y punto. //Otro caso es al modificar que si que hay que preguntar por si acaso desea asignar el manualmente una subcuenta existente if not Contacto.EsNuevo - and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) - and ((Contacto as IBizCliente).TIENE_SUBCUENTA = 0) then + and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) + and ((Contacto as IBizCliente).TIENE_SUBCUENTA = 0) then if (ShowConfirmMessage('Confirmación de subcuenta', 'El cliente no tiene asignada ninguna subcuenta contable.' + #10#13 + '¿Desea crear una nueva subcuenta para el cliente?') = IDNO) then (Controller as IClientesController).SetIgnorarContabilidad(Contacto as IBizCliente, True); diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas index 5c9121ff..616f3e4f 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas @@ -89,13 +89,14 @@ begin else (Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False); + (Contacto as IBizProveedor).Edit; (Contacto as IBizProveedor).ES_ACREEDOR := StrToInt(rdTipoSubcuenta.Value); //Evitamos que cada vez que se añada un proveedor te pregunta por defecto se crea y punto. //Otro caso es al modificar que si que hay que preguntar por si acaso desea asignar el manualmente una subcuenta existente if not Contacto.EsNuevo - and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) - and ((Contacto as IBizProveedor).TIENE_SUBCUENTA = 0) then + and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) + and ((Contacto as IBizProveedor).TIENE_SUBCUENTA = 0) then if (ShowConfirmMessage('Confirmación de subcuenta', 'El proveedor no tiene asignada ninguna subcuenta contable.' + #10#13 + '¿Desea crear una nueva subcuenta para el proveedor?') = IDNO) then (Controller as IProveedoresController).SetIgnorarContabilidad(Contacto as IBizProveedor, True);