• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

ЗиК 7.7 Типовая. Док-т ПеречислениеЗарплатыВБанк, вид рас-та Перечисле

  • Автор темы shoutakascream
  • Дата начала
S

shoutakascream

Добрый вечер.
Работаю в ЗиК 7.7. Типовая конфигурация. Есть документ - Перечисление Зарплаты В Банк. В нем удержание задается числом. Необходимо, чтобы удержание задавалось процентом, а процент считался от конечного сальдо для сотрудника за данный период. Документ вводит Вид расчета - Перечисление В Банк. В типовой код вида расчета добавил следующее:

Код:
жз = СоздатьОбъект("ЖурналРасчетов.Зарплата");
нтп = жз.НачалоТекущегоПериода();
банк = 0;
жз.ВыбратьПериодПоОбъекту(Объект, нтп);
пока жз.ПолучитьЗапись() = 1 цикл
ВР = жз.ВидРасч;
если (ВР.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления) = 1) или (ВР.ВходитВГруппу(ГруппаРасчетов.НачальноеСальдо)=1) тогда
банк = банк + жз.результат;
КонецЕсли;
Если (ВР.ВходитВГруппу(ГруппаРасчетов.ВсеУдержания) = 1) или (ВР = ВидРасчета.ВыплатаЗарплаты) тогда
банк = банк - жз.результат;
КонецЕсли;
конецЦикла;
результат = Цел(банк) * Документ.Величина /100;

В данном коде при пересчете результата учитывается само удержание, из-за чего мы получаем каждый раз новый результат. Что нужно дописать/исправить, чтобы программа не включала удержание и обходило его стороной.

Программированием занимаюсь второй месяц. Опыта мало. Буду благодарен за любую помощь. Спасибо.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!