X++ CODE TO DO PARTIAL PRODUCT RECEIPT FOR PO

static void PO_partialpackingslip(Args  args)
{
   PurchFormLetter PurchFormLetter;
   PurchTable PurchTable;
   date _ReceivedDate = systemDateGet();
   PurchId _purchId = "000403";
   PurchLine purchLine;
   ;

   PurchTable = PurchTable::find(_purchId,true);
   ttsBegin;
   while select forUpdate * from purchLine
       where purchLine.PurchId == PurchTable.PurchId
   {
       purchLine.PurchReceivedNow = 5;
       purchLine.update();
   }
   ttsCommit;
   purchFormLetter = purchFormLetter::construct(DocumentStatus::PackingSlip);
   //Enum name is recorded, label is registered
   //change enum on purchUpdate to change what value(s) are posted
   PurchFormLetter.update(PurchTable,"test",systemDateGet(),     PurchUpdate::ReceiveNow,AccountOrder::None,NoYes::No,NoYes::No);
}