Заполнить данные из связанного документа
Добрый день!
Задача:
Необходимо создать кнопку, на вкладке "Стоимость", которая будет заполнять данные в документе "Товарно Транспортный Документ" (Рисунок 1)
Данные для заполнения нужно взять из "Заказа на ТС(ЗаказГрузоотправителя)", вкладка "Услуги" (Рисунок 2)
Решение:
Создаю Кнопку,
Код кнопки:
Вопрос: Никак не догадаюсь как вывести данные из функции в процедуру. Подскажите пожалуйста, как это сделать?
Задача:
Необходимо создать кнопку, на вкладке "Стоимость", которая будет заполнять данные в документе "Товарно Транспортный Документ" (Рисунок 1)
Данные для заполнения нужно взять из "Заказа на ТС(ЗаказГрузоотправителя)", вкладка "Услуги" (Рисунок 2)
Решение:
Создаю Кнопку,
Код кнопки:
&НаКлиенте
Процедура ЗаполнитьДанныеИзЗаказа(Команда)
ЗаполнитьДанныеИзЗаказаНаСервере();
КонецПроцедуры
&НаСервере
Функция ЗаполнитьДанныеИзЗаказаНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| уатЗаказГрузоотправителяУслуги.Количество,
| уатЗаказГрузоотправителяУслуги.Цена,
| уатЗаказГрузоотправителяУслуги.Сумма,
| уатЗаказГрузоотправителяУслуги.СтавкаНДС,
| уатЗаказГрузоотправителяУслуги.СуммаНДС,
| уатЗаказГрузоотправителяУслуги.Номенклатура,
| уатЗаказГрузоотправителяУслуги.Ссылка
|ИЗ
| Документ.уатЗаказГрузоотправителя.Услуги КАК уатЗаказГрузоотправителяУслуги";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
СтоимостьЦена = ВыборкаДетальныеЗаписи.Цена;
СтоимостьСумма = ВыборкаДетальныеЗаписи.Сумма;
СтоимостьСтавкаНДС = ВыборкаДетальныеЗаписи.СтавкаНДС;
СтоимостьСуммаНДС = ВыборкаДетальныеЗаписи.СуммаНДС;
СтоимостьКоличествоПараметрВыработки = ВыборкаДетальныеЗаписи.Количество;
СтоимостьНоменклатура = ВыборкаДетальныеЗаписи.Номенклатура;
КонецЦикла;
КонецФункции
ПоказатьВопрос: Никак не догадаюсь как вывести данные из функции в процедуру. Подскажите пожалуйста, как это сделать?
Прикрепленные файлы:
По теме из базы знаний
- Загрузка данных из табличного документа в справочники, документы, планы видов характеристик, планы видов расчетов, планы счетов, бизнес-процессы, задачи, в движения документов, поточная загрузка документов (EXCEL, управляемые формы, универсальная)
- Обработка по заполнению табличной части данными другого документа
- Универсальная обработка создания связанных документов (универсальный "ввод на основании")
- Документ на документ. Автоматическое создание связанных документов
- Допиливаем типовой отчет "Связанные документы" (структура подчиненности) так, чтобы он видел документы из расширения конфигурации
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2)Т.е. переименовать
в
?
Дело в том, что мне не нужно добавлять Новые строки, а необходимо данные из поля документа Заказ Грузоотправителя передать в данные поля ТТД
Или я Вас не правильно понял?
Функция ЗаполнитьДанныеИзЗаказаНаСервере()
в
Процедура ЗаполнитьДанныеИзЗаказаНаСервере()
?
НоваяСТрока = Объект.Стоимость.Добавить();
НоваяСтрока.Сумма = Сумма
НоваяСтрока.Сумма = Сумма
Дело в том, что мне не нужно добавлять Новые строки, а необходимо данные из поля документа Заказ Грузоотправителя передать в данные поля ТТД
Или я Вас не правильно понял?
Добрый день, подскажите пожалуйста, можно ли решить задачу следующим образом,
взять код процедуры "ОбработкаЗаполнения" и подставить его в модуль "кнопки"?
взять код процедуры "ОбработкаЗаполнения" и подставить его в модуль "кнопки"?
Процедура ОбработкаЗаполнения (ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.уатЗаказГрузоотправителя") Тогда
// Заполнение шапки
Для Каждого ТекСтрокаУслуги Из ДанныеЗаполнения.Услуги Цикл
НоваяСтрока = Стоимость.Добавить();
НоваяСтрока.Количество = ТекСтрокаУслуги.Количество;
НоваяСтрока.НоменклатураУслуги = ТекСтрокаУслуги.Номенклатура;
НоваяСтрока.Номенклатура = ТекСтрокаУслуги.Номенклатура;
НоваяСтрока.СтавкаНДС = ТекСтрокаУслуги.СтавкаНДС;
НоваяСтрока.Сумма = ТекСтрокаУслуги.Сумма;
НоваяСтрока.СуммаНДС = ТекСтрокаУслуги.СуммаНДС;
НоваяСтрока.Цена = ТекСтрокаУслуги.Цена;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот