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