Выгрузка произвольной накладной в формате dbf 8.2

[alex9910]

Всем доброго времени суток.
Кто может подсказать как переделать данную обработку под 8.2 (профф) ?
Всем спасибо)

Код Выделить Развернуть

Процедура Сформировать()
//Создаем объект
База = СоздатьОбъект("XBASE");

//Указываем кодировку файла 1- DOS, 0 – Windows

База.КодоваяСтраница(1);

//Добавляем поля в DBF файл

База.ДобавитьПоле("TOVAR","C",25,);

База.ДобавитьПоле("KOLICH","N",14,3);

База.ДобавитьПоле("COST","N",15,2);

База.ДобавитьПоле("SUMMA","N",15,2);

//Создаем новый файл C:\nakl.dbf

//База.СоздатьФайл("C:\nakl.dbf");

Путь = "C:\nakl.DBF";

База.СоздатьФайл(Путь);

//Очищаем файл от записей, если они там есть

База.ОчиститьФайл();

//Будем выгружать данные из документа

Документ.ВыбратьСтроки();

Пока Документ.ПолучитьСтроку () = 1 Цикл

//Добавляем новую запись в DBF

База.Добавить();

База.TOVAR = Документ.Номенклатура.Наименование;

База.KOLICH = Документ.Количество;

База.COST = Документ.Цена;

База.SUMMA = Документ.Сумма;

//Записываем файл DBF

База.Записать();

КонецЦикла

КонецПроцедуры

[alex9910]

Вот  что получилось но как организовать цикл или подобное что бы считать переменные...

Код Выделить Развернуть

Процедура Сформировать()
//Создаем объект
//База = СоздатьОбъект("XBASE");
База = Новый XBase;

//База.КодоваяСтраница(0);
База.Кодировка = КодировкаXBase.OEM;
//Добавляем поля в DBF файл

База.Поля.Добавить ("TOVAR","C",25,);

База.Поля.Добавить ("KOLICH","N",14,3);

База.Поля.Добавить ("COST","N",15,2);

База.Поля.Добавить ("SUMMA","N",15,2);

База.СоздатьФайл("C:\nakl.DBF");
База.Записать();

//Очищаем файл

База.ОчиститьФайл();

Для Каждого Стр из Т Цикл

База.Добавить();

База.TOVAR = Стр.Нуменклатура;


База.Записать();

КонецЦикла;

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

КонецПроцедуы



[Dethmontt]

//Вот же у тебя цикл
Для Каждого Стр из Т Цикл

База.Добавить();

База.TOVAR = Стр.Нуменклатура;


База.Записать();

КонецЦикла;

[alex9910]

Dethmontt, что-то не работает..


Переменная не определена (Т)

[Dethmontt]

Код Выделить Развернуть

Для каждого Стр Из ИмяТабличнойЧасти Цикл
База.TOVAR = Стр.Номенклатура.Наименование;
КонецЦикла;
//Это если в модуле документа
//Если из обработки то нужно сначала указать документ


[Dethmontt]

Книженция - Радченко там все есть, открывай и читай...

[alex9910]

Dethmontt
тоже самое...

[Dethmontt]

Что тоже самое? Я тебе пример написал а не готовый код....

[alex9910]

Смог выгрузить наименования, кол-во и суммы

Номера и даты док-тов никак... Обыскал все

[sergejK74]

База.Date = Дата; (или Документ.Дата, зависит от твоего кода)
База.Number = Номер; (или Документ.Номер)
Как в дбф файл добавить поля дата и номер догадайся сам.