mORMot Open Source

function TSupplierQuery.GetSuppliers(const aCompanyID: RawUTF8; out Suppliers: TSupplierObjArray): TCQRSResult;
var
  Res : ISQLDBRows;
  Supplier : TSupplier;
  I : integer;
begin
  Result := cqrsNotFound;
  Res := fDbConnection.Execute( 'select count(*) from SUPPLIERS where COMPANY_ID=?', [aCompanyID] );
  if Res.Step then begin
    ObjArraySetLength( Stores, 0 ); //Res.ColumnInt(0) ); -- Ideally I'd like to pre-allocate the array
    Res := fDbConnection.Execute( 'select SUPPLIER_ID from SUPPLIERS where COMPANY_ID=?', [aCompanyID] );
    while Res.Step do begin
      Supplier := TSupplier.Create;
      GetSupplier(Res['SUPPLIER_ID'], Supplier);
      ObjArrayAdd( Suppliers, Supplier );
    end;
  end;
end;

  ILegacyStockQuery = interface(IInvokable)
    ['{2BDC9F78-B9C2-4621-A557-F87F02AC0581}']
    function GetSupplier(const aID: TRevelightID; out Supplier: TLegacySupplier): TCQRSResult;
  end;

  TLegacyStockQuery = class(TInterfacedObject, ILegacyStockQuery)
  public
    constructor Create( aDbConnection : TSQLDBConnectionProperties );
    function GetSupplier(const aID: TRevelightID; out Supplier: TLegacySupplier): TCQRSResult;
  end;

function TLegacyStockQuery.GetSupplier(const aID: TRevelightID; out Supplier: TLegacySupplier): TCQRSResult;
var
  Res : ISQLDBRows;
begin
  Result := cqrsNotFound;
  Res := fDbConnection.Execute( 'select SUPPLIER_ID, SUPPLIER_NAME from SUPPLIERS where SUPPLIER_ID=? ', [aID] );
  if Res.Step then begin
    Result := cqrsSuccess;
    Supplier.RevelightID := Res['SUPPLIER_ID'];
    Supplier.Name := Res['SUPPLIER_NAME'];
  end;
end;

 IDomUserQuery = interface(ICQRSService)
    ['{198C01D6-5189-4B74-AAF4-C322237D7D53}']
    function SelectByLogonName(const aLogonName: RawUTF8; out aAggregate: TUser): TCQRSResult;
    function SelectByEmailValidation(aValidationState: TDomUserEmailValidation; out aAggregate: TUser): TCQRSResult;
    function SelectByLastName(const aName: TLastName; aStartWith: boolean; out aAggregates: TUserObjArray): TCQRSResult;
    function GetAll(out aAggregates: TUserObjArray): TCQRSResult;
    function GetCount: integer;
    function HowManyValidatedEmail: integer;
  end;