Собственно, суть: делаю выгрузку документа из 1С 8.2 в ДБФ. Использую штатный объект ХВаse, код такой:

База = Новый XBase;
База.поля.Добавить(КодНом, "S", 20);
База.Кодировка = КодировкаXBase.OEM;
База.СоздатьФайл("C:\123.dbf");
База.АвтоСохранение = Истина;
Для Каждого Стр Из ТЗ Цикл
   База.Добавить();
   Выполнить("База." + КодНом + "= Стр[КодНом]");
   //База.Записать();
КонецЦикла;
//База.Записать();
База.ЗакрытьФайл();

Получается оч странно - через раз примерно сохраняет только последнюю запись в файл и все... Если отладчиком шагать, то всегда все норм.

Пробовал убирать автосохранение и добавлять Записать после каждого добавления записи - не помогло.

Как можно исправить данную ситуацию?

ЗЫ. Релиз платформы 8.2.14.540

что за Выполнить()? явно лишнее

(1) ну будет там База[КодНом]= Стр[КодНом];

(2) База.КодНом

И Поля.Добавить("КодНом"...)

(4) всё, понял

(5) молодец, TupakModa = off

ап ап ап

подождем крутых москалей...

fg

?

База.Записать();
База.ЗакрытьФайл();

Ну и автосохранение попытайся вырубить

в смысле не инициализировать

(11) см (0) - уже пробовал отключать автосохранение, ничего не поменялось

у меня так, все работало.

еще такой фрагмент там есть

//База.АвтоСохранение = Истина;
База.Записать();
...
База.Записать();
База.ЗакрытьФайл();

хотя... пофиг, от своих слов откажусь ка - не помню.

Но методом перебора у тя за 15 минут получится. Всего 6 вариантов

(15) уже 2 дня сношаемся - нереальный бубен получается - иной раз нажимаешь 2-3 раза подряд "Выгрузить" - уходит, иной раз - с первого

то, что у тебя записано должно работать
у меня.

...
//База.АвтоСохранение = Истина;
...
Пока Выборка.Следующий() Цикл
    ...
    База.Записать();
КонецЦикла;

База.ЗакрытьФайл();

Автосохранение, написано что записывается в файл, при очередном добавить()
Поэтому у тебя возможно выпадала последняя строчка

(18) блеааааааааать, какие вы все умные, все-таки... я же написал, что наоборот попадает только последняя строка, а не выпадает последняя

у меня все заработало, не так в твоем королекстве

блеать

последний мой код рабочий.
8.2.14.533
Вообще надо суметь 2 дня с перебором 10 вариаций проплюхаться

ап

мне смешно :)
я сказал что код проверил - файл сформировался нормально.

(23) а по-человечески если написать

База[КодНом]= Стр[КодНом];

тоже не получается? Или так

ЗаполнитьЗначенияСвойств(База, Стр);

(24) рад за тебя... могу еще раз повторить для "не таких как все" - выполнил 800 выгрузок, 350 нормальных, 450 - по 1 к

(25) не влияет, количество записей в базе не изменяется

делать постановки нормальные надо, тогда помогут

(26) уже что-то

удаляй файл после каждой выгрузки руками.
Напиши результат

при этом выгружая
и код проверочный минималистический
База.КодНом="D";

также по чьему коду идет проверка
По твоему или моему

и вообще, что мешает после каждого витка цикла смотреть, что в файл попало ?

тему закрываю, питрасянов впень! адо рулит

петросян то ты, нехрен на диск с писать . Возможно что-то с правами.

Сделал тестовый пример, первый раз пишет нормально на В7

второй раз не дает, другое название- первый раз дает записать.

Если бы выполнил мои последние инструкции, локализовал бы проблему быстрее

и вообще нельзя ДБФ файлы так делать
База.поля.Добавить(КодНом, "S", 20);
надо
База.поля.Добавить(KodNom, "S", 20);

тестовый пример на диск D - все идеально в управляемых формах

&НаКлиенте
Процедура Сформировать(Команда)
   СформироватьНаСервере()
КонецПроцедуры

&НаСервере
Процедура СформироватьНаСервере()

   База = Новый XBase;
   База.поля.Добавить("Nom", "S", 20);
   База.Кодировка = КодировкаXBase.OEM;
   База.СоздатьФайл("D:\1234.dbf");
   //База.АвтоСохранение = Истина;
   Для Стр=1 По 15 Цикл
       База.Добавить();
       База.Nom = "D";
       База.Записать();
   
   КонецЦикла;
   //База.Записать();
   
   База.ЗакрытьФайл();

КонецПроцедуры // СформироватьНаСервере()