how to create new account to vendtable

void ismailCreateVend()

{

    VendTable                   vendTable;

    EmplTable                   emplTable;

    NumberSeq                   numberSeq;

    str                         accnum;

    ;

    ttsbegin;

    numberSeq = NumberSeq::newGetNumFromCode(VendParameters::numRefVendAccount().NumberSequence);

    vendTable.AccountNum   = numberseq.num();

    accnum                              = vendTable.AccountNum;

    vendTable.Name               =  EmplTable.EmplName;

    vendTable.VATNum        = "xxxx";

    vendTable.VendGroup     = "xxxx";

    vendTable.PartyId            = EmplTable::find(zzztable.Id,true).PartyId;

    vendTable.insert();

    ttscommit;

}