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

#include <vcl.h>
#pragma hdrstop

#include <vector>
#include <sstream>
#include "IterationConfig.h"
#include "DataModule.h"
#include "Main.h"
#include "Utilities.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Grids_ts"
#pragma link "TSDBGrid"
#pragma link "TSGrid"
#pragma link "AdvGrid"
#pragma link "BaseGrid"
#pragma link "DBAdvGrd"
#pragma link "DBAdvGrid"
#pragma link "DBAdvGrd"
#pragma link "DBAdvNavigator"
#pragma resource "*.dfm"
TIterationConfigForm *IterationConfigForm;
//---------------------------------------------------------------------------
__fastcall TIterationConfigForm::TIterationConfigForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TIterationConfigForm::CloseBtnClick(TObject *Sender)
{
	IterationsQuery->Post();
	IterationsQuery->Close();

	Close();
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::ShowForm(const AnsiString &project_code)
{
	m_currentproject = project_code;

    AnsiString sql_statement;
	sql_statement.sprintf(
		"SELECT * FROM ITERATIONS WHERE PROJECT_CODE='%s' ORDER BY ITERATION",
		Utilities::EscapeString( m_currentproject ).c_str() );
	IterationsQuery->SQL->Text = sql_statement;

    IterationsQuery->Open();

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

const bool __fastcall TIterationConfigForm::getSchemaDetails(
						AnsiString & schemaVersion,
						const AnsiString &	currentProject,
						const int &			currentIteration )
{
	int matches = 0;

	std::string project;
	std::string majorVersion;
	std::string minorVersion;
	std::string patch;

	std::vector< std::string > schemas;

	if ( MainForm->XMLSchema->GetSchemas( schemas ) )
	{
		for ( std::vector< std::string >::iterator where = schemas.begin();
			  where != schemas.end();
			  ++where )
		{
			if ( where->find( MASSUDWriter ) == 0 )
			{
				if ( MainForm->XMLSchema->GetAttributeProperty( *where, "project", project ) &&
					 MainForm->XMLSchema->GetAttributeProperty( *where, "majorversion", majorVersion ) &&
					 MainForm->XMLSchema->GetAttributeProperty( *where, "minorversion", minorVersion ) &&
					 MainForm->XMLSchema->GetAttributeProperty( *where, "patch", patch ) )
				{
					if ( ( currentProject == AnsiString( project.c_str() ).UpperCase() ) &&
						 ( currentIteration == atoi( majorVersion.c_str() ) ) )
					{
						if ( !matches++ )
						{
							schemaVersion.sprintf( "%d.%d.%d.%s",
								atoi( majorVersion.c_str() ),
								atoi( minorVersion.c_str() ),
								atoi( patch.c_str() ),
								project.c_str() );
						}
					}
				}
			}
		}
	}

	if ( matches < 1 )
	{
		std::stringstream stream;
		stream
			<< "No schema found for \"" << currentProject.c_str() << "\" iteration " << currentIteration << ".  "
			<< "Please update \"" << MainForm->XMLSchema->Profile.c_str() << "\" such that exactly one " << MASSUDWriter << " schema is loaded for \"" << currentProject.c_str() << "\" iteration " << currentIteration << '.';
		MessageDlg(
			stream.str().c_str(),
			mtError, TMsgDlgButtons() << mbOK, 0 );
	}
	else if ( matches > 1 )
	{
		std::stringstream stream;
		stream
			<< "Found " << matches << " schemas for \"" << currentProject.c_str() << "\" iteration " << currentIteration << ".  "
			<< "There may be only one " << MASSUDWriter << " schema for an iteration.  "
			<< "Please update \"" << MainForm->XMLSchema->Profile.c_str() << "\" such that exactly one " << MASSUDWriter << " schema is loaded for \"" << currentProject.c_str() << "\" iteration " << currentIteration << '.';
		MessageDlg(
			stream.str().c_str(),
			mtError, TMsgDlgButtons() << mbOK, 0 );
	}

	return ( matches == 1 );
}
//---------------------------------------------------------------------------

const bool __fastcall TIterationConfigForm::getUsername( AnsiString & usename )
{
	char name[ 256 ];
	unsigned long size = sizeof( name );
	if ( GetUserName( name, &size ) )
	{
		usename = name;
		return ( true );
	}

	return ( false );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::IterationsQueryAfterInsert(
	  TDataSet *DataSet)
{
	DataSet->FieldByName("PROJECT_CODE")->AsString = m_currentproject;

	AnsiString name;
	if ( getUsername( name ) )
	{
		DataSet->FieldByName( "USERNAME" )->AsString = name;
	}
}
//---------------------------------------------------------------------------


void __fastcall TIterationConfigForm::IterationsQueryBeforeDelete(
	  TDataSet *DataSet)
{
	/*
	 *	Delete all the data that exists for this iteration.  They will
	 *	already have confirmed that they wish to delete this iteration.
	 */
	
	const AnsiString iteration		= DataSet->FieldValues[ "ITERATION" ];
	const AnsiString projectCode	= DataSet->FieldValues[ "PROJECT_CODE" ];

	DeleteIterationProcedure->Parameters->ParamValues[ "iteration" ] = iteration;
	DeleteIterationProcedure->Parameters->ParamValues[ "projectCode" ] = projectCode;
	DeleteIterationProcedure->ExecProc();
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::FormShow(TObject *Sender)
{
	Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::StoragePathChange(TObject *Sender)
{
	Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::NotesChange(TObject *Sender)
{
	Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::OKClick(TObject *Sender)
{
	if ( IterationsQuery->State == dsEdit )
	{
		IterationsQuery->Post();
	}
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::ApplyClick(TObject *Sender)
{
	if ( IterationsQuery->State == dsEdit )
	{
		IterationsQuery->Post();
	}

	Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::IterationsDataSourceUpdateData(
	  TObject *Sender)
{
	AnsiString name;
	if ( getUsername( name ) )
	{
		IterationsQuery->FieldByName( "USERNAME" )->AsString = name;
	}
	
	AnsiString schemaVersion;
	if ( getSchemaDetails(
			schemaVersion,
			m_currentproject.UpperCase(),
			IterationsQuery->FieldByName( "ITERATION" )->AsInteger ) )
	{
		IterationsQuery->FieldByName( "SCHEMA_VERSION" )->AsString = schemaVersion;
	}
}
//---------------------------------------------------------------------------