Dim sReturn As String = "" MsgBox(oField.RecordType.ToString & " - " & oField.ValueType) Dim oCCodeTableServer As New Blackbaud.PIA.RE7.BBREAPI.CCodeTablesServerClass oCCodeTableServer.Init(Import.SessionContext) Dim sValue As String = "" sReturn = Import.GetTableEntryValue(sValue, Blackbaud.PIA.RE7.BBREAPI.ECodeTableNumbers.tbnumPhoneTypes, oCCodeTableServer, False, False, oField.ValueType) MsgBox(sReturn & " - " & sValue) Return sReturn
1 Comment
W
Wayne Pozzar
said
over 8 years ago
Answered my own question!
Easier way to look up the value table of field:
Dim oCCodeTableServer As New Blackbaud.PIA.RE7.BBREAPI.CCodeTablesServerClass oCCodeTableServer.Init(Import.SessionContext) sReturn = oCCodeTableServer.GetTableEntryDescription(oField.ValueType, Blackbaud.PIA.RE7.BBREAPI.ECodeTableNumbers.tbnumPhoneTypes)
Wayne Pozzar
How do I use iImportSession.GetTableEntryValue?
Like this? It seems to return nothing
Dim sReturn As String = ""
MsgBox(oField.RecordType.ToString & " - " & oField.ValueType)
Dim oCCodeTableServer As New Blackbaud.PIA.RE7.BBREAPI.CCodeTablesServerClass
oCCodeTableServer.Init(Import.SessionContext)
Dim sValue As String = ""
sReturn = Import.GetTableEntryValue(sValue, Blackbaud.PIA.RE7.BBREAPI.ECodeTableNumbers.tbnumPhoneTypes, oCCodeTableServer, False, False, oField.ValueType)
MsgBox(sReturn & " - " & sValue)
Return sReturn