Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

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

white
читатель
офлайн
Дата регистрации: 23.10.2008
Сообщений: 5
Пост №1
 
01.12.2008 08:05

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

Daedal
читатель
офлайн
Дата регистрации: 20.09.2004
Сообщений: 632
Пост №2
 
01.12.2008 10:35

Не особо понятно написано, учитывая использованную пунктуацию и орфографию.<br>Есть предположение, что в длина реквизита "СпрУчебныеОбъединения_Классы.Параллель" = 6 символов.

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация