FUNCTION fnc_codbarra_isbt128 (p_input VARCHAR2) RETURN VARCHAR2
  IS
    v_caracter VARCHAR2(2);
    v_digito VARCHAR2(2);
    v_f_string_nova VARCHAR2(200);
    v_pos1 INTEGER := 1;
    v_peso INTEGER := 0;
    v_soma INTEGER := 103;
    v_resto INTEGER;
    v_valcaracter INTEGER;
  BEGIN
    v_f_string_nova := 'Ë' || p_input;

    WHILE v_pos1 <= LENGTH(p_input) LOOP
        v_caracter := SUBSTR(p_input, v_pos1, 1);
        v_peso := v_pos1;

        v_valcaracter := ASCII(v_caracter) - 32;

        v_soma := v_soma + (v_peso * v_valcaracter);
        v_pos1 := v_pos1 + 1;
    END LOOP;

    v_resto := v_soma MOD 103;

    v_digito := CHR(v_resto + 32);

    v_f_string_nova := v_f_string_nova || v_digito || 'Î';

    RETURN v_f_string_nova;
  END fnc_codbarra_isbt128;