Здравствуйте друзья, есть документ оформление долга.. Проблема в чем мне нужно было при выборе контрагента что бы показывал мне его долг или если иначе то мой долг.. Написал код...
Переменная = Новый Структура;
Переменная.Вставить("Контрагент",Объект.Контрагент);
Табостатки = РегистрыНакопления.РассчетДолга.Остатки(ТекущаяДата(),Переменная);
Долг = " ";
Элементы.Текст.Заголовок = Долг;
Если Табостатки.Количество() = 0 Тогда
Возврат;
КонецЕсли;
СтрокаОстаток = Табостатки[0];
Остаток = СтрокаОстаток.Сумма;
ЗаголовокНашДолг = "Мой Долг ";
ЗаголовокДолгКонтрагента = "Долг Контрагента ";
Если Остаток < 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокДолгКонтрагента + Остаток + " AZN";
ИначеЕсли
Остаток > 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокНашДолг + Остаток + " AZN";
КонецЕсли;
Теперь Нужно при открытие сделать так что бы например я открыл документ уже готовый и там все таки показал долг. Но один и тот же код скапировать и поставить на событие при открытие не тот эффект потому что покажет мне на текущую дату долг. а Мне нужно вроде бы на момент времени...
ПРобовал так что "Обьект.ссылка.Моментвремени". Но при открытие задает ошибку элемент не выбран...
Прошу помочь
Переменная = Новый Структура;
Переменная.Вставить("Контрагент",Объект.Контрагент);
Табостатки = РегистрыНакопления.РассчетДолга.Остатки(ТекущаяДата(),Переменная);
Долг = " ";
Элементы.Текст.Заголовок = Долг;
Если Табостатки.Количество() = 0 Тогда
Возврат;
КонецЕсли;
СтрокаОстаток = Табостатки[0];
Остаток = СтрокаОстаток.Сумма;
ЗаголовокНашДолг = "Мой Долг ";
ЗаголовокДолгКонтрагента = "Долг Контрагента ";
Если Остаток < 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокДолгКонтрагента + Остаток + " AZN";
ИначеЕсли
Остаток > 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокНашДолг + Остаток + " AZN";
КонецЕсли;
Теперь Нужно при открытие сделать так что бы например я открыл документ уже готовый и там все таки показал долг. Но один и тот же код скапировать и поставить на событие при открытие не тот эффект потому что покажет мне на текущую дату долг. а Мне нужно вроде бы на момент времени...
ПРобовал так что "Обьект.ссылка.Моментвремени". Но при открытие задает ошибку элемент не выбран...
Прошу помочь
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Спасибо сделал очень просто, поставил условие на контрагент.
&НаСервере
Процедура ПриОткрытииНаСервере()
если ЗначениеЗаполнено(Объект.Контрагент) тогда
Переменная = Новый Структура;
Переменная.Вставить("Контрагент",Объект.Контрагент);
Табостатки = РегистрыНакопления.РассчетДолга.Остатки(Объект.Ссылка.МоментВремени(),Переменная);
Долг = " ";
Элементы.Текст.Заголовок = Долг;
Если Табостатки.Количество() = 0 Тогда
Возврат;
КонецЕсли;
СтрокаОстаток = Табостатки[0];
Остаток = СтрокаОстаток.Сумма;
ЗаголовокНашДолг = "Мой Долг ";
ЗаголовокДолгНам = "Долг Контрагента ";
Если Остаток < 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокДолгНам + Остаток + " AZN";
ИначеЕсли
Остаток > 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокНашДолг + Остаток + " AZN";
КонецЕсли;
ИначеЕсли Объект.Контрагент.Пустая() Тогда
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриОткрытииНаСервере()
если ЗначениеЗаполнено(Объект.Контрагент) тогда
Переменная = Новый Структура;
Переменная.Вставить("Контрагент",Объект.Контрагент);
Табостатки = РегистрыНакопления.РассчетДолга.Остатки(Объект.Ссылка.МоментВремени(),Переменная);
Долг = " ";
Элементы.Текст.Заголовок = Долг;
Если Табостатки.Количество() = 0 Тогда
Возврат;
КонецЕсли;
СтрокаОстаток = Табостатки[0];
Остаток = СтрокаОстаток.Сумма;
ЗаголовокНашДолг = "Мой Долг ";
ЗаголовокДолгНам = "Долг Контрагента ";
Если Остаток < 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокДолгНам + Остаток + " AZN";
ИначеЕсли
Остаток > 0 Тогда
Элементы.Текст.Заголовок = ЗаголовокНашДолг + Остаток + " AZN";
КонецЕсли;
ИначеЕсли Объект.Контрагент.Пустая() Тогда
КонецЕсли;
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот