Creating Vendors through X++ in AX 2012- PART IV

Creating Vendors through X++ in AX 2012- PART IV

Create a contact for the vendor

	private void createContact(VendorRequestCreate _vendorRequestCreate, RefRecId _partyId)
	{
	ContactPerson contactPerson;
	DirPersonName lDirPersonName;
	DirPerson lDirPerson;
	DirParty lDirParty;
	LogisticsLocation lLogisticsLocation;
	DirPartyContactInfoView lDirPartyContactInfoView;
	;
	//Create party for Contact
	lDirPerson.Name = _vendorRequestCreate.ContactPersonName;
	lDirPerson.NameAlias = _vendorRequestCreate.ContactPersonName;
	lDirPerson.NameSequence = dirNameSequence::find('First Last').RecId;
	lDirPerson.insert();
	lDirPersonName.FirstName = _vendorRequestCreate.ContactPersonName;
	//lDirPersonName.MiddleName = _vendorRequestCreate.ContactPersonName;
	//lDirPersonName.LastName = _vendorRequestCreate.LastName;
	lDirPersonName.ValidTo = DateTimeUtil::maxValue();
	lDirPersonName.Person = lDirPerson.RecId;
	lDirPersonName.insert();
	lDirParty = new DirParty(lDirPerson);
	//Create contact and associate with party
	contactPerson.ContactForParty = vendTable.Party;
	contactPerson.Party = lDirPerson.RecId;
	contactPerson.insert();
	//Create contact number
	if(_vendorRequestCreate.ContactPersonNo != '')
	{
	lLogisticsLocation.clear();
	lLogisticsLocation = LogisticsLocation::create('Phone', NoYes::No);
	lDirPartyContactInfoView.LocationName = 'Primay Phone';
	lDirPartyContactInfoView.Locator = _vendorRequestCreate.ContactPersonNo;
	lDirPartyContactInfoView.Party = contactPerson.Party;
	lDirPartyContactInfoView.IsPrimary = NoYes::Yes;
	lDirParty.createOrUpdateContactInfo(lDirPartyContactInfoView);
	}
	}

view raw CreateVendorContactRecord hosted with ❤ by GitHub

Check below posts for more details

Creating Vendors through X++ in AX 2012- PART I

Creating Vendors through X++ in AX 2012- PART II

Creating Vendors through X++ in AX 2012- PART III

-Harry