Главная » 1С Предприятие » ВИДЫ РАСЧЕТОВ И ИХ ГРУППЫ

0

7.15.1.  ВЫВОД СПИСКОВ ВИДОВ РАСЧЕТОВ И ИХ ГРУПП

С  ВР  и  группами  ВР  мы уже имели  возможность  ознакомиться весьма плотно.  Те| перь  наша  задача  привести  достаточные для  активного  употребления  этих  объектов справочные  сведения.

Приведем, однако, прежде  коды, выводящие список ВР и групп  ВР конфигурации.

// Процедура вывода списка ВР конфигурации

// Выводит для каждого  ВР его атрибуты: код (идентификатор),

// наименование (комментарий), очередность и приоритет, а также его синоним

процедура Выполнить()                     //              Связана с кнопкой Пуск  обработки Проба  перем  всегоВР;                           //                Число ВР в конфигурации

перем ин, код, ВР, наим, очер, приорВыт, синоним; ОчиститьОкноСообщений();              //         Очищаем окно сообщений  всегоВР = Метаданные.ВидРасчета();

для ин = 1 по всегоВР цикл

код = Метаданные.ВидРасчета(ин).Идентификатор;

// ВР имеет тип ВидРасчета

ВР  =  ВидРасчета.ПолучитьАтрибут(код); наим = ВР.Наименование;

// или наим = Метаданные.ВидРасчета(ин).Комментарий; очер = ВР.Очередность;

приорВыт = ВР.ПриоритетВытеснения;

синоним =  Метаданные.ВидРасчета(ин).Синоним;

Сообщить(код + " " + наим + " " + очер + " " + приорВыт + " " + синоним);

конецЦикла; // для конецПроцедуры // Выполнить

Фрагмент  результата:

Авторские Другие авторские вознаграждения 30 0 Др. авторские возн-ия АвторскиеЗаНП Авторские за создание произведений науки 30 0 Авт. за науку БанковскиеИздержки Банковские издержки 152 0 Банковские издержки

// Процедура вывода списка групп ВР конфигурации

// Выводит для каждой группы ВР ее атрибуты: код (идентификатор)

// и наименование (комментарий), а также синоним

процедура Выполнить()                     //             Связана с кнопкой Пуск  обработки Проба перем всегоГруппВР;                    //             Число групп ВР в конфигурации

перем ин, код, наим, синоним;

ОчиститьОкноСообщений();              //         Очищаем окно сообщений всегоГруппВР  = Метаданные.ГруппаРасчетов();

для ин = 1 по всегоГруппВР цикл

код =  Метаданные.ГруппаРасчетов(ин).Идентификатор; наим = Метаданные.ГруппаРасчетов(ин).Комментарий; синоним = Метаданные.ГруппаРасчетов(ин).Синоним; Сообщить(код + "-." + наим + " " + синоним);

конецЦикла; // для конецПроцедуры // Выполнить

Фрагмент результата:

ВсеНачисления Группа, в которую  входят начисления Все начисления ВсеУдержания Группа, в которую входят все удержания Все удержания ВсеНачисления_2 Для сотрудников из справочника Сотрудники_2 Все начисления

Источник: Бартеньев О. В. 1С:Предприятие:  программирование для  всех.  Базовые объекты и расчеты на одной дискете. М.: Диалог-МИФИ, 2005. 464 с.

По теме:

  • Комментарии