Barcode

create or replace package plpdf_barcode is

/**
Create "Code 39" barcodes.
%version v1.2.3
%param p_x number: X coordinate for the top left corner of the barcode
%param p_y number: Y coordinate for the top left corner of the barcode
%param p_code varchar2: value of barcode
%param p_basewidth number: width of a bar
%param p_height number: height of a bar
%param p_gap number  default null: gap between barcode and text. null = no print text
%return -
*/
procedure Code39(
  p_x number,
  p_y number,
  p_code varchar2,
  p_basewidth number,
  p_height number,
  p_gap number  default null
  );
 
/**
Create "EAN13" barcodes.
%version v1.2.3
%param p_x number: X coordinate for the top left corner of the barcode
%param p_y number: Y coordinate for the top left corner of the barcode
%param p_code varchar2: value of barcode
%param p_basewidth number: width of a bar
%param p_height number: height of a bar
%param p_gap number  default null: gap between barcode and text. null = no print text
%return -
*/
procedure EAN13(
  p_x number,
  p_y number,
  p_code varchar2,
  p_basewidth number,
  p_height number,
  p_gap number  default null
  );

/**
Create "UPC-A" barcodes.
%version v1.2.3
%param p_x number: X coordinate for the top left corner of the barcode
%param p_y number: Y coordinate for the top left corner of the barcode
%param p_code varchar2: value of barcode
%param p_basewidth number: width of a bar
%param p_height number: height of a bar
%param p_gap number  default null: gap between barcode and text. null = no print text
%return -
*/
procedure UPC_A(
  p_x number,
  p_y number,
  p_code varchar2,
  p_basewidth number,
  p_height number,
  p_gap number  default null
  );  
 
/**
Create "2 of 5 interleaved code" barcodes.
%version v1.2.3
%param p_x number: X coordinate for the top left corner of the barcode
%param p_y number: Y coordinate for the top left corner of the barcode
%param p_code varchar2: value of barcode
%param p_basewidth number: width of a bar
%param p_height number: height of a bar
%param p_gap number  default null: gap between barcode and text. null = no print text
%return -
*/ 
procedure b2of5(
  p_x number,
  p_y number,
  p_code varchar2,
  p_basewidth number,
  p_height number,
  p_gap number  default null
  );
 
/**
Create "PDF417" barcodes.
%version v1.2.3
%param p_x number: X coordinate for the top left corner of the barcode
%param p_y number: Y coordinate for the top left corner of the barcode
%param p_code varchar2: value of barcode
%param p_basewidth number: width of a bar
%param p_height number: height of a bar
%param p_secu number default -1: The hoped sécurity level, -1 = automatic
%param p_nbcol number default -1: The hoped number of data MC columns, -1 = automatic
%return -
*/    
procedure pdf417(
  p_x number,
  p_y number,
  p_code varchar2,
  p_basewidth number,
  p_height number,
  p_secu number default -1,
  p_nbcol number default -1
  );
     
end;
/

 

Examples
Purpose	Source	Result (PDF)
Code 39	Test_barcode_code39.prc	Test_barcode_code39.pdf
EAN13	Test_barcode_EAN13.prc	Test_barcode_EAN13.pdf
2 of 5 interleaved code	Test_barcode_b2of5.prc	Test_barcode_b2of5.pdf
pdf417	Test_barcode_pdf417.prc	Test_barcode_pdf417.pdf