пополнение пластиковых карт

Доброе утро!делаю выгрузку з\п из ЗУП 2.5 для пополнения пластиковых карт в формате xml.все вроде как надо сделала,выдает ошибки.на данный момент такая
{ВнешняяОбработка.ВыгрузкаЗПвВяткаБанк.МодульОбъекта(136)}: Преобразование значения к типу Число не может быть выполнено
                Ном = Ном + 1;
хотя до этого ном я к нулю приравнивала,то есть он должен к нулю прибавлять 1. подскажите где не права

Функция ПолучитьЛицевойСчет(ФизЛицо, Организация, Банк) Экспорт

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

    ЗапросНаСуществование.УстановитьПараметр("ФизЛицо", ФизЛицо);
    ЗапросНаСуществование.УстановитьПараметр("Организация", Организация);
    ЗапросНаСуществование.УстановитьПараметр("Банк", Банк);
    Выборка = ЗапросНаСуществование.Выполнить().Выбрать();

    Если Выборка.Следующий() Тогда
        Возврат Выборка.НомерЛицевогоСчета;
    Иначе
        Возврат Неопределено;
    КонецЕсли;

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

Процедура Выгрузить() Экспорт

    //ТЧ = Документы.ЗарплатаКВыплатеОрганизаций.НайтиПоНомеру(номер).Зарплата;//чтобы не забыть
    ТЧ = СсылкаНаОбъект.Зарплата;
    Если НомерОтправки = 0 Тогда
        Сообщить("Номер отправки должен быть отличен от нуля!");
        Возврат;
    КонецЕсли;
    Если ТЧ.Количество() = 0 Тогда
        Сообщить("Табличная часть не заполнена");
        Возврат;
    КонецЕсли;

    Платеж = Новый Структура;
    Платеж.Вставить("Дата", "00010101");
    Платеж.Вставить("Организация", Справочники.Организации.ПустаяСсылка());
    Платеж.Вставить("Банк", Справочники.Контрагенты.ПустаяСсылка());


    Ведомости = Новый Массив;
    Если ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ПлатежноеПоручениеИсходящее") Тогда

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

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

        ЗапросПоДок.УстановитьПараметр("СсылкаНаОбъект", СсылкаНаОбъект);

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

    КонецЕсли;


    Текст = Новый ТекстовыйДокумент;
    Текст.ДобавитьСтроку("paycrum;1;1251;59;2;80##70#;"+Формат(ВыбДата, "ДЛФ=Д")+";"+НомерОтправки+";810;;Зачисление зарплаты;");

    Для каждого Ведомость ИЗ Ведомости Цикл

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


        ЗапросПоВедомости.УстановитьПараметр("Ссылка", Ведомость);
        ЗапросПоВедомости.УстановитьПараметр("Организация", Платеж.Организация);
        ЗапросПоВедомости.УстановитьПараметр("Банк", Платеж.Банк);

        ВыборкаФизЛиц = ЗапросПоВедомости.Выполнить().Выбрать();


        Пока ВыборкаФизЛиц.Следующий() Цикл

            Ном = 0;
            НаборЗаписей = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.СоздатьНаборЗаписей();

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


                //НомЛиц = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.ПолучитьФормуСписка();
                //Ном.Выбрать();

                Ном = Ном + 1;
                //ФИО = СокрЛП(СтрокаТЧ.Физлицо.Наименование);
                ВремСтрока = СокрЛП(СтрокаТЧ.Физлицо.Наименование);
                Фамилия = Сред(ВремСтрока,1,Найти(ВремСтрока," ")-1);
                ВремСтрока = СокрЛП(Сред(ВремСтрока,Найти(ВремСтрока," ")));
                Имя = Сред(ВремСтрока,1,Найти(ВремСтрока," ")-1);
                Отчество = СокрЛП(Сред(ВремСтрока,Найти(ВремСтрока," ")));
                ФИО = Фамилия+" "+Имя+" "+Отчество; //из-за лишних пробелов

                Текст.ДобавитьСтроку(НаборЗаписей.Получить().НомерЛицевогоСчета+";"+ФИО+";"+Формат(СтрокаТЧ.Сумма+СтрокаТЧ.КомпенсацияЗаЗадержкуЗарплаты,"ЧГ=0; ЧДЦ=2; ЧРД='.'"));
            //КонецЦикла;
            Текст.ДобавитьСтроку("summary;"+Ном+";"+Формат(ТЧ.Итог("Сумма")+ТЧ.Итог("КомпенсацияЗаЗадержкуЗарплаты"),"ЧГ=0; ЧДЦ=2; ЧРД='.'"));
            ПолноеИмяФайла = КаталогДляФайла+"\p"+ПрефиксОрганизации+"-"+Формат(ТЧ.Итог("Сумма")+ТЧ.Итог("КомпенсацияЗаЗадержкуЗарплаты"),"ЧГ=0; ЧДЦ=2; ЧРД='.'")+"."+ДеньГода(ВыбДата);
            Текст.Записать(ПолноеИмяФайла);

            Сообщить("Выгрузка успешно завершена. Созданный файл: "+ПолноеИмяФайла);
        КонецПроцедуры