VB script - Read PO Detail bus - EoF error

Posted By Nishanth over 8 years ago

I am writing a script on the purchase order header which looks at each line in the purchase order and looks up for the Item code in the purchase order detail bus to get information from previous order for that item.

I am using Set Browse Index EOF to loop through the transaction in the Purchase Order Detail bus, but, not sure why, my script is not going through EOF. Here is part of the code that.

Set oPurOrdDet = oSession.AsObject(oSession.GetObject("PO_PurchaseOrderDetail_bus"))
retVal = oPurOrdDet.SetBrowseIndex("KITEMWHSE", "")
retVal = oPurOrdDet.SetBrowseFilter(ItemCode & WarehouseCode & "" & "")
retVal = oPurOrdDet.MoveFirst()

Do until oPurOrdDet.EOF = 1
retVal = oPurOrdDet.GetValue("PurchaseOrderNo$", PONo)
retVal = oPurOrdDet.GetValue("ItemCode$", ItemCode1)

retVal = oPurOrdDet.MoveNext()

Loop

Any help is greatly appreciated.

Thanks,

Nishanth

0 Kevin M over 8 years ago

Do until oPurOrdDet.EOF
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 Nishanth over 8 years ago in reply to Kevin M

It still skips the steps in the loop, if I take out EOF and Loop, I locates the first entry according to the filter though.

I have the same concept on a different table. That is I search for Purchase order details with a script on sales order entry and that works well. So, I am starting to wonder, if pulling data from the same table where the scripts is running can cause any problems?

Nishanth
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 Nishanth over 8 years ago in reply to Nishanth

FYI: If I use Do until oPurOrdDet.EOF = 0, it just keeps on finding the current PO in a never ending loop.

Nishanth
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel
0 Kevin M over 7 years ago in reply to Nishanth

I meant get rid of the "= 1" on that line, but a never ending loop on the same record sounds like your MoveNext() isn't working.
Something else which might be wrong is that your lookup key may need to be null padded between values. Try it with just the ItemCode as the filter to see if that works... or something like this:
retVal = oPurOrdDet.SetBrowseFilter(ItemCode & String(30-Len(ItemCode),Chr(0)) & WarehouseCode)
Cancel
Vote Up 0 Vote Down

Sign in to reply

Verify Answer

Cancel

Sage 100

VB script - Read PO Detail bus - EoF error

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING