AX2009创建采购订单

经常要用代码创建采购和销售订单,需要弄清楚哪些字段是必输的,这段代码经常需要拷贝,放在这里做个备份。
static void CreatePurchDirectly(Args _args)
{
    PurchTable  purchTable;
    PurchLine   purchLine;
    InventDim   inventDim;
    ;
    ttsbegin;
    
//PurchTable
        
//PurchId
    purchTable.PurchId          =    NumberSeq::newGetNum(PurchParameters::numRefPurchId()).num();
      purchTble.PurchaseType   =    PurchaseType::Purch;
    purchTable.initValue();
    
//Vend Account
    purchTable.initFromVendTable(VendTable::find('3000'));
    purchTable.insert();
    
//PurchLine
    purchLine.initFromPurchTable(purchTable);
        
//ItemId
    purchLine.ItemId                = 'B-pack1';
    purchLine.initFromInventTable(InventTable::find(
'B-pack1'));
        
//Qty
    purchLine.PurchQty              = 100;
    purchLine.QtyOrdered            
= 100;
    purchLine.RemainInventPhysical  
= 100;
    purchLine.RemainPurchPhysical   
= 100;
        
//InventDim     Maybe should add some other dimensions.
    inventDim.InventLocationId      = 'GW';
    purchLine.InventDimId           
= InventDim::findOrCreate(inventDim).inventDimId;
    purchLine.insert();
    ttscommit;



}

static void CreatePurchTableThroughAxPurch(Args _args)
{
    AxPurchTable            axPurchTable    
= new AxPurchTable();
    AxPurchLine             axPurchLine     
= new AxPurchLine();
    AxInventDim_PurchLine   axInventDim     
= new AxInventDim_PurchLine();
    ;
    
//PurchTable
        
//Order Account
    axPurchTable.parmOrderAccount("3000");
    axPurchTable.save();

    
//PurchLine
        
//PurchId
    axPurchLine.axPurchTable(axPurchTable);
        
//ItemId
    axPurchLine.parmItemId("B-pack1");
        
//Qty
    axPurchLine.parmPurchQty(100);

        
//InventDim  Maybe should add some other dimensions
    axInventDim.axPurchLine(axPurchLine);
    axInventDim.parmInventLocationId(
'MW');
    axPurchLine.axInventDim(axInventDim);

    axPurchLine.save();

}
posted @   adingkui  阅读(806)  评论(1编辑  收藏  举报
编辑推荐:
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
阅读排行:
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 没有源码,如何修改代码逻辑?
· DeepSeek R1 简明指南:架构、训练、本地部署及硬件要求
· NetPad:一个.NET开源、跨平台的C#编辑器
· PowerShell开发游戏 · 打蜜蜂
点击右上角即可分享
微信分享提示