Отбор Контрагента

[farrdo]

Привет всем
не могу сделать отбор контрагента
Этот код где надо изменить..или пожалуйста напишите код сюда в ответе


Процедура ПриОткрытии()
Если Открыта() Тогда
//УстановитьСтандартныйИнте рвалОтчета(ДатаНач,ДатаКон );
КонецЕсли;
ОбновитьПараметрыПериодаП оФорме(КомпоновщикНастрое� �,ЭтаФорма);
КонецПроцедуры


Процедура ДействияФормыПечать(Кнопк� �)
табдок = ЭлементыФормы.Результат;
табдок.Записать(КаталогВре менныхФайлов()+"\TABLE.xls",ТипФайлаТабличногоДокуме� �та.XLS97);
ЗапуститьПриложение(Катал� �гВременныхФайлов()+"\TABLE.xls");
КонецПроцедуры

Процедура ОбновитьПараметрыПериодаП оФорме(КомпоновщикНастрое� �, Форма) Экспорт

ЗначениеПараметраНачалоПе риода = КомпоновщикНастроек.Настр� �йки.ПараметрыДанных.Найти� �начениеПараметра(Новый ПараметрКомпоновкиДанных("ДатаНач"));
ЗначениеПараметраКонецПер иода = КомпоновщикНастроек.Настр� �йки.ПараметрыДанных.Найти� �начениеПараметра(Новый ПараметрКомпоновкиДанных("ДатаКон"));
ЗначениеПараметраСЧ = КомпоновщикНастроек.Настр� �йки.ПараметрыДанных.Найти� �начениеПараметра(Новый ПараметрКомпоновкиДанных("СЧ"));

Если ЗначениеПараметраНачалоПе риода <> Неопределено Тогда
ЗначениеПараметраНачалоПе риода.Значение = Форма.ДатаНач;
ЗначениеПараметраНачалоПе риода.Использование = (Форма.ДатаНач <> '0001-01-01');
КонецЕсли;

Если ЗначениеПараметраКонецПер иода <> Неопределено Тогда
ЗначениеПараметраКонецПер иода.Значение = ?(Форма.ДатаКон = '0001-01-01', Форма.ДатаКон, КонецДня(Форма.ДатаКон));
ЗначениеПараметраКонецПер иода.Использование = (Форма.ДатаКон <> '0001-01-01');
КонецЕсли;
Сч = Новый Массив;
Сч.Добавить("004");
Сч.Добавить("29.10");

Если ЗначениеПараметраСЧ <> Неопределено Тогда
ЗначениеПараметраСЧ.Значе� �ие = Сч;
ЗначениеПараметраСЧ.Испол� �зование = Истина;
КонецЕсли;

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

Процедура НастройкаПериодаНажатие(Э� �емент)
Если НП.Редактировать() Тогда
ДатаНач = НП.ПолучитьДатуНачала();
ДатаКон = НП.ПолучитьДатуОкончания();
ОбновитьПараметрыПериодаП оФорме(КомпоновщикНастрое� �,ЭтаФорма);
КонецЕсли;
КонецПроцедуры

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
НП = Новый НастройкаПериода;
НП.ВариантНастройки = ВариантНастройкиПериода.П� �риод;
НП.УстановитьПериод(Начало Дня(ДатаНач), ?(ДатаКон = '00010101', ДатаКон, КонецДня(ДатаКон)));
ОбновитьПараметрыПериодаП оФорме(КомпоновщикНастрое� �,ЭтаФорма);
КонецПроцедуры

Процедура КонтрагентПриИзмении(Элем� �нт)
ОбновитьПараметрыКонтраге нта(КомпоновщикНастроек,Эт аФорма);
КонецПроцедуры

Процедура ОбновитьПараметрыКонтраге нта(КомпоновщикНастроек, Форма) Экспорт

ЗначениеКонтрагент = КомпоновщикНастроек.Настр� �йки.ПараметрыДанных.Найти� �начениеПараметра(Новый ПараметрКомпоновкиДанных("Контрагент"));

Если ЗначениеКонтрагент <> Неопределено Тогда
ЗначениеКонтрагент .Значение = Форма.Контрагент;
ЗначениеКонтрагент .Использование = ЗначениеЗаполнено(Форма.Ко нтрагент);
КонецЕсли;
КонецПроцедуры