80 lines
2.4 KiB
C++
80 lines
2.4 KiB
C++
//---------------------------------------------------------------------------
|
|
#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
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|