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