Ребята ругайте, что упустил?

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



Вываливается ошибка недостаточно памяти.

Памяти не хватает.

(1) +1

(0) да ты охренел??!!

пропущен важный шаг

.Следующая()

(0) Сколько записей удается проглотить до ошибки?!

(5) Упустил. Спасибо.

ФайлDBF.Следующая() нет внутри цикла.
Без конца цикл

(6) Забыл добавить ФайлDBF.Следующая()

(9) То есть количество записей тебе уже не интересно?!
:)))

(10) Нужны все без исключений, количество мне зачем?

ограничение на число строк в ТЧ 99999
иначе документ не запишется.

нравится ТС своим энтузиазмом... и даже не так раздражает смешными иногда вопросами ))

(12) Столько не будет точно
(13) Старина помоги лучше строку в дату преобразовать. Срок хранится в DBF как строка "01.01.2018"


// Преобразуем строку в дату
ЧислоДата = Число(СтрЗаменить(ФайлDBF.SROK, ".", ""));
НовСтрока.Срок = Формат(ЧислоДата,"ДФ=dd.MM.yyyy" );

В тч пишется пустое значение в поле срок

01012018 не является правильным литералом даты.

(16) угу

(14) ну распарси строку то на число, месяц и год, затем Дата = Дата(год, месяц, число);

http://helpme1c.ru/stroki-v-yazyke-1s-8-v-primerax
http://helpme1c.ru/rabota-s-tipom-data-v-yazyke-1s-8-v-primerax

(16) Почему??
Точки ведь есть. 01.01.2018

(19) убил ((

(19) плиз скажи 01.01.01 это какая дата?

(21) неудачный пример )) 01.02.03 - это какая дата?

(22) это невозможно сказать.

Разве не для этих целей есть Форматная Строка?

Конкретно в моем случае 01.01.2018 понятно ведь, что dd.MM.yyyy

(22) Заметил кстати что вы ко мне неравнодушны)

(25) ненене, тьфу-тьфу-тьфу )) я не из заднеприводных

(24) это человеку понятно и то не каждому (летоисчисления то разные бывают)
а компьютеру нужно сказать где год, где месяц а где число
и не так, а правильно сказать

(24) Пиши 20180101

(27) я исхожу из того что есть. Файл ко мне приходит таким

(28) ну так переверни кодом то

(29)         
Если ЗначениеЗаполнено(ФайлDBF.SROK) Тогда
    ЗначениеДата = ФайлDBF.SROK;
    НовСтрока.Срок = Дата(Прав(ЗначениеДата, 4),Сред(ЗначениеДата, 4, 2), Лев(ЗначениеДата, 2));
КонецЕсли;