.n Списание себестоимости материальных ценностей по средней цене
.a Пример формирования проводок по списанию заданного количества материальных ценностей по их средней цене, вычисляемой модулем 
.d 03333
.s
;Загружаем массив проводок
@dzzp("dz/sv/dzssc_mp.txt")

::Списание себестоимости материальных ценностей по средней цене
@dzvp("")
@dzdis("s:Доска")

.ssc
# ds ks sp np
*Получаем обороты и остаток счёта в стоимостном и натульном выражении
z=dzoot(ks)
*z('oss') - остаток в стоимостном выражении
*z('osn') - остаток в натуральном выражении
if z('osn')<>0
    *Вычисляем среднюю цену на момент списания
    sc=z('oss')/z('osn')
    *Вычисляем себестоимость заданного в проводке количества списываемых ценностей по средней цене
    r=sc*np
end
*Если r не вычислено, то это null
*Возвращается скалярное значение, которое будет подставлено в виде суммы проводки
return(r)