Adding PO Vendor field to Purchase Order Receiving

Ok I've added the PO Vendor field (from IDO poitems, property PoVendorPo) and while this field populates on Purchase Orders and Purchase Order Lines, it does not populate on the form Purchase Order Receiving where I've just added it. It's been added to the grid and as an edit on the form, but when pulling open POs, this information does not populate. What can I be missing, please? The property was properly bound to the edit component and to the grid, no warnings or error messages were thrown. Thank you and I'm grateful for all assistance, thanks!

Find more posts tagged with

Accepted answers

All comments

ChuckAtDRI

If you look at the Collections tab on the Purchase Order Receiving form, you will see that the collection uses a Custom Load Method to pull in its data. That means there is a SQL Stored Procedure or IDO Hand-Coded Method doing the work. You would either have to do some form-side scripting to populate the field after the primary collection has been refreshed, or do a procedure/method change to the logic that pulls in the data. Since this is pretty easy, I'd recommend doing the form-side scripting as it doesn't require IDO and procedure changes.

Kurt Wireman

Thank you very much! To do form-side scripting, do you have documentation for that? My knowledge goes to SPs, IDOs and extensions, but not much in form scripting. Thank you again!

ChuckAtDRI

This is for a form report, but same concept.

#Sub is called from StdObjectRefreshCompleted()

Sub BDK_LoadAdditionalFields()

Dim oCol as IWSIDOCollection = ThisForm.PrimaryIDOCollection
dim sMRRNum as String = ""
Dim sOldMRRNum as String = ""
Dim sValue as String = ""

Try
Dim oLoadResponse as LoadCollectionResponseData
Dim sFilter as String = ""

  For row as integer = 0 to oCol.GetNumEntries() -1
     sMRRNum = oCol.Items(row).Item("MrrNum").GetValueOfString("")

     If sMRRNum <> sOldMRRNum Then
        sFilter = String.Format("MrrNum = '{0}'",sMRRNum)
        sValue = ""

        oLoadResponse = Me.IDOClient.LoadCollection("RS_QCMrrs","RowPointer,Charfld3",sFilter,"",1)
        
        If oLoadResponse.Items.Count > 0 Then
           sValue = oLoadResponse.Item(0,"Charfld3").Value
        End If

        sOldMRRNum = sMRRNum
     End If

     oCol.Items(row).Item("UDFShortText1").SetValue(sValue)
  Next

Catch ex as Exception

End Try

End Sub

Sam Tan

If you just want a quick fix, here is one old trick:

Hence, in your case:

COLLECTION(SL.SLPos(PROPERTY(VendOrder) FILTER(PoNum = FP(PoNum))))

Copyright © 2025 Infor. All rights reserved.