Уважаемые прошу помощи. Пытаюсь сделать выгрузку документа ттн из 7.7 самописной в 8 бп 2.0. При выгрузке табличной части товаров выгружаются документ в одну строку и в поле товары попадает только последнее поле из табличной часть хотя там их 10-ки. Помогите плз.

никто не знает. показать код ты же не желаешь

(1) Извиняйте пожалуйста
//*******************************************
Процедура Сформировать()
     //Подключиться к Excel
//Попытка
  //  Эксель = СоздатьОбъект("Excel.Application");
//Исключение
  //  Сообщить(ОписаниеОшибки() + "Exсel не загрузился почему-то");
    //Возврат;
//КонецПопытки;

//Книга = Эксель.WorkBooks.Add();
//Открыть файл
//Книга = Эксель.WorkBooks.Open("c:\123.XLS");
НомерСтроки=1;
//Лист = Книга.WorkSheets("Лист1");
Файл = создатьОбъект("XBASE"); //создаем ссылку на файл DBF


Файл.ДобавитьПоле("NOMERDOK","S",15,0);
Файл.ДобавитьПоле("DATADOK","D",11,0);
Файл.ДобавитьПоле("POKUPATEL","S",50,0);
Файл.ДобавитьПоле("SKLAD","S",50,0);
Файл.ДобавитьПоле("TOVAR","S",50,0);
Файл.ДобавитьПоле("KOLVO","N",10,2);
Файл.ДобавитьПоле("CENA","N",10,2);
Файл.ДобавитьПоле("SUMMA","N",10,2);
Файл.ДобавитьПоле("NDS","N",10,0);
Файл.СоздатьФайл("c:\ttn.dbf"); //создаем файл физически

Док = СоздатьОбъект("Документ.ТТН");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент() = 1 Цикл
//Если Док.Вид() = “ВидДокумента“ Тогда
// Далее идет собственно обход строк
    Файл.Добавить();
       Файл.NOMERDOK = Док.НомерДок;
    сообщить(Док.НомерДок);
    сообщить(Док.ДатаДок);
    Файл.DATADOK = Док.ДатаДок;     
    Файл.POKUPATEL = Док.Покупатель.Наименование;
    Файл.SKLAD = Док.Склад.Наименование;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 Цикл
//    Док.ВыбратьСтроки();
//Файл.Добавить();
товар1=Док.Товар;
СтавкаНДС=товар1.Номенклатура.СтавкаНДС.Получить(Док.ДатаДок);
сообщить(НомерСтроки);
Файл.TOVAR = Док.Товар.Наименование;
сообщить (Док.Товар.Наименование);
Файл.KOLVO = Док.Количество;
Файл.CENA = Док.Цена;
Файл.SUMMA = Док.Сумма;
Файл.NDS = СтавкаНДС;
НомерСтроки=НомерСтроки+1;
//Файл.Добавить();
//КонецЦикла;     
// Обработка строки документа
// Доступ к реквизитам строки документа происходит через Док.Реквизит
КонецЦикла;              
//НомерСтроки=НомерСтроки+1;
//Лист.Cells(НомерСтроки, 5).Value = "КонецТоваров";
//КонецЕсли;        
//НомерСтроки=НомерСтроки+1;
Файл.Записать();
КонецЦикла;



//Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;

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

//Попытка
    //Книга.SaveAs("c:\123.XLS");
//Исключение
    //Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
//КонецПопытки;

//Эксель.Application.Quit();


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

а чо добавить() закомментировано? специально? Трольь?

(3) да нет пробовал с ним но в файле все строки пустые получаются

У меня одного сейчас случилась поломка мозга и седалищного нерва? В комментариях эксель кокойты, добавить запись в дбф вообще по известной матери пущено...
тут
Пока Док.ПолучитьСтроку() = 1 Цикл
//    Док.ВыбратьСтроки();
вообще чуть по стене не размазало...

(5) была выгрузка в ексель сначала. но в эксель нет возможности загнать большое количество строк. а по 2 месяца 2 года выгружать и потом в восьмерку загонять вешалка. вот и передела в дбф.
а запись файла вот же
Файл.Записать();

У меня к выгрузкам из ДБФ особое и очень личное отношение. Не терплю профанации данного мероприятия. Нужно если - с утра напишу рабочую выгрузку. Хотя и универсальные есть.

(7) буду рад и благодарен. просто со списком товаров непойму что делать уже запарился

(7) все думал куды лучше в ексель или дбф

(7) конфа же самописанная у 7

(8) почта несложная мой ник jarett собака мыло ру. кидай выгрузку или просто мудешник и говори что надо и куда. утром напишу обработку выгружающую. Загружать уже сам будешь

(11) [email protected] выгрузить из 7 ттн и пн

(11) отправил. заранее спасибо

(13) получено. утром ответ в виде ert с выгрузкой с меня.