Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Facturas de proveedor: modificada función "Nuevo" a "Nuevo(withInsert: Boolean = True)"

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@226 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 10:41:18 +00:00
parent d51e1fe077
commit 9f778a0b6b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -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.