Апплет "Статистика операций" ред.1.2.



Posted by Анимица Анатолий on May 25, 1999 at 14:27:16:

In Reply to: Быстрые факты, ta-факты и прочая статистик posted by Анимица Анатолий on May 24, 1999 at 22:38:05:

Приходится немедленно после публикации текста программы статистического отчета по операциям ФБП выполнить вторую редакцию. Я очень редко пишу формы-истории, и забыл, что every day в сервере - не работает. Вот вариант, который подойдет одновременно и в ultra и в сервере. Еще одно подтверждение тезиса - UltraH и сервер 29H - это разные программы.

статистика журнала операций ред.1.2

* статистика журнала операций
prolog
ct=0;ca=0;sf=0;ta=0;ad=0;da=0;db=0;d1=0;d2=0;cp=0;cn=0
* операций всего, актуальных операций, фактов, ta-фактов, дней,
* операционных дней, дата дня (2), проводок всего, в том числе с ss <> 0
pm=-1
if df=0 df=1; endif
if dl=0 dl=31; endif
da=[da dl,ml,yc]-[da df,mf,yc]+1 всего дней
every operation
d2=[da dc,mc,yc]
if d2<>d1 db=db+1;d1=d2;endif
ct=ct+1;if ~([ps 'null',ot]|[ps '{',ot]|[ps '}',ot]) ca=ca+1;endif
pp=0
everydebet `
cp=cp+1;if SS cn=cn+1;pp=pp+1;if pp>pm pm=pp;endif;endif
epilog

Статистика операций за период с { по } ^^yc года:
---------------------------------------------------------------------------

Всего дней ^^^^^^da в том числе операционных ^^^^^db

Всего операций ^^^^^^ct в том числе актуальных (не null и скобки) ^^^^^ca
cf=0;ta=0

Всего проводок ^^^^^^cp в том числе с ненулевой суммой ^^^^^cn
rewind facts
:loopf
search ?a,?x,?x,?x,?x,?x,?x,?x,?x,?x,?x,?x,?x,?x,?x
if [success]
cf=cf+1
if a='ta'
ta=ta+1
endif
goto loopf
endif

Всего фактов ^^^^^^^cf в том числе ta ^^^^^^^ta
---------------------------------------------------------------------------
po=0;if ca po=cn/ca;endif
проводок на операцию среднее значение ^^^^po^^
(идея В.Секретева) максимальное значение ^^^pm.00
---------------------------------------------------------------------------





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