.n Закрытие кредитуемого счёта
.a 
.d 03333
.s
;Загружаем описания счетов
@dzzs("dz/sv/dzpzs_ps.txt")
;Загружаем массив проводок
@dzzp("dz/sv/dzpzs_mp.txt")

::Закрытие кредитуемого счёта
@dzvp("")

.zks
# ds ks sp np
*Возвращается готовая проводка в виде массива из массивов проводок
*Переносим дебетуемый счёт проводки
u('d')=ds 
*Переносим кредитуемый счёт проводки
u('k')=ks 
*Вычисляем текущие остатки кредитуемого счёта в стоимостном и натуральном выражении
z=dzoot(ks) 
*Сумма = Остаток в стоимостном выражении
u('s')=z('oss') 
*Количество = Остаток в натуральном выражении
u('n')=z('osn') 
*Результатный массив проводок из одной проводки, которая заменит шаблон в потоке
r(0)=u 
return(r)