Create PO

static void CreatePO(Args _args)
{
    NumberSeq numberSeq;
    Purchtable Purchtable;
    PurchLine PurchLine;
    PurchFormLetter purchFormLetter;
    PurchReqLine        purchReqLine,purchReqLine1;
    InventDim inventDim;
    str newPurchId;
    ;
    ttsbegin;
        numberSeq = NumberSeq::newGetNum(purchParameters::numRefPurchId());
        numberSeq.used();
        //newPurchId = numberSeq.num();
        // Initialize Purchase order values
        Purchtable.initValue();
        Purchtable.PurchId = numberSeq.num();
        Purchtable.OrderAccount = 'AAHCO00336';
        Purchtable.initFromVendTable();
        if (!Purchtable.validateWrite())
        {
            throw Exception::Error;
        }
        Purchtable.insert();
        // Initialize Purchase Line items
        PurchLine.PurchId = Purchtable.PurchId;
        PurchLine.ItemId = 'GEGE000002';
        PurchLine.PurchQty = 10.00;
        inventDim.InventSiteId = 'Survey-41';
        inventDim.InventLocationId = 'Sy41-Site';
        inventDim = InventDim::findOrCreate(inventDim);
        PurchLine.InventDimId = inventDim.inventDimId;
        PurchLine.DefaultDimension = purchReqLine.DefaultDimension;
        PurchLine.createLine(true, true, true, true, true, false);
        info(Purchtable.PurchId);
     
    ttscommit;
   

}


Comments

Popular posts from this blog

Create RFQ through X++

Base enum values in Dynamics 365

Project Id through X++ code