When posting the financial consumption of a BOM-Component, Axapta needs to know the cost price. If the cost price is not known, the described message appears. The cost price is not known, when a purchase for a new item (no postings on it) is not invoice updated

One way of solving this is to allow negative financial inventory. The other way is to first update the purchase invoices of the related components.

先记下来，备忘。

“Axapta normaly not synchronize the AOD to the Database directly, Axapta uses the Table 'SQLDictionary' to recognize
differences between AOD and Database. Only the "check/synchronize" prozedure from Admin menu does check the real
SQL Dictionary in the database.”

static void Job1(Args _args)
{
    DLL dll ;
    DLLFunction interFaceLibrary;
    ;

    dll = new DLL(\'Net_DLL_Ax.dll\');
    interFaceLibrary  = new DLLFunction(dll,\'FirstClass.GetInformation\');

    interFaceLibrary.returns(ExtTypes::String);
   info(interFaceLibrary.call());

}

DLL文件C#代码：

using System;

namespace Net_DLL_Ax
{
    public class FirstClass
    {
        public FirstClass()
        {
        }

        public static string GetInformation()
        {
            return "HelloWorld";
        }
    }
}

总结了一下AX中调用NET中的DLL时要注意的一些方面(服务器端的部署)：

1.在服务器上注册DLL程序集文件到GAC(全局程序集缓存)中，可以使用.Net的工具gacutil -i assemblyname.dll。

2.在ax中添加对NET的DLL文件的引用。

3.在代码中调用DLL之前要开启权限：

    Set                                     _assertSet;
    InteropPermission                       _ipCLR;    ;

    _assertSet = new Set(Types::Class);
    _ipCLR = new InteropPermission(InteropKind::ClrInterop);

    _assertSet.add(_ipCLR);

    CodeAccessPermission::assertMultiple(_assertSet);

部署好了以后就可以直接在客户端直接运行服务器端调用NET中DLL的项目了。

最郁闷的是按照步骤也不成功:( ，经验告诉我们“重启AX”！！！

调查原因：

progress.setText(strfmt("Exporting Records %1", i));

progress.incCount(1);

最简单的解决方法：注释掉此句。时间紧，暂时不调查更明确的原因。

       str 24 ComName;

       ;

       ComName=appl.company().ext();//当前公司ID

       curUserid();//当前用户iD

       systemDateget();//当前时间

       Time2Str(timenow(),1,2);//时间转换函数

       curuserid()//当前用户

2，使用Session对象

       session xSession;

       ;

       xSession=new session();

       print xsession.userId();pause;

       print xsession.interfaceLanguage();pause;

3，使用XInfo对象

static void currentConfiguartion(Args _args)

{

       AOSSessionInfo info = new AOSSessionInfo();

       SqlSystem SqlSystem = new SqlSystem();

       ;

       print xinfo::componentName();

       print xinfo::configuration();

       print xinfo::dbName();

       print xinfo::licenseName();

       print xinfo::releaseVersion();

       print info.clientMode();

       print SqlSystem.loginConnectString();

       print xinfo::directory(directorytype::Appl);

       print xinfo::directory(directorytype::DB);//....

       pause;

}

4，得到数据库信息： 我们可以使用类SqlSystem得到数据库的信息，

static void Job52(Args _args)

{

    sqlsystem sql;

    ;

    sql=new sqlsystem();

    print sql.databaseName();

    print sql.databaseId();

    print sql.loginServer();

    print sql.loginDatabase();

    print sql.loginName();

    pause;

}

5，取余，取整，取小数

static void job1 (Args   args)
{

real i,j;

  ;

  i=10;

  j=3;

  print trunc(i/j);              //取整

  print frac(i/j);                //小数

  print i-j*trunc(i/j);        //取余

  pause;

}

6, 判断文件访问权限

private void checkFileAccess(Filename _filename)

{

    #WinAPI

    FilePath            filePath = conpeek(fileNameSplit(_filename), 1);

    Filename            filename = 'AxaptaTestFile';

    str                 fileExt  = '.Axapta';

    Filename            testFilename;

    int                 handle;

    Counter             counter;

    Filename getFileName()

    {

        ;

        counter ++;

        return filePath + filename + strRFix(int2str(counter), 3, '0') + fileExt;

    }

    do

    {

        testFilename = getFileName();

    }

    while (WinAPI::fileExists(testFilename));

    handle = WinAPI::createFile(testFilename, #CREATE_NEW, #CREATE_ALWAYS);

    if (handle == -1)

    {

        throw error("@SYS97423");

    }

    WinAPI::closeHandle(handle);

    WinAPI::deleteFile(testFilename);

}

DirectoryEntry usr = 
    new DirectoryEntry("LDAP://CN=New User,CN=users,DC=fabrikam,DC=com");
int val = (int) usr.Properties["userAccountControl"].Value;
usr.Properties["userAccountControl"].Value = val & ~ADS_UF_ACCOUNTDISABLE;
usr.CommitChanges();

   
ADS_UF_ACCOUNTDISABLE = 2 //0x2；The user account is disabled.
上班时间就不多废话了，userAccountControl的其他属性操作请查阅ADS_USER_FLAG_ENUM

    string domainAndName = "iswind\\username"; 
    Credentials.SetUserCredentials(AppName,domainAndName,args);
   }
   catch (SingleSignonException ex)
   {
    throw ex;
   }
   finally
   {
    wic.Undo();
   } 
此段代码运行在web应用程序里报错：到Credentials.SetUserCredentials(AppName,domainAndName,args);
报错：服务器应用程序不可用
但是如果把此代码编译成Win程序就可以正常执行，而且在portal里手工更改用户密码也是正常的。现在可能的原因就是SPS配置问题了，但是具体哪个地方的问题我还是搞不清楚，希望高手能帮帮我！感激不尽。