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);