This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
LuisLeon_FactuGES2/Source/Modulos/Facturas proforma/Controller/uArticulosFacturaProformaController.pas

47 lines
1.4 KiB
ObjectPascal

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.