Transfer Orders: Post Pick List in Code

Here's a code sample showing how to post a Transfer Order pick list in X++ in 2009:

void TO_PostPickList(InventTransferId transferId)
{
    //will post the pick list.
    InventTransferParmTable  itpt;
    InventTransferUpdPick    itup;
    ;
    
    //make sure we haven't already posted the pick list
    //if the TO is changed, this will return a false positive and won't re-post the pick list
    //TODO beef up the check on whether or not the Pick List should be postsed
    select * from itpt where itpt.TransferId == transferId &&
                             itpt.UpdateType == InventTransferUpdateType::PickingList;
                             
    if(itpt.RecId == 0)
    {

        itpt.clear();
        itpt.initParmDefault();

        itpt.ParmId                     = RunBaseMultiParm::getSysParmId();
        itpt.TransferId                 = transferId;
        itpt.UpdateType                 = InventTransferUpdateType::PickingList;
        itpt.PrintTransferPickingList   = NoYes::No;
        itpt.PickUpdateQty              = InventTransferPickUpdateQty::All;
        itpt.EditLines                  = NoYes::Yes;
        itpt.ExplodeLines               = NoYes::Yes;

        itpt.InventDimFixedReceiveList = 0;  // See note below on how to compute this.

        itup = InventTransferUpdPick::newParmBuffer(itpt);

        itup.run();
    }
    /*
    #DEFINE.INVENTLOCATIONID_IDX(0)
    #DEFINE.BATCH_IDX(1)
    #DEFINE.LOCATION_IDX(2)
    #DEFINE.PALLET_IDX(3)
    #DEFINE.SERIALID_IDX(4)
    #DEFINE.CONFIGID_IDX(5)
    #DEFINE.INVENTSIZEID_IDX(6)
    #DEFINE.INVENTCOLORID_IDX(7)

    binary: 11110101
    decimal: 245
    */
}