//---------------------------------------------------------------------------
void __fastcall TFin2001::cbPeriodoChange(TObject *Sender)
{
data_ini->ReadOnly = true;
data_ini->Color = AppConfig->Colors->Disabled;
data_ini->ReadOnly = true;
data_fim->Color = AppConfig->Colors->Disabled;
if (cbPeriodo->ItemIndex == 0) { //Pode ser por dia atual
data_ini->Text = FormatDateTime("dd/mm/yyyy", Date());
data_fim->Text = FormatDateTime("dd/mm/yyyy", Date());
RefazConsulta();
} else if (cbPeriodo->ItemIndex == 1) { //Pode ser por semana atual
data_ini->Text = FormatDateTime("dd/mm/yyyy", StartOfTheWeek(Date()));
data_fim->Text = FormatDateTime("dd/mm/yyyy", EndOfTheWeek(Date()));
RefazConsulta();
} else if (cbPeriodo->ItemIndex == 2) { //Pode ser por mês atual
data_ini->Text = FormatDateTime("dd/mm/yyyy", StartOfTheMonth(Date()));
data_fim->Text = FormatDateTime("dd/mm/yyyy", EndOfTheMonth(Date()));
RefazConsulta();
} else { //Ou um período informado pelo usuário
data_ini->ReadOnly = false;
data_ini->Color = AppConfig->Colors->Enabled;
data_ini->ReadOnly = false;
data_fim->Color = AppConfig->Colors->Enabled;
}
}
void __fastcall TForm1::fltpcClick(TObject *Sender)
{
fltfp->Visible=fltpc->Checked;
if (!fltpc->Checked) return;
do_date->Date=StartOfTheMonth(Now())-1;
ot_date->Date=StartOfTheMonth(StartOfTheMonth(Now())-1);
TADOQuery* x=new TADOQuery(NULL);
x->Connection=connect;
x->SQL->Clear();
x->SQL->Add("SELECT name FROM prep WHERE id<>0 ORDER BY name");
x->ExecSQL();
x->Open();
prep_flt->Items->Clear();
for(x->First();!x->Eof;x->Next())
{
prep_flt->Items->Add(x->FieldByName("name")->AsString);
}
x->Close();
delete x;
}
