128 lines
4.6 KiB
C++
128 lines
4.6 KiB
C++
//---------------------------------------------------------------------------
|
|
#ifndef TpvStockActual1H
|
|
#define TpvStockActual1H
|
|
//---------------------------------------------------------------------------
|
|
#include <vcl\Classes.hpp>
|
|
#include <vcl\Controls.hpp>
|
|
#include <vcl\StdCtrls.hpp>
|
|
#include <vcl\Forms.hpp>
|
|
#include <vcl\ExtCtrls.hpp>
|
|
#include <vcl\ComCtrls.hpp>
|
|
#include <vcl\DBGrids.hpp>
|
|
#include "Grids.hpp"
|
|
#include <vcl\DBCtrls.hpp>
|
|
#include <vcl\Buttons.hpp>
|
|
#include <vcl\DB.hpp>
|
|
#include <vcl\Mask.hpp>
|
|
#include <vcl\DBTables.hpp>
|
|
#include <Db.hpp>
|
|
#include <Chart.hpp>
|
|
#include <TeEngine.hpp>
|
|
#include <TeeProcs.hpp>
|
|
#include "ElastFrm.hpp"
|
|
#include <DBChart.hpp>
|
|
#include <Series.hpp>
|
|
#include <ImgList.hpp>
|
|
//---------------------------------------------------------------------------
|
|
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
|
|
|