Run from a header event or button script.

Set oLines = oSession.AsObject(oBusObj.Lines)

retVal = oLines.MoveFirst()

do until oLines.EoF

' do stuff…

retVal = oLines.MoveNext()

loop ' oLines

Thank you. It doesn't seem to be triggering on any header events though. Might it have something to do with the 'Do you want to invoice the complete purchase order?" message box that comes up on the Lines tab?

This is my script:

if oSession.CompanyCode = "MBT" then

nqtyrec = 0
nqtyinv = 0
oLines = 0

retVal = oBusObj.GetValue("QuantityReceived",nqtyrec)
retVal = oBusObj.GetValue("QuantityInvoiced",nqtyinv)

Set oLines = oSession.AsObject(oBusObj.Lines)
retVal = oLines.MoveFirst()

do until oLines.EOF

retVal = oLines.SetValue("QuantityInvoiced", nqtyrec)
retVal = oLines.Write()
retVal = oLines.MoveNext()

loop

end if

Hello Kevin,

Thanks for getting back to me.  It doesn't look like it is getting into the script at all, and I can't seem to figure out why.  This is all I get in the debug window. 

Thanks,

Kevin

Allow External Access (in company maintenance)?

Yes, external access is on.  We have several scripts running without issues. 

When I get into something frustrating like that I adapt a copy of the script as a button, using messagebox instead of debug print.  Button scripts are often better for testing because you don't need to recompile after each change.

I have only done a few button scripts.  I have tried running this script as a button and keep getting OLE errors.  I have commented out the debug.print lines.

Make sure your button is set to run on the server, for access to business objects.

I tried both Server and Client and got the same results.

Server should work, if Allow External Access is enabled for that company code.

OMG, I was testing in a company that I usually don't use and you were correct about Allow External Access.  It was too obvious the first two times you mentioned it.  I thought I had it set for all the companies I use.  Thanks so much for your help!

Kevin

I believe checking that the ReceiptType is equal to "I" would be fine for filtering for just entries done under Receipt of Invoice Entry but cause it to miss entries done under Receipt of Goods Entry that have an invoice number entered.  If the goal is to match the quantity invoiced to the quantity received, then checking the InvoiceNo field for a value that is not blank would work better.

I believe checking that the ReceiptType is equal to "I" would be fine for filtering for just entries done under Receipt of Invoice Entry but cause it to miss entries done under Receipt of Goods Entry that have an invoice number entered.  If the goal is to match the quantity invoiced to the quantity received, then checking the InvoiceNo field for a value that is not blank would work better.

RoG sets quantity invoiced to match quantity received (in that receipt) automatically.

Good to know.