void setFontColor(MSOfficeBookMark_RU  _bookMark, int  _color) 
{ 
   COM     comRange, comFont, comBorder; 
    ; 
    comRange = this.findRange(_bookMark); 

    if (comRange) 
    { 
        comFont = comRange.font(); 
        comFont.color(_color); 
    } 
}

void setBackgroundColor(MSOfficeBookMark_RU  _bookMark, int  _color, int _workSheet = 1)
{
   COM     comRange, comInterior;
    ;
    comRange = this.findRange(_bookMark, _workSheet);

    if (comRange)
    {
        comInterior = comRange.Interior();
        comInterior.colorindex (_color);
    }
}

static void Job26(Args _args)
{
    ;

    info( new RNumDateInWordConverter_RU().date2strMonth(systemDateGet()));      //октября
    info( mthName( mthOfYr( systemDateGet())));                                  //Октябрь
}

Сообщение (11:48:42)
октября
Октябрь

formRunLookup.setTemplateFilterList(subWorkflowTemplateList);

DictField df;
;

df = new DictField(tablenum(Address), fieldnum(Address, Name));

if (df)
{
    print strfmt("The string length is %1.", df.stringLen());
}

    SalesTable          newSalesTable;
;
//......
  info(strfmt("@GEE33803", newSalesTable.SalesId),'', SysInfoAction_TableField::newBuffer(newSalesTable));
//......

    static void dbODBCConnection(Args _args)
    {
        LoginProperty   loginProp;
        ODBCConnection  conn;
        Resultset       resultSet, resultSetCount;
        Statement       statement1, statement2;
        ;

        loginProp = new LoginProperty();

        loginProp.setServer('SUMIT');
        loginProp.setDatabase('AX2009');

        conn = new ODBCConnection(loginProp);

        statement1  = conn.createStatement();
        resultSet   = statement1.executeQuery("SELECT * from CustTable where DATAAREAID = 'CEU'");

        while (resultSet.next())
        {
            info(resultSet.getString(1));
        }
     }

   static void dbCCADOConnection(Args _args)
    {
        CCADOConnection connection = new CCADOConnection();
        CCADOCommand    ccADOCommand;
        CCADORecordSet  record;
        str connectStr = "Provider=SQLNCLI.1;Integrated Security=SSPI;"+
                         "Persist Security Info=False;Initial Catalog=AX2009;Data Source=SUMIT";

        COM     recordSet;  /*This is required to call moveNext method to parse the record set. In AX 4.0 this method was there in the CCADORecordSet class but in AX 2009 this has been deleted*/
        ;

        // Executing a SQL Statement
        try
        {
            connection.open(connectStr);
            ccADOCommand = new CCADOCommand();
            ccADOCommand.commandText("Select * from CustTable where DataAreaId = 'CEU'");
            ccADOCommand.activeConnection(connection);
            record = ccADOCommand.execute();
            recordSet = record.recordSet();
            while (!record.EOF())
            {
                info(any2str(record.fields().itemIdx(0).value()));
                recordSet.moveNext();
            }
        }
        catch
        {
            error("An Exception has occurred");
        }

        connection.close();
    }

    static void dbOLEDBConnection(Args _args)
    {
        System.Exception                    e;
        System.Data.OleDb.OleDbConnection   objConn;
        System.Data.OleDb.OleDbCommand      cmdSelect;
        System.Data.OleDb.OleDbDataReader   reader;
        InteropPermission                   perm;
        str connectStr = "Provider=SQLNCLI.1;Integrated Security=SSPI;"+
                         "Persist Security Info=False;Initial Catalog=AX2009;Data Source=SUMIT";
        str exceptionStr;
        ;

        try
        {
            perm = new InteropPermission(InteropKind::ClrInterop);
            if (perm == null)
            {
                throw error("Error with file permissions");
            }
            perm.assert();

            objConn = new System.Data.OleDb.OleDbConnection(connectStr);
            objConn.Open();

            cmdSelect   = objConn.CreateCommand();
            cmdSelect.set_CommandText("SELECT * FROM CustTable where DATAAREAID = 'CEU'");
            reader      = cmdSelect.ExecuteReader();

            while (reader.Read())
            {
                info(reader.GetString(0));
            }
        }
        catch(Exception::CLRError)
        {
            CodeAccessPermission::revertAssert();

            perm = new InteropPermission(InteropKind::ClrInterop);
            if (perm == null)
            {
                return;
            }
            perm.assert();

            e = ClrInterop::getLastException();

            CodeAccessPermission::revertAssert();

            while( e )
            {
                exceptionStr += e.get_Message();
                e = e.get_InnerException();
            }
            info(exceptionStr);
        }
        catch
        {
            error("An Exception has occurred");
        }

        if(objConn)
            objConn.Close();
    }

    class TestSQLExecuteClass
    {
    }

    //This method tests the permissions for statement and then calls the method that will execute the statement
    static void dbConnectionClass()
    {
        ResultSet   rs;
        SqlStatementExecutePermission perm;
        ;

        perm = new SQLStatementExecutePermission("select * from CustTable where DATAAREAID = 'CEU'");
        perm.assert();

        rs = TestSQLExecuteClass::statementExeQuery("select * from CustTable where DATAAREAID = 'CEU'");

        while (rs.next())
        {
            info(rs.getString(1));
        }
        CodeAccessPermission::revertAssert();
    }

    //Executes the passed statement
    private static ResultSet statementExeQuery(str _sql, Connection _con = null)
    {
        ResultSet   resultSet;
        Statement   statement;
        ;

        try
        {
            if(!_con)
            {
                _con = new Connection();
            }

            statement = _con.createStatement();

            // Do not call assert() here, do it in the caller
            // BP deviation documented
            resultSet = statement.executeQuery(_sql);
        }
        catch (Exception::Error)
        {
            throw error("@SYS99562");
        }

        return resultSet;
    }

    static void dbConnectionClass(Args _args)
    {
        ;

        TestSQLExecuteClass::dbConnectionClass();
    }

void lookup()
{
    fieldId id;
//AnyUserTable  - таблица куда сохраняем поле (формат поля EDT = FieldName )
    ;

    id = pickFieldUserLabel(tableNum(CustTable));

    if (! id)
        return;

    AnyUserTable.FieldName = fieldid2name(tableNum(CustTable),id);

    AnyUserTable_ds.refresh();
}

    #macrolib.dictfield

    //Tables
    DictTable               dictTable = new DictTable(TABLE.tableId);

    //Variables
    DictField               dictField;
    int                     i = 0 ;
    int                     nFlags;
    fieldId                 fieldId   = dictTable.fieldNext(0);
;

    while select firstfast TABLE
    {//Ниже агресивно-насильственный цикл проверки обязательности заполнения полей.
     //К сожалению  метод TABLE_DS.write(); не помог в некоторых случаях.

        for (i = 1; i <= dictTable.fieldCnt(); i++)
        {
            dictField  = new dictField(TABLE.TableId, dictTable.fieldCnt2Id(i));

            if(!dictField.isSystem())
            {
                nFlags = dictField.flags();
                if (bitTest(nFlags,#DBF_MANDATORY))
                {
                    fieldId         = dictTable.fieldCnt2Id(i);
                    if(! TABLE.validateField(fieldId))
                        throw error("Заполните поля");
                }
            }
        }
    }