From 9f778a0b6b38ddf34e8ebd53dddc9204f5e1c09e Mon Sep 17 00:00:00 2001 From: david Date: Tue, 15 Jan 2008 10:41:18 +0000 Subject: [PATCH] =?UTF-8?q?Facturas=20de=20proveedor:=20modificada=20funci?= =?UTF-8?q?=C3=B3n=20"Nuevo"=20a=20"Nuevo(withInsert:=20Boolean=20=3D=20Tr?= =?UTF-8?q?ue)"?= 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.Tecsitel_FactuGES2/trunk@226 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uFacturasProveedorController.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index ec5a422b..e80724c1 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -23,7 +23,7 @@ type function BuscarTodos: IBizFacturaProveedor; procedure Ver(AFactura : IBizFacturaProveedor); procedure VerTodos(AFacturas: IBizFacturaProveedor); - function Nuevo : IBizFacturaProveedor; + function Nuevo (withInsert: Boolean = True) : IBizFacturaProveedor; function Anadir(AFactura : IBizFacturaProveedor) : Boolean; overload; function AnadirAbono(AFactura : IBizFacturaProveedor) : Boolean; function Anadir(AFacturas : IBizFacturaProveedor; AListaAlbaranes : IBizAlbaranProveedor): Boolean; overload; @@ -89,7 +89,7 @@ type function Buscar(const ID: Integer): IBizFacturaProveedor; function BuscarTodos: IBizFacturaProveedor; // function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor; - function Nuevo : IBizFacturaProveedor; + function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor; procedure Ver(AFactura : IBizFacturaProveedor); procedure VerTodos(AFacturas: IBizFacturaProveedor); function Duplicar(AFactura: IBizFacturaProveedor): IBizFacturaProveedor; @@ -912,14 +912,15 @@ begin end; end; -function TFacturasProveedorController.Nuevo: IBizFacturaProveedor; +function TFacturasProveedorController.Nuevo(withInsert: Boolean = True): IBizFacturaProveedor; var AFactura : IBizFacturaProveedor; begin AFactura := FDataModule.NewItem; FiltrarEmpresa(AFactura); AFactura.DataTable.Active := True; - AFactura.Insert; + if withInsert then + AFactura.Insert; Result := AFactura; end; @@ -1076,4 +1077,3 @@ begin end; end. - \ No newline at end of file