Пример решения (фрагмент)



Posted by Александр, Киев. (212.109.45.174) on February 06, 2001 at 06:39:27:

In Reply to: Может это можно сделать как-то по-другому? posted by Андрей Завгородний, ООО Сокол-2 on February 05, 2001 at 04:33:23:

REWINDFACTS
:LOOP1
SEARCHACN ??,KL,?NN,??,??,?QS,?ZN,??,??,??,??,??
IF [SUCCESS] SO=[GET%,NN]
IF ~SO SS=SS+1; [SET%,NN,SS]; SO=SS; [A SO,NN]; ENDIF
*****************************************
IF ZN='+' [D SO,[D SO]+QS]
ELSEIF ZN='-' [E SO,[E SO]+QS]
ENDIF; GOTO LOOP1
ENDIF; SORT ARRAY A,Y
FOR I=1 TO [A 0]
......
......
ENDFOR
Этот алгоритм вычисляет отдельно дебетовые/кредитовые обороты в разрезе каждого счета (NN),контрагента (KL)


Пpишедшие ответы: