0
sysadminlk
14.10.14
✎
16:15
|
Раньше работала нормально, последний месяц что-то случилось с кодировкой
теперь вот так:
ПодключитьВнешнююКомпоненту("AddIn.DushelovICQ");
icq = СоздатьОбъект("AddIn.DushelovICQ");
icq.Соединиться(СокрЛП("login.icq.com"), "5190", СокрЛП("ххххххх"), СокрЛП("ххххххх"));
отсылаю так
Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
//ОбработакаICQ
Сообщить("Источник->"+Источник+" Событие->"+Событие+" Данные->"+Данные+"");
Если Событие = "КлиентСтатус" Тогда
icqСтатус = Данные;
Если icqСтатус = "Online" Тогда
Сообщить("!!!!!!!!!!!!!!!!!!!! ICQ подключено. !!!!!!!!!!!!!!!!!!!!","i");
СправСотрудн = СоздатьОбъект("Справочник.Сотрудники");
СправСотрудн.ВыбратьЭлементы();
Пока СправСотрудн.ПолучитьЭлемент() = 1 Цикл
Если (СправСотрудн.ICQ = 0) или (СправСотрудн.ПометкаУдаления() = 1) Тогда
Продолжить;
КонецЕсли;
Сообщить("ICQ: "+СправСотрудн.ICQ+"");
icq.ОтослатьСообщение("База уже загрузилась и готова к работе.
|"+Формат(ТекущаяДата() ,"Д ДДММММГГГГ")+" "+ТекущееВремя()+"", СокрЛП(Строка(СправСотрудн.ICQ)));
КонецЦикла;
КонецЕсли;
|
|