Create or Update a Contact Information for a customer/vendor in X++ [AX 2012 R3]

Create or Update a Contact Information for a customer/vendor in X++ [AX 2012 R3]

static void RB_SupplierAddress_RoleUpdate(Args _args)
{
    VendTable                           VendTable = VendTable::find('‪‪‪PL00001');
    LogisticsElectronicAddress          logisticsElectronicAddress;
    container                           defaultRole = map2Con(LogisticsLocationEntity::getDefaultLocationRoleFromEntity(tableNum(DirPartyTable)));
   
   
    ttsBegin;
    logisticsElectronicAddress.Type = LogisticsElectronicAddressMethodType::Email;
    logisticsElectronicAddress.Locator = 'ramesh.balakrishnan@ao.com';
   
    logisticsElectronicAddress.Location = DirPartyLocation::findOrCreate(VendTable.Party, 0).Location;

    logisticsElectronicAddress = LogisticsElectronicAddress::findOrCreate(logisticsElectronicAddress);
   
    logisticsElectronicAddress = LogisticsElectronicAddress::findRecId(logisticsElectronicAddress.RecId, true);
   
    logisticsElectronicAddress.Description = "Official Email";
   
    logisticsElectronicAddress.IsPrimary = NoYes::Yes;
   
    logisticsElectronicAddress.update();
 
    LogisticsEntityLocationRoleMap::createEntityLocationRoles(tableNum(LogisticsElectronicAddressRole), logisticsElectronicAddress.RecId, conPeek(defaultRole, 1), true);
   
    info(strFmt("Created/updated phone number [%1] for customer %2.", logisticsElectronicAddress.Locator, VendTable.AccountNum));
    ttsCommit;
}