CPP_Builder/HDSaldo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 22/01/1999

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:09:46 +02:00
commit 4b13e5a752
14 changed files with 353 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
hdsaldo.cpp Normal file
View File

@ -0,0 +1,79 @@
//---------------------------------------------------------------------------
#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.", "<EFBFBD> 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
}
}
//---------------------------------------------------------------------------