//--------------------------------------------------------------------------- #ifndef TpvStockActual1H #define TpvStockActual1H //--------------------------------------------------------------------------- #include #include #include #include #include #include #include #include "Grids.hpp" #include #include #include #include #include #include #include #include #include #include "ElastFrm.hpp" #include #include #include //--------------------------------------------------------------------------- class TStockActual : public TForm { __published: // IDE-managed Components TStatusBar *StatusBar1; TDBGrid *DBGrid1; TDataSource *DataSource1; TTable *TbProductos; TIntegerField *TbProductosCdigodeBarras; TStringField *TbProductosIDProducto; TStringField *TbProductosNombredelProducto; TCurrencyField *TbProductosPrecioCosto; TFloatField *TbProductosIVA; TCurrencyField *TbProductosPrecioVenta1; TCurrencyField *TbProductosPrecioVenta2; TCurrencyField *TbProductosPrecioVenta3; TCurrencyField *TbProductosPrecioVenta4; TCurrencyField *TbProductosPrecioVenta5; TBooleanField *TbProductosCOMBINADO; TStringField *TbProductosLocalizacion; TSmallintField *TbProductosEnviarA; TCurrencyField *TbProductosValorStock; TCurrencyField *TbProductosBeneficioStock; TPanel *Panel2; TSpeedButton *CloseForm; TSpeedButton *btnBuscar; TSpeedButton *BusqSig; TSpeedButton *RegAnt; TSpeedButton *BusqAnt; TSpeedButton *RegSig; TSplitter *Splitter1; TSplitter *Splitter2; TTreeView *Indices; TImageList *ImageList1; TAutoIncField *TbProductosForcedIndex; TIntegerField *TbProductosFamilia; TIntegerField *TbProductosFamilia2; TSmallintField *TbProductosEsNodo; TPageControl *PageControl1; TTabSheet *TabSheet1; TTabSheet *TabSheet2; TScrollBox *ScrollBox1; TLabel *Label2; TLabel *Label3; TPaintBox *PaintBox1; TLabel *Label1; TDBEdit *DBEdit1; TElasticForm *ElasticForm1; TSpeedButton *ImprimirStock; TFloatField *TbProductosStockActual; TFloatField *TbProductosCantUnitaria; TIntegerField *TbProductosStockMinimo; TTable *TbSeguimiento; TDBChart *DBChart1; TLineSeries *Series1; TLineSeries *Series2; TIntegerField *TbSeguimientoCodProd; TDateField *TbSeguimientoFecha; TCurrencyField *TbSeguimientoPrecioVenta; TCurrencyField *TbSeguimientoPrecioCosto; TCurrencyField *TbSeguimientoPCreal; TCheckBox *BajoMinimos; void __fastcall DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State); void __fastcall BuscarFichaClick(TObject *Sender); void __fastcall BusqAntClick(TObject *Sender); void __fastcall BusqSigClick(TObject *Sender); void __fastcall DataSource1DataChange(TObject *Sender, TField *Field); void __fastcall BackMainClick(TObject *Sender); void __fastcall PaintBox1Paint(TObject *Sender); void __fastcall DBGrid1KeyPress(TObject *Sender, char &Key); void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall RegAntClick(TObject *Sender); void __fastcall RegSigClick(TObject *Sender); void __fastcall TbProductosAfterOpen(TDataSet *DataSet); void __fastcall IndicesExpanding(TObject *Sender, TTreeNode *Node, bool &AllowExpansion); void __fastcall IndicesCollapsing(TObject *Sender, TTreeNode *Node, bool &AllowCollapse); void __fastcall IndicesChange(TObject *Sender, TTreeNode *Node); void __fastcall TabSheet2Show(TObject *Sender); void __fastcall BajoMinimosClick(TObject *Sender); void __fastcall TbProductosFilterRecord(TDataSet *DataSet, bool &Accept); void __fastcall TbProductosBeforeInsert(TDataSet *DataSet); void __fastcall ImprimirStockClick(TObject *Sender); void __fastcall TbProductosCalcFields(TDataSet *DataSet); void __fastcall FormResize(TObject *Sender); private: // User declarations public: // User declarations __fastcall TStockActual(TComponent* Owner); }; //--------------------------------------------------------------------------- extern TStockActual *StockActual; //--------------------------------------------------------------------------- #endif