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();
}

 

posted @ 2011-08-23 13:36  Kurodo  阅读(460)  评论(0编辑  收藏  举报