1c/crm3_26.rhana
4
0
Fork 0
Code Issues 7 Pull Requests Actions Packages Projects Releases 1 Wiki Activity

РК_ЗагрузкаОстатков 1.3.1.69: исправить кнопку «Заполнить справочники отбора» (#12).

Browse Source 
Устранён конфликт id формы с полем комиссионных товаров; добавлено оповещение о результате.

Co-authored-by: Cursor <cursoragent@cursor.com>
This commit is contained in:
mihailkudravcev
2026-08-17 10:07:37 +03:00
parent b3f518e170
commit b7042e3d27
5 changed files with 24 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/DataProcessors/РК_ЗагрузкаОстатков/Forms/Форма/Ext/Form.xml
+2 -2
View File
@@ -126,10 +126,10 @@
<ContextMenu name="ДатаОстатковКонтекстноеМеню" id="34"/>
<ExtendedTooltip name="ДатаОстатковРасширеннаяПодсказка" id="35"/>
</InputField>
<Button name="ЗаполнитьСправочникиОтбора" id="1547">
<Button name="ЗаполнитьСправочникиОтбора" id="1563">
<Type>UsualButton</Type>
<CommandName>Form.Command.ЗаполнитьСправочникиОтбора</CommandName>
<ExtendedTooltip name="ЗаполнитьСправочникиОтбораРасширеннаяПодсказка" id="1548"/>
<ExtendedTooltip name="ЗаполнитьСправочникиОтбораРасширеннаяПодсказка" id="1564"/>
</Button>
<UsualGroup name="ГруппаДвеКолонки" id="135">
<Title>
src/DataProcessors/РК_ЗагрузкаОстатков/Forms/Форма/Ext/Form/Module.bsl
+13 -4
View File
@@ -85,12 +85,15 @@
КонецЕсли;
Попытка
ЗаполнитьСправочникиОтбораНаСервере();
Количество = ЗаполнитьСправочникиОтбораНаСервере();
Исключение
ПоказатьПредупреждение(, КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Возврат;
КонецПопытки;
Элементы.ГруппаСтраницы.ТекущаяСтраница = Элементы.ГруппаОтбор;
ПоказатьОповещениеПользователя("Справочники отбора", ,
"Группы: " + Формат(Количество.Группы, "ЧН=0; ЧГ=0")
+ "; склады: " + Формат(Количество.Склады, "ЧН=0; ЧГ=0")
+ "; организации: " + Формат(Количество.Организации, "ЧН=0; ЧГ=0"));
КонецПроцедуры
@@ -512,13 +515,19 @@
КонецФункции
&НаСервере
Процедура ЗаполнитьСправочникиОтбораНаСервере()
Функция ЗаполнитьСправочникиОтбораНаСервере()
ЗаполнитьГруппыНоменклатурНаСервере();
ПодобратьСкладыНаСервере();
ЗаполнитьОрганизацииНаСервере();
КонецПроцедуры
Результат = Новый Структура;
Результат.Вставить("Группы", Объект.ОтборГруппНоменклатур.Количество());
Результат.Вставить("Склады", Объект.ОтборСкладовВнешнейБазы.Количество());
Результат.Вставить("Организации", Объект.ОтборОрганизацийВнешнейБазы.Количество());
Возврат Результат;
КонецФункции
&НаСервере
Процедура ЗаполнитьГруппыНоменклатурНаСервере()