code128b條碼產生程式，code128b條碼產生

code128b條碼產生程式，code128b條碼產生
FUNCTION get_char(char_code IN PLS_INTEGER) RETURN VARCHAR2 IS    LANGUAGE JAVA NAME 'xxfnd.XxfndBarcodeUtil.getChar(int) return String';
FUNCTION code128b(data_to_encode IN VARCHAR2) RETURN VARCHAR2 IS    v_c128_start     VARCHAR2(3 );    v_c128_end       VARCHAR2(3 );    n_checksum       PLS_INTEGER := 104 ;    n_data_length    PLS_INTEGER;    n_curr_char_code PLS_INTEGER;  BEGIN    -- Save the length of the content to cache.    n_data_length := length(data_to_encode);    fnd_message.set_name( 'CUX', 'CUX_FND_BARCODE_001' );    v_c128_start := fnd_message.get;    fnd_message.set_name( 'CUX', 'CUX_FND_BARCODE_002' );    v_c128_end := fnd_message.get;    FOR i IN 1 .. n_data_length LOOP      n_curr_char_code := ascii(substr(data_to_encode, i, 1));      IF n_curr_char_code >= 32 THEN        n_checksum := n_checksum +                      (i * (ascii(substr(data_to_encode, i, 1)) - 32 ));      ELSE        n_checksum := n_checksum +                      (i * (ascii(substr(data_to_encode, i, 1)) + 64 ));      END IF ;    END LOOP ;    n_checksum := MOD(n_checksum, 103 );     IF n_checksum < 95 THEN      n_checksum := n_checksum + 32;    ELSE      n_checksum := n_checksum + 100;    END IF ;     RETURN v_c128_start || data_to_encode || get_char(n_checksum) || v_c128_end;   END code128b;