Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Ошибка при выгрузке данных из Excel в 1с

Михаил Колупаев Профи (610), на голосовании 22 часа назад
Нужно выгрузить данные из Excel в 1с. Выгружаю через табличный документ, однако в строке, где начинается цикл возникает ошибка "Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата)". Ниже оставлю процедуру, возможно ошибка где-то в ней.

Процедура ПолучитьДоговораНаСервере()

ТабДок=Новый ТабличныйДокумент;

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

КоличествоСтрок=ТабДок.ВысотаТаблицы;

ДанныеФайла=Новый ТаблицаЗначений;
ДанныеФайла.Колонки.Добавить("Дата");
ДанныеФайла.Колонки.Добавить("Номер");
ДанныеФайла.Колонки.Добавить("ТипДокумента");
ДанныеФайла.Колонки.Добавить("Организация");
ДанныеФайла.Колонки.Добавить("Сотрудник");
ДанныеФайла.Колонки.Добавить("Сумма");
ДанныеФайла.Колонки.Добавить("Начало");
ДанныеФайла.Колонки.Добавить("Окончание");
ДанныеФайла.Колонки.Добавить("МесяцНачисления");
ДанныеФайла.Колонки.Добавить("Комментарий");


Для НомерСтроки=2 по ДанныеФайла Цикл

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