Create a New Vendor through X++ code in Ax2009

Sometimes we need to new vendor's  into the system table VendTable, DirPartyTable,Address Tables. So that we need to simplify the processes of vendor creation....

Sample Code:


static void CreateVendors(Args _args)
{
    VendTable       vendTable;
    DirPartyTable   dirPartyTable;
    Address         addressTable;
    ;
    ttsbegin;
    vendTable.Name                = 'DAX Test DAX123';
    vendTable.AccountNum    = NumberSeq::newGetNum(NumberSequenceReference::find(typeid2extendedTypeId(typeid(VendAccount)))).num();
    vendTable.PartyId             = NumberSeq::newGetNum(NumberSequenceReference::find(typeid2extendedTypeId(typeid(DirPartyId)))).num();
    vendTable.VendGroup     = '10000';
 
    vendTable.Currency         = 'USD';
    vendTable.PartyType       = DirPartyType::Organization;
    vendTable.LanguageId    = 'en';
    if(!vendTable.validateWrite())
    {
        throw error('Check Your Mendatory Fields');
    }
   
    vendTable.insert();
   
   
    dirPartyTable.PartyId = vendTable.PartyId;
    dirPartyTable.insert();
   
    select firstonly dirPartyTable
        where dirPartyTable.PartyId == vendTable.PartyId;
   
    if(dirPartyTable)
    {
        addressTable.AddrRecId = dirPartyTable.RecId;
        addressTable.AddrTableId = dirPartyTable.TableId;
        addressTable.type = AddressType::Home;
        addressTable.IsPrimary = NoYes::Yes;
        addressTable.insert();
    }
   
    ttscommit;
 

}