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