Замените это
а = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND")));
Попытка
а = Число(а);
Сообщить("а - число");
Исключение
Сообщить("а - строка");
КонецПопытки;
стр.ПлатПоруч = а;
на это
а = УбратьПробелы(строка(ФайлДБФ.ПолучитьЗначениеПоля("ND")));
Попытка
а = Число(а);
стр.ПлатПоруч = а;
Исключение
стр.ПлатПоруч = Неопределено;
КонецПопытки;