Имя: Пароль:
1C
1C 7.7
v7: 77 по Вин 7, ДБФ создается, но записи не добавляются?
0 Semen
 
24.07.12
21:11
Создают объект Xbase, из запроса добавляю записи, но в результате пустой ДБФ файл
CSV создается нормально, таблица выводится нормально, а ДБФ пустой,

При попытке его открыть DBFviewer говорит, что испорчен заголовок

Текст:

   ДБВ = СоздатьОбъект("XBase");
   ДБВ.КодоваяСтраница(0);
   //ДБВ.АвтоСохранение(1);
   ДБВ.ДобавитьПоле("NumberDoc","String",12,);
   ДБВ.ДобавитьПоле("DataDoc","String",10,);
   ДБВ.ДобавитьПоле("Klient","String",70,);
   ДБВ.ДобавитьПоле("Period","String",20,);
   ДБВ.ДобавитьПоле("Summa","Number",10,2);
   ДБВ.ДобавитьПоле("NDS","Number",10,2);
   ДБВ.СоздатьФайл(ИмяФайла,);


//В цикле
Пока Запрос.Группировка(1) = 1 Цикл
ДБВ.Добавить();
           ДБВ.NumberDoc = Запрос.АктВыпРаб.НомерДок;
           ДБВ.DataDoc = Формат(Запрос.АктВыпРаб.ДатаДок,"Д ДДММГГГГ");
           ДБВ.Klient = СокрП(Запрос.Клиент.Наименование);
           ДБВ.Period = СокрП(Запрос.наПериод);
           ДБВ.Summa = Запрос.сумАкт;
           ДБВ.NDS = Запрос.НДС;
           ДБВ.Записать();

   КонецЦикла;
//Потом

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

Вроде задача простая, а резалта нет.
1 KRV
 
24.07.12
21:34
Заголовок поля нумбердок попробуй сократить до восьми символов
2 Semen
 
24.07.12
21:47
(1)Сократил до Numdoc

С тем же результатом.

Может Вин 7 выкоряживается?
3 Semen
 
24.07.12
22:01
Всё решил.

Тип полей задал по книжке, в которую вынужден был заглянуть

1 или "N"  число
2 или "S" строка
3 или "D" дата
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший