| Nodir2525 
								Участник  Offline | 
								|  | « Ответ #7 : 07-10-2010 04:42 »  |  | 
 
 Вот у меня модуль Документа – Документ.ВводНовыхКлиентов.Процедура ОбработкаПроведения()
 СпрК=СоздатьОбъект("Справочник.Контрагент");
 СпрК.Новый();
 СпрК.Наименование=СокрЛП(Фамилия)+" "+СокрЛП(Имя)+" "+СокрЛП(Отчество);
 СпрК.Записать();
 УстановитьРеквизитСправочника(СпрК,"Фамилия",Фамилия,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"Имя",Имя,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"Отчество",Отчество,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ДокументНомер",ДокументНомер,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ДокументСерия",ДокументСерия,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ДокументДатаВыдачи",ДокументДатаВыдачи,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ДокументКемВыдан",ДокументКемВыдан,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ЮридическиеАдрес",ЮридическиеАдрес,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"КодСОАТОЮрАдрес",КодСОАТОЮрАдрес,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ПочтовыйИндексЮр",ПочтовыйИндексЮр,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ПочтовыйАдрес",ПочтовыйАдрес,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"КодСОАТОПочАдрес",КодСОАТОПочАдрес,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"ПочтовыйИндексПоч",ПочтовыйИндексПоч,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"Регион",Регион,ДатаДок);
 УстановитьРеквизитСправочника(СпрК,"Страна",Страна,ДатаДок);
 КонецПроцедуры
 
 Здесь добавить-?
 ЮридическиеАдрес=КодировкаАдрес.Наименование;
 
 |