Update record in IDO with filter

I am trying to update the quantity in my custom IDO when the Item variable (ItemVar) equals the Item number in the database record. I am not sure where or how I need to add this filter. Can someone offer guidance. Here is what I have:

Dim request As New UpdateCollectionRequestData
Dim response As New UpdateCollectionResponseData
Dim newReserve As New IDOUpdateItem
Dim dd As DateTime = DateTime.UtcNow.AddHours(-6)

'determine if it is a Unit of Measure or Pallet/Crate or Box
Dim Unit As String
If ThisForm.Components("CrateCB").Value = "1" Then
Unit = "Crate/Pallet"
ElseIf ThisForm.Components("BoxCB").Value = "1" Then
Unit = "Box"
Else
Unit = ThisForm.Variables("UnitVar").Value

End If
'
request.IDOName = "ue_JCMReserves"
request.RefreshAfterUpdate = True
Try

If ThisForm.Components("ReleaseCB").Value = "1" Then
Dim newcount As Decimal = 0
newReserve.Action = UpdateAction.Update
newReserve.Properties.Add("quantity", newcount)
newReserve.Properties.Add("released", dd)

request.Items.Add(newReserve)

response = IDOClient.UpdateCollection(request)
End If
Catch ex As Exception
MsgBox("Error" & vbCrLf & ex.Message)
End Try

Find more posts tagged with

Accepted answers

All comments

BradleyBrown

You need to add the key properties to the updateitem and set the third parameter to false; i.e. newReserve.Properties.Add("Item", itemVar, false)

Legacy Contributor

Tried that, but get this error

BradleyBrown

Apologies... I missed that you're not setting the ItemId of the record in the upateitem object, which is something you have to do on updatecollection requests. You'll usually get this as part of a loadcollectionrequest just prior to the update request.

Stephen Cena

I think I know what the problem is.

If you're doing an actual update (changing existing data), then you first need to get its ID. To do that, do a LoadCollectionRequestData/LoadCollectionResponseData using the Filter you want. Each returned item will have an ID. You need that ID to tell CSI which record to update. So:

newReserve = New IDOUpdateItem(UpdateAction.Update, <RESPONSEOBJECT>.ItemID)

(I'm hoping that's the proper VB.NET constructor).

If I'm not clear, let me know & I'll try again.

Legacy Contributor

Nothing I have tried seems to work. Here is what I have updated to. Any insight/help you can provide is greatly appreciated!!

Sub GetReserves()

If ThisForm.Components("ReleaseCB").Value = "1" Then
ThisForm.Components("PullCB").SetValue("0")
ThisForm.Components("ReserveCB").SetValue("0")
ThisForm.Components("OrderNumEdit").Enabled = True
ThisForm.Components("OrderNumEdit").Required = True
ThisForm.Components("LocEdit").Enabled = True
ThisForm.Components("OrderNumEdit").Visible = False
ThisForm.Components("OrdNumDL").Visible = True
ThisForm.Variables("OrderNumVar").Value = ThisForm.Components("OrdNumDL").Value
ThisForm.Variables("LabelType").Value = "RELEASE"
Dim collection As LoadCollectionResponseData
Dim itemnum As String = ThisForm.Components("ItemEdit").Value
collection = IDOClient.LoadCollection("ue_JCMReserves", "item, quantity", "item = '20040'", "", -1)
If collection.Items.Count > 0 Then
ThisForm.Components("static1").Value = collection.Item(0, "item").ToString
End If

End If

End Sub

Stephen Cena

I'm not a VB.NET guy, so forgive any butchering of the language. This should hopefully get you closer:

Dim LOADrequest As New LoadcollectionResponse

Dim LOADresponse As LoadCollectionResponseData

Dim UPDATErequest As New UpdateCollectionRequestData

Dim UPDATEresponse As UpdateCollectionResponseData

Dim newReserve As IDOUpdateItem

LOADrequest.IDOName = 'YOUR_IDO_HERE'

LOADrequest.RecordCap = 1

LOADrequest.PropertyList.SetProperties('ALL_THE_PROPERTIES_TOCHANGE')

LOADrequest.Filter = '(Item=' . ThisForm.Variables('itemvar') . ''')

LOADresponse = IDOClient.LoadCollection(LOADrequest)

UPDATErequest.IDOName = 'YOUR_IDO_HERE'

newReserve = New IDOUpdateItem(UpdateAction.Update, LOADResponse.Items(0).ItemID)

newReserve.Properties.Add("quantity", newcount)

UPDATErequest.Items.Add(newREserve)

UPDATEresponse = IDOClient.UpdateCollection(request)

That should be the general idea. You use the LoadCollection with your filter to determine which items you want to change. Then for each item in the LoadCollectionResponseData, use its ItemId with the IDOUpdateItem to set the properties you want changes & then execute.

Hope this helps!

Legacy Contributor

Stephen - I appreciate all your help. I feel like I am closer! This is what I have and error I am now getting. Any thoughts?

Try

Dim itemnum As String = ThisForm.Components("ItemEdit").Value
Dim collection As New LoadCollectionRequestData
Dim cresponse As LoadCollectionResponseData
Dim cupdaterequest As New UpdateCollectionRequestData
Dim cupdateresponse As UpdateCollectionResponseData
Dim reserved As IDOUpdateItem
collection.IDOName = "ue_JCMReserves"
collection.RecordCap = 1
collection.PropertyList.SetProperties("item, quantity")
collection.Filter = ("item = '20040'")
cresponse = IDOClient.LoadCollection(collection)
cupdaterequest.IDOName = "ue_JCMReserves"
reserved = New IDOUpdateItem(UpdateAction.Update, cresponse.Items(0).ItemID)
reserved.Properties.Add("item", "quantity")
cupdaterequest.Items.Add(reserved)
cupdateresponse = IDOClient.UpdateCollection(cupdaterequest)
Catch ex As Exception
MsgBox("Error" & vbCrLf & ex.Message)
End Try

Copyright © 2025 Infor. All rights reserved.