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

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

View File

@ -89,6 +89,7 @@ begin
else else
(Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False); (Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False);
(Contacto as IBizProveedor).Edit;
(Contacto as IBizProveedor).ES_ACREEDOR := StrToInt(rdTipoSubcuenta.Value); (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. //Evitamos que cada vez que se añada un proveedor te pregunta por defecto se crea y punto.