0

我有一个很长的问题。我们正在使用上面列出的打印机，并试图从中打印 Code 39 条形码。我查看了以下文档https://files.support.epson.com/pdf/general/escp2ref.pdf 特别是第 327 页的顶部。我在代码中按照该片段进行了发球，但没有运气。我正在使用 PLSQL，想知道是否有人有任何运气或提示。p_string 以 xxxxxxxx-xxxxx 的形式出现。x = 数字 0-9。我最近的尝试是删除 BC DATA 变量，只传入 p_string ，这无论如何都是我们想要的输出。

FUNCTION get_barcode_epson (p_string IN VARCHAR2) RETURN VARCHAR2 IS
--
  v_print_string       VARCHAR2 (1000);
  escp_bc              VARCHAR2 (20);

  BC_COMMAND   CONSTANT VARCHAR2 (14) := CHR(27)||CHR(40)||CHR(66)||CHR(13)||CHR(0);                       --Barcode command and data length
  BC_TYPE      CONSTANT VARCHAR2 (2)  := CHR(5);                                                           --Barcode type k = Code 39
  BC_WIDTH     CONSTANT VARCHAR2 (2)  := CHR(2);                                                           --Module width m = 2 dots/180 inch
  BC_SPACE     CONSTANT VARCHAR2 (2)  := CHR(0);                                                           --Space adjustments value s = +o dots / 360 inch
  BC_LENGTH    CONSTANT VARCHAR2 (5)  := CHR(125)||CHR(0);                                                 --Bar length v1, v2 = 125 /180 inch
  BC_CTRL_FLG  CONSTANT VARCHAR2 (2)  := CHR(3);                                                           --Control Flags c
--  BC_DATA      CONSTANT VARCHAR2 (20) := CHR(49)||CHR(50)||CHR(65)||CHR(66)||CHR(36)||CHR(37)||CHR(46);                       --Barcode data


  --
  DATA_LENGTH CONSTANT NUMBER := LENGTH (p_string);
--
BEGIN
--
  IF (DATA_LENGTH > 255) THEN RETURN 'TOO LONG'; END IF;
  escp_bc  := BC_COMMAND   ||
              BC_TYPE      ||
              BC_WIDTH     ||
              BC_SPACE     ||
              BC_LENGTH    ||
              BC_CTRL_FLG;  --||
              --BC_DATA;*/
  --
  v_print_string := escp_bc || p_string;
  RETURN v_print_string;
--
END get_barcode_epson;
4

0 回答 0