COPY to ARRAY N1 fields B_P, NAZIV, KT_BR _br = ALEN(N1, 1) ASORT(N1,3)
for n = 1 to _br now it is neccessary to add left(naziv,1) to KT_BR and at end sort again