roberto
57508cf6bd
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@4 f4e31baf-9722-1c47-927c-6f952f962d4b
53 lines
1.7 KiB
ObjectPascal
53 lines
1.7 KiB
ObjectPascal
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, cxControls, uIEditorElegirArticulosPedidosProveedor, uIEditorElegirArticulos;
|
|
|
|
function TArticulosPedidoProveedorController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String;
|
|
AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo;
|
|
var
|
|
AEditor : IEditorElegirArticulosPedidosProveedor;
|
|
begin
|
|
Result := NIL;
|
|
ShowHourglassCursor;
|
|
try
|
|
CreateEditor('EditorElegirArticulosPedidoProveedor', IEditorElegirArticulosPedidosProveedor, AEditor);
|
|
if Assigned(AEditor) then
|
|
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;
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
end.
|