Нужно выгрузить данные из Excel в 1с. Выгружаю через табличный документ, однако в строке, где начинается цикл возникает ошибка "Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата)". Ниже оставлю процедуру, возможно ошибка где-то в ней.
Процедура ПолучитьДоговораНаСервере()
ТабДок=Новый ТабличныйДокумент;
Попытка ТабДок.Прочитать(Объект.ПутьКФайлу,СпособЧтенияЗначенийТабличногоДокумента.Значение); Исключение Сообщение=Новый СообщениеПользователю; Сообщение.Текст="Не удалось прочитать файл по причине"+ОписаниеОшибки(); Сообщение.Сообщить(); Возврат; КонецПопытки;
Процедура ПолучитьДоговораНаСервере()
ТабДок=Новый ТабличныйДокумент;
Попытка
ТабДок.Прочитать(Объект.ПутьКФайлу,СпособЧтенияЗначенийТабличногоДокумента.Значение);
Исключение
Сообщение=Новый СообщениеПользователю;
Сообщение.Текст="Не удалось прочитать файл по причине"+ОписаниеОшибки();
Сообщение.Сообщить();
Возврат;
КонецПопытки;
КоличествоСтрок=ТабДок.ВысотаТаблицы;
ДанныеФайла=Новый ТаблицаЗначений;
ДанныеФайла.Колонки.Добавить("Дата");
ДанныеФайла.Колонки.Добавить("Номер");
ДанныеФайла.Колонки.Добавить("ТипДокумента");
ДанныеФайла.Колонки.Добавить("Организация");
ДанныеФайла.Колонки.Добавить("Сотрудник");
ДанныеФайла.Колонки.Добавить("Сумма");
ДанныеФайла.Колонки.Добавить("Начало");
ДанныеФайла.Колонки.Добавить("Окончание");
ДанныеФайла.Колонки.Добавить("МесяцНачисления");
ДанныеФайла.Колонки.Добавить("Комментарий");
Для НомерСтроки=2 по ДанныеФайла Цикл
СтрокаТаблица=ДанныеФайла.Добавить();
СтрокаТаблица.Дата=ТекущаяДата();
СтрокаТаблица.Номер=ТабДок.Область("R"+Формат(СтрокаТаблица,"ЧГ=0")+"С"+6).ТекущаяОбласть.Текст; ;
СтрокаТаблица.ТипДокумента=Документы.ДоговорРаботыУслуги;
СтрокаТаблица.Огранизация=Справочники.Организации.НайтиПоРеквизиту("ГоловнаяОрганизация");
СтрокаТаблица.Сотрудник=ТабДок.Область("R"+Формат(СтрокаТаблица,"ЧГ=0")+"С"+2).ТекущаяОбласть.Текст;
ЧетвертаяКолонка=ТабДок.Область("R"+Формат(СтрокаТаблица,"ЧГ=0")+"С"+4).ТекущаяОбласть.Текст;
Если ЧетвертаяКолонка="ВСЕГО НАЧИСЛЕНО" Тогда
СтрокаТаблица.Сумма=ТабДок.Область("R"+Формат(СтрокаТаблица,"ЧГ=0")+"С"+5).ТекущаяОбласть.Текст;
КонецЕсли;
СтрокаТаблица.Начало=Объект.ДатаНачала;
СтрокаТаблица.Окончание=Объект.ДатаОкончания;
СтрокаТаблица.МесяцНачисления=Объект.Месяц;
СтрокаТаблица.Комментарий="";
КонецЦикла;
КонецПроцедуры