03.09.2018, 21:12
|
#1
|
Участник
|
d365technext: Create Vendor using X++ D365FO & AX-2012
Источник: http://d365technext.blogspot.com/201...o-ax-2012.html
==============
Create Vendor using X++ D365FO & AX-2012
Following Code will help you to create Vendor using X++
For Default Dimension please check Link
publicclassVendorHelper
{
privatevoidnew()
{
}
publicstaticVendorHelper construct()
{
returnnewVendorHelper();
}
publicvoid createVendor()
{
VendTable vendTable;
NumberSeq numberSeq;
Name name ='Systems Limited Karachi, Pakistan';
DirParty dirParty;
DirPartyPostalAddressView dirPartyPostalAddressView;
DirPartyContactInfoView dirPartyContactInfo;
;
container conAttribute=["BusinessUnit","CostCenter","Department"];
container conAttributeValue=["001","007","022"];
/* Marks the beginning of a transaction.
Necessary to utilize the method numRefCustAccount() */
ttsBegin;
vendTable.initValue();
try
{
//vendTable
//numberSeq = NumberSeq::newGetNum(VendParameters::numRefVendAccount())
// vendTable.AccountNum = numberSeq.num();
vendTable.AccountNum = "Vend-00099";
vendTable.VendGroup ='30';
vendTable.Currency ='USD';
vendTable.PaymTermId ='Net10';
vendTable.PaymMode ='CHECK';
vendTable.DefaultDimension=DefaultDimesnionHelper::createDefaultDimension(conAttribute,conAttributeValue);
vendTable.insert();
//DirParty
/* Creates a new instance of the DirParty class from an address book entity
that is represented by the custTable parameter. */
dirParty = DirParty::constructFromCommon(vendTable);
dirPartyPostalAddressView.LocationName ='Systems limited Karachi, Pakistan ';
dirPartyPostalAddressView.City ='Karachi';
dirPartyPostalAddressView.Street ='Shah-re-faisal alcope-house';
dirPartyPostalAddressView.StreetNumber ='18';
dirPartyPostalAddressView.CountryRegionId ='PAK';
dirPartyPostalAddressView.State ='Sindh';
dirPartyPostalAddressView.IsPrimary = NoYes::Yes;
// Fill address
dirParty.createOrUpdatePostalAddress(dirPartyPostalAddressView);
dirPartyContactInfo.LocationName ='Email Address';
dirPartyContactInfo.Locator ='ShaikhSohailHussain@gmail.com';
dirPartyContactInfo.Type = LogisticsElectronicAddressMethodType::Email;
dirPartyContactInfo.IsPrimary = NoYes::Yes;
// Fill Contacts
dirParty.createOrUpdateContactInfo(dirPartyContactInfo);
dirPartyContactInfo.LocationName ='Mobile Number';
dirPartyContactInfo.Locator ='923422722538';
dirPartyContactInfo.Type = LogisticsElectronicAddressMethodType::Phone;
dirPartyContactInfo.IsPrimary = NoYes::Yes;
// Fill Contacts
dirParty.createOrUpdateContactInfo(dirPartyContactInfo);
// Marks the end of transaction.
ttsCommit;
}
catch(Exception::Error)
{
ttsAbort;
throwException::Error;
}
}
}
Источник: http://d365technext.blogspot.com/201...o-ax-2012.html
__________________
Расскажите о новых и интересных блогах по Microsoft Dynamics, напишите личное сообщение администратору.
|
|