First commit 14/02/1999
This commit is contained in:
166
TpvVntProd.h
Normal file
166
TpvVntProd.h
Normal file
@ -0,0 +1,166 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#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
|
||||
|
Reference in New Issue
Block a user