Экспорт платежных поручений в DBF-файл

Новая тема
Как экспортировать документ платежного поручения в DBF-файл с заданными полями?
Заранее благодарен.
Через внешнюю обработку. Но этот вопрос по ветке для техничских специалистов. У меня есть такая. Писал для выгрузки в УРМ.
если есть, скинь на е-мейл плз... срочно нужно... заранее благодарен)
"собственно я не програмер... вот такая часть есть

Процедура гЗаписатьСтатистикуИспользованияОтчета(ИдентификаторОтчета) Экспорт
    Путь=КаталогИБ()+"Stat.dbf";
    Б=СоздатьОбъект("XBase");
    Если ФС.СуществуетФайл(Путь)=0 Тогда
         Б.ДобавитьПоле("OrgDate","D",8,0);
         Б.ДобавитьПоле("Nom","C",10,0);
         Б.ДобавитьПоле("Summa","N",19,2);
         Б.ДобавитьПоле("CrnId","N",3,0);
         Б.ДобавитьПоле("DebAcc","C",32,0);
         Б.ДобавитьПоле("CrdMfo","N",6,0);
         Б.ДобавитьПоле("CrdAcc","C",32,0);
         Б.ДобавитьПоле("CrdAccName","C",38,0);
         Б.ДобавитьПоле("CrdCliCode","C",10,0);
         Б.ДобавитьПоле("Note","C",160,0);
         Б.СоздатьФайл(Путь);
         Б.ЗакрытьФайл();
    КонецЕсли;
    Б.ОткрытьФайл(Путь);
    Если Б.Открыта()=0 Тогда
         Сообщить("Не удалось открыть файл DBF","!");
         Возврат;
    КонецЕсли;
    Б.Добавить();
    Б.Date=ТекущаяДата();
    Б.Time=ТекущееВремя();
    Б.Report=СокрЛП(ИдентификаторОтчета);
    Б.User=гПользователь.Наименование;
    Б.Записать();
    Б.ЗакрытьФайл();
КонецПроцедуры

нужна сама выгрузка платежек... помогите с дописанием..."
"Примерно так
Дбф=СоздатьОбъект("XBase");
ИмяТаб=сокрлп(Каталог)+"d:\chek.dbf";
Дбф.КодоваяСтраница(1);
Если ФС.СуществуетФайл(ИмяТаб)=1 Тогда
Дбф.ОткрытьФайл(ИмяТаб);
Дбф.ОчиститьФайл();
Дбф.Сжать();
Иначе
Дбф.ДобавитьПоле("Nom_dok",2,10,);
Дбф.ДобавитьПоле("Data_dok",3,8,);
Дбф.ДобавитьПоле("Nom_Shet",1,9,);
Дбф.ДобавитьПоле("Summa",1,15,2);
Дбф.ДобавитьПоле("Naznahenie",2,212,);
Дбф.ДобавитьПоле("TRUSTNUM",2,50,);
Дбф.ДобавитьПоле("INN_K",2,12,);
Дбф.ДобавитьПоле("Name_K",2,120,);
Дбф.ДобавитьПоле("Inv_K",2,20,);
Дбф.ДобавитьПоле("BIK_K",2,9,);
Дбф.ДобавитьПоле("KPP",2,9,);
Дбф.СоздатьФайл(ИмяТаб);
КонецЕсли;
Док1=СоздатьОбъект("Документ.ЗаявкаНаПолучениеДенегОблК");
Док1.Выбрать();
Док1.НайтиДокумент(Тз.Доки);
Док1.ВыбратьСтроки();
Пока Док1.ПолучитьСтроку()=1 Цикл
Дбф.Добавить();
Дбф.Nom_Dok=Док1.НомерДок;
Дбф.Data_dok=Формат(Док1.ДатаДок, "Д ДДММГГ");
ЛицСчет=СтрЗаменить(СокрЛП(Док1.ЛицевойСчет.Номер),".","""");
Дбф.Nom_Shet=ЛицСчет;
Дбф.Summa=Формат(Док1.Сумма,"Ч15.2");
Дбф.Naznahenie=СокрЛП(Док1.Содержание);
Дбф.Summa=Формат(Док1.Сумма,"Ч15.2");
Дбф.Записать();
КонецЦикла;
"
огромное спасибо))
Читают тему
(гостей: 1)

Быстрый переход