Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglado un fallo al saltar una axcepción en el servidor al no poder salvar un contacto.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@288 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-24 08:55:09 +00:00
parent 3d3d407d7a
commit f6919eb9d1
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

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

5
Source/Modulos/Contactos/Views/uEditorProveedor.pas
View File

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