Вроде бы rtar_srv.tpw, со строки 41
Код: Выделить всё
#GROUP(%AddTargetToReport,%pTargetName,%pTargetObjectName,%pTargetClass,%pTargetCondition),AUTO
#DECLARE(%lFound,LONG)
#SET(%lFound,%False)
#FOR(%ReportTargetList),WHERE(%ReportTargetListName=%pTargetName)
#SET(%lFound,%True)
#ENDFOR
#IF(NOT %lFound)
#ADD(%ReportTargetList,ITEMS(%ReportTargetList)+1)
#SET(%ReportTargetListName,%pTargetName)
#SET(%ReportTargetListClass,%pTargetClass)
#SET(%ReportTargetListObject,%pTargetObjectName)
#SET(%ReportTargetListCondition,%pTargetCondition)
#END
В списке ReportTargetList регистрируются обработчики
В Abreport.tpl строка 456 список обработчиков вставляется в программу
Код: Выделить всё
#FOR(%ReportTargetList)
#IF(%ReportTargetListCondition)
IF %ReportTargetListCondition THEN
%TargetSelectorObjectName.AddItem(%ReportTargetListObject.IReportGenerator)
END
#ELSE
%TargetSelectorObjectName.AddItem(%ReportTargetListObject.IReportGenerator)
#ENDIF
#ENDFOR