.n Начисление дневной заработной платы по тарифам
.a 
.d 03333
.s
;Загружаем описания счетов
@dzzs("dz/sv/dznzt_ps.txt")
;Загружаем массив проводок
@dzzp("dz/sv/dznzt_mp.txt")

::Начисление дневной заработной платы по тарифам
@dzvp("")

.zt1
# ds ks sp np
*Начисление дневной зарплаты по тарифу t1
return(vm('ztx',ds,ks,sp,np,'t1'))
.zt2
# ds ks sp np
*Начисление дневной зарплаты по тарифу t2
return(vm('ztx',ds,ks,sp,np,'t2'))

.ztx
# ds ks sp np kt
*vzp(ds,ks,sp,np,kt)
*ds - счёт затрат дебетуется
*ks - зарплатный счёт сотрудника кредитуется
*np - число отработанных часов или долей дня
*kt - код тарифа
*Ищем величину тарифа по его коду как свойство в зарплатном счёте сотрудника
*Если индивидуальный тариф не установлен, то dzpzas вернёт общий для всех тариф
sum=dzpzas(ks,kt)
if nz(sum)  
    *Не получается найти тариф
    return(sum)
end    
*Возвращаем произведение тарифа на число отработанных часов (долей дня)
return(sum*np)