Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
1C_pr77_Lang2.doc
Скачиваний:
7
Добавлен:
20.11.2019
Размер:
2.52 Mб
Скачать

ВидРасч

Вид расчета текущей записи журнала расчетов.

Синтаксис:

ВидРасч

Англоязычный синоним:

CalculKind

Описание:

Атрибут типа «ВидРасчета». Ссылка на конкретный вид расчета, алгоритм которого будет использован при вычислении результата данной записи журна­ла расчетов (акта расчета).

Атрибут ВидРасч предназначен только для чтения.

Пример:

// Перечисление в банк

Процедура ПровестиРасчет()

// Процедура выполняется при проведении расчета

// посчитаем сумму на руки

НаРуки = 0;

ЖР = СоздатьОбъект("ЖурналРасчетов.Зарплата");

Пока ЖР.ПолучитьЗапись() = 1 Цикл

// если строка журнала расчетов имеет вид расчета,

// входящий в группу "Все начисления"

Если ЖР.ВидРасч.ВходитВГруппу(Группа.ВсеНачислнения) Тогда

НаРуки = НаРуки + ЖР.Результат;

// ...или "Все удержания"

ИначеЕсли ЖР.ВидРасч.ВходитВГруппу(Группа.ВсеУдержания) Тогда

НаРуки = НаРуки - ЖР.Результат;

КонецЕсли;

КонецЦикла;

Если Документ.Сумма <> 0 Тогда

Результат = Окр(Мин(Документ.Сумма, НаРуки));

ИначеЕсли Документ.Процент <> 0 Тогда

НаРуки = 0;

Результат = Окр(НаРуки * Процент / 100);

КонецЕсли;

Если Документ.Банк.Выбран() Тогда

ПроцентУд = Документ.Банк.ПроцентУдержания;

Иначе

Сообщение("Не указан банк для перечисления средств!");

Возврат;

КонецЕсли;

ЖР.ВвестиРасчет(Объект, ВидРасчета.БанковскиеИздержки,

ДатаНачала, ДатаОкончания, Окр(Результат * ПроцентУд / 100));

КонецПроцедуры

ДатаНачала

Дата начала действия записи журнала расчетов.

Синтаксис:

ДатаНачала

Англоязычный синоним:

DateFrom

Описание:

Атрибут типа «дата» — дата начала действия текущего акта расчета (записи журнала расчетов). Эта дата может не совпадать с периодом регистрации Атрибут ДатаНачала предназначен только для чтения.

Пример:

// процедура выполняется в контексте журнала расчетов

// ДатаНачала и ДатаОкончания доступны непосредственно!

// календарь

Календ = Объект.Категория.Получить(ДатаНачала).Календарь;

// размер оклада

Тариф = Объект.Тариф.Получить(ДатаОкончания);

Часов = Календ.Часов(ДатаНачала.ДатаОкончания);

Результат = Окр(Тариф*Часов);

Часы = ?(Сторно = 1, -Часов, Часов);

См. также: ДатаОкончания, ПериодДействия, ПериодРегистрации

ДатаОкончания

Дата окончания действия записи журнала расчетов.

Синтаксис:

ДатаОкончания

Англоязычный синоним:

DateTill

Описание:

Атрибут типа «дата» — дата окончания действия текущего акта расчета (за­писи журнала расчетов).

Атрибут ДатаОкончания предназначен только для чтения.

Пример:

См. предыдущий пример.

См. также: ДатаНачала, ПериодДействия, ПериодРегистрации

ПериодДействия

Период действия записи журнала расчетов.

Синтаксис:

ПериодДействия

Англоязычный синоним:

EffectivePeriod

Описание:

Атрибут типа «период журнала расчетов» — период действия текущей запи­си журнала расчетов. Под периодом действия подразумевается тот расчетный период журнала, в который попадают ДатаНачала и ДатаОкончания дейст­вия записи журнала расчетов (акта расчета).

Атрибут ПериодДействия предназначен только для чтения.

Пример:

Процедура ПоПодр()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса = "//{{ЗАПРОС(ПоПодр)

|Период с ДатаНач по ДатаКон;

|Док = ЖурналРасчетов.Зарплата.ТекущийДокумент;

|ПД = ЖурналРасчетов.Зарплата.ПериодДействия;

|Подр = ЖурналРасчетов.Зарплата.Объект.МестоРаботы.Владелец;

|Рез = ЖурналРасчетов.Зарплата.Результат;

|Группировка ПД;

|Группировка Подр без групп;

|Функция Итог = Сумма(Рез);

|"//}}ЗАПРОС

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("ПоПодр");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Пока Запрос.Группировка("ПД") = 1 Цикл

// Заполнение полей ПД

Таб.ВывестиСекцию("ПД");

Сообщение(Запрос.ПД.Описатель);

Пока Запрос.Группировка("Подр") = 1 Цикл

// Заполнение полей Подр

Таб.ВывестиСекцию("Подр");

КонецЦикла;

КонецЦикла;

// Заполнение полей "Итого"

Таб.ВывестиСекцию("Итого");

// Вывод заполненной формы

Таб.Опции(1, 0, 1, 0);

Таб.Показать("ПоПодр", "");

КонецПроцедуры

См. также: ДатаНачала, ПериодДействия, ПериодРегистрации

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]