Добрый день. Данные УПП (1.3.66.1) , 1С:Предприятие 8.3 (8.3.10.2466)
Помогите пожалуйста.
Есть документ ГТД по импорту. Он создаётся на основании Поступления товаров и услуг и Поступление Товаров Услуг В НТТ
Необходимо прописать условие, по которому Если в документе-основании не стоит флажок ОтражатьВБухгалтерскомУчете , то и в документе ГТД по импорту он тоже не стоит
Процедура ОбработкаЗаполнения(Основание)
ПоступлениеТоваров = (ТипЗнч(Основание) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг"));
ПоступлениеТоваровНТТ = (ТипЗнч(Основание) = Тип("ДокументСсылка.ПоступлениеТоваровУслугВНТТ"));
Если ЗначениеЗаполнено(Основание) Тогда
Если НЕ Основание.ОтражатьВБухгалтерскомУчете Тогда
ОтражатьВБухгалтерскомУчете = Ложь;
КонецЕсли;
КонецЕсли;
Код можно сделать немного красивее:
Процедура ОбработкаЗаполнения(Основание)
Если ЗначениеЗаполнено(Основание) Тогда
ОтражатьВБухгалтерскомУчете = Основание.ОтражатьВБухгалтерскомУчете;
КонецЕсли;
//...
КонецПроцедуры
ОтражатьВБухгалтерскомУчете = Основание.ОтражатьВБухгалтерскомУчете;
Vofka @ Сегодня, 14:55
,
Итоговая задача звучит так:
Поставить реквизит "ОтражатьВБухгалтерскомУчете" документа ГТД по импорту в состояние Ложь и убрать доступность, если данный документ создаётся на основании Поступления товаров и услуг и Поступление Товаров Услуг В НТТ и в этих документах реквизит "ОтражатьВБухгалтерскомУчете" в состояние Ложь.
SemenYU @ Сегодня, 15:28
,
Важно именно прописать это при заполнении документа, чтоб пользователю не делать лишних движений и не обращать внимание на флажек бух. учёт
Флажок "ОтражатьВБухгалтерскомУчете" может установиться уже после ОбработкаЗаполнения(). См. модуль формы ПриОткрытии(). Там есть кусок типа
Если ЭтоНовый() Тогда
...
// Заполнить реквизиты значениями по умолчанию.
ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ЭтотОбъект, "Покупка",ПараметрОбъектКопирования);
...
КонецЕсли;
Если ЗначениеЗаполнено(ПараметрОснование) Тогда
ОтражатьВБухгалтерскомУчете = Основание.ОтражатьВБухгалтерскомУчете;
ЭлементыФормы.ОтражатьВБухгалтерскомУчете.Доступность = ОтражатьВБухгалтерскомУчете;
КонецЕсли;
Всем большое пасибо! Получилось!
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua