data: v_i TYPE i,
        v_s TYPE string.

    SPLIT '010101-01' AT '-' INTO: v_num v_serie.

    CONCATENATE '000' v_serie INTO v_s.
    v_i = STRLEN( v_s ) - 3.
    v_serie = v_s+v_i(3).

    CONCATENATE '000000000' v_num INTO v_s.
    v_i = STRLEN( v_s ) - 9.
    v_num = v_s+v_i(9).