Ax 2012 Post Packing Slip Item Arrival journal x++

 Dialog      dialog;
    DialogField field,filedDate;
    JournalCheckPost        journalCheckPost;
    WMSJournalTable _WMSJournalTable;
    PurchFormLetter_PackingSlip _PurchFormLetter_PackingSlip;
    ;
   


    dialog = new Dialog("Batch Receipt");
    dialog.addText("Receipt");
    field = dialog.addField(extendedTypeStr(ProductReceiptId));
    filedDate = dialog.addField(extendedTypeStr(TransDate));

    dialog.run();
    if (dialog.closedOk())
    {
         _WMSJournalTable = WMSJournalTable::find(WMSJournalTable.journalId);
         ttsbegin;

    _PurchFormLetter_PackingSlip = PurchFormLetter::construct(DocumentStatus::PackingSlip);
    _PurchFormLetter_PackingSlip.showQueryForm(false);
    _PurchFormLetter_PackingSlip.update(_WMSJournalTable,
                                                    field.value() ,
                                                   filedDate.value(),
                                                    PurchUpdate::Recorded,
                                                    AccountOrder::None,
                                                    false,
                                                    false);


    ttscommit;
        info("Done");
    }