166 lines
6.0 KiB
C++
166 lines
6.0 KiB
C++
//---------------------------------------------------------------------------
|
|
#ifndef TpvVntProdH
|
|
#define TpvVntProdH
|
|
|
|
//---------------------------------------------------------------------------
|
|
#include <Classes.hpp>
|
|
#include <Buttons.hpp>
|
|
#include <ComCtrls.hpp>
|
|
#include <Controls.hpp>
|
|
#include <Db.hpp>
|
|
#include <DBTables.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include <DBGrids.hpp>
|
|
#include <Grids.hpp>
|
|
#include <Chart.hpp>
|
|
#include <TeEngine.hpp>
|
|
#include <TeeProcs.hpp>
|
|
#include <DBChart.hpp>
|
|
#include <Series.hpp>
|
|
#include <Menus.hpp>
|
|
#include "ElastFrm.hpp"
|
|
#include <ImgList.hpp>
|
|
//---------------------------------------------------------------------------
|
|
class TVntProd : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TStatusBar *StatusBar1;
|
|
TPanel *Panel1;
|
|
TLabel *Label1;
|
|
TLabel *Label2;
|
|
TSpeedButton *CerrarAplic;
|
|
TSpeedButton *SpeedButton2;
|
|
TSpeedButton *SpeedButton3;
|
|
TSpeedButton *SpeedButton5;
|
|
TDateTimePicker *MinFecha;
|
|
TDateTimePicker *MaxFecha;
|
|
TDateTimePicker *DateTimePicker1;
|
|
TDateTimePicker *DateTimePicker2;
|
|
TTreeView *Indices;
|
|
TImageList *ImageList1;
|
|
TTable *TbProductos;
|
|
TDataSource *DsProdTemp;
|
|
TTable *TbProdTmp;
|
|
TTable *TbVentasC;
|
|
TDataSource *DsVentasC;
|
|
TTable *TbVentasD;
|
|
TDataSource *DsVentasD;
|
|
TDBGrid *DBGrid1;
|
|
TSplitter *Splitter1;
|
|
TSplitter *Splitter2;
|
|
TChart *Chart1;
|
|
TAreaSeries *Series2;
|
|
TAreaSeries *Series1;
|
|
TPopupMenu *mGraficas;
|
|
TMenuItem *MostrarTotal;
|
|
TMenuItem *VentaProducto;
|
|
TMenuItem *BeneficioProducto;
|
|
TMenuItem *N1;
|
|
TMenuItem *N2;
|
|
TMenuItem *mNumProductos;
|
|
TMenuItem *mMostrarCifras;
|
|
TAreaSeries *Series3;
|
|
TFloatField *TbProdTmpCantidad;
|
|
TCurrencyField *TbProdTmpBeneficio;
|
|
TIntegerField *TbProdTmpFamilia0;
|
|
TIntegerField *TbProdTmpFamilia1;
|
|
TStringField *TbProdTmpCodProducto;
|
|
TStringField *TbProdTmpNombreProducto;
|
|
TSmallintField *TbProdTmpIVA;
|
|
TCurrencyField *TbProdTmpPrecioC;
|
|
TCurrencyField *TbProdTmpPrecioV;
|
|
TIntegerField *TbProdTmpCantidad000;
|
|
TIntegerField *TbProdTmpCantidad030;
|
|
TIntegerField *TbProdTmpCantidad100;
|
|
TIntegerField *TbProdTmpCantidad130;
|
|
TIntegerField *TbProdTmpCantidad200;
|
|
TIntegerField *TbProdTmpCantidad230;
|
|
TIntegerField *TbProdTmpCantidad300;
|
|
TIntegerField *TbProdTmpCantidad330;
|
|
TIntegerField *TbProdTmpCantidad400;
|
|
TIntegerField *TbProdTmpCantidad430;
|
|
TIntegerField *TbProdTmpCantidad500;
|
|
TIntegerField *TbProdTmpCantidad530;
|
|
TIntegerField *TbProdTmpCantidad600;
|
|
TIntegerField *TbProdTmpCantidad630;
|
|
TIntegerField *TbProdTmpCantidad700;
|
|
TIntegerField *TbProdTmpCantidad730;
|
|
TIntegerField *TbProdTmpCantidad800;
|
|
TIntegerField *TbProdTmpCantidad830;
|
|
TIntegerField *TbProdTmpCantidad900;
|
|
TIntegerField *TbProdTmpCantidad930;
|
|
TIntegerField *TbProdTmpCantidad1000;
|
|
TIntegerField *TbProdTmpCantidad1030;
|
|
TIntegerField *TbProdTmpCantidad1100;
|
|
TIntegerField *TbProdTmpCantidad1130;
|
|
TIntegerField *TbProdTmpCantidad1200;
|
|
TIntegerField *TbProdTmpCantidad1230;
|
|
TIntegerField *TbProdTmpCantidad1300;
|
|
TIntegerField *TbProdTmpCantidad1330;
|
|
TIntegerField *TbProdTmpCantidad1400;
|
|
TIntegerField *TbProdTmpCantidad1430;
|
|
TIntegerField *TbProdTmpCantidad1500;
|
|
TIntegerField *TbProdTmpCantidad1530;
|
|
TIntegerField *TbProdTmpCantidad1600;
|
|
TIntegerField *TbProdTmpCantidad1630;
|
|
TIntegerField *TbProdTmpCantidad1700;
|
|
TIntegerField *TbProdTmpCantidad1730;
|
|
TIntegerField *TbProdTmpCantidad1800;
|
|
TIntegerField *TbProdTmpCantidad1830;
|
|
TIntegerField *TbProdTmpCantidad1900;
|
|
TIntegerField *TbProdTmpCantidad1930;
|
|
TIntegerField *TbProdTmpCantidad2000;
|
|
TIntegerField *TbProdTmpCantidad2030;
|
|
TIntegerField *TbProdTmpCantidad2100;
|
|
TIntegerField *TbProdTmpCantidad2130;
|
|
TIntegerField *TbProdTmpCantidad2200;
|
|
TIntegerField *TbProdTmpCantidad2230;
|
|
TIntegerField *TbProdTmpCantidad2300;
|
|
TIntegerField *TbProdTmpCantidad2330;
|
|
TSpeedButton *bGraficas;
|
|
TElasticForm *ElasticForm1;
|
|
TIntegerField *TbProdTmpCodForced;
|
|
TCurrencyField *TbProdTmpCostoTotal;
|
|
TSpeedButton *SpeedButton7;
|
|
void __fastcall CerrarAplicClick(TObject *Sender);
|
|
void __fastcall TbProductosAfterOpen(TDataSet *DataSet);
|
|
void __fastcall MinFechaChange(TObject *Sender);
|
|
void __fastcall MaxFechaChange(TObject *Sender);
|
|
void __fastcall IndicesExpanding(TObject *Sender, TTreeNode *Node,
|
|
bool &AllowExpansion);
|
|
void __fastcall IndicesCollapsing(TObject *Sender, TTreeNode *Node,
|
|
bool &AllowCollapse);
|
|
void __fastcall TbProdTmpBeforeOpen(TDataSet *DataSet);
|
|
|
|
void __fastcall IndicesDeletion(TObject *Sender, TTreeNode *Node);
|
|
void __fastcall TbProdTmpAfterOpen(TDataSet *DataSet);
|
|
void __fastcall DsProdTempDataChange(TObject *Sender, TField *Field);
|
|
void __fastcall MostrarTotalClick(TObject *Sender);
|
|
void __fastcall VentaProductoClick(TObject *Sender);
|
|
void __fastcall BeneficioProductoClick(TObject *Sender);
|
|
|
|
void __fastcall mNumProductosClick(TObject *Sender);
|
|
void __fastcall mMostrarCifrasClick(TObject *Sender);
|
|
void __fastcall FormDestroy(TObject *Sender);
|
|
void __fastcall IndicesChange(TObject *Sender, TTreeNode *Node);
|
|
void __fastcall TbProdTmpCalcFields(TDataSet *DataSet);
|
|
void __fastcall bGraficasClick(TObject *Sender);
|
|
void __fastcall SpeedButton7Click(TObject *Sender);
|
|
private: // User declarations
|
|
Currency *CantidadTotal;//[48];
|
|
Currency *BeneficioTotal;//[48];
|
|
void __fastcall RellenaGraficaTOTALES(void);
|
|
|
|
bool FirstTime;
|
|
public: // User declarations
|
|
bool IamOpening;
|
|
TDateTime MinFechaFact, MaxFechaFact;
|
|
__fastcall TVntProd(TComponent* Owner);
|
|
void __fastcall FiltrarFacturas(void);
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TVntProd *VntProd;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|
|
|