PRODAT PUBLIC

h1. 4670 Barcodes in Fastreport

h2. Verwendung

* in Standard ABK Druck

* im Zentraldokument 

h2. Funktion zur Steuerung des Barcodes

<pre><code class="sql">

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();

</code></pre>

h2. Im Report 

* Im neuen Sub-Sql Settings

<pre><code class="sql">

SELECT 

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

</code></pre>

* Im Report, je nach dem wieviele Barcodes enthalten sind

<pre><code class="delphi">

procedure BarCode1OnBeforePrint(Sender: TfrxComponent);

begin

  barcode1.bartype:=<settings."bartype">;

  barcode2.bartype:=<settings."bartype">;  

  barcode3.bartype:=<settings."bartype">;    

end;

</code></pre>