how to create new account to vendtable

void dghCreateVend()
{
    VendTable                   vendTable;
    EmplTable                   emplTable;
    NumberSeq                   numberSeq;
    str                         accnum;
    ;
    ttsbegin;
    numberSeq = NumberSeq::newGetNumFromCode(VendParameters::numRefVendAccount().NumberSequence);
    vendTable.AccountNum   = numberseq.num();
    accnum                              = vendTable.AccountNum;
    vendTable.Name               =  BorAXEmplTable.EmplName;
    vendTable.VATNum        = "xxxx";
    vendTable.VendGroup     = "xxxx";
    vendTable.PartyId            = EmplTable::find(zzztable.OldEmplId,true).PartyId;
    vendTable.insert();
    ttscommit;
}