Click or drag to resize

IUDefFieldFieldIdentity Property

Version-independent field Identity. Assigned by system. Unlike FieldId this value does not change when the type changes from string to checkbox. The fieldId is shown on the User defined tables in the database manual as the columnId, this is an internal constant and refers to where the value of this User defined field is stored. The FieldIdentity is a unique value for this field, stored in the database field crm5.udeffield.udefIdentity.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
int FieldIdentity { get; }

Property Value

Type: Int32
Long – refers to the columnID that the value is stored in. Integer – refers to the unique fieldId
Examples

FieldId

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
dim objdb
dim udef
dim udefs
set objdb = CreateObject("superofficedb.database")
If Not (objDB is Nothing) Then
    objdb.login  "<username>", "<password>"
    set cont = objdb.getcontact(1)
    set udefs = cont.udef
    for each udef in udefs
        item = item  & "lable = " & udef.label  & vbcrlf
        item = item  & "defaultvalue = " & udef.defaultvalue & vbcrlf
        item = item  & "fieldid = " & udef.fieldid & vbcrlf
        item = item  & "fieldtype = " & udef.fieldtype & vbcrlf
        item = item  & "isindexed = " & udef.isindexed & vbcrlf
        item = item  & "ismandatory = " & udef.ismandatory & vbcrlf
        item = item  & "isreadonly = " & udef.isreadonly & vbcrlf
        item = item  & "lableh = " & udef.labelh  & vbcrlf
        item = item  & "lablew = " & udef.labelw  & vbcrlf
        item = item  & "lablex = " & udef.labelx  & vbcrlf
        item = item  & "labley = " & udef.labely  & vbcrlf
        item = item  & "listtableid = " & udef.listtableid & vbcrlf
        item = item  & "showonpage1 = " & udef.showonpage1 & vbcrlf
        item = item  & "taborder = " & udef.taborder & vbcrlf
        item = item  & "textlength = " & udef.textlength & vbcrlf
        item = item  & "tooltip = " & udef.tooltip & vbcrlf
        item = item  & "value = " & udef.value & vbcrlf
        item = item  & "valueh = " & udef.valueh  & vbcrlf
        item = item  & "valuew = " & udef.valuew  & vbcrlf
        item = item  & "valuex = " & udef.valuex  & vbcrlf
        item = item  & "valuey = " & udef.valuey  & vbcrlf
        item = item  & "________________________________" & vbcrlf
    next
    msgbox item
else
    msgbox  "unable to connect to database"
end if

FieldIdentity

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
dim objdb
dim udef
dim udefs
set objdb = CreateObject("superofficedb.database")
If Not (objDB is Nothing) Then
    objdb.login  "<username>", "<password>"
    set cont = objdb.getcontact(1)
    set udefs = cont.udef
    for each udef in udefs
        item = item  & "lable = " & udef.label  & vbcrlf
        item = item  & "defaultvalue = " & udef.defaultvalue & vbcrlf
        item = item  & "fieldid = " & udef.fieldid & vbcrlf
        item = item  & "fieldtype = " & udef.fieldtype & vbcrlf
        item = item  & "isindexed = " & udef.isindexed & vbcrlf
        item = item  & "ismandatory = " & udef.ismandatory & vbcrlf
        item = item  & "isreadonly = " & udef.isreadonly & vbcrlf
        item = item  & "lableh = " & udef.labelh  & vbcrlf
        item = item  & "lablew = " & udef.labelw  & vbcrlf
        item = item  & "lablex = " & udef.labelx  & vbcrlf
        item = item  & "labley = " & udef.labely  & vbcrlf
        item = item  & "listtableid = " & udef.listtableid & vbcrlf
        item = item  & "showonpage1 = " & udef.showonpage1 & vbcrlf
        item = item  & "taborder = " & udef.taborder & vbcrlf
        item = item  & "textlength = " & udef.textlength & vbcrlf
        item = item  & "tooltip = " & udef.tooltip & vbcrlf
        item = item  & "value = " & udef.value & vbcrlf
        item = item  & "valueh = " & udef.valueh  & vbcrlf
        item = item  & "valuew = " & udef.valuew  & vbcrlf
        item = item  & "valuex = " & udef.valuex  & vbcrlf
        item = item  & "valuey = " & udef.valuey  & vbcrlf
        item = item  & "________________________________" & vbcrlf
    next
    msgbox item
else
    msgbox  "unable to connect to database"
end if

See Also