Имя: Пароль:
1C
1С v8
отправка прайс листа программно по расписанию бухгалтерия 3.0
,
0 Новый1сник2
 
10.11.22
09:51
Доброго дня!

нужно отправлять прайсы по расписанию, тут нашел пример https://infostart.ru/public/328929/
подскажите как установить отбор по складу, организации и текущей дате
1 Новый1сник2
 
10.11.22
09:51
Функция СоздатьОтчет(ТекстПисьма)
    Таб = Новый ТабличныйДокумент;
    Попытка        
        //Получаем схему из макета
        СхемаКомпоновкиДанных = Отчеты.УниверсальныйОтчет.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");    
        //Из схемы возьмем настройки по умолчанию
        Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;
        //Настроим период
        НачальнаяДата = Настройки.ПараметрыДанных.Элементы.Найти("НачальнаяДата");
        НачальнаяДата.Значение = НачалоДня(ТекущаяДата())-60*60*16;
        КонечнаяДата = Настройки.ПараметрыДанных.Элементы.Найти("КонечнаяДата");
        КонечнаяДата.Значение = НачалоДня(ТекущаяДата())+60*60*8;
        
        //Помещаем в переменную данные о расшифровке данных
        Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;    
        //Формируем макет, с помощью компоновщика макета
        КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;    
        //Передаем в макет компоновки схему, настройки и данные расшифровки
        МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, Расшифровка);    
        ВнешниеПараметры = Новый Структура;    
        //Выполним компоновку с помощью процессора компоновки
        ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
        ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка);    
        //Выводим результат в табличный документ
        ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
        ПроцессорВывода.УстановитьДокумент(Таб);    
        ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);    
        Возврат Таб;
        
    Исключение
        ТекстПисьма = ТекстПисьма + "Ошибка при создании отчета! " + ОписаниеОшибки() + Символы.ПС;
        Возврат Таб;
    КонецПопытки;
КонецФункции
2 Kassern
 
10.11.22
09:52
(0) а чем вас типовой функционал не устроил? Разве нет рассылки отчетов в бух 3.0?
3 Kassern
 
10.11.22
09:52
Там же можно и отбор поставить и регламент установить и пользователя, под которым слать и кому слать
4 Новый1сник2
 
10.11.22
09:53
(2) раньше не сталкивался с такой задачей, да и прайс не типовой
5 vicof
 
10.11.22
09:54
6 Kassern
 
10.11.22
09:55
(4) Типовой, не типовой - это пофиг, главное чтобы он был доступен
7 Новый1сник2
 
10.11.22
09:57
а просто добавить отбор в (1) каким образом можно ?
8 Новый1сник2
 
10.11.22
10:00
Организация = Настройки.ПараметрыДанных.Элементы.Найти("Организация");
Организация.Значение = Справочники.Организации.НайтиПоКоду("1")

так пойдет ? по аналогии с периодом
9 Kassern
 
10.11.22
10:03
Не изобретайте велосипед, решите задачу через типовой функционал, сотрудники и будущие кодеры только спасибо вам скажут.
10 Новый1сник2
 
10.11.22
10:07
(9) там всего 4 процедуры,  требуется только отбор установить
11 Новый1сник2
 
10.11.22
10:08
и типовой функционал могут переписать, лучше своим кодом сделать
12 Новый1сник2
 
10.11.22
11:41
подскажите как все таки добавить отбор по организации например
13 Новый1сник2
 
10.11.22
13:11
благодарю за участие, разобрался сам