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

Как экспортировать документ платежного поручения в DBF-файл с заданными полями? <br>Заранее благодарен.

Через внешнюю обработку. Но этот вопрос по ветке для техничских специалистов. У меня есть такая. Писал для выгрузки в УРМ.

если есть, скинь на е-мейл плз... срочно нужно... заранее благодарен)

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

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

огромное спасибо))