How to get Vendors or Customer Contact Information Primary & None Primary

 How to get Vendors or Customer  Contact Information Primary & None Primary

Via below code you can get the Vendor/Customer complete contact information (Primary & None Primary).

  LogisticsElectronicAddresslogisticsElectronicAddress;

        DirPartyLocation        dirLocation;

        DirPartyTable dirPartyTable=DirPartyTable::findRec(VendTable::find("S00038").Party);

     

        while select  logisticsElectronicAddress

        join dirLocation  wheredirLocation.Location==logisticsElectronicAddress.Location

            && dirLocation.Party==dirPartyTable.RecId

        {

            info(strFmt("%1",logisticsElectronicAddress.Locator));

        }