Saving form with a lookup on custom object (3 Comments)

Content

I am making a .net application which is a contact form. all data (contact fields and contact custom fields) is saving except Area field. Area is a lookup object search field in contact (Area custom object, relation: area is parent and contact is child)
I need help to get that area field
Code Block

Sub CreateContact(AccountName As String, CustomerType As String, DealerK As String, DealerL As String, DealerF As String, DealerG As String, PAccountType As String, MobileNum As String, PhoneNum As String, AccEmail As String, HouseNum As String, PreviousCases As String, Building As String, Description As String, Block As String, Street As String, Area As String, Nearto As String, Cityy As String, CNIC As String)

        Dim Contact As New ORNWeb.RightNowService.Contact
        Dim Name As New PersonName
        Dim Email As New Email
        Dim MPhone As New Phone
        Dim HPhone As New Phone
        Dim emailType As New NamedID
        Dim MphoneType As New NamedID
        Dim HphoneType As New NamedID
        Dim CustType As New NamedID
        Dim Dnkh As New NamedID
        Dim Dnlr As New NamedID
        Dim Dnf As New NamedID
        Dim Dng As New NamedID
        Dim PAccType As New NamedID
        Dim City As New NamedID

        'Name
        Name.First = AccountName
        Contact.Name = Name'Customer Type
        CustType.ID = New ID
        CustType.ID.id = GetNamedIDValue("Contact.CustomFields.c.customertype", CustomerType)
        CustType.ID.idSpecified = True
        Dim CusttType As New GenericField()
        CusttType.name = "customertype"
        CusttType.dataType = DataTypeEnum.NAMED_ID
        CusttType.dataTypeSpecified = True
        CusttType.DataValue = New DataValue()
        CusttType.DataValue.Items = New Object(0) {}
        CusttType.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        CusttType.DataValue.Items(0) = CustType
        CusttType.DataValue.ItemsElementName(0) = ItemsChoiceType.NamedIDValue

        Dim CCusttType As New GenericObject()
        CCusttType.GenericFields = New GenericField(5) {}
        CCusttType.GenericFields(0) = CusttType
        CCusttType.ObjectType = New RNObjectType()
        CCusttType.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim CusttTypeField As New GenericField()
        CusttTypeField.name = "c"
        CusttTypeField.dataType = DataTypeEnum.[OBJECT]
        CusttTypeField.dataTypeSpecified = True
        CusttTypeField.DataValue = New DataValue()
        CusttTypeField.DataValue.Items = New Object(0) {}
        CusttTypeField.DataValue.Items(0) = CCusttType
        CusttTypeField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        CusttTypeField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Dealers
        Dnkh.ID = New ID
        Dnkh.ID.id = GetNamedIDValue("Contact.CustomFields.c.dnkhzone", DealerK)
        Dnkh.ID.idSpecified = True
        Dim DnkhZone As New GenericField()
        DnkhZone.name = "dnkhzone"
        DnkhZone.dataType = DataTypeEnum.NAMED_ID
        DnkhZone.dataTypeSpecified = True
        DnkhZone.DataValue = New DataValue()
        DnkhZone.DataValue.Items = New Object(0) {}
        DnkhZone.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DnkhZone.DataValue.Items(0) = Dnkh
        DnkhZone.DataValue.ItemsElementName(0) = ItemsChoiceType.NamedIDValue

        Dim CDnkhZone As New GenericObject()
        CDnkhZone.GenericFields = New GenericField(5) {}
        CDnkhZone.GenericFields(0) = DnkhZone
        CDnkhZone.ObjectType = New RNObjectType()
        CDnkhZone.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim DnkhZoneField As New GenericField()
        DnkhZoneField.name = "c"
        DnkhZoneField.dataType = DataTypeEnum.[OBJECT]
        DnkhZoneField.dataTypeSpecified = True
        DnkhZoneField.DataValue = New DataValue()
        DnkhZoneField.DataValue.Items = New Object(0) {}
        DnkhZoneField.DataValue.Items(0) = CDnkhZone
        DnkhZoneField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DnkhZoneField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue

        Dnlr.ID = New ID
        Dnlr.ID.id = GetNamedIDValue("Contact.CustomFields.c.dnlrzone", DealerL)
        Dnlr.ID.idSpecified = True
        Dim DnlrZone As New GenericField()
        DnlrZone.name = "dnlrzone"
        DnlrZone.dataType = DataTypeEnum.NAMED_ID
        DnlrZone.dataTypeSpecified = True
        DnlrZone.DataValue = New DataValue()
        DnlrZone.DataValue.Items = New Object(0) {}
        DnlrZone.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DnlrZone.DataValue.Items(0) = Dnlr
        DnlrZone.DataValue.ItemsElementName(0) = ItemsChoiceType.NamedIDValue

        Dim CDnlrZone As New GenericObject()
        CDnlrZone.GenericFields = New GenericField(5) {}
        CDnlrZone.GenericFields(0) = DnlrZone
        CDnlrZone.ObjectType = New RNObjectType()
        CDnlrZone.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim DnlrZoneField As New GenericField()
        DnlrZoneField.name = "c"
        DnlrZoneField.dataType = DataTypeEnum.[OBJECT]
        DnlrZoneField.dataTypeSpecified = True
        DnlrZoneField.DataValue = New DataValue()
        DnlrZoneField.DataValue.Items = New Object(0) {}
        DnlrZoneField.DataValue.Items(0) = CDnlrZone
        DnlrZoneField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DnlrZoneField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue

        Dnf.ID = New ID
        Dnf.ID.id = GetNamedIDValue("Contact.CustomFields.c.dnfzone", DealerF)
        Dnf.ID.idSpecified = True
        Dim DnfZone As New GenericField()
        DnfZone.name = "dnfzone"
        DnfZone.dataType = DataTypeEnum.NAMED_ID
        DnfZone.dataTypeSpecified = True
        DnfZone.DataValue = New DataValue()
        DnfZone.DataValue.Items = New Object(0) {}
        DnfZone.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DnfZone.DataValue.Items(0) = Dnf
        DnfZone.DataValue.ItemsElementName(0) = ItemsChoiceType.NamedIDValue

        Dim CDnfZone As New GenericObject()
        CDnfZone.GenericFields = New GenericField(5) {}
        CDnfZone.GenericFields(0) = DnfZone
        CDnfZone.ObjectType = New RNObjectType()
        CDnfZone.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim DnfZoneField As New GenericField()
        DnfZoneField.name = "c"
        DnfZoneField.dataType = DataTypeEnum.[OBJECT]
        DnfZoneField.dataTypeSpecified = True
        DnfZoneField.DataValue = New DataValue()
        DnfZoneField.DataValue.Items = New Object(0) {}
        DnfZoneField.DataValue.Items(0) = CDnfZone
        DnfZoneField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DnfZoneField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue

        Dng.ID = New ID
        Dng.ID.id = GetNamedIDValue("Contact.CustomFields.c.dngzone", DealerG)
        Dng.ID.idSpecified = True
        Dim DngZone As New GenericField()
        DngZone.name = "dngzone"
        DngZone.dataType = DataTypeEnum.NAMED_ID
        DngZone.dataTypeSpecified = True
        DngZone.DataValue = New DataValue()
        DngZone.DataValue.Items = New Object(0) {}
        DngZone.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DngZone.DataValue.Items(0) = Dng
        DngZone.DataValue.ItemsElementName(0) = ItemsChoiceType.NamedIDValue

        Dim CDngZone As New GenericObject()
        CDngZone.GenericFields = New GenericField(5) {}
        CDngZone.GenericFields(0) = DngZone
        CDngZone.ObjectType = New RNObjectType()
        CDngZone.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim DngZoneField As New GenericField()
        DngZoneField.name = "c"
        DngZoneField.dataType = DataTypeEnum.[OBJECT]
        DngZoneField.dataTypeSpecified = True
        DngZoneField.DataValue = New DataValue()
        DngZoneField.DataValue.Items = New Object(0) {}
        DngZoneField.DataValue.Items(0) = CDngZone
        DngZoneField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DngZoneField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Parent Account Type
        PAccType.ID = New ID
        PAccType.ID.id = GetNamedIDValue("Contact.CustomFields.c.parentaccounttype", PAccountType)
        PAccType.ID.idSpecified = True
        Dim PAcccType As New GenericField()
        PAcccType.name = "parentaccounttype"
        PAcccType.dataType = DataTypeEnum.NAMED_ID
        PAcccType.dataTypeSpecified = True
        PAcccType.DataValue = New DataValue()
        PAcccType.DataValue.Items = New Object(0) {}
        PAcccType.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        PAcccType.DataValue.Items(0) = PAccType
        PAcccType.DataValue.ItemsElementName(0) = ItemsChoiceType.NamedIDValue

        Dim CPAcccType As New GenericObject()
        CPAcccType.GenericFields = New GenericField(5) {}
        CPAcccType.GenericFields(0) = PAcccType
        CPAcccType.ObjectType = New RNObjectType()
        CPAcccType.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim PAcccTypeField As New GenericField()
        PAcccTypeField.name = "c"
        PAcccTypeField.dataType = DataTypeEnum.[OBJECT]
        PAcccTypeField.dataTypeSpecified = True
        PAcccTypeField.DataValue = New DataValue()
        PAcccTypeField.DataValue.Items = New Object(0) {}
        PAcccTypeField.DataValue.Items(0) = CPAcccType
        PAcccTypeField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        PAcccTypeField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Numbers
        MPhone.action = ActionEnum.add
        MPhone.actionSpecified = True
        MphoneType.ID = New ID
        MphoneType.ID.id = 1
        MphoneType.ID.idSpecified = True
        MPhone.PhoneType = MphoneType
        MPhone.Number = MobileNum

        HPhone.action = ActionEnum.add
        HPhone.actionSpecified = True
        HphoneType.ID = New ID
        HphoneType.ID.id = 4
        HphoneType.ID.idSpecified = True
        HPhone.PhoneType = HphoneType
        HPhone.Number = PhoneNum
        Contact.Phones = {MPhone, HPhone}

      'Parent Account'Email
        Email.action = ActionEnum.add
        Email.actionSpecified = True
        emailType.ID = New ID
        emailType.ID.id = 0
        emailType.ID.idSpecified = True
        Email.AddressType = emailType
        Email.Address = AccEmail
        Contact.Emails = {Email}'House Number
        Dim HouseNo As New GenericField()
        HouseNo.name = "house_number"
        HouseNo.dataType = DataTypeEnum.[STRING]
        HouseNo.dataTypeSpecified = True
        HouseNo.DataValue = New DataValue()
        HouseNo.DataValue.Items = New Object(0) {}
        HouseNo.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        HouseNo.DataValue.Items(0) = HouseNum
        HouseNo.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CHouseNo As New GenericObject()
        CHouseNo.GenericFields = New GenericField(5) {}
        CHouseNo.GenericFields(0) = HouseNo
        CHouseNo.ObjectType = New RNObjectType()
        CHouseNo.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim HouseNoField As New GenericField()
        HouseNoField.name = "c"
        HouseNoField.dataType = DataTypeEnum.[OBJECT]
        HouseNoField.dataTypeSpecified = True
        HouseNoField.DataValue = New DataValue()
        HouseNoField.DataValue.Items = New Object(0) {}
        HouseNoField.DataValue.Items(0) = CHouseNo
        HouseNoField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        HouseNoField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Previous Cases
        Dim PCases As New GenericField()
        PCases.name = "previous_case"
        PCases.dataType = DataTypeEnum.[STRING]
        PCases.dataTypeSpecified = True
        PCases.DataValue = New DataValue()
        PCases.DataValue.Items = New Object(0) {}
        PCases.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        PCases.DataValue.Items(0) = PreviousCases
        PCases.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CPCases As New GenericObject()
        CPCases.GenericFields = New GenericField(5) {}
        CPCases.GenericFields(0) = PCases
        CPCases.ObjectType = New RNObjectType()
        CPCases.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim PCasesField As New GenericField()
        PCasesField.name = "c"
        PCasesField.dataType = DataTypeEnum.[OBJECT]
        PCasesField.dataTypeSpecified = True
        PCasesField.DataValue = New DataValue()
        PCasesField.DataValue.Items = New Object(0) {}
        PCasesField.DataValue.Items(0) = CPCases
        PCasesField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        PCasesField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Building
        Dim Build As New GenericField()
        Build.name = "building"
        Build.dataType = DataTypeEnum.[STRING]
        Build.dataTypeSpecified = True
        Build.DataValue = New DataValue()
        Build.DataValue.Items = New Object(0) {}
        Build.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        Build.DataValue.Items(0) = Building
        Build.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CBuild As New GenericObject()
        CBuild.GenericFields = New GenericField(5) {}
        CBuild.GenericFields(0) = Build
        CBuild.ObjectType = New RNObjectType()
        CBuild.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim BuildField As New GenericField()
        BuildField.name = "c"
        BuildField.dataType = DataTypeEnum.[OBJECT]
        BuildField.dataTypeSpecified = True
        BuildField.DataValue = New DataValue()
        BuildField.DataValue.Items = New Object(0) {}
        BuildField.DataValue.Items(0) = CBuild
        BuildField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        BuildField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Description
        Dim Desc As New GenericField()
        Desc.name = "description"
        Desc.dataType = DataTypeEnum.[STRING]
        Desc.dataTypeSpecified = True
        Desc.DataValue = New DataValue()
        Desc.DataValue.Items = New Object(0) {}
        Desc.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        Desc.DataValue.Items(0) = Description
        Desc.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CDesc As New GenericObject()
        CDesc.GenericFields = New GenericField(5) {}
        CDesc.GenericFields(0) = Desc
        CDesc.ObjectType = New RNObjectType()
        CDesc.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim DescField As New GenericField()
        DescField.name = "c"
        DescField.dataType = DataTypeEnum.[OBJECT]
        DescField.dataTypeSpecified = True
        DescField.DataValue = New DataValue()
        DescField.DataValue.Items = New Object(0) {}
        DescField.DataValue.Items(0) = CDesc
        DescField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        DescField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Block
        Dim Blockk As New GenericField()
        Blockk.name = "block_sector_c"
        Blockk.dataType = DataTypeEnum.[STRING]
        Blockk.dataTypeSpecified = True
        Blockk.DataValue = New DataValue()
        Blockk.DataValue.Items = New Object(0) {}
        Blockk.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        Blockk.DataValue.Items(0) = Block
        Blockk.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CBlockk As New GenericObject()
        CBlockk.GenericFields = New GenericField(5) {}
        CBlockk.GenericFields(0) = Blockk
        CBlockk.ObjectType = New RNObjectType()
        CBlockk.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim BlockkField As New GenericField()
        BlockkField.name = "c"
        BlockkField.dataType = DataTypeEnum.[OBJECT]
        BlockkField.dataTypeSpecified = True
        BlockkField.DataValue = New DataValue()
        BlockkField.DataValue.Items = New Object(0) {}
        BlockkField.DataValue.Items(0) = CBlockk
        BlockkField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        BlockkField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Street
        Dim Streett As New GenericField()
        Streett.name = "street_road_c"
        Streett.dataType = DataTypeEnum.[STRING]
        Streett.dataTypeSpecified = True
        Streett.DataValue = New DataValue()
        Streett.DataValue.Items = New Object(0) {}
        Streett.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        Streett.DataValue.Items(0) = Street
        Streett.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CStreett As New GenericObject()
        CStreett.GenericFields = New GenericField(5) {}
        CStreett.GenericFields(0) = Streett
        CStreett.ObjectType = New RNObjectType()
        CStreett.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim StreettField As New GenericField()
        StreettField.name = "c"
        StreettField.dataType = DataTypeEnum.[OBJECT]
        StreettField.dataTypeSpecified = True
        StreettField.DataValue = New DataValue()
        StreettField.DataValue.Items = New Object(0) {}
        StreettField.DataValue.Items(0) = CStreett
        StreettField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        StreettField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Area
        Dim Areaa As New GenericField()
        Areaa.name = "area"
        Areaa.dataType = DataTypeEnum.LONG
        Areaa.dataTypeSpecified = True
        Areaa.DataValue = New DataValue()
        Areaa.DataValue.Items = New Object(0) {}
        Areaa.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        Areaa.DataValue.Items(0) = IDGetter("ID", "LookupName", "CO.Area", Area)
        Areaa.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CAreaa As New GenericObject()
        CAreaa.GenericFields = New GenericField(5) {}
        CAreaa.GenericFields(0) = Areaa
        CAreaa.ObjectType = New RNObjectType()
       CAreaa.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim AreaField As New GenericField()
        AreaField.name = "c"
        AreaField.dataType = DataTypeEnum.[OBJECT]
        AreaField.dataTypeSpecified = True
        AreaField.DataValue = New DataValue()
        AreaField.DataValue.Items = New Object(0) {}
        AreaField.DataValue.Items(0) = CAreaa
        AreaField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        AreaField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'NearTo
        Dim NearTTo As New GenericField()
        NearTTo.name = "near_to_c"
        NearTTo.dataType = DataTypeEnum.[STRING]
        NearTTo.dataTypeSpecified = True
        NearTTo.DataValue = New DataValue()
        NearTTo.DataValue.Items = New Object(0) {}
        NearTTo.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        NearTTo.DataValue.Items(0) = Nearto
        NearTTo.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

       Dim CNearTTo As New GenericObject()
        CNearTTo.GenericFields = New GenericField(5) {}
        CNearTTo.GenericFields(0) = NearTTo
        CNearTTo.ObjectType = New RNObjectType()
        CNearTTo.ObjectType.TypeName = "ContactCustomFieldsc"

       Dim NearTToField As New GenericField()
        NearTToField.name = "c"
        NearTToField.dataType = DataTypeEnum.[OBJECT]
        NearTToField.dataTypeSpecified = True
        NearTToField.DataValue = New DataValue()
        NearTToField.DataValue.Items = New Object(0) {}
        NearTToField.DataValue.Items(0) = CStreett
        NearTToField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        NearTToField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'City
        City.ID = New ID
        City.ID.id = GetNamedIDValue("Contact.CustomFields.c.city", Cityy)
        City.ID.idSpecified = True
        Dim Citty As New GenericField()
        Citty.name = "city"
        Citty.dataType = DataTypeEnum.NAMED_ID
        Citty.dataTypeSpecified = True
        Citty.DataValue = New DataValue()
        Citty.DataValue.Items = New Object(0) {}
        Citty.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        Citty.DataValue.Items(0) = City
        Citty.DataValue.ItemsElementName(0) = ItemsChoiceType.NamedIDValue

        Dim CCitty As New GenericObject()
        CCitty.GenericFields = New GenericField(5) {}
        CCitty.GenericFields(0) = Citty
        CCitty.ObjectType = New RNObjectType()
        CCitty.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim CCittyField As New GenericField()
        CCittyField.name = "c"
        CCittyField.dataType = DataTypeEnum.[OBJECT]
        CCittyField.dataTypeSpecified = True
        CCittyField.DataValue = New DataValue()
        CCittyField.DataValue.Items = New Object(0) {}
        CCittyField.DataValue.Items(0) = CCitty
        CCittyField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        CCittyField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'CNIC
        Dim CNICNo As New GenericField()
        CNICNo.name = "cnic"
        CNICNo.dataType = DataTypeEnum.[STRING]
        CNICNo.dataTypeSpecified = True
        CNICNo.DataValue = New DataValue()
        CNICNo.DataValue.Items = New Object(0) {}
        CNICNo.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        CNICNo.DataValue.Items(0) = CNIC
        CNICNo.DataValue.ItemsElementName(0) = ItemsChoiceType.StringValue

        Dim CCNICNo As New GenericObject()
        CCNICNo.GenericFields = New GenericField(5) {}
        CCNICNo.GenericFields(0) = CNICNo
        CCNICNo.ObjectType = New RNObjectType()
        CCNICNo.ObjectType.TypeName = "ContactCustomFieldsc"

        Dim CNICNoField As New GenericField()
        CNICNoField.name = "c"
        CNICNoField.dataType = DataTypeEnum.[OBJECT]
        CNICNoField.dataTypeSpecified = True
        CNICNoField.DataValue = New DataValue()
        CNICNoField.DataValue.Items = New Object(0) {}
        CNICNoField.DataValue.Items(0) = CCNICNo
        CNICNoField.DataValue.ItemsElementName = New ItemsChoiceType(0) {}
        CNICNoField.DataValue.ItemsElementName(0) = ItemsChoiceType.ObjectValue'Final Contact Object
        Contact.CustomFields = New GenericObject()
        Contact.CustomFields.GenericFields = New GenericField(15) {}
        Contact.CustomFields.GenericFields(0) = CusttTypeField
        Contact.CustomFields.GenericFields(11) = DnkhZoneField
        Contact.CustomFields.GenericFields(12) = DnlrZoneField
        Contact.CustomFields.GenericFields(13) = DnfZoneField
        Contact.CustomFields.GenericFields(14) = DngZoneField
        Contact.CustomFields.GenericFields(1) = PAcccTypeField
        Contact.CustomFields.GenericFields(2) = HouseNoField
        Contact.CustomFields.GenericFields(3) = PCasesField
        Contact.CustomFields.GenericFields(4) = BuildField
        Contact.CustomFields.GenericFields(5) = DescField
        Contact.CustomFields.GenericFields(6) = BlockkField
        Contact.CustomFields.GenericFields(7) = StreettField
        Contact.CustomFields.GenericFields(8) = NearTToField
        Contact.CustomFields.GenericFields(9) = CCittyField
        Contact.CustomFields.GenericFields(10) = CNICNoField

        Contact.CustomFields.ObjectType = New RNObjectType()
        Contact.CustomFields.ObjectType.TypeName = "ContactCustomFields"

        Dim newObjects As RNObject() = New RNObject() {Contact}
        Dim clientInfoHeader As New ClientInfoHeader
        Dim options As New CreateProcessingOptions
        clientInfoHeader.AppID = "Basic Create"

        Try
            Dim results As RNObject() = _client.Create(clientInfoHeader, newObjects, options)
            MsgBox("Contact created!")
        Catch ex As FaultException
            MsgBox("Email Duplication Error")
        End Try

    End Sub
Image

Image may be NSFW.
Clik here to view.
File

test.png(69KB)
Saving form with a lookup on custom object (3 Comments)

Content

Code Block

Image

File

Trending Articles

Practice Sheet of Right form of verbs for HSC Students

Download: FK ft Shenky – Nakuyewa ”Prod by: Shenky”

How to win at Markstrat (Markstrat Tips and Tricks) – Vodites

Ominde Commission Report and Recommendations – Ominde Report of 1964

Bureau of Internal Revenue: Regional Offices (Directory)

GO 53 on Enhancement of Ex-gratia upto 5 Lakhs Toddy Tappers in Telangana

Cakewalk CA-2A Leveling Amplifier v2.0.1.97 WiN, v2.0.1.96 OSX Incl Keygen

Mp3 Download: Mdu - Kunjenjenjena

How the kill the job , when DTP request running for long hours.

Microsoft Intune から展開しているアプリのアップデートについて

18-year-old girl was beaten for half an hour by two Northampton men in 'an...

Car crash in Dunton Bassett leaves driver in critical condition

Macky 2, Two Others In Road Accident

Application log 00000000000000089514: Could not convert queue DLVST90CLNT

Detroit mafia: D’Anna Brothers agree to plea deal

Delivery block field greyed out using VA02

Muloraki Au

【個人撮影】スマホのプライベート映像♪「中に出さないで///」カラオケ屋での生ハメ撮りが流出ｗ【リベンジポルノ】＠PornHub

BREAKING NEWS: Diamond Platnumz Is Reported Dead After Ghastly Car Accident

FIAT 500 B0111 B0112
