How to get Vendor's or Customer's Contact Person's Contact Information

How to get  Vendor's or Customer's  Contact Person's Contact Information

Via below code you can get the Vendor/Customer contact person and their complete contact information.

class SLD_DemoInstance

{

   

    public static void main(Args _args)

    {

        ContactPerson            contactPerson;

        DirPartyTable       dirPartyTable;

        LogisticsElectronicAddress      address;

   

        DirPartyLocation        partylocation;

   

   

        RecId _refRecId= VendTable::find("S00038").Party;

        while select contactPerson

         where contactPerson.ContactForParty==_refRecId

        join dirPartyTable

        where dirPartyTable.RecId==contactPerson.Party

        join partylocation

        where partylocation.Party==contactPerson.Party

        outer join address

        where address.Location==partylocation.Location

      

        {

       

            info(strFmt("%1, %2, %3",contactPerson.ContactPersonId,contactPerson.personName(),address.Locator));

        }

    }

}