50 lines
1.5 KiB
C++
50 lines
1.5 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "Unit2.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
TForm2 *Form2;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TForm2::TForm2(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
TbPrecios->Active = true;
|
|
TbHistorial ->Active = true;
|
|
Timer1->Enabled = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TForm2::Timer1Timer(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TForm2::TbHistorialAfterOpen(TDataSet *DataSet)
|
|
{
|
|
TbHistorial->First();
|
|
while ( !TbHistorial->Eof )
|
|
{
|
|
|
|
if ( TbHistorial->FieldByName("idtc")->AsInteger < 900 )
|
|
{
|
|
// Buscamos en la tabla de precios, al 1º que tenga un tiempo superior o igual
|
|
// al que nos pide el cliente...
|
|
TbPrecios->First();
|
|
while( !TbPrecios->Eof && (double)TbPrecios->FieldByName("Tiempo")->AsDateTime < (double)TbHistorial->FieldByName("Tiempo")->AsDateTime )//->Time )
|
|
TbPrecios->Next();
|
|
|
|
TbHistorial->Edit();
|
|
TbHistorial->FieldByName("Precio")->AsCurrency = TbPrecios->FieldByName("Precio")->AsCurrency;
|
|
TbHistorial->Post();
|
|
}
|
|
|
|
TbHistorial->Next();
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|