//Copy the texts in one column to another column
bool copy_text_col(Worksheet wksSrc, uint iColSrc, Worksheet wksDst, uint iColDst)
{
	bool bRet = false;	
	
	Dataset dsSrc(wksSrc, iColSrc);
	Dataset dsDst(wksDst, iColDst);
	
	if ( (!dsSrc.IsValid()) || (!dsDst.IsValid() )) return bRet;
	
	StringArray sa;
	bRet = dsSrc.GetStringArray(sa);
	
	if ( !bRet ) return bRet;
	
	bRet = dsDst.PutStringArray(sa);
	
	return bRet;
}

//Duplicate all columns in the worksheet
bool duplicate_columns(Worksheet wks)
{
	bool bRet = false;	
	
	int nCols = wks.GetNumCols() * 2;
	
	for (int ii = 0; ii < nCols; ii += 2)
	{
		string strName; 
		bRet = wks.InsertCol(ii + 1, "copy", strName);
		if ( !bRet ) break;
		
		bRet = copy_text_col(wks, ii, wks, ii + 1);
		if ( !bRet ) break;		
	}	
	
	return bRet;
}

//Main function
bool test7347()
{
	BOOL  bRet = false;
	Worksheet wks = Project.ActiveLayer();
	if ( !wks.IsValid() ) return bRet;
	
	int nCols = wks.GetNumCols();
	int nRows = wks.GetNumRows();
	
	//Create a copy of the worksheet and perform the duplication of rows there
    Worksheet    wksCopy;
    bRet = wksCopy.CreateCopy(wks, CREATE_VISIBLE_SAME);
	if ( !bRet ) return bRet;		
    	
	bRet = (wksCopy.Transpose() == 0);
	if ( !bRet ) return bRet;		

	//Remove some empty columns created by trasposing
	int iR1, iR2;		
	bRet = wks.GetRange(iR1, iR2, 0, 0, GDR_NO_ADJUST, GDR_NO_ADJUST);
	if ( !bRet ) return bRet;		
	
	bRet = wksCopy.SetSize(nCols, iR2 - iR1 + 1);
	if ( !bRet ) return bRet;		
	
	//Duplicate all columns in this worksheet		
	bRet = duplicate_columns(wksCopy);
	if ( !bRet ) return bRet;		
	
	bRet = (wksCopy.Transpose() == 0);
	if ( !bRet ) return bRet;		
	
	//Copy the result back to the original worksheet
	for (int ii = 0; ii < nCols; ii ++)
	{
		bRet = copy_text_col(wksCopy, ii, wks, ii);
		if ( !bRet ) break;
	}
	if ( !bRet ) return bRet;		
	
	bRet = wksCopy.Destroy();
	
	return bRet;	
}