Hello Everyone
I am trying to update UDF in sales order line using script, i am not getting any error but it's not working
i am adding the the code that i am using
any kind of help will be really great
Thanks
____________________________________________________________________________________________________________
Dim x(9999)
Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
If (fso.FileExists("E:\linetax.txt")) Then
Set file = fso.OpenTextFile ("E:\linetax.txt", 1)
row = 0
Do Until file.AtEndOfStream
line = file.Readline
' dict.Add row, line
x(row)=line
row = row + 1
Loop
file.Close
'Loop over it
end if
For Each line in dict.Items
WScript.Echo line
Next
i=1
set oLines = oSession.AsObject(oBusObj.Lines)
retVal = oLines.MoveFirst()
Do Until oLines.EoF
retx=oLines.SetValue("UDF_TEST$",x(i))
msgbox(retx)
oLines.Write()
i=i+1
retVal = oLines.MoveNext()
Loop
oBusObj.write()