select forupdate InventTableModule; InventTableModule.ItemId = int2str(i); InventTableModule.ModuleType = ModuleInventPurchSales::Invent; InventTableModule.insert();