Pick a sales order line through code

Code snippet to pick a sales order line.............

InventMovement movement;
TmpInventTransWMS TmpInventTransWMS;
inventTrans inventTrans;
InventTransWMS_Pick inventTranspick;
SalesLine SalesLine;
SalesId SalesId;
InventTransId InventTransId;
Qty Qty_topick;

;

SalesId = "_SalesId";
InventTransId = "_InventTransId";
Qty_topick = "_QTy to Pick";

select SalesLine where SalesLine.SalesId== SalesId && SalesLine.InventTransId == inventTransId;
{
movement = InventMovement::construct(SalesLine);
select inventtrans where inventtrans.TransRefId == SalesLine.salesid &&
inventTrans.inventTransId ==InventTransId ;
inventTranspick = new InventTransWMS_Pick(movement,tmpInventTransWMS);
TmpInventTransWMS.InventQty= (UnitConvert::qty(Qty_topick,SalesLine.SalesUnit,inventTable::find(SalesLine.ItemId).inventUnitId(),SalesLine.ItemId));
TmpInventTransWMS.InventDimId=SalesLine.InventDimId;
TmpInventTransWMS.RefRecId=inventTrans.RecId;
TmpInventTransWMS.LineNum=SalesLine.LineNum;
TmpInventTransWMS.write();
InventTransWMS_Pick::updateInvent(inventTranspick,TmpInventTransWMS);
TmpInventTransWMS.clear();
SalesLine.clear();
inventTrans.clear();
}