v8: Автоподстановка расчетного счета контрагента

 

	ЭлементыФормы.СчетКонтрагента.ВыборПоВладельцу=Контрагент;



	СчетКонтрагента = Контрагент.ОсновнойБанковскийСчет;



   

 СтрокаТабличнойЧасти = ЭлементыФормы.ИмяТабЧасти.ТекущиеДанные;

СтрокаТабличнойЧасти.СчетКонтрагента = Контрагент.ОсновнойБанковскийСчет;   

 Процедура ЗаполнениеКонтрагентДоговорРасчетныеСчета(Контрагент,Договор,РасчетныеСчета) Экспорт

	Если ЗначениеЗаполнено(Контрагент) Тогда

		Договор = Контрагент.Договор;

		РасчетныеСчета=Контрагент.РасчетныеСчета;

	Иначе

		Договор = Справочники.Контрагенты_Договора.ПустаяСсылка();

		РасчетныеСчета=Справочники.Контрагенты_РасчетныеСчета.ПустаяСсылка();

	КонецЕсли;

КонецПроцедуры   

 

Процедура ЗаполнениеКонтрагентДоговорРасчетныеСчета(Контрагент,СчетКонтрагента) Экспорт

	Если ЗначениеЗаполнено(Контрагент) Тогда

		СчетКонтрагента=Контрагент.ОсновнойБанковскийСчет;

	Иначе

		СчетКонтрагента=Справочники.БанковскиеСчета.ПустаяСсылка();

	КонецЕсли;

КонецПроцедуры   

Процедура КонтрагентПриИзменении(Элемент)



	// проставим основной договор контрагента

	ПриИзмененииКонтрагента();	

	

	ЗаполнениеКонтрагентДоговорРасчетныеСчета(Контрагент, СчетКонтрагента);	

	

	ПриИзмененииДоговора();

	

	УстановитьФокус();



КонецПроцедуры // КонтрагентПриИзменении()