[Lemming]

Правда нужна лицензия на crm

PHP код:

static void Tutorial_treeWalk(Args _args)
{

    int             i;
    smmSalesUnit    childSalesUnit;

    void    runTree(smmSalesUnitId      _root = "")
    {
        smmSalesUnit            smmSalesUnit;
        smmSalesUnitMembers     salesUnitMembers;
        ;

        while select salesUnitMembers
            where salesUnitMembers.SalesUnitId == _root
            {

                info(strfmt("Группа: %1, Менеджер: %2", _root,  salesUnitMembers.SalesManId));
                i++;
            }

        while select smmSalesUnit
            where smmSalesUnit.ParentId == _root
        {
            select firstonly childSalesUnit
                where childSalesUnit.ParentId == smmSalesUnit.SalesUnitId;

            if (childSalesUnit.RecId != 0)
            {
                runTree(smmSalesUnit.SalesUnitId);
            }
            else
            {
                while select salesUnitMembers
                    where salesUnitMembers.SalesUnitId == smmSalesUnit.SalesUnitId
                {
                    info(strfmt("Группа: %1, Менеджер: %2", _root,  salesUnitMembers.SalesManId));
                }
            }
        }

    }
    ;
    runTree("");
    info(int2str(i));


}