Goto _slzaizm _vrklj=eval(_dokje) && vrednost ključa - key value, dok je - while Seek _vrklj Calculate min(recno()), max(recno()) to _prvisl, _poslsl; && first, last while _vrklj=Eval(_dokje) _oldord=val(sys(21)) && we didn't have tagno() then Set orde to 0 Goto _prvisl Scan Next _poslsl - _prvisl+ 1 For _vrklj=Eval(_dokje) Select Sklop Gather Memvar Memo Fields Mat && this is generated code, could have multiple fields here EndScan Set Order To _oldord && restore tag GoTo _slzaizm && go to the record to change