AX 2009 库存转移日记账

转移日记账

一些生产业务需要产生相应的转移日记账，这里写一个转移日记账的创建方法

 

void clicked()
{
   MapIterator             m_mapItor;
   ModelApplyTable         ModelApplyList,m_Model;
   InventJournalTable      m_InvJourT;
   InventJournalTrans      m_InvJourTrans;
   InventJournalName       m_InvJourName;
   InventLocationId        m_LocatId;
   ProdTable               m_Prod;
   List                    list = new List(Types::Record);
   ListIterator            listItor;
   JournalTableData        JournalTableData;
   InventDim               dim;
   ;

   //日记账名称表
   m_InvJourName = InventJournalName::find("C_MOD_01");

   //日记账头
   m_InvJourT.clear();
   m_InvJourT.JournalNameId = m_InvJourName.JournalNameId;
   m_InvJourT.initFromInventJournalName(InventJournalName::find(InventParameters::find().TransferJournalNameId));
   JournalTableData      = JournalTableData::newTable(m_InvJourT);
   m_InvJourT.JournalId  = JournalTableData.nextJournalId();  //产生日记账号

   m_InvJourT.SystemBlocked = ture; //日记账闭塞锁
   m_InvJourT.Posted = true; //过账
   m_mapItor = FormMarkupClass.getMapIterator();

    while (m_mapItor.more())
    {
        update_recordset ModelApplyList
         setting
            ModelClass = ModelClass::Send,
            ModelState = ModelState::Send
         where ModelApplyList.RecId == m_mapItor.key();

        m_Model = m_mapItor.value();

        if(m_LocatId == "")
        {
            m_LocatId = m_Model.InventLocationId;
        }

        list.addStart(m_Model);

        m_mapItor.next();
    }

    m_InvJourT.iws_locationid = m_LocatId;

    m_InvJourT.insert();

    listItor = new ListIterator(list);

    info(m_InvJourT.VoucherSeqId);

    ttsbegin;

    while(listItor.more())
    {
        m_Model = listItor.value();

        //日记账行
        m_InvJourTrans.clear();
        m_InvJourTrans.initValue();
        m_InvJourTrans.initFromInventJournalTable(m_InvJourT);
        m_InvJourTrans.ItemId = m_Model.ProdItemId;
        m_InvJourTrans.initFromInventTable(InventTable::find(m_Model.ProdItemId));
        //源InventDim
        m_Prod = ProdTable::find(m_Model.ProdId);
        dim = m_Prod.inventDim();
        m_InvJourTrans.InventDimId = dim.inventDimId;
        //到InventDim
        dim = m_InvJourTrans.inventDim();
        dim.wMSLocationId = m_Model.wMSLocationIdTwo;
        dim = InventDim::findOrCreate(dim);
        m_InvJourTrans.ToInventDimId = dim.inventDimId;

        m_InvJourTrans.Qty = 1;

        if (InventJOurnalName::find(m_InvJourT.JournalNameId).ZeroCostFlag && m_InvJourTrans.CostAmount)
        {
            m_InvJourTrans.CostPrice = 0;
            m_InvJourTrans.CostAmount = 0;
        }

        m_InvJourTrans.insert();

        listItor.next();
    }

    ttscommit;

    Model_DS.executeQuery();
}