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

#include <vcl.h>
#pragma hdrstop

#include "ComprarBono.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CoolForm"
#pragma link "FormularioREUSABLE"
#pragma resource "*.dfm"
TCBono *CBono;
//---------------------------------------------------------------------------
__fastcall TCBono::TCBono(TComponent* Owner)
        : TFormREUSABLE(Owner)
{
 Label1->Caption = TDateTime::CurrentDate();
}
//---------------------------------------------------------------------------
void __fastcall TCBono::BitBtn1Click(TObject *Sender)
{
  try {
  if ( Horas->Text.ToInt() < 0 || Horas->Text.ToInt() >50 ) Horas->Text = "0";
  } catch(...) {                                            Horas->Text = "0";
                                                            Horas->SelStart= 0;
                                                            Horas->SelLength= 1;
  }
  try {
  if ( Min->Text.ToInt() < 0 || Min->Text.ToInt() >59 ) Min->Text = "0";
  } catch(...) {                                            Min->Text = "0";
                                                            Min->SelStart= 0;
                                                            Min->SelLength= 1;
  }
  if ( Horas->Text.ToInt() == 0 )
  {
    ShowMessage( "Debe indicar la DURACIÓN DEL BONO" );
    return;
  }
try{
  if ( Currency(CosteBono->Text) == 0 )
  {
    ShowMessage( "Debe indicar la COSTE DEL BONO" );
    return;
  }
} catch(...) {
    ShowMessage( "Debe indicar la COSTE DEL BONO" );
    return;
}

  ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TCBono::Button1Click(TObject *Sender)
{
        ModalResult = mrCancel;        
}
//---------------------------------------------------------------------------