Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
17 апр 2024, 00:50

Кнопка для автоматического заполнения ТЧ

Автор sm14, 15 дек 2019, 19:40

0 Пользователей и 1 гость просматривают эту тему.

sm14

Здравствуйте!
Есть документ Кредитный_договор с реквизитами Клиент, Вид_жилья, Застройщик, Сумма_ипотеки, Срок_выплат, Первоначальный_взнос, Дата_первого_взноса.
Также имеется документ График_платежей с реквизитами Договор (Ссылка.Кредитный_договор), Клиент и ТабличнаяЧасть1 с реквизитами Дата_взноса и Необходимая_сумма_платежа.
ТабличнаяЧасть1 при нажатии на кнопку "Заполнить" должна заполняться по месяцам.
Из Сумма_ипотеки вычитаем Первоначальный_взнос, получаем Сумму1
Сумму1 делим на Срок_выплат, получаем СуммЕжемесячногоПлатежа

Возникает ощибка
{Документ.График_платежей.Команда.Заполнить.МодульКоманды(25,8)}: Переменная не определена (Элементы)
   Стр = <<?>>Элементы.ТабличнаяЧасть1.ТекущиеДанные; (Проверка: Сервер)
{Документ.График_платежей.Команда.Заполнить.МодульКоманды(26,21)}: Переменная не определена (Объект)
   Для каждого Стр Из <<?>>Объект.ТабличнаяЧасть1 Цикл (Проверка: Сервер)



&НаСервере
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
                      |Кредитный_договор.Сумма_ипотеки КАК Сумма_ипотеки,
                      |Кредитный_договор.Срок_выплат КАК Срок_выплат,
  |Кредитный_договор.Первоначальный_взнос КАК Первоначальный_взнос,
                      |Кредитный_договор.Дата_первого_взноса КАК Дата_первого_взноса
                      |ИЗ
                      |Документы.Кредитный_договор
                      |ГДЕ
                      |Документы.Кредитный_договор = &Документ";
РезультатЗапроса = Запрос.Выполнить().Выбрать();
   КонецПроцедуры

&НаКлиенте
Функция Сумма1 (Сумма_ипотеки, Первоначальный_взнос, Срок_выплат)
Возврат Сумма_ипотеки-Первоначальный_взнос;
КонецФункции
Функция СуммаЕжемесячногоПлатежа(Сумма1, Срок_выплат)
Возврат Сумма1/Срок_выплат;
КонецФункции
Процедура ТабличнаяЧасть1ПриИзменении(Элемент)
Стр = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
Для каждого Стр Из Объект.ТабличнаяЧасть1 Цикл
   Стр.Необходимая_сумма_платежа = СуммаЕжемесячногоПлатежа(Сумма1, Срок_выплат);
КонецЦикла;
КонецПроцедуры


wise

(0) похоже Вы в модуле команды обращаетесь к контексту формы...
это НЕ правильно.!! :befhbt:
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

sm14

Цитата: wise от 15 дек 2019, 22:23
(0) похоже Вы в модуле команды обращаетесь к контексту формы...
это НЕ правильно.!! :befhbt:


А где тогда прописывать команду для кнопки?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск