Завдання:
У видатковій накладній потрібно, щоб автоматично заповнювалась ціна із номенклатури та множилась на кількість і давала суму для кожного товару.
&НаКлиенте
Процедура КількістьПриИзменении(Элемент)
Эл = Элементы.Товари.ТекущиеДанные;
Эл.Сума = Эл.Ціна * Эл.Кількість;
КонецПроцедуры
&НаКлиенте
Процедура ЦінаПриИзменении(Элемент)
Эл = Элементы.Товари.ТекущиеДанные;
Эл.Сума = Эл.Ціна * Эл.Кількість;
КонецПроцедуры
igorslo @ Сегодня, 15:19
,
Ціна це реквізит номенклатури?, Тоді при виборі номенклатури треба встановлювати ціну викликати процедуру розрахунку суми.
Gazulo @ Сегодня, 14:26
,
Ціна це реквізит Справочника номенклатури, а тут ціна як окремий об'єкт.
https://pro1c.org.ua/redirect.php?https://ibb.co/GJhbryn
Gazulo @ Сегодня, 14:26
,
Може надати ще якісь деталі для кращого розуміння?
igorslo @ Сегодня, 15:47
,
Тоді при виборі номенклатури треба встановлювати ціну в документі і викликати процедуру розрахунку суми
igorslo @ Сегодня, 16:06
,
Приблизно так
&НаКлиенте
Процедура ТоварПриИзменении(Элемент)
СтрокаТЧ = Элементы.Товари.ТекущиеДанные;
ТоварПриИзмененииНаСервере(СтрокаТЧ.ПолучитьИдентификатор());
КонецПроцедуры
&НаСервере
Процедура ТоварПриИзмененииНаСервере(ИдентификаторСтрокиТЧ)
СтрокаТЧ = Объект.Товари.НайтиПоИдентификатору(ИдентификаторСтрокиТЧ);
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Ціна
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", СтрокаТЧ .Товар);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
СтрокаТЧ.Ціна = ВыборкаДетальныеЗаписи.Цена;
СтрокаТЧ.Сума = СтрокаТЧ.Ціна * СтрокаТЧ.Кількість;
КонецЦикла;
КонецПроцедуры
Gazulo @ Сегодня, 15:27
,
Код вставив, там треба ще щось дописати? (Наприклад, там де "Ссылка")
Не працює; ціну не підтягує і суму тим більше не рахує, зразу пропускає рядок.
igorslo @ Сегодня, 16:41
,
я ж конфігурації вашої не маю, то треба вже самому дивитись я написав приблизний код як має бути.
Хіба підключусь гляну.
Gazulo @ Сегодня, 16:52
,
Можу надіслати, тільки куди?
Або куди підключити?
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua