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;
}
{
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
Post a Comment