//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CopyIteration.h"
#include "Utilities.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvGrid"
#pragma link "AdvPanel"
#pragma link "BaseGrid"
#pragma link "DBAdvGrd"
#pragma resource "*.dfm"
TCopyIterationForm *CopyIterationForm;
//---------------------------------------------------------------------------
__fastcall TCopyIterationForm::TCopyIterationForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TCopyIterationForm::ShowForm(
							const AnsiString &	projectCode,
							const int &			projectIteration )
{
	m_projectCode		= projectCode;
	m_projectIteration	= projectIteration;

	AnsiString sqlStatement;
	sqlStatement.sprintf(
		"SELECT "
			"* "
		"FROM "
			"ITERATIONS "
		"WHERE "
			"NOT ( PROJECT_CODE=\'%s\' AND "
			"ITERATION=%d ) "
			"ORDER BY "
				"PROJECT_CODE,"
				"ITERATION",
		Utilities::EscapeString( m_projectCode ).c_str(),
		m_projectIteration );
	SourceIterationsQuery->SQL->Text = sqlStatement;

	SourceIterationsQuery->Open();

	ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TCopyIterationForm::CopyClick(TObject *Sender)
{
	/*
	 *	Copy the selected iteration into our current iteration.
	 */

	const AnsiString	sourceProjectCode		= SourceIterationsQuery->FieldByName( "PROJECT_CODE" )->AsString;
	const int			sourceProjectIteration	= SourceIterationsQuery->FieldByName( "ITERATION" )->AsInteger;
	
	CopyIterationProcedure->Parameters->ParamValues[ "fromProjectCode" ] = sourceProjectCode;
	CopyIterationProcedure->Parameters->ParamValues[ "fromIteration" ] = sourceProjectIteration;
	CopyIterationProcedure->Parameters->ParamValues[ "toProjectCode" ] = m_projectCode;
	CopyIterationProcedure->Parameters->ParamValues[ "toIteration" ] = m_projectIteration;

	CopyIterationProcedure->ExecProc();
}
//---------------------------------------------------------------------------