// ================================================================================================ // ==================================== Новое лекарство для старой 1С ============================= // ================================================================================================ // 1CV77! Руководитель и ГлБухгалтер - расшифровка подписи внизу - special for http://HelpSet.ru/ // ================================================================================================ // ====================================== (Занимает 15 минут + статья) ============================ // ================================================================================================ // Убеждаемся, что ОНА есть (ниже) и елси её нет - добавляем // Обычно, это стандартная функция "выборки" из Базы, елси её нет, то нужно прикрутить хотя бы "СчетБанка" // Её мы и будем использовать // Вводим ПРЕД формой ниже ПечФирма = ""; Банк = ""; Счёт = ""; БИК = ""; СчётБанка = ""; Параметры = СоздатьОбъект("СписокЗначений"); Если Докум.ПФирма = 1 Тогда Фирма1 = Докум.ФирмаП; Параметры.ДобавитьЗначение(Фирма1.ОсновнойСчет, "БанковскийСчет"); глРеквизитыПлательщикаПолучателя(Параметры); ПечФирма = Параметры.Получить("Результат"); Банк = Параметры.Получить("СтрокаБанка"); Счет = Параметры.Получить("РасчетныйСчет"); БИК = Параметры.Получить("БИК"); СчетБанка = Параметры.Получить("КоррСчет"); //........ --->>> По нему МЫ и делаем Выборку для документа Иначе Параметры.ДобавитьЗначение(Докум.Фирма.ОсновнойСчет, "БанковскийСчет"); глРеквизитыПлательщикаПолучателя(Параметры); ПечФирма = Параметры.Получить("Результат"); Банк = Параметры.Получить("СтрокаБанка"); Счет = Параметры.Получить("РасчетныйСчет"); БИК = Параметры.Получить("БИК"); СчетБанка = Параметры.Получить("КоррСчет"); КонецЕсли; // ТУТ ОБРАБАТЫВАЕМ "ПО СЧЁТУ" нескольких фирм // Готовим К ОБРАБОТКЕ ----------------------------------------------------------- AccOfFirst = "30101810000000009999"; // Счёт 1ой фирмы AccOfSecond = "30101810000000008888"; // Счёт 2ой фирмы Руководитель = "_____________"; ГлБухгатлер = "_____________"; // Переменные по умолчанию If (СчетБанка = AccOfFirst) then Руководитель = "Путин В.В."; ГлБухгатлер = "Жопина Ж.Ж."; // Вывод для 1ой фирмы EndIf; If (СчетБанка = AccOfSecond) then Руководитель = "Ходарковский М.А."; ГлБухгатлер = "Сиськина С.С."; // Вывод для 2ой фирмы EndIf; // Вставляем ДО ЭТОГО МЕСТА // секция Подписи // ИсхТаб.вывестиСекцию("Подписи"); // или Бывает так: // // ИсхТаб.вывестиСекцию("Подвал");