Спасибо. У меня вот такой код. Но неправлельно отображает сообщения из справочника. Должно быть так: Нажимаешь на "поле со списком" и Вам на выбор темы сообщений из справочника "Почта". Выбираешь, и в "реквизите диалога" заполяет, автоматически из Справочника "Почта" текст. А получается, что: В "поле со списком" пишет не =спрПочта.Тема=, а пишет =СпрПочта.Текст=
ТабЗ = СоздатьОбъект("ТаблицаЗначений"); ТабЗ.НоваяКолонка("Текст",""); ТабЗ.НоваяКолонка("Тема",""); СпрПочта = СоздатьОбъект("Справочник.Почта"); СпрПочта.ВыбратьЭлементы(); Пока СпрПочта.ПолучитьЭлемент()=1 Цикл ТабЗ.НоваяСтрока(); ТабЗ.Тема = СпрПочта.Тема; ТабЗ.Текст = СпрПочта.Текст; КонецЦикла; ТабЗ.Выгрузить(шаб); Тек = ТабЗ.Текст;
и еще если человек уже уволен. нужно ли чтоб он попадал в списки (по условиям 1, 3, 4, 5). Также подумайте над этим.
Спасибо. Эта выборка для кредитного союза, а "Дата Увольнения" - это дата выхода из КС Поэтому, думаю поздравления с 8-марта, НГ, и ДР всегда актуальны. Ведь задача любой организации (магазин, банк и тд) не столько найти нового клиента, как не потерят старого. Поэтому и сервис, поэтому и скидки, поэтому и поздравления.
В предыдущем коде не все так гладко. Если проверяли, то Таб. значений выводит пустые строки. Допустим у нас 5 жен. и 2 муж., то по выборке только муж. будет еще 5 пустых строк.
Вот нормальный код. Тему можно закрывать. Спасибо.
Процедура ПриОткрытии() Отбор = 1; КонецПроцедуры // ПриОткрытии Процедура Сформировать() //Сбор информации о пользователях ТЗ = СоздатьОбъект ("ТаблицаЗначений"); ТЗ.НоваяКолонка("ФИО","строка"); ТЗ.НоваяКолонка("МобТел","Строка"); ТЗ.НоваяКолонка("Почта","строка"); ТЗ.НоваяКолонка("Просрочка","Дата"); ТЗ.НоваяКолонка("ДР","Дата"); ТЗ.НоваяКолонка("Пол",""); Спр = СоздатьОбъект ("Справочник.Клиенты"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент() = 1 Цикл ТЗ.НоваяСтрока(); Если Отбор = 1 Тогда //Муж ТЗ.Пол = Спр.Пол; Если ТЗ.Пол = Перечисление.Пол.Мужской Тогда ТЗ.ФИО = СокрЛП(Спр.Фамилия+" "+Спр.Имя+" "+Спр.Отчество); ТЗ.МобТел = СокрЛП(Спр.Моб_Тел); ТЗ.Почта = СокрЛП(Спр.ЭлектроннаяПочта); ТЗ.ДР = Спр.Дата_рождения; ТЗ.Просрочка = Спр.ДатаУвольнения; ИначеЕсли ТЗ.Пол = Перечисление.Пол.Женский Тогда ТЗ.УдалитьСтроку(); КонецЕсли; ИначеЕсли Отбор = 2 Тогда //Просрочка Если ТЗ.Просрочка = Спр.ДатаУвольнения Тогда ТЗ.Пол = Спр.Пол; ТЗ.ФИО = СокрЛП(Спр.Фамилия+" "+Спр.Имя+" "+Спр.Отчество); ТЗ.МобТел = СокрЛП(Спр.Моб_Тел); ТЗ.Почта = СокрЛП(Спр.ЭлектроннаяПочта); ТЗ.ДР = Спр.Дата_рождения; ИначеЕсли ТЗ.Просрочка <> Спр.ДатаУвольнения тогда ТЗ.УдалитьСтроку(); КонецЕсли; ИначеЕсли Отбор = 3 Тогда //жен ТЗ.Пол = Спр.Пол; Если ТЗ.Пол = Перечисление.Пол.Женский Тогда ТЗ.ФИО = СокрЛП(Спр.Фамилия+" "+Спр.Имя+" "+Спр.Отчество); ТЗ.МобТел = СокрЛП(Спр.Моб_Тел); ТЗ.Почта = СокрЛП(Спр.ЭлектроннаяПочта); ТЗ.ДР = Спр.Дата_рождения; ТЗ.Просрочка = Спр.ДатаУвольнения; ИначеЕсли ТЗ.Пол = Перечисление.Пол.Мужской Тогда ТЗ.УдалитьСтроку(); КонецЕсли; ИначеЕсли Отбор = 4 Тогда //всем ТЗ.Пол = Спр.Пол; ТЗ.ФИО = СокрЛП(Спр.Фамилия+" "+Спр.Имя+" "+Спр.Отчество); ТЗ.МобТел = СокрЛП(Спр.Моб_Тел); ТЗ.Почта = СокрЛП(Спр.ЭлектроннаяПочта); ТЗ.ДР = Спр.Дата_рождения; ТЗ.Просрочка = Спр.ДатаУвольнения; ИначеЕсли Отбор = 5 Тогда //ДР ДЧТ = ДатаЧисло(ТекущаяДата()); ДМТ = ДатаМесяц(ТекущаяДата()); ДЧС = ДатаЧисло (Спр.Дата_рождения); ДМС = ДатаМесяц(Спр.Дата_рождения); Если (ДЧТ = ДЧС) И (ДМТ = ДМС) тогда ТЗ.Пол = Спр.Пол; ТЗ.ФИО = СокрЛП(Спр.Фамилия+" "+Спр.Имя+" "+Спр.Отчество); ТЗ.МобТел = СокрЛП(Спр.Моб_Тел); ТЗ.Почта = СокрЛП(Спр.ЭлектроннаяПочта); ТЗ.ДР= Спр.Дата_рождения; ТЗ.Просрочка = Спр.ДатаУвольнения; Иначе ТЗ.УдалитьСтроку(); Сообщить("сегодня нет именинников"); КонецЕсли; Прервать; КонецЕсли; КонецЦикла; ТЗ.Сортировать(СокрЛП("ФИО")); ТЗ.Выгрузить(СписокКлиентов);
Добрый день! Есть ли у кого-то кусочек кода, как сделать выборку из справочника "Клиенты" по дате рождения, полу, дате регистрации и пр. Для рассылки уведомлений по е-mail ?
В Конфигураторе у Вас значек "Бинокль". Указано название РазнЕСВБолн пощелкайте значек "Бинокль со стрелочкой". Какие строки еще покажет. Еще введите: тбБазы.Свернуть( и тоже пощелкайте.
в низу экрана окно, там всего 3 строчки, 2 из которых мной добавлены, но на результат не влияют.
Цитата(volodya1122 @ 08.08.16, 15:27)
А вообще как и при каких обстоятельствах возникла эта ошибка? Или она изначально не работала?
Как работала раньше не знаю, ошибка возникла после обновлений.
Структура. Как она должна быть построена? Допустем, у меня справочник "Клиенты" им необходимо разослать оповещание об Акциях или поздравление с ДР, НГ, 8-марта и тд.
Добрый день! Необходимо организовать смс и e-mail рассылку по средствам 1с 7.7. Подобного опыта небыло. Растолкуйте, пожалуйста, новечку. Или поделитесь ссылочкой.
Есть Документ "КредитныйДоговор" В нем нужно организовать условие.
Если <= 3 месяца кредитования Тогда ПланСчетов.Основной.КредитКраткосрочный ИначеЕсли >3месяцев <=12 месяцев Тогда ПланСчетов.Основной.КредитДолгосрочный КонецЕсли
Как правльно организовать условие. Нужен ли при этом цикл?
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
Открытая тема (есть новые ответы)
Опрос (есть новые голоса)
Открытая тема (нет новых ответов)
Опрос (нет новых голосов)
Горячая тема (есть новые ответы)
Закрытая тема
Горячая тема (нет новых ответов)
Тема перемещена