Copying table records between company in Axapta

code snippet for copying all table records from one company to another

static void CopyTable(Args _args)
{

while select * from table1
{
   ttsbegin;

   ChangeCompany('COM2')
   {
        buf2buf(table1, table2);
   }

   table2.insert();
   ttscommit;
}

}