//Функция генерирует строку соединения с сервером через ODBC драйвер
Функция СформироватьСтрокуСоединенияСАстерискСервером(host,database,user,pass)
 
	СтрокаСоединения = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER="+host+"; DATABASE="+database+"; UID="+user+"; PWD="+pass; 
 
	Возврат СтрокаСоединения;
 
КонецФункции
 
//Функция возвращает информацию о факсах с сервера телефонии
Функция ВернутьЗаписиCDRПоФаксимильнымСообщениям(ДатаНачало, ДатаОкончания) Экспорт
 
	СтрокаСоединенияСАстерискСервером	=	СформироватьСтрокуСоединенияСАстерискСервером("ASTERISK_HOST","ASTERISK_cdrdb","ASTERISK_cdrdb_login","ASTERISK_cdrdb_password");
 
	ПараметрыСоединенияСАстерискомМИКО = Новый ПараметрыСоединенияВнешнегоИсточникаДанных; 
	ПараметрыСоединенияСАстерискомМИКО.СтрокаСоединения	= СтрокаСоединенияСАстерискСервером;
 
	ВнешниеИсточникиДанных.Asterisk.УстановитьОбщиеПараметрыСоединения(ПараметрыСоединенияСАстерискомМИКО); 
	ВнешниеИсточникиДанных.Asterisk.УстановитьСоединение(); 
 
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	               |	ВЫРАЗИТЬ(cdr.calldate КАК ДАТА) КАК calldate,
	               |	cdr.clid,
	               |	cdr.src,
	               |	cdr.dst,
	               |	cdr.dcontext,
	               |	cdr.channel,
	               |	cdr.dstchannel,
	               |	cdr.lastapp,
	               |	cdr.lastdata,
	               |	cdr.duration,
	               |	cdr.billsec,
	               |	cdr.disposition,
	               |	cdr.amaflags,
	               |	cdr.accountcode,
	               |	cdr.uniqueid,
	               |	cdr.userfield,
	               |	cdr.recordingfile
	               |ИЗ
	               |	ВнешнийИсточникДанных.Asterisk.Таблица.cdr КАК cdr
	               |ГДЕ
	               |	ВЫРАЗИТЬ(cdr.calldate КАК ДАТА) МЕЖДУ &НачалоДня И &КонецДня
	               |	И (cdr.lastapp = ""SendFAX""
	               |			ИЛИ cdr.lastapp = ""ReceiveFAX"")
	               |
	               |УПОРЯДОЧИТЬ ПО
	               |	calldate УБЫВ
	               |АВТОУПОРЯДОЧИВАНИЕ";
 
	Запрос.УстановитьПараметр("НачалоДня",ДатаНачало);
	Запрос.УстановитьПараметр("КонецДня",ДатаОкончания);
 
	Результат = Запрос.Выполнить();
 
	ТЗ=Результат.Выгрузить();
	Возврат ТЗ;
 
КонецФункции