Unfortunately, Purchase Order Printing does not use the business object to change the PrintPurchaseOrders$ and OrderStatus$ fields.  This was done for performance purposes.

Hi, would you be willing to share your script and the set-up for your UDT? Even if it doesn't work for PO Printing, a partial trail would be much better than nothing. Thanks in advance for any help.

Meg

Hi, would you be willing to share your script and the set-up for your UDT? Even if it doesn't work for PO Printing, a partial trail would be much better than nothing. Thanks in advance for any help.

Meg

Just a generic shadow table script on a UDT. Set to run as a column post validate on the status field.

oShadow = 0

sPO = ""

sKey = ""

sStatus = ""

sUser = oSession.UserCode

sDate = oSession.SystemDate

sOrderType = ""

sTime = FormatDateTime(Now,vbLongTime)

retVal = oBusObj.GetValue("PurchaseOrderNo$", sPO)

oShadow = oSession.GetObject("CM_UDTMaint_bus", "SY_UDT_PO_Audit")

if oShadow <> 0 then

Set oShadow = oScript.AsObject(oShadow) ' establish oShadow as an object handle

retVal = oBusObj.GetValue("PurchaseOrderNo$", sPO)

retVal = oBusObj.GetValue("OrderStatus$", sStatus)

retVal = oBusObj.GetValue("OrderType$", sOrderType)

retVal = oShadow.SetKey(sPO & sStatus & sDate & sTime)

retVal = oShadow.SetValue("UDF_PO$", sPO)

retVal = oShadow.SetValue("UDF_STATUS$", sStatus)

retVal = oShadow.SetValue("UDF_USER$", sUser)

retVal = oShadow.SetValue("UDF_DATE$", sDate)

retVal = oShadow.SetValue("UDF_ORDER_TYPE$", sOrderType)

retVal = oShadow.SetValue("UDF_TIME$", sTime)

retVal = oShadow.Write()

else

' write out error to the activity log. Scripts should always use "M" for first argument (Miscellaneous)

' to differentiate from "E"rrors and "A"ctivity types.

retVal = oSession.WriteLog("M", oSession.LastErrorMsg & "Unable to update shadow table, need to run Sync when available.")

end if