Помоги новечку.

Новая тема
"Товарищи ! Пред мною стоит задача изменить конфигурацию ХроноГраф Школа 2.5 ...
В диалоговом окне требуеться ввести Параллель(Например - ППГ) в поле ввода с одноименым индентификатором, начиная с какой цифры будет создаваться параллель вводить в поле ввода с индетиф. "Буква"(Например с 1) и кол-во создаваемых классов индетиф. "КоличествоКлассов"(Например 4). Проблема в слейдующем модуль заносит название паралели в справочник и справа от названия появляються 3 пробела, который в дальнейшем мешаються. Пробовал убрать все пробелы справа - неубирает. (Результат ППГ___ )
Код модуля :

Перем Запись, мРегистр;

Процедура ПриОткрытии()
Параллель = глПолучитьПервуюПараллель();
Если ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда
Параллель = Форма.Параметр.ПолучитьЗначение(1);                  
мРегистр = Форма.Параметр.ПолучитьЗначение(2);
Если Форма.Параметр.РазмерСписка() = 3 Тогда
Буква = Форма.Параметр.ПолучитьЗначение(3);
Иначе
Буква = "1";
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Процедура ПриПовторномОткрытии()
Если ТипЗначенияСтр(Форма.Параметр) = "Число" Тогда
Параллель = Форма.Параметр;
КонецЕсли;
КонецПроцедуры

Процедура Выполнить()

//Производим создание классов в выбраной параллели.
//Если (Число(Параллель)<глПолучитьПервуюПараллель()) или (Число(Параллель) > глПолучитьКоличествоПараллелей()) Тогда
// Предупреждение ("Параллель должна быть не меньше "+Строка(глПолучитьПервуюПараллель())+" и не больше "+Строка(глПолучитьКоличествоПараллелей()));
// Возврат;
//КонецЕсли;
//Если ((КодСимв(буква)<КодСимв("а")) или (КодСимв(буква)>КодСимв("я")))и
// ((КодСимв(буква)<КодСимв("А")) или (КодСимв(буква)>КодСимв("Я")))и
// ((КодСимв(буква)<КодСимв("a")) или (КодСимв(буква)>КодСимв("z")))и
// ((КодСимв(буква)<КодСимв("A")) или (КодСимв(буква)>КодСимв("Z")))Тогда
// Предупреждение ("Недопустимое значение буквы класса.");
// Возврат;
//КонецЕсли;
//Получаем список созданных классов.
СпрУчебныеОбъединения_Классы = СоздатьОбъект("Справочник.УчебныеОбъединения_Классы");
//СпрУчебныеОбъединения_Классы.ПорядокРеквизита("Параллель");
СпрУчебныеОбъединения_Классы.ВыбратьЭлементыПоРеквизиту("Учреждение",глУчреждение);
СписокКлассов = СоздатьОбъект("СписокЗначений");
Пока СпрУчебныеОбъединения_Классы.ПолучитьЭлемент() = 1 Цикл
Если СпрУчебныеОбъединения_Классы.Параллель = Параллель Тогда
СписокКлассов.ДобавитьЗначение(Строка(СпрУчебныеОбъединения_Классы.Параллель)+СпрУчебныеОбъединения_Классы.Наименование);
КонецЕсли;
КонецЦикла;
глНачатьТранзакцию();
лЧислоБуквы = КодСимв(Буква);
лКлассыСозданы = 0;
Для А = 1 По КоличествоКлассов Цикл
лБуква = Симв(лЧислоБуквы);
Если СписокКлассов.НайтиЗначение(Строка(Параллель)+лБуква) = 0 Тогда
//Если ((КодСимв(лБуква)<КодСимв("а")) или (КодСимв(лБуква)>КодСимв("я")))и
// ((КодСимв(лБуква)<КодСимв("А")) или (КодСимв(лБуква)>КодСимв("Я")))и
// ((КодСимв(лБуква)<КодСимв("a")) или (КодСимв(лБуква)>КодСимв("z")))и
// ((КодСимв(лБуква)<КодСимв("A")) или (КодСимв(лБуква)>КодСимв("Z")))Тогда
// //Не допускаем создания неверных наименований.
// Прервать;
//КонецЕсли;
//Собственно создаем сам класс.
ПризнакБлокировки = 0;
Пока ПризнакБлокировки = 0 Цикл
Попытка
Параллель = Строка(СокрП(Параллель));
СпрУчебныеОбъединения_Классы.Новый();
СпрУчебныеОбъединения_Классы.Учреждение = глУчреждение;
СпрУчебныеОбъединения_Классы.Наименование = СокрЛ(лБуква);
СпрУчебныеОбъединения_Классы.Параллель = СокрП(Параллель);
СпрУчебныеОбъединения_Классы.Записать();
ПризнакБлокировки = 1;
Исключение
Если Вопрос(глСообщениеБлокировкиЗаписи, 1, 5) = 2 Тогда Прервать КонецЕсли;
КонецПопытки;
КонецЦикла;
лКлассыСозданы = лКлассыСозданы + 1;
КонецЕсли;
лЧислоБуквы = лЧислоБуквы + 1;
КонецЦикла;
глЗафиксироватьТранзакцию();
Если лКлассыСозданы > 0 Тогда
Параллель = Строка(СокрП(Параллель));
Запись = 1;
//Предупреждение("Произведено создание "+Строка(лКлассыСозданы)+" классов в "+Строка(Параллель)+" параллели");
Предупреждение("Параллель: "+Строка(Параллель) + ". Создано классов: " + Строка(лКлассыСозданы));

//ОткрытьФорму("Обработка.УчебныеОбъединения","Обновить");
Иначе
Предупреждение("Не было создано ни одного класса в "+Строка(Параллель)+" параллели");
КонецЕсли;
Форма.Закрыть(0);
КонецПроцедуры

Процедура ПриЗакрытии()
Форма.Параметр = Запись;
КонецПроцедуры


Запись = 0;
"
Не особо понятно написано, учитывая использованную пунктуацию и орфографию.
Есть предположение, что в длина реквизита "СпрУчебныеОбъединения_Классы.Параллель" = 6 символов.
Читают тему
(гостей: 1)

Быстрый переход