Порылся в 1С писании, наклепал за вечер обработку -
почти доделанная выгрузка пластика держателей, из 1с 7.7 в формат DBF для СБРФ.
//*******************************************
Процедура Сформировать()
НомерПП=1;
// Выгрузка ТЗ, Таблицы значений в DBF файл
НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма
ДБФ = СоздатьОбъект("XBASE");
Док=СоздатьОбъект("Справочник.Сотрудники");
// ДБФ.КодоваяСтраница(0);
ДБФ.ДобавитьПоле("A","S",30,0);
ДБФ.ДобавитьПоле("B","S",29,0);
ДБФ.ДобавитьПоле("C","S",10,0);
ДБФ.ДобавитьПоле("D","S",10,0);
ДБФ.ДобавитьПоле("E","S",19,0);
ДБФ.ДобавитьПоле("F","S",14,0);
ДБФ.ДобавитьПоле("G","S",30,0);
ДБФ.КодоваяСтраница(1); // Windows
ДБФ.СоздатьФайл("c:\up\test.dbf");
// Справочник.Сотрудники.ВыбратьСтроки();
ДБФ.Добавить();
ДБФ.A="Автозаводское отделение 8213";
ДБФ.Записать();
ДБФ.Добавить();
ДБФ.A="К платежному поручению";
ДБФ.Записать();
ДБФ.Добавить();
ДБФ.A="Зачисление";
ДБФ.Записать();
ДБФ.Добавить();
ДБФ.A="Наименование(ОГРН) предприятия";
ДБФ.Записать();
ДБФ.Добавить();
ДБФ.A="По договору";
ДБФ.Записать();
ДБФ.Добавить();
ДБФ.A="№ п/п";
ДБФ.B="Номер счета";
ДБФ.C="Фамилия";
ДБФ.D="Имя";
ДБФ.E="Отчество";
ДБФ.F="Сумма";
ДБФ.G="Примечание";
ДБФ.Записать();
ДБФ.Добавить();
Док.ВыбратьЭлементы();
Пока Док.ПолучитьЭлемент()=1 Цикл
Если ПустаяСтрока(Док.НомерЗарплатногоСчета)=0 Тогда
ДБФ.Добавить();
ДБФ.A = НомерПП;
НомерПП=НомерПП+1;
ДБФ.B = Док.НомерЗарплатногоСчета;
ФИО = глРазделить(Док.Наименование," ");
Фамилия = СтрПолучитьСтроку(ФИО,1);
Имя = СтрПолучитьСтроку(ФИО,2);
Отчество= СтрПолучитьСтроку(ФИО,3);
ДБФ.C = Фамилия;
ДБФ.D = Имя;
ДБФ.E = Отчество;
ДБФ.Записать();
КонецЕсли;
КонецЦикла;
ДБФ.Добавить();
ДБФ.B = "ИТОГО:";
ДБФ.Записать();
ДБФ.ЗакрытьФайл();
КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма
// Рассчитываем продолжительность выполнения алгоритма в секундах
Длительность = Окр((КонВремя-НачВремя)/1000,3);
Сообщить("Время выгрузки в DBF файл: "+Длительность+" с");
КонецПроцедуры
//*******************************************
Спасибо товарищу сделавшему обработку со всеми причиндалами
тынц-
http://dl.dropbox.com/u/1682769/vygruzkasberbank.zip
Добавляем как кнопку в интерфейс -
1С Конфигуратор > Конфигурация > Открыть Конфигурацию > Интерфейсы> тык тык > Панель интсрументов > Добавить кнопку > Задача Задача.выполнить > Формула
"ОткрытьФорму("Отчет",,"D:\sbrfdrop.ert"); "
