What event are you using?  Adding the script to UDS maintenance doesn't make it active.  You have to then attach the script to an event for it to work.

Edit: I misread the OP... I see CPV on QuantityOrdered.  How are you testing?  If your UDF is in the upper grid, it might be working, but simply not refreshing what you see on screen until you click off Lines and back.

For the CustomerPONo, use retVal = oHeaderObj.GetValue(... instead of your child handle.

I’m testing by pulling SO lines data (including) UDF into an Excel workbook. 

I think that’s it, I didn’t put the UDF on the grid. 

I will then let y’all know. I feel like a big dummy. 

I put the UDF into the Grid of SO Data Entry.

I am able to type data into the field and retrieve it.

I am still NOT getting any results from the simple script.

I have clicked away from the lines tab, then back with no change.

I'm stumped.

I re-compiled and am getting expected results.  Many thanks.

I let you know how the more advanced script goes (or not).

I'm almost getting exactly what I'm after.  Thanks to each of you.

I'm still missing the Item Number and the ARCustDiv.  I think I just don't have the name of the data as used in the Business Object.  How can I find that info?

The complete script is below.

Complete Script

dim retVal

dim item
dim po
dim so_num
dim div
dim ref1
dim ref2

item = ""
po = ""
so_num = ""
div = ""
ref1 = ""
ref2 = ""

retVal = oBusObj.GetValue("ItemNo$", item)

retVal = oHeaderObj.GetValue("CustomerPONo$", po)

retVal = oHeaderObj.GetValue("SalesOrderNo$", so_num)

retVal = oHeaderObj.GetValue("ARCustDiv$", div)

ref1 = item & " / " & po
'ref1 = "Testing of UD scripting for Ref1"

ref2 = so_num & " / " & div(1,1) & "0"
'ref2 = "Testing of UD scripting for Ref2"

retVal = oBusObj.SetValue("UDF_SHIP_REF1$", ref1)
retVal = oBusObj.SetValue("UDF_SHIP_REF2$", ref2)

I'm almost getting exactly what I'm after.  Thanks to each of you.

I'm still missing the Item Number and the ARCustDiv.  I think I just don't have the name of the data as used in the Business Object.  How can I find that info?

The complete script is below.

Complete Script

dim retVal

dim item
dim po
dim so_num
dim div
dim ref1
dim ref2

item = ""
po = ""
so_num = ""
div = ""
ref1 = ""
ref2 = ""

retVal = oBusObj.GetValue("ItemNo$", item)

retVal = oHeaderObj.GetValue("CustomerPONo$", po)

retVal = oHeaderObj.GetValue("SalesOrderNo$", so_num)

retVal = oHeaderObj.GetValue("ARCustDiv$", div)

ref1 = item & " / " & po
'ref1 = "Testing of UD scripting for Ref1"

ref2 = so_num & " / " & div(1,1) & "0"
'ref2 = "Testing of UD scripting for Ref2"

retVal = oBusObj.SetValue("UDF_SHIP_REF1$", ref1)
retVal = oBusObj.SetValue("UDF_SHIP_REF2$", ref2)

When you create/edit scripts in the User Defined Script Maintenance interface, there is a field picker icon on the right that is very helpful.  The name of the field you want is "ARDivisionNo$"

I use the file layouts to get field names:

https://help-sage100.na.sage.com/2020/FLOR/index.htm

Super helpful. Thanks

100% success.  y'all are the best. Thanks!

FINAL SCRIPT

dim retVal

dim item
dim po
dim so_num
dim div
dim ref1
dim ref2

item = ""
po = ""
so_num = ""
div = ""
ref1 = ""
ref2 = ""

retVal = oBusObj.GetValue("ItemCode$", item)

retVal = oHeaderObj.GetValue("CustomerPONo$", po)

retVal = oHeaderObj.GetValue("SalesOrderNo$", so_num)

retVal = oHeaderObj.GetValue("ARDivisionNo$", div)

ref1 = "Item: " & item & " / PO: " & po
'ref1 = "Testing of UD scripting for Ref1"

ref2 = "Order: " & so_num & " / Div: " & left(div,1) & "0"
'ref2 = "Testing of UD scripting for Ref2"

retVal = oBusObj.SetValue("UDF_SHIP_REF1$", ref1)
retVal = oBusObj.SetValue("UDF_SHIP_REF2$", ref2)