Фоновое задание

А теперь жалоба:

Создал общий модуль не глобальный ОбменДаннымиВФорматеXML "свойства" клиент, сервер

Регламентное задание с ссылкой на модуль:

//Процедура запускает последовательный экспорт в XML ("4 файла")
//
Процедура РегламентногоЗаданияЧетырех() Экспорт

#Если Клиент Тогда
Сообщить("Задания запущены! " + ТекущаяДата());
#КонецЕсли

ОбменДаннымиЭкспортСписокКонтрагентов();
//РаботаСШинамиИДисками.ОбменДаннымиЭкспортОстатков();
//РаботаСШинамиИДисками.ОбменДаннымиЭкспортЗаказПокупателя();
//РаботаСШинамиИДисками.ОбменДаннымиЭкспортСвязиСоотношений();

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

//Процедура запускает механизм экспорта Списка контрагентов
//
Процедура ОбменДаннымиЭкспортСписокКонтрагентов() Экспорт
ВыборкаУзлов = ПланыОбмена.ОбменДаннымиЗаказами.Выбрать();

Пока ВыборкаУзлов.Следующий() Цикл
//произвести обмен данными со всеми узлами
//кроме текущого (ЭтотУзел)
Если ВыборкаУзлов.Ссылка <> ПланыОбмена.ОбменДаннымиЗаказами.ЭтотУзел() Тогда
УзелОбъект = ВыборкаУзлов.ПолучитьОбъект();

УзелОбъект.ЗаписатьВXMLСписокКонтрагентов();

КонецЕсли;
КонецЦикла;
КонецПроцедуры

А вот и сама процедура она в модуле плана обменов

//Процедура Экспортирует список контрагентов
//
Процедура ЗаписатьВXMLСписокКонтрагентов() Экспорт

Каталог = Константы.КаталогЭкспортаXML.Получить();//КаталогВременныхФайлов();

Если НЕ ЗначениеЗаполнено(Каталог) Тогда
//ОстановкаРегламентныхЗаданий();
Возврат;
КонецЕсли;

//Сформировать имя временного файла
//ИмяФайла = Каталог + ?(Прав(Каталог,1)="\","","\") + "ExportListClient.xml";
ИмяФайла = Каталог + ?(Прав(Каталог,1)="\","","\") + "file1.xml";

Если РаботаСШинамиИДисками.ПроверитьСуществованиеФайла(ИмяФайла) Тогда
Возврат; //если файл существует нельзя его менять
КонецЕсли;

#Если Клиент Тогда
Состояние("Обмен данными... (список контрагентов)");
#КонецЕсли

//Создать объект записи XML
//**** запись XML-документов
//
ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.ОткрытьФайл(ИмяФайла);
ЗаписьXML.ЗаписатьОбъявлениеXML();

////*** инфраструктура сообщений
ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();
ЗаписьСообщения.НачатьЗапись(ЗаписьXML,Ссылка);

СписокКонтрагентов = РаботаСШинамиИДисками.ПолучитьКатегориюРазрешитьДоступВЮниполКлиент();

Запрос = Новый Запрос("ВЫБРАТЬ
| ВзаиморасчетыСКонтрагентамиОстатки.Контрагент,
| СУММА(ВзаиморасчетыСКонтрагентамиОстатки.СуммаВзаиморасчетовОстаток) КАК СуммаВзаиморасчетовОстаток
|ИЗ
| РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки КАК ВзаиморасчетыСКонтрагентамиОстатки
|ГДЕ
| ВзаиморасчетыСКонтрагентамиОстатки.Контрагент В(&СписокКонтрагентов)
|
|СГРУППИРОВАТЬ ПО
| ВзаиморасчетыСКонтрагентамиОстатки.Контрагент");

Массив = СписокКонтрагентов.ВыгрузитьКолонку("Объект");
СписокФильтр = Новый СписокЗначений;
СписокФильтр.ЗагрузитьЗначения(Массив);
Запрос.УстановитьПараметр("СписокКонтрагентов",СписокФильтр);
РезультатЗапроса = Запрос.Выполнить().Выгрузить();

Для Каждого КонтрагентСсылка Из СписокКонтрагентов Цикл

СписокКонтактИнформации = РаботаСШинамиИДисками.ПолучитьКонтактнуюИнформациюКонтрагента(КонтрагентСсылка.Объект,Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтрагентаДляОбменаДокументами);

ЕМайл = "";
номВхожд = 0;
Для Каждого АдресаЕктроннойПочты Из СписокКонтактИнформации Цикл

номВхожд = номВхожд +1;
ЕМайл = ЕМайл + АдресаЕктроннойПочты.Представление+?(СписокКонтактИнформации.Количество()<> номВхожд,";","") ;

КонецЦикла;

Если НЕ ЗначениеЗаполнено(ЕМайл) Тогда
Сообщить("У контрагента: " + КонтрагентСсылка.Объект.Код + " " + КонтрагентСсылка.Объект + " не заполнен Е-Майл, в список обмена он непопадет" ,СтатусСообщения.Важное);
Продолжить;
КонецЕсли;

НомВхОбезСимвСобачка = Найти(ЕМайл,"@");
НомВхОбезСимвТочка = Найти(ЕМайл,".");

Если (НомВхОбезСимвСобачка = 0)
ИЛИ (НомВхОбезСимвТочка = 0) Тогда
Сообщить("У контрагента: " + КонтрагентСсылка.Объект.Код + " " + КонтрагентСсылка.Объект + " не коректный Е-Майл, в список обмена он непопадет" ,СтатусСообщения.Важное);
Продолжить;
КонецЕсли;

СтрокаССальдо = РезультатЗапроса.Найти(КонтрагентСсылка.Объект,"Контрагент");
СуммаВзаиморасчетовОстаток = 0;
Если НЕ СтрокаССальдо = Неопределено Тогда
СуммаВзаиморасчетовОстаток = СтрокаССальдо.СуммаВзаиморасчетовОстаток;
КонецЕсли;

Подключен = РаботаСШинамиИДисками.ПолучитьКатегорииКонтрагентов(КонтрагентСсылка.Объект,Константы.КатегорияПодключен.Получить()).Категория;
КатегорияЗаблокирован = РаботаСШинамиИДисками.ПолучитьКатегорииКонтрагентов(КонтрагентСсылка.Объект,Константы.КатегорияЗаблокирован.Получить()).Категория;
КатегорияОбрезатьОстатки = РаботаСШинамиИДисками.ПолучитьКатегорииКонтрагентов(КонтрагентСсылка.Объект,Константы.КатегорияОбрезатьОстатки.Получить()).Категория;
КатегорияВидетьПолныеОстатки = РаботаСШинамиИДисками.ПолучитьКатегорииКонтрагентов(КонтрагентСсылка.Объект,Константы.КатегорияВидетьПолныеОстатки.Получить()).Категория;

ЗаписьXML.ЗаписатьНачалоЭлемента("SprObject.Client");//<SprObject.Контрагенты>

ЗаписьXML.ЗаписатьБезОбработки("<CodeClient>" +КонтрагентСсылка.Объект.Код +"</CodeClient>" );
ЗаписьXML.ЗаписатьБезОбработки("<Client>" +КонтрагентСсылка.Объект +"</Client>" );
ЗаписьXML.ЗаписатьБезОбработки("<CodeRegistration>" +КонтрагентСсылка.Объект.КодРегистрационный +"</CodeRegistration>" );
ЗаписьXML.ЗаписатьБезОбработки("<Blocked>" +?(ЗначениеЗаполнено(КатегорияЗаблокирован),"ИСТИНА","ЛОЖЬ") +"</Blocked>" );
ЗаписьXML.ЗаписатьБезОбработки("<CutRests>" +?(ЗначениеЗаполнено(КатегорияОбрезатьОстатки),"ИСТИНА","ЛОЖЬ") +"</CutRests>" );
ЗаписьXML.ЗаписатьБезОбработки("<SeeFullRests>" +?(ЗначениеЗаполнено(КатегорияВидетьПолныеОстатки),"ИСТИНА","ЛОЖЬ") +"</SeeFullRests>" );
ЗаписьXML.ЗаписатьБезОбработки("<NumberColumnPrice>" + "" +"</NumberColumnPrice>");
ЗаписьXML.ЗаписатьБезОбработки("<Balance>" + СуммаВзаиморасчетовОстаток +"</Balance>");
ЗаписьXML.ЗаписатьБезОбработки("<EMail>" +ЕМайл+"</EMail>");

//ЗаписьXML.ЗаписатьБезОбработки("<Подключен>" +?(ЗначениеЗаполнено(Подключен),"ИСТИНА","ЛОЖЬ") +"</Подключен>");
//ЗаписьXML.ЗаписатьБезОбработки("<ТипЦен>" +КонтрагентСсылка.Объект.ОсновнойДоговорКонтрагента.ТипЦен+"</ТипЦен>");
//ЗаписьXML.ЗаписатьБезОбработки("<ПроцентСкидки>" +""+"</ПроцентСкидки>");

ЗаписьXML.ЗаписатьКонецЭлемента(); //<SprObject.Контрагенты>
КонецЦикла;

ЗаписьСообщения.ЗакончитьЗапись();
ЗаписьXML.Закрыть();
#Если Клиент Тогда
Сообщить("------- Конец выгрузки контрагентов-------");
Сообщить("Файл экспорта тут --> " + ИмяФайла, СтатусСообщения.Информация);
#КонецЕсли

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

Внимание валится в консоле с шибкой:

{ОбщийМодуль.РаботаСШинамиИДисками(1178,100)}: Переменная не определена (глТекущийПользователь)

Он заходит в Общий модуль ОбщийМодуль.РаботаСШинамиИДисками так как я его вызывал в этом месте

СписокКонтрагентов = РаботаСШинамиИДисками.ПолучитьКатегориюРазрешитьДоступВЮниполКлиент();

Но эта функция запрос строит всеволиж:

//Получение Категории РазрешитьДоступВЮниполКлиент
//Возврат ТаблицаЗначений
Функция ПолучитьКатегориюРазрешитьДоступВЮниполКлиент() Экспорт

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ВыбКатегория",Константы.РазрешитьДоступВЮниполКлиент.Получить());

Запрос.Текст =
"ВЫБРАТЬ
| КатегорииОбъектов.Объект
|ИЗ
| РегистрСведений.КатегорииОбъектов КАК КатегорииОбъектов
|ГДЕ
| КатегорииОбъектов.Категория = &ВыбКатегория";

РезультатЗапроса = Запрос.Выполнить().Выгрузить();

Возврат РезультатЗапроса;

КонецФункции

А какого он хрена матерится на совем другую процедуру в этом модулю когда я ее нигде не вызываю!!!

матерится на это место

ДокументЗаказСсылка.Организация = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ОсновнаяОрганизация");

Но это вообще совсем левая процедура, она просто лежит в этом общем модуле!