

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  
procedure ean_rename
if ! empty(m.ean_path)
    txtsoubor  = m.ean_path + "prijemka.txt"
    txtsoubor2 = m.ean_path + "prijemka2.txt"
    if file(m.txtsoubor) .and. file(m.txtsoubor2)
       erase (m.txtsoubor)
       rename (m.txtsoubor2) to (m.txtsoubor)
    endif
endif
