Speed up batch update of warehouse item records

Question

I've written a program that allows the user to update the warehouse item table with a new gl account.  The user can specify which warehouse to perform the update for and then I am using the data browser against OITM & then accessing the warehouse object to loop through the list of warehouses for that item.  If the warehoue matches the user selection then I update the gl account.
Doing this for each of their 15,000 items  (reading  up to 30 warehouse records per item) is INCREDIBLY SLOW.  At the current rate, it will take 30 hours to process.  I find batch processing to be a huge problem for the B1 OO structure.
Is there some way for me to speed this up?  here's some of the code for an idea of what I'm doing:
        Do While _vItmsgrp.Browser.EoF = False
            _GrpCod = (itmGrpRS.Fields.Item(0).Value)
            sql = "Select itemcode from oitm where itmsgrpcod = '" & _
                 _GrpCod & "' order by 1"
            itmRS.DoQuery(sql)
            If Not itmRS.EoF Then
                _vItm.Browser.Recordset = itmRS
                Dim item As String
                Dim fullwhse As String
                Dim whse As String
                Dim employee As String
                Do While _vItm.Browser.EoF = False
                        item = _vItm.ItemCode
                               If _vItm.WhsInfo.Count > 0 Then
                             Dim x As Short
                           Do While x < _vItm.WhsInfo.Count
                         if _vItm.WhsInfo.WarehouseCode = SelectedWhse then
                              _vitm.whsinfo.varianceac = glacct
                              exit loop
                    Try
                                     _vItm.Update()
                            Catch ex As Exception
                                bad += 1
                            End Try
                        End If
I've left out some code for readability, but you get the idea
There must be a better way!

Answer 1

Hi John,
Are all your items always assigned to all your warehouses? If not, you could speed things up by filtering out those items that don't have a link to the selected warehouse before you begin your loop.
i.e.
sql = "Select T0.itemcode from oitm T0 inner join oitw T1 on T0.ItemCode = T1.ItemCode where T0.itmsgrpcod = '" &  _GrpCod & "' and T1.whscode = '" & SelectedWhse & "' order by 1"
Of course, if the warehouse is always going to be allocated to every item then this will make no difference :-\
Kind Regards,
Owen