v7: Один и тот же код не работает на некоторых компьютерах

Код для наглядности:

    Перем ИмяФайла, КаталогФайла;
    Перем НомерУПД;
    Перем ТЗКоды, ТЗШкоды;
    Перем ТекущаяПозиция;
    Перем ПризнакУчастника, ФорматДата;
    Перем Штрихкод;

    Процедура ПриОткрытии();
    КонецПроцедуры


Функция ЗаполнениеПоДокументуОснованию()

    Если ДокОснование.Выбран()=0 Тогда
        Возврат "Документ - основание не выбран!";
    КонецЕсли;

    ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
    ДокОснование.ВыгрузитьТабличнуюЧасть(ТаблицаДокумента);

    // очищаем наш документ
    УдалитьСтроки();

    СпрМ = СоздатьОбъект("Справочник.НоменклатураМаркировка");
    СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");

    ТаблицаДокумента.ВыбратьСтроки();
    Пока ТаблицаДокумента.ПолучитьСтроку()=1 Цикл
        Для инд = 1 По ТаблицаДокумента.Количество Цикл
            Если СпрМ.НайтиПоКоду(ТаблицаДокумента.Номенклатура.Код) = 1 Тогда
                НоваяСтрока();
                Номенклатура = ТаблицаДокумента.Номенклатура;
                КодТовара = СокрЛП(ТаблицаДокумента.Номенклатура.БазоваяЕдиница.ШтрихКод);
                Цена = ТаблицаДокумента.Цена;
                СтавкаНДС = ТаблицаДокумента.СтавкаНДС;
                СуммаНДС = Цена * (0.2);
            КонецЕсли;
        КонецЦикла;
    КонецЦикла; // по строкам основания

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

    Если ТаблицаДокумента.КоличествоСтрок() = 0 Тогда
        Сообщить("В документе основании не заполнена табличная часть");
    КонецЕсли;

    ТЗШкоды = СоздатьОбъект("ТаблицаЗначений");
    ВыгрузитьТабличнуюЧасть(ТЗШкоды);

    Возврат "";

КонецФункции // ЗаполнениеПоДокументуОснованию()

Процедура ВводНаОсновании(ДокОсн)
    ДокОснование = ДокОсн;
    Фирма = ДокОсн.Фирма;
    Контрагент = ДокОсн.Контрагент;
    Автор = ДокОсн.Автор;
    ЗаполнениеПоДокументуОснованию();
    НашИНН = ДокОсн.Фирма.ЮрЛицо.ИНН;
    КонтрИНН = Контрагент.ЮрФизЛицо.ИНН;
    ПризнакУчастника = ДокОсн.ПризнакУчастника;
    Если ПризнакУчастника = 1 Тогда
        ПризнакУчастника = "Да";
    Иначе
        ПризнакУчастника = "Нет";
    КонецЕсли;
    ФорматДата = Формат(ТекущаяДата(), "ДДДММГГГГ");
КонецПроцедуры

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
    // Процедура разбирает штрих-код, считанный сканером
    // и заполняет строки накладной
    Перем Упаковка,ТекКоличество, Спецификация;
    Перем ВремТовар, ВремЕдиница, ВремКоличество, ВремЦена;

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

        КонецЕсли;

        глСканерПосылкаДанных(1);
    Иначе
        глОбработкаВнешнегоСобытия(Источник, Событие, Данные);
    КонецЕсли;

КонецПроцедуры // ОбработкаВнешнегоСобытия()

Процедура Открыть()

    ТЗКоды = СоздатьОбъект("ТаблицаЗначений");
    ВыгрузитьТабличнуюЧасть(ТЗКоды);

    ИмяФайла = "Отгрузка.csv";
    КаталогФайла = "\\Server4\Обменник\ОтгрузкаМаркировка\";
    ПолноеНаименованиеФайла = КаталогФайла + ИмяФайла;
    РабочийСтол = "C:\Users\Dmitriy\Desktop\";
    НомерУПД = 123;
    Файл = СоздатьОбъект("Текст");
    Файл.ДобавитьСтроку("ИНН отправителя,ИНН получателя,ИНН собственника,Дата передачи товара,Номер первичного документа,Дата первичного документа,Вид оборота товаров,Причина вывода из оборота, Дата вывода из оборота,Идентификатор гос.контракта,Отгрузка неучастнику,Версия");
    Файл.ДобавитьСтроку(НашИНН + "," + КонтрИНН + "," + НашИНН + "," + ФорматДата + "," + НомерУПД + "," + ФорматДата + "," + "Продажа" + ",,,," + ПризнакУчастника + "," + "4");
    Файл.ДобавитьСтроку("Параметры товаров");
    Файл.ДобавитьСтроку("КИ,КИТУ,Цена за единицу,Сумма НДС");
    Для А = 1 По ТЗКоды.КоличествоСтрок() Цикл
        ПолучитьСтрокуПоНомеру(А);
        ТЗКоды.ПолучитьСтрокуПоНомеру(А);
        SGTIN = Сред(ТЗКоды.КодМаркировки, 1, 31);
        НайденныйСимвол = Найти(SGTIN, """");
        Файл.ДобавитьСтроку("""" + СтрЗаменить(СокрЛП(SGTIN),"""","""""") + """" + ",," + Цена + "," + СуммаНДС);
    КонецЦикла;
    Попытка
        Файл.Записать("\\Server4\Обменник\ОтгрузкаМаркировка\Отгрузка.csv");
    Если ФС.ВыбратьФайл(0,ИмяФайла,КаталогФайла,,"Все файлы (*.csv) |*.csv")=1 Тогда
         ЗапуститьПриложение("notepad.exe" + " " + ПолноеНаименованиеФайла);;
    КонецЕсли;

        //ФС.КопироватьФайл(ПолноеНаименованиеФайла,РабочийСтол, 1);
        //ФС.УдалитьФайл(ПолноеНаименованиеФайла);
    Исключение
        Предупреждение("Файл не сформирован! Проверьте правильность наполнения таблицы");
    КонецПопытки
КонецПроцедуры

Процедура Записать()
    Записать();
КонецПроцедуры

Ругает вот эту строку
ТЗШКоды.НайтиЗначение(ВремТовар, стр, "Номенклатура")