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 = Запрос.НДС;
ДБВ.Записать();
КонецЦикла;
//Потом
ДБВ.ЗакрытьФайл();
Вроде задача простая, а резалта нет.
|
|