RecId number sequence maintenance table in AX

SystemSequences is the table maintaing the every table next RecId sequence value.

How to copy The One company DATA another company

static void copyDataToOthercompanies(Args _args)
{

DataArea dataArea;
ExchRates ex;
Currency cr;
str currentyCom;


currentyCom = curext();
while select dataArea where ! dataArea.isVirtual
{
changecompany (dataArea.Id)
{
ttsbegin;
if(dataArea.id != currentyCom)
//select forupdate cr;
{
cr = null;
//cr.data(dataArea);
cr.CurrencyCode = "XPT";
cr.Txt = "XPPPPPT";
cr.CurrencyCodeISO = "XPT";

cr.insert();
}

ttscommit;
}
}
}