загружаю фаил ".xls" через переработаную обработку клиент банка.
видает вот такую ошибку.
Не возможно загрузить данные из листа, по причине: {ВнешняяОбработка.КлиентБанк.МодульОбъекта(4182)}: Ошибка при вызове метода контекста (Cells): Произошла исключительная ситуация (0x800a03ec)
вигружаю из клиент банка ОТП в стандартную бухгалтерию для Украини (1.2.13.4)
1С:Предприятие 8.2 (8.2.17.169)
вот в етой строке ошибка:
ДатаИзФайлаСтр = СокрЛП(НашЛист.Cells(НомСтр,КолДатаДокумента).Text);
а вот код цикла
Для НомСтр = НачСтр По НашЛист.Cells(1,1).SpecialCells(11).Row Цикл
ДатаИзФайлаСтр = СокрЛП(НашЛист.Cells(НомСтр,КолДатаДокумента).Text);
ДатаИзФайла = Дата(Лев(ДатаИзФайлаСтр,4),Сред(ДатаИзФайлаСтр,6,2),Прав(ДатаИзФайлаСтр,2));
Если (ДатаИзФайла<=КонПериода) и (ДатаИзФайла>=НачПериода) Тогда
Таб = ДокументыДляИмпорта.Добавить();
Таб.Операция = "ПЛАТЕЖНОЕПОРУЧЕНИЕ";
Таб.Номер = СокрЛП(НашЛист.Cells(НомСтр,КолНомерДокумента).Text);
Таб.Дата = ПривестиЗначение(ДатаИзФайла);
Таб.Сумма = Формат(Число(НашЛист.Cells(НомСтр,КолСуммаДокумента).Value),"ЧГ=0");
Таб.НазначениеПлатежа = СокрЛП(НашЛист.Cells(НомСтр,КолКомментарий).Text);
Таб.ДатаСписано = ПривестиЗначение(ДатаИзФайла);
Таб.ДатаПоступило = ПривестиЗначение(ДатаИзФайла);
Таб.Плательщик = СокрЛП(НашЛист.Cells(НомСтр,КолНаименование_А).Value);
Таб.ПлательщикСчет = Формат(НашЛист.Cells(НомСтр,КолСчет_А).Value,"ЧГ=0");
Таб.ПлательщикМФО = Формат(НашЛист.Cells(НомСтр,КолМФО_А).Value,"ЧГ=0");
Таб.ПлательщикОКПО = Формат(НашЛист.Cells(НомСтр,КолОКПО_А).Value,"ЧГ=0");
Таб.Получатель = СокрЛП(НашЛист.Cells(НомСтр,КолНаименование_Б).Value);
Таб.ПолучательСчет = Формат(НашЛист.Cells(НомСтр,КолСчет_Б).Value,"ЧГ=0");
Таб.ПолучательМФО = Формат(НашЛист.Cells(НомСтр,КолМФО_Б).Value,"ЧГ=0");
Таб.ПолучательОКПО = Формат(НашЛист.Cells(НомСтр,КолОКПО_Б).Value,"ЧГ=0");
РаспознатьДанныеВСтрокеДокумента(Таб);
НомерСтроки = НомерСтроки + 1;
Таб.НомерСтроки = НомерСтроки;
// Для каждого реквизита (= колонка) надо проверить на пустое значение
Для каждого КолонкаИмпорта из ДокументыДляИмпорта.Колонки Цикл
ПроверитьНаПустоеЗначениеИмпорта(Таб, КолонкаИмпорта.Имя, КолонкаИмпорта.Заголовок);
КонецЦикла;
видает вот такую ошибку.
Не возможно загрузить данные из листа, по причине: {ВнешняяОбработка.КлиентБанк.МодульОбъекта(4182)}: Ошибка при вызове метода контекста (Cells): Произошла исключительная ситуация (0x800a03ec)
вигружаю из клиент банка ОТП в стандартную бухгалтерию для Украини (1.2.13.4)
1С:Предприятие 8.2 (8.2.17.169)
вот в етой строке ошибка:
ДатаИзФайлаСтр = СокрЛП(НашЛист.Cells(НомСтр,КолДатаДокумента).Text);
а вот код цикла
Для НомСтр = НачСтр По НашЛист.Cells(1,1).SpecialCells(11).Row Цикл
ДатаИзФайлаСтр = СокрЛП(НашЛист.Cells(НомСтр,КолДатаДокумента).Text);
ДатаИзФайла = Дата(Лев(ДатаИзФайлаСтр,4),Сред(ДатаИзФайлаСтр,6,2),Прав(ДатаИзФайлаСтр,2));
Если (ДатаИзФайла<=КонПериода) и (ДатаИзФайла>=НачПериода) Тогда
Таб = ДокументыДляИмпорта.Добавить();
Таб.Операция = "ПЛАТЕЖНОЕПОРУЧЕНИЕ";
Таб.Номер = СокрЛП(НашЛист.Cells(НомСтр,КолНомерДокумента).Text);
Таб.Дата = ПривестиЗначение(ДатаИзФайла);
Таб.Сумма = Формат(Число(НашЛист.Cells(НомСтр,КолСуммаДокумента).Value),"ЧГ=0");
Таб.НазначениеПлатежа = СокрЛП(НашЛист.Cells(НомСтр,КолКомментарий).Text);
Таб.ДатаСписано = ПривестиЗначение(ДатаИзФайла);
Таб.ДатаПоступило = ПривестиЗначение(ДатаИзФайла);
Таб.Плательщик = СокрЛП(НашЛист.Cells(НомСтр,КолНаименование_А).Value);
Таб.ПлательщикСчет = Формат(НашЛист.Cells(НомСтр,КолСчет_А).Value,"ЧГ=0");
Таб.ПлательщикМФО = Формат(НашЛист.Cells(НомСтр,КолМФО_А).Value,"ЧГ=0");
Таб.ПлательщикОКПО = Формат(НашЛист.Cells(НомСтр,КолОКПО_А).Value,"ЧГ=0");
Таб.Получатель = СокрЛП(НашЛист.Cells(НомСтр,КолНаименование_Б).Value);
Таб.ПолучательСчет = Формат(НашЛист.Cells(НомСтр,КолСчет_Б).Value,"ЧГ=0");
Таб.ПолучательМФО = Формат(НашЛист.Cells(НомСтр,КолМФО_Б).Value,"ЧГ=0");
Таб.ПолучательОКПО = Формат(НашЛист.Cells(НомСтр,КолОКПО_Б).Value,"ЧГ=0");
РаспознатьДанныеВСтрокеДокумента(Таб);
НомерСтроки = НомерСтроки + 1;
Таб.НомерСтроки = НомерСтроки;
// Для каждого реквизита (= колонка) надо проверить на пустое значение
Для каждого КолонкаИмпорта из ДокументыДляИмпорта.Колонки Цикл
ПроверитьНаПустоеЗначениеИмпорта(Таб, КолонкаИмпорта.Имя, КолонкаИмпорта.Заголовок);
КонецЦикла;
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот