unit uArticulosFacturaProformaController; interface uses uDADataTable, uArticulosController, uBizArticulos; type IArticulosFacturaProformaController = interface(IArticulosController) ['{BC7EAE09-CC71-4FF7-85E0-DFC10574FBA3}'] end; TArticulosFacturaProformaController = class(TArticulosController, IArticulosFacturaProformaController) public function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; override; end; implementation { TArticulosFacturaClienteController } uses Controls, cxControls, uIEditorElegirArticulosFacturasProforma, uIEditorElegirArticulos; function TArticulosFacturaProformaController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; var AEditor : IEditorElegirArticulosFacturasProforma; begin Result := NIL; CreateEditor('EditorElegirArticulosFacturaProforma', IEditorElegirArticulosFacturasProforma, AEditor); if Assigned(AEditor) then try AEditor.Controller := Self; AEditor.Articulos := AArticulos; AEditor.MultiSelect := AMultiSelect; AEditor.Mensaje := AMensaje; if IsPositiveResult(AEditor.ShowModal) then Result := AEditor.ArticulosSeleccionados; finally AEditor.Release; AEditor := NIL; end; end; end.