Create Business Relation(Prospect) Based on Customer

static void JobCreateBusinessRelationsCustomer (Args _args)

{

CustTable _custtable;

smmBusRelTable _smmbusreltable;

select * from _custtable where _custtable.accountnum == "501-C04821";

ttsBegin;

_smmbusreltable.initValue();

try

{

_smmbusreltable.BusRelAccount   = "Prospect102";            //NumberSeq::newGetNum(smmParameters::numRefBusRelAccount());

_smmbusreltable.BusRelTypeId    = "Customer";

_smmbusreltable.Currency        = _custtable.Currency;

_smmbusreltable.CustGroup       = _custtable.CustGroup;

_smmbusreltable.Party           = _custtable.Party;

_smmbusreltable.insert();

ttsCommit;

}

catch(Exception::Error)

{

ttsAbort;

}

}