// Определяет, является ли символ цифрой или не является
//
// Параметры:
//
//   Симв - строка, состоящая из одного символа
//
//   Возвращаемое значение типа "Булево"
//
Функция ЭтоЦифра(Симв) Экспорт
    
    Если НЕ ПустаяСтрока(Симв) И Найти("1234567890", Симв) > 0 Тогда
        Возврат Истина;
    Иначе
        Возврат Ложь;
    КонецЕсли;
    
КонецФункции // ЭтоЦифра()

// Проверяет строку на содержание символов вне диапазона 0-9 (Только Цифры...)
Функция СтрокаСодержитТолькоЦифры(пСтрока)
    Если (Не ПустаяСтрока(пСтрока)) Тогда
        ТекСтрДлина = СтрДлина(пСтрока);
        Индекс = 1;
        Пока (Индекс <= ТекСтрДлина) Цикл
            Если (Не ОбщиеПроцедуры.ЭтоЦифра(Сред(пСтрока, Индекс, 1))) Тогда
                Возврат Ложь;
            КонецЕсли;
            Индекс = Индекс + 1;
        КонецЦикла;
        Возврат Истина;
    КонецЕсли; 
    Возврат Ложь;
КонецФункции // СтрокаСодержитТолькоЦифры()