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;
}
}
}