Ray P

The refNo$ is actually the string that will be returned with the next entry number.  Set, your transaction type first "6"=Adjustment, and then call the GetNextEntryNo(sNextNum).  Then use that variable to set the Transaction Number.

E

Thanks for the quick response.  Still no dice.  Here's part of my code:

If Not (IsObject(oIM)) Then
retVal = oSS.nSetProgram(oSS.nLookupTask("IM_Transaction_ui"))
Set oIM = oScript.NewObject("IM_Transaction_bus", oSS)
End If

vNextEntryNo = ""

retVal = oIM.nSetKeyValue("EntryType$", "6")
retVal = oIM.nGetNextEntryNo(vNextEntryNo)

At this point vNextEntryNo still = ""

I think the variable name for your SetKeyValue() should be TransactionType$.

retVal = oIM.nSetKeyValue("TransactionType$", "6")

Good catch!  That worked.  Thank you.

Hi Ray P, if the above suggested answer helped, please do mark it as verified  for the benefit of others in this forum :). Thank you!

 Also, if you have a minute, tell us about your great experience on Sage City, take this short survey

It looks like your item code is a lot/serial item.  You need to do lot/serial distribution.

I'm trying this but now it's giving this error: 'You cannot set unless transaction type is sales or issues.'

using DispatchObject oLines = new(invTransactionEntry.GetProperty("oLines"));

using DispatchObject oDistribution = new(oLines.GetProperty("oDistribution"));

retVal = (int)oDistribution.InvokeMethod("nSetValue", "TransactionQty", adjustment.Quantity);

string error3 = (string)oDistribution.GetProperty("sLastErrorMsg");

retVal = (int)oDistribution.InvokeMethod("nSetValue", "LotSerialFullyDistributed$", "Y");

retVal = (int)oDistribution.InvokeMethod("nWrite"); string error4 = (string)oLines.GetProperty("sLastErrorMsg");

This works for me.  The is ProvideX syntax but you get the idea.

o = new("IM_Transaction_bus", %sys_ss)

r = o'SetKeyValue("TransactionType$","6")
r = o'SetKeyValue("EntryNo$","00000011")
r = o'SetKey()
if r = 2 {
      r = o'Lines'AddLine()
      r = o'Lines'SetValue("ItemCode$", "2480-8-50")
      r = o'Lines'SetValue("WarehouseCode$", "000")
      r = o'Lines'SetValue("TransactionQty", 1)
      r = o'Lines'Distribution'AddDistributionLine("101")
      r = o'Lines'Distribution'SetValue("TransactionQty", 1)
      r = o'Lines'Distribution'Write()
      r = o'Lines'Write()
      r = o'Write()
}