48 lines
1.3 KiB
C++
48 lines
1.3 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#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;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|