48 lines
1.3 KiB
ObjectPascal
48 lines
1.3 KiB
ObjectPascal
|
unit uArticulosAlbaranProveedorController;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
uDADataTable, uArticulosController, uBizArticulos;
|
||
|
|
|
||
|
|
type
|
||
|
|
IArticulosAlbaranProveedorController = interface(IArticulosController)
|
||
|
|
['{8E3C2FF0-9D42-461C-BF14-6E77843E4173}']
|
||
|
|
end;
|
||
|
|
|
||
|
|
TArticulosAlbaranProveedorController = class(TArticulosController, IArticulosAlbaranProveedorController)
|
||
|
|
public
|
||
|
|
function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{ TArticulosAlbaranProveedorController }
|
||
|
|
|
||
|
|
uses Controls, uIEditorElegirArticulosAlbaranesProveedor, uIEditorElegirArticulos;
|
||
|
|
|
||
|
|
function TArticulosAlbaranProveedorController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String;
|
||
|
|
AMultiSelect: Boolean): IBizArticulo;
|
||
|
|
var
|
||
|
|
AEditor : IEditorElegirArticulosAlbaranesProveedor;
|
||
|
|
begin
|
||
|
|
Result := NIL;
|
||
|
|
CreateEditor('EditorElegirArticulosAlbaranesProveedor', IEditorElegirArticulosAlbaranesProveedor, AEditor);
|
||
|
|
try
|
||
|
|
with AEditor do
|
||
|
|
begin
|
||
|
|
Controller := Self;
|
||
|
|
Articulos := AArticulos;
|
||
|
|
MultiSelect := AMultiSelect;
|
||
|
|
Mensaje := AMensaje;
|
||
|
|
if IsPositiveResult(ShowModal) then
|
||
|
|
Result := ArticulosSeleccionados;
|
||
|
|
Release;
|
||
|
|
end;
|
||
|
|
finally
|
||
|
|
AEditor := NIL;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|