void __fastcall TfrmRaporMenu::SpeedButton6Click(TObject *Sender)
{
TDateTime Tarih;
unsigned short nGun, nAy, nYil;
SpeedButton3->Flat = false;
SpeedButton4->Flat = false;
SpeedButton5->Flat = false;
SpeedButton6->Flat = true;
Kilit();
Edit_Tarih1->Enabled = true;
Edit_Tarih2->Enabled = true;
SpeedButton1->Enabled = true;
SpeedButton2->Enabled = true;
Edit_Tarih1->Color = clWhite;
Edit_Tarih2->Color = clWhite;
Edit_MusteriNo1->Color = clWhite;
Edit_MusteriNo2->Color = clWhite;
Edit1->Color = clWhite;
Edit3->Color = clWhite;
Edit2->Color = clWhite;
Edit4->Color = clWhite;
Tarih = Tarih.CurrentDate();
Tarih.DecodeDate(&nYil, &nAy, &nGun);
Edit_Tarih1->Text = "01.01."+IntToStr(nYil);
Edit_Tarih2->Text = "31.12."+IntToStr(nYil);
RaporBayragi = 3;
}
//---------------------------------------------------------------------------
static int __stdcall cb_scancom_download_da_init(void *usr_arg)
{
TScanPort *t=(TScanPort *)usr_arg;
int i = t->GetComportIndex();
MainForm->DownLoadTimeSec[i]=0;
// access
if (MainForm->Get_EnableFactoryDatabaseLog())
{
TDateTime datetime;
TDateTime date = datetime.CurrentDate();
TDateTime time = datetime.CurrentTime();
sTime stime;
time.DecodeTime( &stime.hour, &stime.min, &stime.sec, &stime.msec);
MainForm->SetDnDate( i, date );
MainForm->SetDnStartTime( i, time );
MainForm->SetDnStartsTime( i, stime );
}
t->prefix = "DA ";
t->SyncInitProgress();
t->SyncUpdateProgressColor(clWhite, clRed);
return 0;
}
//---------------------------------------------------------------------------
void __fastcall TFormDLL::FormShow(TObject *Sender)
{
TDateTime dt;
DateTimePickerOplata->Date=dt.CurrentDate();
}
