Версия для печати темы (https://pro1c.org.ua/index.php?showtopic=31449)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 7.7 _ Заполнение обработки из справочника

Автор: SvitlaChek 19.08.16, 13:26

Создала справочник "Почта"
в нем 2 реквизита
- строка "Тема"
-многострочная строка "Текст"
в режиме предприятие внесла несколько строчек
и записала.

Для обработки я создала
-поле со списком "Шаб"
-реквизит диалога "Тек"

Необходимо, что бы инф. внесенная в
спраовчник, отображалсь в обработке.

Как это сделать?

http://pro1c.org.ua/index.php?act=announce&id=2: 4,5

Автор: Vofka 19.08.16, 16:48

SvitlaChek, опишите задачу в общем.

ПС. И вы бы может книжки какие-то почитали прежде чем непосредственно программировать. Много вопросов бы отпало.

Автор: Мичман Харитонов 22.08.16, 8:02

Справочник "Почта" содержит шаблоны писем для разных случаев, разных видов клиентов, и т.п.
Обработка (хотя... лучше бы создать отчет, ИМХО) должна отбирать подходящие по критериям отбора шаблоны и выводить из в таблицу значений вверху...

Угадал?
Или вращаем барабан ?

Автор: SvitlaChek 22.08.16, 8:25

Мичман Харитонов @ Сегодня, 9:02 http://pro1c.org.ua/index.php?act=findpost&pid=115757

Я совершенно, не компетента, в задаче которую мне поручили.
Конечно почитаю. Какие порекомендуете?

Автор: SvitlaChek 22.08.16, 10:01

Цитата(Мичман Харитонов @ 22.08.16, 10:49)

Вот даже не знаю, как подсказать, чтобы попроще было...
Наверное, без запроса, просто перебором элементов?

Да, желательно без запроса.
Достаточно цикла.
Я помучавшись, немного сама навояла,
но хотелось бы увидеть мнение профессионала.

Автор: Мичман Харитонов 22.08.16, 10:48

СпрПочта = СоздатьОбъект("Справочник.Почта");
Спр.Почта.ВыбратьЭлементы();
Пока СпрПочта.ПолучитьЭлемент() = 1 Цикл

Если СпрПочта.ПометкаУдаления() = 1 Тогда
Продолжить;
КонецЕсли;

//Отбираем только то, что соотвествует заданному условию

Если Чекбокс = 1 Тогда
//Проверяем элемент на условие. если соответствует, тогда
//Создаем и заполняем новую строку таблицы значений на форме
ИначеЕсли Чекбокс = 2 Тогда
//....
// и т.п. по всем пунктам
КонецЕсли;
КонецЦикла;

Автор: SvitlaChek 22.08.16, 12:19

Спасибо.
У меня вот такой код.
Но неправлельно отображает сообщения из справочника.
Должно быть так:
Нажимаешь на "поле со списком" и Вам на выбор темы сообщений
из справочника "Почта".
Выбираешь, и в "реквизите диалога" заполяет, автоматически из
Справочника "Почта" текст.
А получается, что:
В "поле со списком" пишет не =спрПочта.Тема=, а пишет =СпрПочта.Текст=

ТабЗ = СоздатьОбъект("ТаблицаЗначений");
ТабЗ.НоваяКолонка("Текст","");
ТабЗ.НоваяКолонка("Тема","");
СпрПочта = СоздатьОбъект("Справочник.Почта");
СпрПочта.ВыбратьЭлементы();
Пока СпрПочта.ПолучитьЭлемент()=1 Цикл 
ТабЗ.НоваяСтрока();
ТабЗ.Тема = СпрПочта.Тема;
ТабЗ.Текст = СпрПочта.Текст;
КонецЦикла;
ТабЗ.Выгрузить(шаб);
 Тек = ТабЗ.Текст;

Автор: SvitlaChek 22.08.16, 12:48

Цитата(Мичман Харитонов @ 22.08.16, 13:28)

Для поля со списком Шаб
попробуйте выгрузить так:

ТабЗ.Выгрузить(шаб,,,2)

То есть, вторую колонку.

Спсасибо, мой спаситель!
Тему можно закрывать.

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua