Функция checkcode(a = Me.CODE.Text)
        allres = 0
        Цикл от i = 1 до Длина(а)
                 allres += Asc(Mid$(a, i, 1)
        Возврат Int(allres / Длина(a))
КонецФункции