I'm a feeling generous today. Create a button on the line detail panel and add this script to the button.  It will display in a message box purchase history for all orders still in the open files. You should be able to edit to read the history files if you want.

Dim Input
Input = PO_PurchaseOrderDetail_Bus_ItemCode
strConnectionString = "DSN=SOTAMAS90;UID=User ID Here|Three digit company code here;PWD=password here"
Set connection = CreateObject("ADODB.Connection")
connection.Open strConnectionString

Set RS = CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM  PO_PurchaseOrderDetail WHERE PO_PurchaseOrderDetail.ItemCode ='"& Input &"'"
RS.Open strSQL, connection

msg =""
do while not RS.EOF
msg=msg+"Item: " & rs("ItemCode")& "  Purchase Order: " & rs("PurchaseOrderNo") & "  Qty Ordered: " & rs("QuantityOrdered") & "  Qty Received:" & rs("QuantityReceived") & "  Unit Cost:" & rs("UnitCost") & vbCRLF
RS.movenext
loop
msgbox msg

RS.Close
connection.close

Set RS = nothing
set connection = nothing

Thanks Louie, I seem to be running into an issue and maybe I am not doing something correct. See the script below. I replaced the login credentials as requested on the script. See images below.

Thanks Louie, I seem to be running into an issue and maybe I am not doing something correct. See the script below. I replaced the login credentials as requested on the script. See images below.

How many purchase orders do you have in your open purchase order file?  We have 724 and this script returns pretty fast.

You have to add the Variable (in the grid right above where it says Execute Script on Client).

As always Kevin is correct. You need to add the ItemCode variable in the grid for the program to pass the value to the script. You do not have to check the Return box

Thanks guys that appears to have worked. Its not quite like the binoculars on sales order but it will do. Thanks again