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();
}
}
{
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