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