выгрузка в dbf
|
Anonymous
16.03.2009 - 22:00
|
делаю выгрузку из УТ дока реализация в дбф формат. Если есть примеры, скиньте пожалуйста. вот мой код: Перем КолвоСтрок; Процедура КнопкаВыполнитьНажатие(Кнопка) Состояние("Запущена выгрузка данных"); ПолучитьДанныеВТаблице(); Если КолвоСтрок<>0 Тогда ВыгрузитьТаблицуВФайл(); Иначе Сообщить("В документе табличная часть пуста!"); КонецЕсли; КонецПроцедуры Процедура ПолучитьДанныеВТаблице() //ТабЗнач = Новый("ТаблицаЗначений"); //ТабЗнач = Док.Товары.Выгрузить(,"Код,Номенклатура,Количество,Единица,Цена, Коэффициент, Сумма,СтавкаНДС,СуммаНДС,Всего"); КолвоСтрок = Док.Товары.Количество(); КонецПроцедуры Процедура ВыгрузитьТаблицуВФайл() ТабЗнач = Новый("ТаблицаЗначений"); ТабЗнач.НоваяКолонка("Код","Число",10,0); ТабЗнач.НоваяКолонка("Номенклатура","Справочник.Номенклатура"); ТабЗнач.НоваяКолонка("Количество","Число",10,2); ТабЗнач.НоваяКолонка("ЕдИзм","Справочник.ЕдиницыИзмерения"); ТабЗнач.НоваяКолонка("Цена","Число",10,2); ТабЗнач.НоваяКолонка("Коэф","Число",10,2); ТабЗнач.НоваяКолонка("Сумма","Число",10,2); ТабЗнач.НоваяКолонка("СтавкаНДС","Перечисление.СтавкиНДС"); ТабЗнач.НоваяКолонка("НДС","Число",10,2); ТабЗнач.НоваяКолонка("Всего","Число",10,2); ТабЗнач = Док.Товары.Выгрузить(,"Код,Номенклатура,Количество,Единица,Цена, Коэффициент, Сумма,СтавкаНДС,СуммаНДС,Всего"); БД = Новый XBase; БД.Поля.Добавить("CODE", "S", 5); БД.Поля.Добавить("NAME", "S", 40); БД.СоздатьФайл("C:\start.dbf",); //БД.Индексы.Добавить("IDXCODE", "CODE"); БД.АвтоСохранение = Истина; Пока ТабЗнач.Следующий() Цикл БД.Добавить(); БД.CODE = ТабЗнач.Код; БД.NAME = ТабЗнач.Номенклатура; КонецЦикла; БД.ЗакрытьФайл(); КонецПроцедуры делала по примеру. Вопрос что с ТЗ. не создает колонок. Подскажите |