Как продвинуть сайт на первые места?
Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения
Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.



Иллюстрированный самоучитель по языку системы 1С:Предприятие

Атрибуты журнала расчетов

ВидРасч

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

Синтаксис:

ВидРасч

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

CalculKind

Описание:

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

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

Пример:

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

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

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

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

НаРуки = 0;

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

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

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

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

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

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

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

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

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

КонецЕсли;

КонецЦикла;

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

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

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

НаРуки = 0;

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

КонецЕсли;

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

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

Иначе

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

Возврат;

КонецЕсли;

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

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

КонецПроцедуры
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.