Інформаційна система обліку і аналізу розрахунків з постачальниками і підрядниками

endif

dime sds(ld), zds(ld)

store 0 to sds, zds

**************************************************************************\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A

* Відбір даних по K-ту вказаного рахунку

* та формування масиву відповідних рахунків

select * from bases ;

into table tkt1;

where kt = _br and month = _mm_ and year = _yy_;

order by codep

select * from tkt1 ;

into table tkt;

where daten <= fdata;

order by codep

public dime rks(1)

select distinct dt from tkt into array rks

lk = alen(rks)

if lk = 1 and empty(rks(1))

rks(1) = ' '

endif

dime sks(lk), zks(lk)

store 0 to sks, zks

*****************************************************

* Загальні суми

Додаток 23 (продовження)

store 0 to z_spd, z_spk, z_skd, z_skk, z_sod, z_sok

* по одному клієнту

* _spd - сальдо початкове по Д-ту

* _spk - сальдо початкове по К-ту

* _skd - сальдо кінцеве по К-ту