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.FromDate  &&  _SalesLine.ReceiptDateRequested<=SuppItemTable.ToDate;
   // info(int2str((SuppItemTable.SuppItemQty/SuppItemTable.MultipleQty)*_SalesLine.SalesQty));
    if (SuppItemTable)
    {

// Initialize Sales Line items
Salesline.clear();
salesLine.SalesId = salesTable.SalesId;
salesLine.ItemId = SuppItemTable.ItemRelation;
salesLine.SalesQty=(((SuppItemTable.SuppItemQty/SuppItemTable.MultipleQty)*_SalesLine.SalesQty));
salesLine.createLine(true, true, true, true, true, false);
salesline.update();
// info("Sales Order line Created");
}
}
    Select forupdate _SalesTable where _SalesTable.SalesID == sid;
    {
    if(_SalesTable)
      {

        {
        _SalesTable.CustomerRef = SalesTable.SalesId;
        _SalesTable.update();
        }

      }
    }
ttscommit;
}
else
{
info("There is no SOP reference for Supplementary Item Load.");
}
}
ELSE
{
info("This option is only available for FOC-SALES");
}
}
else
{
info("FOC-SALES order is already created");
}

super();
}

Comments

Popular posts from this blog

How to import data in Ax2009 from a CSV file

July 2017 update: Form Adaptors Replaced by Type Providers

X++ to C# Comparisons