//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "hdsaldo.h"
#include "QRhdsaldo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ElastFrm"
#pragma link "ElastFrm"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::ToolbarButton971Click(TObject *Sender)
{
  Close();    
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::CheckBox1Click(TObject *Sender)
{
  Table1 -> Filtered = CheckBox1 -> Checked;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Table1CalcFields(TDataSet *DataSet)
{
  Table1Saldo -> AsCurrency = Table1Haber -> AsCurrency - Table1Debe -> AsCurrency;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Table1NewRecord(TDataSet *DataSet)
{
  Table1Fecha -> AsDateTime = TDateTime::CurrentDate();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::DateTimePicker1CloseUp(TObject *Sender)
{
  DateTimePicker2CloseUp(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::DateTimePicker2CloseUp(TObject *Sender)
{
  TDateTime FechaL, FechaH;

  try {
   FechaL = DateTimePicker1 -> Date;
   FechaH = DateTimePicker2 -> Date;
   Table1->FilterOptions = Table1->FilterOptions << foCaseInsensitive;
   Table1->Filter = "([Fecha] >= '" + FechaL + "') AND [Fecha] <= '" + FechaH + "'";
  } catch(...) {
   // Nothing...
   MessageBox( 0, "Imposible aplicar filtro en ese rango.", "¡ Alerta !", MB_OK );
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::BitBtn1Click(TObject *Sender)
{
 Form1 -> QuickRep1 -> Print();    
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
 try {
  Table1 -> Post();
 } catch(...) {
  //nothing
 }
}
//---------------------------------------------------------------------------