-
Отзыв к заданию
12 апреля 2024 в 16:04:27
Как всегда сделал быстро и качественно.
-
Отзыв к заданию
5 июля 2021 в 14:40:05
Задача выполнена в срок, все указанные недочеты, были исправлены в кратчайшие срок. Рекомендую исполнителя.
-
Сообщение на форуме
11 июня 2020 в 07:33:09
Да никак не работает.
Так тоже не работает.
&НаКлиенте
Процедура ИзменитьУпаковки(Команда)
ПересчитатьНаСервереЦены();
ОповеститьОбИзменении(Тип("ДокументСсылка.УстановкаЦенНоменклатуры"));
КонецПроцедуры
&НаСервере
Процедура ПересчитатьНаСервереЦены()
ДокОбъект = РеквизитФормыВЗначение("Объект");
ТабЧасть= ДокОбъект.Товары;
Для каждого Строка из ТабЧасть цикл
Строка.цена=555;
Строка.ценаизмененаВручную=Истина;
КонецЦикла;
ЗначениеВРеквизитФормы(ДокОбъект, "Объект");
КонецПроцедуры
-
Сообщение на форуме
10 июня 2020 в 17:14:18
Требуется консультация, не работает добавленная кнопка на управляемой форме. Не изменяются данные на форме документа "Установка цен номенклатуры". Данные в документе заполнены стандартно, на основании док. поступления. (конфигурация ут 11).
&НаКлиенте
Процедура ИзменитьУпаковки(Команда)
ПересчитатьНаСервереЦены();
ВладелецФормы.ОбновитьОтображениеДанных();
КонецПроцедуры
&НаСервере
Процедура ПересчитатьНаСервереЦены()
ДокОбъект = РеквизитФормыВЗначение("Объект");
ТабЧасть= ДокОбъект.Товары;
Для каждого Строка из ТабЧасть Цикл
Строка.цена=555;
Строка.ценаИзмененаВручную=Истина;
КонецЦикла;
КонецПроцедуры
-
Отзыв к заданию
15 марта 2019 в 12:05:49
Выполнено в срок, нареканий по выполнению нет.