Tecsitel_FactuGES2/Source/Modulos/Inventario/Controller/uArticulosInventarioController.pas

unit uArticulosInventarioController;

interface

uses
  uDADataTable, uArticulosController, uBizArticulos, uBizInventario;

type
  IArticulosInventarioController = interface(IArticulosController)
  ['{33B26E09-ABE8-45A4-B9B3-E0E48F8EBB3E}']
  end;

  TArticulosInventarioController = class(TArticulosController, IArticulosInventarioController)
  public
    function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; override;
  end;

implementation

{ TArticulosInventarioController }

uses Controls, uIEditorElegirArticulosCatalogo;

function TArticulosInventarioController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String;
  AMultiSelect: Boolean): IBizArticulo;
var
  AEditor : IEditorElegirArticulosCatalogo;
begin
  Result := NIL;
  ShowHourglassCursor;
  try
    CreateEditor('EditorElegirArticulosCatalogo', IEditorElegirArticulosCatalogo, AEditor);
    if Assigned(AEditor) then
       with AEditor do
       begin
         Controller := Self;
         Articulos := AArticulos;
         MultiSelect := AMultiSelect;
         if IsPositiveResult(ShowModal) then
            Result := ArticulosSeleccionados;
         Release;
       end;
  finally
    AEditor := NIL;
    HideHourglassCursor;
  end;
end;

end.