Экспорт платежных поручений в DBF-файл
07.09.2008
13:22
#1
Как экспортировать документ платежного поручения в DBF-файл с заданными полями?
Заранее благодарен.
Заранее благодарен.
08.09.2008
08:19
#2
Через внешнюю обработку. Но этот вопрос по ветке для техничских специалистов. У меня есть такая. Писал для выгрузки в УРМ.
08.09.2008
11:08
#4
"собственно я не програмер... вот такая часть есть
Процедура гЗаписатьСтатистикуИспользованияОтчета(ИдентификаторОтчета) Экспорт
Путь=КаталогИБ()+"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=гПользователь.Наименование;
Б.Записать();
Б.ЗакрытьФайл();
КонецПроцедуры
нужна сама выгрузка платежек... помогите с дописанием..."
Процедура гЗаписатьСтатистикуИспользованияОтчета(ИдентификаторОтчета) Экспорт
Путь=КаталогИБ()+"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=гПользователь.Наименование;
Б.Записать();
Б.ЗакрытьФайл();
КонецПроцедуры
нужна сама выгрузка платежек... помогите с дописанием..."
08.09.2008
13:20
#5
"Примерно так
Дбф=СоздатьОбъект("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");
Дбф.Записать();
КонецЦикла;
"
Дбф=СоздатьОбъект("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)