//--------------------------------------------------------------------------- #ifndef TpvVntProdH #define TpvVntProdH //--------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "ElastFrm.hpp" #include //--------------------------------------------------------------------------- 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