[raz]

И вот тебе в помощь.

Это для Axapta 3.0

PHP код:

static void raz_Tables_set_AutorModify_Job(Args _args)
{
  treeNode  treeNode;
  treeNode  fieldNode;
  xInfo     xInfo = new xInfo();
  str       Proper;
  int       i;
  ;

  if (box::yesNo('Включить регистрацию автора и времени модификации для всех таблиц?',DialogButton::No,'Сделайте выбор','') == DialogButton::Yes)
  {
  treeNode = xInfo.rootNode();
  treeNode = treeNode.AOTfindChild("Data Dictionary");
  treeNode = treeNode.AOTfindChild("Tables");
  treeNode = treeNode.AOTfirstChild();

  while (treeNode)
  {
    Proper = treeNode.AOTgetProperties();
    i = StrScan(Proper,'ModifiedDate        #No',1,1000);
    if (i != 0)
    {
        Proper = strdel(Proper,i + 21,2);
        Proper = strins(Proper,'Yes',i + 21);
    }
    i = StrScan(Proper,'ModifiedTime        #No',1,1000);
    if (i != 0)
    {
        Proper = strdel(Proper,i + 21,2);
        Proper = strins(Proper,'Yes',i + 21);
    }
    i = StrScan(Proper,'ModifiedBy          #No',1,1000);
    if (i != 0)
    {
        Proper = strdel(Proper,i + 21,2);
        Proper = strins(Proper,'Yes',i + 21);
    }
    i = StrScan(Proper,'CreatedDate         #No',1,1000);
    if (i != 0)
    {
        Proper = strdel(Proper,i + 21,2);
        Proper = strins(Proper,'Yes',i + 21);
    }
    i = StrScan(Proper,'CreatedTime         #No',1,1000);
    if (i != 0)
    {
        Proper = strdel(Proper,i + 21,2);
        Proper = strins(Proper,'Yes',i + 21);
    }
    i = StrScan(Proper,'CreatedBy           #No',1,1000);
    if (i != 0)
    {
        Proper = strdel(Proper,i + 21,2);
        Proper = strins(Proper,'Yes',i + 21);
    }
    treeNode.AOTsetProperties(Proper);

    fieldNode = treeNode.AOTfindChild("Fields");
    treeNode = treeNode.AOTnextSibling();
  }
  }
}