partial product receipt for purchase order

static void Job219(Args _args)
{
    PurchFormLetter   PurchFormLetter;
    PurchLine         PurchLine,PurchLineloc;
    SON_AttachmentELMOInvoice       attachmentELMOInvoice;
    str  invoiceNumber;
    PurchTable  purchTable;
    int i=0;

    purchTable = purchTable::find('00002639 ');


   PurchFormLetter = PurchFormLetter::construct(DocumentStatus::PackingSlip);

    while select PurchLine group by DeliveryDate
       where PurchLine.PurchId == purchtable.PurchId
    {
        ttsBegin;

        while   select PurchLineloc  where PurchLineloc.DeliveryDate == PurchLine.DeliveryDate
            && PurchLineloc.PurchId == purchtable.PurchId
        {
            PurchLineloc.selectForUpdate(true);
            PurchLineloc.InventReceivedNow = PurchLineloc.PurchQty;
            PurchLineloc.PurchReceivedNow = PurchLineloc.PurchQty;
            PurchLineloc.update();

        }

        ttsCommit;

        invoiceNumber = "rdgt133fs";

       PurchFormLetter.update(purchtable,invoiceNumber,attachmentELMOInvoice.DeliveryDate,PurchUpdate::ReceiveNow);

    }

}