X++:
public boolean fetch()
{
purchLine _purchLine;
inventDim _inventDim;
inventDim _inventDim2;
;
while select InventLocationId from _inventDim
group by InventLocationId
exists join _purchLine
where _purchLine.PurchId == purchTable.PurchId
&& _purchLine.InventDimId == _inventDim.inventDimId
{
inventDim.InventLocationId = _inventDim.InventLocationId;
element.send(PurchTable);
while select purchLine
where purchLine.PurchId == purchTable.PurchId
exists join _inventDim2
where _inventDim2.inventDimId == purchLine.InventDimId
&& _inventDim2.InventLocationId == inventDim.InventLocationId
{
element.send(purchLine);
}
element.execute(3);
element.newPage();
}
return true;
}