Каталог решений - Ещё один перл

Недавно столкнулся с необходимостью обновления бухгалтерии у новых клиентов. К ним ходили люди из одной известной в Омске фирмы и уверяли, что делают обновление… Правда, почему-то к началу 2009 года релиз имел номер 446… Ну, вообщем неважно, хочу привести один фрагмент при печати счета.

//******************************************************************************  
Функция РасчСчетКонтрагента()
 Спр=СоздатьОбъект("Справочник.расчетныеСчета");
 Спр.ИспользоватьВладельца(Контрагент);
 Спр.ВыбратьЭлементы();
 Пока Спр.ПолучитьЭлемент()>0 Цикл
  РС=Спр.номер;  
 // БанкОрганизации=Спр.БанкОрганизации;
 КонецЦикла;
 Возврат РС;
КонецФункции 

//Шинкарюк
Функция БанкОрганизации()
 Спр=СоздатьОбъект("Справочник.расчетныеСчета");
 Спр.ИспользоватьВладельца(Контрагент);
 Спр.ВыбратьЭлементы();
 Пока Спр.ПолучитьЭлемент()>0 Цикл
  //РС=Спр.номер;  
  БО=Спр.БанкОрганизации.Наименование;
 КонецЦикла;
 Возврат БО;
КонецФункции  

Функция КоррСчет()
 Спр=СоздатьОбъект("Справочник.расчетныеСчета");
 Спр.ИспользоватьВладельца(Контрагент);
 Спр.ВыбратьЭлементы();
 Пока Спр.ПолучитьЭлемент()>0 Цикл
  //РС=Спр.номер;  
  КС=Спр.БанкОрганизации.КоррСчет;
 КонецЦикла;
 Возврат КС;
КонецФункции

Функция БИК()
 Спр=СоздатьОбъект("Справочник.расчетныеСчета");
 Спр.ИспользоватьВладельца(Контрагент);
 Спр.ВыбратьЭлементы();
 Пока Спр.ПолучитьЭлемент()>0 Цикл
  //РС=Спр.номер;  
  БИК=Спр.БанкОрганизации.Код;
 КонецЦикла;
 Возврат БИК;
КонецФункции
//******************************************************************************
// Печать()
//
// Вызывается из формул элементов диалога:
// Кнопка "Печать".
//
// Описание:
// Формирование печатной формы документа.
//
Процедура Печать()

//******************************************************************************  

РасчетСчет=РасчСчетКонтрагента(); 
 БанкОрганизации=БанкОрганизации();  
 КоррСчет=КоррСчет();  
 БИК=БИК();
// Сообщить(РасчетСчет);