Dim loadResponse As LoadCollectionResponseData

                Dim strFilter As String

 

                strFilter = String.Format("JournalId = '{0}' AND BatchStatus = 'P'", journalID)

                loadResponse = Me.IDOClient.LoadCollection("ILC_JournalBatches", "BatchStatus,BatchId", strFilter, String.Empty, 0)

 

                Dim count As Integer = loadResponse.Items.Count

                If count > 0 Then

 

                    For i As Integer = 0 To count - 1

 

                        Dim batchID As Integer = loadResponse(i, "BatchId").GetValue(Of Integer)()

 

                        Dim updateRequest As UpdateCollectionRequestData

                        Dim updateResponse As UpdateCollectionResponseData

                        Dim item As IDOUpdateItem

 

                        ' Create the update request

                        updateRequest = New UpdateCollectionRequestData("ILC_JournalBatches")

 

                        ' Create the item to update

                        ' Update request must include the _ItemId property, or the RecordDate and RowPointer properties.

                        item = New IDOUpdateItem(UpdateAction.Update, loadResponse.Items(i).ItemID)

 

                        ' Set the key fields to identify the record

                        item.Properties.Add("JournalId", journalID, False)

                        item.Properties.Add("BatchId", batchID, False)

 

                        ' Set the field(s) to update

                        item.Properties.Add("BatchStatus", "A", True)

 

                        ' Add the item to the request

                        updateRequest.Items.Add(item)

 

                        ' Execute the update

                        updateResponse = IDOClient.UpdateCollection(updateRequest)

                    Next i

                End If