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:
parent
3d3d407d7a
commit
f6919eb9d1
@ -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.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user