CREATE OR REPLACE FUNCTION treporting.barcode_type() RETURNS INTEGER AS $$
BEGIN  
/*In Fastreport ist bartype ein INTEGER 
bcCode128 = 5
bcCode39  = 3
*/             
 RETURN CASE WHEN (prodatversion()).versionstring > '18.04.01' THEN 5 ELSE 3 END;

END $$ LANGUAGE plpgsql;

SELECT treporting.barcode_type();

Im neuen Sub-Sql Settings

SELECT 
treporting.barcode_type() AS bartype  -- Zur Barcodesteuerung als Integer:

Im Report, je nach dem wieviele Barcodes enthalten sind

procedure BarCode1OnBeforePrint(Sender: TfrxComponent);
begin
  barcode1.bartype:=<settings."bartype">;
  barcode2.bartype:=<settings."bartype">;  
  barcode3.bartype:=<settings."bartype">;    
end;