1.
G_115320280818002410641
20.12.21 13:30 Сейчас в теме
Уже 4 дня борюсь с практической частью курсовой работы. Послезавтра - сдача.
Активно гуглил решение проблемы - не помогло.
Нужно реализовать автозаполнение реквизита СуммаОплаты, при выборе реквизита Объект. Данные берутся из регистра накопления.
&НаСервере
Функция СуммаДолга (ЭлементНоменклатуры) экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(ЗадолжностиКлиентовОстатки.СуммаОстаток) КАК СуммаОстаток
|ИЗ
| РегистрНакопления.ЗадолжностиКлиентов.Остатки КАК ЗадолжностиКлиентовОстатки
|ГДЕ
| ЗадолжностиКлиентовОстатки.Объект = &Объект";
Запрос.УстановитьПараметр("Объект",ЭлементНоменклатуры);
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
Возврат РезультатЗапроса;
КонецФункции
&НаКлиенте
Процедура ОбъектПриИзменении(Элемент)
ВыбранныйОБ=Элемент.Объект;
Элемент.СуммаОплаты=СуммаДолга(ВыбранныйОБ);
КонецПроцедуры
13.
G_115320280818002410641
20.12.21 13:53 Сейчас в теме
(9)Ошибка при вызове метода контекста (СуммаДолга)
{Документ.Оплата.Форма.ФормаДокумента.Форма(52)}:Объект.СуммаОплаты=СуммаДолга(ВыбранныйОБ);
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
НачалоСвойства: ret Форма: Элемент Тип: {http://www.w3.org/2001/XMLSchema}anyType
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа '{http://v8.1c.ru/8.1/data/core}ValueTable'
Проверьте, есть ли у объекта метаданных РегистрНакопления.ЗадолжностиКлиентов измерение Объект и какой имеет тип данных. Сдается мне, что речь должна идти о клиентах, а не о номенклатуре.
Функция СуммаДолга (ЭлементНоменклатуры) экспорт
Запрос = Новый Запрос;
Запрос.Текст =
Результат = 0;
"ВЫБРАТЬ
| СУММА(ЗадолжностиКлиентовОстатки.СуммаОстаток) КАК СуммаОстаток
|ИЗ
| РегистрНакопления.ЗадолжностиКлиентов.Остатки КАК ЗадолжностиКлиентовОстатки
|ГДЕ
| ЗадолжностиКлиентовОстатки.Объект = &Объект";
Запрос.УстановитьПараметр("Объект",ЭлементНоменклатуры);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
Результат = Выборка. СуммаОстаток;
КонецЦикла;
Возврат Результат;
КонецФункции
Показать
Я очень сильно сомневаюсь, что сработает установка параметра, но как-то так...
А какой процент студентов Вашего учебного заведения после этого семестра не будет заниматься 1с?
Интересуюсь в плане изучения будущего рынка труда программистов 1с :-)