将 转移单 自动发货

说到开发，首先想到的是对语言语法细节的熟悉，对面向对象的理解．对于AX的二次开发，这些当然也比较重要，但相对来说更加重要的是对系统已有的几千张表和几千个类的熟悉．决定二次开发速度的主要因素也是对这些表和类的理解，因为系统中有大量的功能已经封装成了比较好的类可以调用，比如获取库存的现有量想到InventOnhand可以使用，想获取此前某一天的库存量可以用InventSumDate，销售订单和采购订单的过账可以调用SaelsFormLetter和PurchFormLetter的update方法等等．
有些公司一些移库，采购销售的动作并不想通过人为操作过账，而是想让系统自己完成，这时用代码生成相应记录并自动过账就比较重要了．下面的代码是创建并装运转移单的代码．

static void newInventTransfer(Args _args)
{

    InventTransferTable             inventTransferTable;
    InventTransferLine              inventTransferLine;
    InventTransferParmTable         inventTransferParmTable;
    InventTransferParmLine          inventTransferParmLine;
    InventDim                       inventDim;
    InventTransferMultiShip         inventTransferMultiShip = InventTransferMultiShip::construct();
    InventTransferId                inventTransferId;
    NumberSeq                       numberSeq               =  NumberSeq::newReserveNumFromCode(InventParameters::numRefTransferId().NumberSequence);
    Num                             parmId                  =  NumberSeq::newReserveNumFromCode(NumberSeqReference::findReference(typeId2ExtendedTypeId(typeid(ParmId))).NumberSequence).num();
    ;

    ttsbegin;
        //Insert inventTransferTable
        inventTransferId                               =    numberSeq.num();
        inventTransferTable.TransferId                 =    inventTransferId;
        inventTransferTable.initValue();
        inventTransferTable.InventLocationIdFrom       =   'GW';
        inventTransferTable.InventLocationIdTransit    =   'GW-T';
        inventTransferTable.InventLocationIdTo         =   'EW';
        inventTransferTable.insert();

        //Insert    inventTransferLine
        inventTransferLine.initFromInventTransferTable(inventTransferTable,true);
        inventTransferLine.ItemId    =   'CN-01';
        inventTransferLine.initFromInventTable(InventTable::find('CN-01'));
        InventMovement::setAutoReserving(inventTransferLine);
        InventMovement::bufferSetRemainQty(inventTransferLine,InventMovSubType::None);      //Set Remain Qty
        InventMovement::bufferSetRemainQty(inventTransferLine,InventMovSubType::TransferOrderTransitFrom);  //Set Receive Qty
        inventTransferLine.LineNum                     =   1;
        inventDim.InventLocationId                     =   'GW';
        inventTransferLine.InventDimId                 =   InventDim::findOrCreate(inventDim).inventDimId;
        inventTransferLine.RemainStatus                =   InventTransferRemainStatus::Shipping;
        inventTransferLine.insert();

        //Insert inventTransferParmTable and inventTransferParmLine
        inventTransferParmTable.ParmId                 =   parmId;
        inventTransferParmTable.TransferId             =   inventTransferId;
        inventTransferParmTable.UpdateType             =   InventTransferUpdateType::Shipment;
        inventTransferParmTable.ShipUpdateQty          =   InventTransferShipUpdateQty::All;
        inventTransferParmTable.EditLines              =   NoYes::No;
        inventTransferParmTable.AutoReceiveQty         =   NoYes::No;
        inventTransferParmTable.TransDate              =    SystemDateGet();
        inventTransferParmTable.insert();

        //Ship
        inventTransferMultiShip.runUpdate(inventTransferParmTable);
    ttscommit;


}

当然这里只是写了个Job，这个方法完全可以像SalesFormLetter的update方法那样封装一下放到类InventTransferUpd中供调用．