Subversion Repositories DevTools

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

#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();
}
//---------------------------------------------------------------------------