Thursday, 28 April 2016

RECORD Count on AOT

static void _KR_krac_RecordCount(Args _args)
{

    TreeNode node = TreeNode::findNode('\\Data Dictionary\\TAbles').AOTfirstChild();
    DictTable dt;
   // fieldnum fldid;
    Common t;
    SQLDictionary dict;
    container con;

    int i;
    ;
    info(strfmt("-- %1",curext()));
    while (node!=null)
    {
       t = null;
       print node.AOTname();
       dt = new DictTAble(tablename2id(node.aotname()));
       if (dt == null)
         throw error(strfmt("%1 not found", node.AOTname()));
       if (dt.dataPrCompany())
       {

           t = dt.makeRecord();
           select firstonly t;
           if (t.dataAreaId == 'krac')
           {
              select count(recid) from t;
              if (t.RecId >0)
                info(strfmt("%1 - %2",dt.name(DBBackend::Native), t.RecId));
           }

       }
       node = node.AOTnextSibling();
    }
}

No comments:

Post a Comment