LuisLeon_FactuGES/Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.pas

unit uArticulosPedidoProveedorController;

interface

uses
  uDADataTable, uArticulosController, uBizArticulos, uBizContactos;

type
  IArticulosPedidoProveedorController = interface(IArticulosController)
  ['{8C8A8D8D-82D2-4434-81C3-36E4F43F3B3E}']
    function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo; 
  end;

  TArticulosPedidoProveedorController = class(TArticulosController, IArticulosPedidoProveedorController)
  public
    function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo; overload;
  end;

implementation

{ TArticulosPedidoProveedorController }

uses Controls, uIEditorElegirArticulosPedidosProveedor, uIEditorElegirArticulos;

function TArticulosPedidoProveedorController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String;
  AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo;
var
  AEditor : IEditorElegirArticulosPedidosProveedor;
begin
  Result := NIL;
  CreateEditor('EditorElegirArticulosPedidoProveedor', IEditorElegirArticulosPedidosProveedor, AEditor);
  try
    with AEditor do
    begin
      Controller := Self;
      Articulos := AArticulos;
      Proveedor := AProveedor;
      MultiSelect := AMultiSelect;
      Mensaje := AMensaje;
      if IsPositiveResult(ShowModal) then
        Result := ArticulosSeleccionados;
	  Release;
    end;
  finally
    AEditor := NIL;
  end;
end;

end.