axapta - 跨所有可用公司的循环？

Question

我需要创建一个带有 for 循环的工作(我认为)，该循环遍历所有可用的公司并检查特定值。我只是不熟悉如何让它选择每个单独的公司。

有谁知道它的语法？

Answer 1

我在工作中使用以下技术:

static void CountIt(Args _args)
{
    DataArea  DataArea;

    void doIt()
    {;
        info(int2str((select Count(RecId) from CustTable).RecId));
    }

    setPrefix("Counting");
    while select DataArea where !DataArea.isVirtual
    {
        print(DataArea.Id);
        setPrefix(DataArea.Id);
        changecompany (DataArea.Id)
        {
            doIt();
        }
    }
}