Регламентное задание

@никмейн · Регистрация: 24.10.2016

Студворк — интернет-сервис помощи студентам

Добрый день!!! Обычные формы, УПП. Задание было такое: нужно было автоматическое перемещение Лимонада из бара в производство, так как из 4-5 позиции не хотел менять типовую конфу, создал внешнюю обработку, указал реквизиты(СкладОтправитель, СкладПолучатель, Организация) соответствующих ссылочных типов, создал несколько событий на форме:

Кликните здесь для просмотра всего текста

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
Суть этого запроса, он находит по набору блюд лимонад, и создает автоматом документ формирование
Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   БС_ВыпускПродукцииСоставБлюда.Номенклатура,
        |   СУММА(БС_ВыпускПродукцииСоставБлюда.Стоимость) КАК Стоимость,
        |   СУММА(БС_ВыпускПродукцииСоставБлюда.Количество) КАК Количество,
        |   БС_ВыпускПродукцииСоставБлюда.ЕдиницаИзмерения,
        |   БС_ВыпускПродукцииСоставБлюда.Коэффициент,
        |   БС_ВыпускПродукцииСоставБлюда.Ссылка.ПодразделениеОрганизации
        |ИЗ
        |   Документ.БС_ВыпускПродукции.СоставБлюда КАК БС_ВыпускПродукцииСоставБлюда
        |ГДЕ
        |   БС_ВыпускПродукцииСоставБлюда.Блюдо.Наименование ПОДОБНО ""%Дабл профит%""
        |   И БС_ВыпускПродукцииСоставБлюда.Номенклатура.Наименование ПОДОБНО ""%Лимонад%""
        |   И БС_ВыпускПродукцииСоставБлюда.Ссылка.СкладРеализации = &Склад
        |   И БС_ВыпускПродукцииСоставБлюда.Ссылка.Организация = &Организация
        |
        |СГРУППИРОВАТЬ ПО
        |   БС_ВыпускПродукцииСоставБлюда.Номенклатура,
        |   БС_ВыпускПродукцииСоставБлюда.ЕдиницаИзмерения,
        |   БС_ВыпускПродукцииСоставБлюда.Коэффициент,
        |   БС_ВыпускПродукцииСоставБлюда.Ссылка.ПодразделениеОрганизации";
        
    Запрос.УстановитьПараметр("Склад",СкладПолучатель);
    Запрос.УстановитьПараметр("Организация",Организация);
 
    Данные = Запрос.Выполнить().Выбрать();
    
    НовДокумент = Документы.БС_ФормированиеДБО.СоздатьДокумент();
    НовДокумент.Дата = ТекущаяДата();
    НовДокумент.Организация = Организация;
    НовДокумент.Склад = СкладОтправитель;
    НовДокумент.ВидОперации = Перечисления.БС_ВидыОперацийФормированиеДБО.Перемещение;
    НовДокумент.Ответственный = ПараметрыСеанса.ТекущийПользователь;
 
    Пока Данные.Следующий() Цикл
        НовСтрокаТЧТовары = НовДокумент.Товары.Добавить();
        НовСтрокаТЧТовары.Номенклатура = Данные.Номенклатура;
        НовСтрокаТЧТовары.Количество = Данные.Количество;
        НовСтрокаТЧТовары.ЕдиницаИзмерения = Данные.ЕдиницаИзмерения;
        НовСтрокаТЧТовары.Коэффициент = Данные.Коэффициент;
        НовСтрокаТЧТовары.Сумма = Данные.Стоимость;
        НовДокумент.ПодразделениеОрганизации = Данные.ПодразделениеОрганизации;
        
    КонецЦикла;
    
    НовДокумент.Записать();
        
    мБылоФормированиеДокументов = Истина;
    Если НовДокумент.ВидОперации = Перечисления.БС_ВидыОперацийФормированиеДБО.РеализацияЮридическомуЛицу Тогда
        НовДокумент.Ссылка.ПолучитьОбъект().УстановитьДоговорыКонтрагентов();
    КонецЕсли;
    Если НовДокумент.Проведен Тогда
        НовДокумент.Ссылка.ПолучитьОбъект().Документы_ОтменитьПроведение();
    КонецЕсли; 
    НовДокумент.Ссылка.ПолучитьОбъект().СформироватьКомплектДокументов();
    Обновить();
    
КонецПроцедуры
 
Суть этих событий, чтобы сделать выпадающий список конкретных складов и организации
 
Процедура СкладОтправительНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Склады.Наименование
        |ИЗ
        |   Справочник.Организации КАК Организации
        |ГДЕ
        |   Склады.Наименование В(&Наименование)";
        
    МассивОрганизации = Новый Массив;
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Автозавод бар"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни К.Маркса бар"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Клубная бар"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Крисанова бар"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Свободы бар"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Школьная бар"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("9 Января бар"));
 
    Запрос.УстановитьПараметр("Наименование", МассивОрганизации);
    
    тзОрганизации = Новый ТаблицаЗначений;
    тзОрганизации.Колонки.Добавить("СкладОтправитель");
    
    Для Инд = 0 По МассивОрганизации.ВГраница() Цикл
        тзОрганизации.Добавить();
    КонецЦикла;
    
    тзОрганизации.ЗагрузитьКолонку(МассивОрганизации,"СкладОтправитель");
        
    ЭлементыФормы.СкладОтправитель.СписокВыбора.ЗагрузитьЗначения(тзОрганизации.ВыгрузитьКолонку("СкладОтправитель"));
    
КонецПроцедуры
 
Процедура ОрганизацияНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Организации.Наименование
        |ИЗ
        |   Справочник.Организации КАК Организации
        |ГДЕ
        |   Организации.Наименование В(&Наименование)";
        
    МассивОрганизации = Новый Массив;
    МассивОрганизации.Добавить(Справочники.Организации.НайтиПоНаименованию("Ронни Автозавод"));
    МассивОрганизации.Добавить(Справочники.Организации.НайтиПоНаименованию("Ронни К.Маркса"));
    МассивОрганизации.Добавить(Справочники.Организации.НайтиПоНаименованию("Ронни Клубная"));
    МассивОрганизации.Добавить(Справочники.Организации.НайтиПоНаименованию("Ронни Крисанова"));
    МассивОрганизации.Добавить(Справочники.Организации.НайтиПоНаименованию("Ронни Свободы"));
    МассивОрганизации.Добавить(Справочники.Организации.НайтиПоНаименованию("Школьная"));
    МассивОрганизации.Добавить(Справочники.Организации.НайтиПоНаименованию("9 Января"));
 
    Запрос.УстановитьПараметр("Наименование", МассивОрганизации);
    
    тзОрганизации = Новый ТаблицаЗначений;
    тзОрганизации.Колонки.Добавить("Организации");
    
    Для Инд = 0 По МассивОрганизации.ВГраница() Цикл
        тзОрганизации.Добавить();
    КонецЦикла;
    
    тзОрганизации.ЗагрузитьКолонку(МассивОрганизации,"Организации");
        
    ЭлементыФормы.Организация.СписокВыбора.ЗагрузитьЗначения(тзОрганизации.ВыгрузитьКолонку("Организации"));  
        
КонецПроцедуры
 
Процедура СкладПолучательНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Склады.Наименование
        |ИЗ
        |   Справочник.Организации КАК Организации
        |ГДЕ
        |   Склады.Наименование В(&Наименование)";
        
    МассивОрганизации = Новый Массив;
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Автозавод производство"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни К.Маркса производство"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Клубная производство"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Крисанова производство"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Ронни Свободы производство"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("Школьная производство"));
    МассивОрганизации.Добавить(Справочники.Склады.НайтиПоНаименованию("9 Января производство"));
 
    Запрос.УстановитьПараметр("Наименование", МассивОрганизации);
    
    тзОрганизации = Новый ТаблицаЗначений;
    тзОрганизации.Колонки.Добавить("СкладПолучатель");
    
    Для Инд = 0 По МассивОрганизации.ВГраница() Цикл
        тзОрганизации.Добавить();
    КонецЦикла;
    
    тзОрганизации.ЗагрузитьКолонку(МассивОрганизации,"СкладПолучатель");
        
    ЭлементыФормы.СкладПолучатель.СписокВыбора.ЗагрузитьЗначения(тзОрганизации.ВыгрузитьКолонку("СкладПолучатель"));
    
КонецПроцедуры

мне нужно в обработке сохранить настройки, и передавать эти настройки в регл.задание, как это возможно сделать?

@никмейн · 07.09.2021, 12:25 **[ТС]**

Dethmontt, ну да

@polax · 07.09.2021, 12:34

никмейн, Значит в озвученные даты не было отпуска такой продукции (установлено ограничение по датам)и с указанного склада отправлялось только на РОни Автозаводская (установлено ограничение по складу)

@никмейн · 07.09.2021, 12:41 **[ТС]**

polax, Посмотрел результат запроса, все организации вывелись

@никмейн · 07.09.2021, 12:42 **[ТС]**

вот результат запроса

@polax · 07.09.2021, 12:47

Сообщение от никмейн

а если ограничить с датами, то результат пустой

Это жетвое сообщение?
И на скринах: На первом при условии по складу только Автозавод.
Тогда сфлрмулируй внятно КОГДА выдается правильный результат

@никмейн · 07.09.2021, 12:47 **[ТС]**

polax, спасибо, получилось достичь желаемого результата ,создаются 7 документов по организациям)))

@никмейн · 07.09.2021, 13:08 **[ТС]**

polax, теперь это надо через регламентное задание сделать, создал регл.задание, настроил все там, задание выполняется успешно, но документы не создаются, то есть нет записи(смотрел по журналу регистрации)
в обработке сохранил настройки

1C
1
ХранилищеОбщихНастроек.Сохранить("ВнешняяОбработка.WG_ПозицияПеремещенииМеждуСкладами",,"СоздатьПеремещение");

а в общем модуле рег.задания(имя метода)

1C
1
2
3
4
Процедура WG_ПозицияПеремещенииМеждуСкладами() Экспорт
    ХранилищеОбщихНастроек.Загрузить("ВнешняяОбработка.WG_ПозицияПеремещенииМеждуСкладами");
    ХранилищеОбщихНастроек.ПолучитьСписок("ВнешняяОбработка.WG_ПозицияПеремещенииМеждуСкладами");
КонецПроцедуры

я правильно сохраняю настройки? или применить не хранилище общих настроек, а просто хранилище настроек?

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@никмейн 65 / 46 / 20 Регистрация: 24.10.2016 Сообщений: 1,051
	07.09.2021, 12:25 [ТС]
	Dethmontt, ну да 0

@polax 7181 / 1783 / 650 Регистрация: 16.01.2015 Сообщений: 7,357
	07.09.2021, 12:34
	никмейн, Значит в озвученные даты не было отпуска такой продукции (установлено ограничение по датам)и с указанного склада отправлялось только на РОни Автозаводская (установлено ограничение по складу) 1

@никмейн 65 / 46 / 20 Регистрация: 24.10.2016 Сообщений: 1,051
	07.09.2021, 12:41 [ТС]
	polax, Посмотрел результат запроса, все организации вывелись 0

@никмейн 65 / 46 / 20 Регистрация: 24.10.2016 Сообщений: 1,051
	07.09.2021, 12:42 [ТС]
	вот результат запроса Миниатюры 0

@никмейн 65 / 46 / 20 Регистрация: 24.10.2016 Сообщений: 1,051
	07.09.2021, 12:47 [ТС]
	polax, спасибо, получилось достичь желаемого результата ,создаются 7 документов по организациям))) 0