OnGetClassification

This event can be used to decide the item lines classifications. Classifications cannot be added, only removed.

Example and syntax

//Dummy helper function for the sake of the examples simplicity
function Validate_Classification_Fire(aProduct:TProductWrapper):boolean;
begin
  Result := False;
end;

procedure OnGetClassification(aParams:TScriptOnGetClassificationParams);
var
  I : Integer;
begin
  if aParams.ClassificationCategoryCode = 'FIRE' then
  begin
    if not Validate_Classification_Fire(aParams.Product) then //Helper function that must be defined
    begin  
      //Remove all "Fire"-classifications except for the "Built like" classifications that contains an X in the ID  
      for I := aParams.ClassificationCodes.Count - 1 downto 0 do
      begin
        if Pos('X',aParams.ClassificationCodes[I]) = 0 then
          aParams.RemoveClassification(aParams.ClassificationCodes[I]); 
      end; 
    end;
  end;
end;