AX: Post Sales Packing Slip

static void PostPackingSlip(Args _args)
{
SalesFormLetter salesFormLetter;
SalesTable salesTable;
SalesLine salesLine;
SalesId salesId;
;

salesTable = SalesTable::find(salesId);
salesFormLetter = SalesFormLetter::construct(DocumentStatus::PackingSlip);
ttsbegin;
while select forupdate salesLine where salesLine.SalesId == salesTable.SalesId && salesLine.SalesStatus == SalesStatus::Backorder
{
salesLine.SalesDeliverNow = salesLine.pickedInTotalSalesUnit();
salesLine.InventDeliverNow = salesLine.SalesDeliverNow;
salesLine.update();


salesFormLetter.update(salesTable, SystemDateGet(), SalesUpdate::DeliverNow, AccountOrder::None, NoYes::No, NoYes::No);
}
ttscommit;
}