//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "TpvCmpProv.h"
#include "TpvVntCltQR.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ElastFrm"
#pragma link "TpvVntGeneral"
#pragma resource "*.dfm"
TCmpProv *CmpProv;
//---------------------------------------------------------------------------
__fastcall TCmpProv::TCmpProv(TComponent* Owner)
        : TVntGeneral(Owner)
{
  ImpagFact->Visible = false;
  TodasFact->Visible = false;
  TabSheet2->Visible = false;

  CodCliente = "Proveedor";
  TableFactName="Compras";

  TbVentasC->IndexName = "CodProveedor (idx)";
  TbVentasC -> TableName = TableFactName+" (cabecera).db";
  TbVentasD -> TableName = TableFactName+" (cuerpo).db";

#ifndef DEM001
  TbVentasD -> Active = true;
#endif
  TbVentasC -> Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TCmpProv::SpeedButton7Click(TObject *Sender)
{
  TVntCltQR *QR;
  QR = new TVntCltQR(this);
  QR->QuickRep1->ReportTitle = "Compras por Proveedor";
  QR->QuickRep1->DataSet = TbClientes;
  QR->QRSubDetail1->DataSet = TbVentasC;
  QR->QuickRep1->Preview();
  delete QR;        
}
//---------------------------------------------------------------------------