Dynamics Community Forum Thread Details

Create purchase order direct delivery from sales order(by the CSV file)

Dear all,

I code to create the purchase order direct delivery from sales order by reading parameter from CSV file and create purchase order X++.

But when I set the purchase price for Price line in the Purchase order line from the CSV file, but it does not work.

It's always getting purchase price from the item master(Released product master >> Purchase tab >> Price).

Please advise me how to update source code to get Price from CSV file?

PurchAutoCreate purchAutoCreate;
TmpPurchLinePrice tplP;
VendAccount prevVendAccount;
SalesTable salesTableLocal;
SalesLine salesLineLocal;
InventTable inventTable;
LineNum lineNumber = 0;
PurchCreateFromSalesOrder purchCreateFromSalesOrder;
;

try
{
ttsbegin;
while select salesLineLocal
order by inventTable.PrimaryVendorId
where salesLineLocal.SalesId == ‘00018_036’
join inventTable
where inventTable.ItemId == salesLineLocal.ItemId
{
if (prevVendAccount && prevVendAccount != inventTable.PrimaryVendorId)
{
purchAutoCreate = PurchAutoCreate::construct(tplP, purchCreateFromSalesOrder);
purchAutoCreate.create();
delete_from tplP;
lineNumber = 0;
}

salesTableLocal = salesLineLocal.salesTable();
purchCreateFromSalesOrder = PurchCreateFromSalesOrder::construct();
purchCreateFromSalesOrder.callerRecord(salesTableLocal);

tplP.clear();
lineNumber += 1;
tplP.SalesId = #fromCSV;
tplP.LineNum = #fromCSV;
tplP.SalesLineRefRecId = salesLineLocal.RecId;
tplP.AccountNum = #fromCSV;

tplP.ItemId = #fromCSV
tplP.InventDimId = salesLineLocal.InventDimId;

tplP.Included = NoYes::Yes;

tplP.PurchQty = #fromCSV
tplP.QtyOrdered = #fromCSV

tplP.PurchUnit = salesLineLocal.SalesUnit;
tplP.LineAmount = ???;

tplP.LineDisc = salesLineLocal.LineDisc;
tplP.LinePercent = salesLineLocal.LinePercent;
tplP.MultiLineDisc = salesLineLocal.MultiLnDisc;
tplP.MultiLinePercent = salesLineLocal.MultiLnPercent;

tplP.Price = #fromCSV;
tplP.PriceUnit = salesLineLocal.PriceUnit;
tplP.CurrencyCode = #fromCSV;

tplP.Markup = salesLineLocal.SalesMarkup;

tplP.insert();

prevVendAccount = tplP.AccountNum;
}

if (prevVendAccount)
{
purchAutoCreate = PurchAutoCreate::construct(tplP, purchCreateFromSalesOrder);
purchAutoCreate.create();
}
ttscommit;
}
catch (Exception::Error)
{
ttsabort;
}
}