Problems to Update a lookupTable in EPM2007

A

AlanBOk

Hello,

(I m not sur if is the correct place for this question.)

I've been trying to update a lookupTable in EPM 2007.
- My development tool is VB6
- I have administrator rights on EPM
- For retrieve the EPM WS I used the "MSOffice 2003 Web Services toolkit
2.01" in MSproject 2007, and then Copy/paste in VS6 (If somebody have a
better way...)

My problem is, I don't have any errors message but when I check the
lookupTable in EPM, the values are not updated.

Can anybody help me?

See Below a part of my code

' VB References:
' Microsoft Office SOAP Type Library v3.0
' Microsoft XML, v6
Public Sub UpdateLookupTable()Dim Instance As New clsws_LookupTable
Dim NodeList As MSXML2.IXMLDOMNodeList
Dim AutoCheckIn, ValidateOnly, AutoCheckOut As Boolean
Dim MyCount As Integer
Dim LTUID(1 To 1) As String

LTUID(1) = "fdcfca70-7de8-4111-a9e5-e05d21f9a01b"

AutoCheckOut = False
'---Read the lookupTable Set NodeList =
Instance.wsm_ReadLookupTablesByUids(LTUID, AutoCheckOut, 0)

For MyCount = 2 To NodeList.Item(1).childNodes.Item(0).childNodes.len
gth - 1With NodeList.Item(1).childNodes.Item(0).childNodes.Ite
m(MyCount)'---LT_VALUE_TEXT
.childNodes.Item(2).Text = .childNodes.Item(2).Text & "_NEW"
'---LT_VALUE_DESC
.childNodes.Item(3).nodeTypedValue =
..childNodes.Item(3).nodeTypedValue & "_NEW" End With Next MyCount

ValidateOnly = False
AutoCheckIn = False

Instance.wsm_CheckOutLookupTables LTUID
Instance.wsm_UpdateLookupTables NodeList, ValidateOnly, AutoCheckIn, 1033
Instance.wsm_CheckInLookupTables LTUID, False
End Sub
 
Top