&НаСервере

Процедура ДляКаждогоИзСписокXDTO(СписокXDTO, Делегат)



	Если ТипЗнч(СписокXDTO) = Тип("СписокXDTO") Тогда

				

		Для Каждого Строка Из СписокXDTO Цикл

			

			Выполнить(Делегат + "(Строка);");



		КонецЦикла;

	

	ИначеЕсли ТипЗнч(СписокXDTO) = Тип("ОбъектXDTO") Тогда

			

		Выполнить(Делегат + "("СписокXDTO);");

			

	КонецЕсли;

	

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

 // Контрагенты

ДляКаждогоИзСписокXDTO(ПолученныеДанные.Clients.Client, "ЗаписатьСтрокуКонтрагент"); 

   

 &НаСервере

Процедура ЗаписатьСтрокуКонтрагент(Client)

	

	СтрокаКонтрагент = ТаблицаКонтрагенты.Добавить();

	СтрокаКонтрагент.НаименованиеПолное = ?(ТипЗнч(Client.name) = Тип("Строка"), Client.name, "");

	СтрокаКонтрагент.ТелефонКонтрагента = ?(ТипЗнч(Client.phone) = Тип("Строка"), Client.phone, "");

	

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