Load Supplementary Items in New Sales Order as Free of Charge Code
void clicked() { SalesTable _salesTable; SalesId sid; SalesLine _salesLine; SuppItemTable SuppItemTable; salesID salesID; ; // //Create the Sales Line for the given Sales Order sid = SalesTable.CustomerRef; if (SalesTable::find(sid).CustomerRef == '') { if (SalesTable.NumberSequenceGroup == 'FOC-SALES') { if (sid != '') { ttsBegin; while Select _SalesLine where _SalesLine.SalesId == sid { Info(_SalesLine.SalesId); Select MultipleQty,ItemRelation from SuppItemTable where SuppItemTable.ItemRelation == _SalesLine.ItemId //&& SuppItemTable.AccountRelation == _SalesLine.CustAccount && _SalesLine.ReceiptDateRequested>=SuppItemTable.From...