4670 Barcodes in Fastreport¶

Verwendung¶

• in Standard ABK Druck
• im Zentraldokument

Funktion zur Steuerung des Barcodes¶

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 Report¶

• 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;