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

endif

endfor

endscan

select tkt

scan for codep = cd and month = _mm_ and year = _yy_

for i = 1 to lk

if dt = rks(i)

sks(i) = sks(i) + sum &&накопичення по колонках

_sok = _sok +sum &&накопичення по рядку по K-ту

endif

endfor

endscan

_ends = _spd + _sod -(_spk + _sok)

do case

case _ends > 0

_skd = _ends

_skk = 0

case _ends < 0

_skk = (-1)*_ends

_skd = 0

endcase

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

* Перевірка чи вносити рядок в TXT-файл

if empty(_sKd) and empty(_sKk) &&and empty(_sod) and empty(_sok)

* недрукуємо

else

*друкуємо

sele (_clunions_)

npp = npp+1

\<>|<>|