Job_ListOfTable: Afficher la liste des tables Dynamics AX

static void Job_ListOfTable(Args _args)
{
    tableId         tableId;
    TmpAotLabelImport TmpAotLabelImport;
    int             tablecounter;
    Common          tableCommon;
    DictTable       DictTable;
    Dictionary      dict = new Dictionary();
    Str             ListOfTable;
    TextBuffer Buffer = new TextBuffer();
   
       delete_from TmpAotLabelImport;
    for (tablecounter=1; tablecounter<=dict.tableCnt(); tablecounter++)
    {

        tableId = dict.tableCnt2Id(tablecounter);
        DictTable = new DictTable(tableId);
        TmpAotLabelImport.clear();
        TmpAotLabelImport.TreeNodePath = strLFix(DictTable.label(),50," ") + " -> "+ dict.tableName(tableId);

        TmpAotLabelImport.insert();
    }

    while select TmpAotLabelImport order by TreeNodePath
    {
        ListOfTable += TmpAotLabelImport.TreeNodePath + /*" ( "+DictTable.label()+" ) "-*/num2char(13)+num2char(10);
   
    info (TmpAotLabelImport.TreeNodePath) ;
    }

   
   
    Box::info(ListOfTable);
    Buffer.setText(ListOfTable);
    Buffer.toClipboard();
    Box::info("finished");  
    delete_from TmpAotLabelImport;
}