First commit 14/02/1999

2021-09-12 22:19:30 +02:00
commit d031fca570
464 changed files with 22399 additions and 0 deletions
--- a/TpvBlcMVnt.h
+++ b/TpvBlcMVnt.h
@ -0,0 +1,130 @@
+//---------------------------------------------------------------------------
+
+#ifndef TpvBlcMVntH
+#define TpvBlcMVntH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include "ElastFrm.hpp"
+#include <Buttons.hpp>
+#include <ComCtrls.hpp>
+#include <ExtCtrls.hpp>
+#include <Db.hpp>
+#include <DBTables.hpp>
+#include <DBGrids.hpp>
+#include <Grids.hpp>
+#include <Chart.hpp>
+#include <DBChart.hpp>
+#include <Series.hpp>
+#include <TeEngine.hpp>
+#include <TeeProcs.hpp>
+#include <TeeFunci.hpp>
+#include <Menus.hpp>
+#include <Mask.hpp>
+//---------------------------------------------------------------------------
+class TBlMVnt : public TForm
+{
+__published:	// IDE-managed Components
+        TStatusBar *StatusBar1;
+        TPanel *Panel2;
+        TSpeedButton *SpeedButton1;
+        TSpeedButton *SpeedButton2;
+        TSpeedButton *BusqSig;
+        TSpeedButton *SpeedButton4;
+        TSpeedButton *BusqAnt;
+        TSpeedButton *SpeedButton6;
+        TSpeedButton *Clientes;
+        TSpeedButton *Productos;
+        TSpeedButton *Empleados;
+        TDateTimePicker *FechaCaja;
+        TDateTimePicker *FechaCajaMin;
+        TSpeedButton *bImpresion;
+        TPageControl *PageControl1;
+        TTabSheet *Ventas;
+        TTabSheet *VEmpleados;
+        TTabSheet *Compras;
+        TDataSource *DsVentasC;
+        TDataSource *DsComprasC;
+        TQuery *QVentasC;
+        TQuery *QComprasC;
+        TPageControl *PageControl2;
+        TTabSheet *TabSheet1;
+        TTabSheet *TabSheet2;
+        TDBChart *DBChart1;
+        TQuery *QVentasR;
+        TPageControl *PageControl3;
+        TTabSheet *VentasCompletas;
+        TDBGrid *DBGridVentas;
+        TTabSheet *VentasResumidas;
+        TDBGrid *DBGrid1;
+        TDataSource *DsVentasR;
+        TQuery *QComprasR;
+        TDataSource *DsComprasR;
+        TPageControl *PageControl4;
+        TTabSheet *ComprasCompleto;
+        TTabSheet *ComprasResumen;
+        TDBGrid *DBGridCompras;
+        TDBGrid *DBGrid2;
+        TLineSeries *Series1;
+        TSpeedButton *bGraficas;
+        TPopupMenu *mGraficas;
+        TMenuItem *MostrarVentas;
+        TMenuItem *MostrarCompras;
+        TLineSeries *Series2;
+        TQuery *QVentasEmpleados;
+        TDataSource *DsVentasEmpleados;
+        TDBGrid *DBGrid3;
+        TLabel *Label1;
+        TLabel *Label2;
+        TLabel *Label3;
+        TLabel *TotalVentas;
+        TLabel *TotalCompras;
+        TLabel *Beneficio;
+        TProgressBar *ProgressBar1;
+        TPopupMenu *mImpresion;
+        TMenuItem *MenuItem1;
+        TMenuItem *MenuItem2;
+        TMenuItem *VentasResumen1;
+        TMenuItem *ComprasResumen1;
+        TMenuItem *Empleados1;
+        TMenuItem *ResumenyGrfica1;
+        TMenuItem *N1;
+        TElasticForm *ElasticForm1;
+        void __fastcall ProductosClick(TObject *Sender);
+        void __fastcall EmpleadosClick(TObject *Sender);
+        void __fastcall ClientesClick(TObject *Sender);
+        void __fastcall FechaCajaChange(TObject *Sender);
+        void __fastcall QVentasCBeforeOpen(TDataSet *DataSet);
+        void __fastcall DBGridVentasDrawColumnCell(TObject *Sender,
+          const TRect &Rect, int DataCol, TColumn *Column,
+          TGridDrawState State);
+        void __fastcall SpeedButton1Click(TObject *Sender);
+        void __fastcall DBGridComprasDrawColumnCell(TObject *Sender,
+          const TRect &Rect, int DataCol, TColumn *Column,
+          TGridDrawState State);
+        void __fastcall QComprasCBeforeOpen(TDataSet *DataSet);
+        void __fastcall QVentasCAfterOpen(TDataSet *DataSet);
+        void __fastcall QComprasCAfterOpen(TDataSet *DataSet);
+        void __fastcall QVentasRBeforeOpen(TDataSet *DataSet);
+        void __fastcall QComprasRBeforeOpen(TDataSet *DataSet);
+        void __fastcall bGraficasClick(TObject *Sender);
+        void __fastcall MostrarVentasClick(TObject *Sender);
+        void __fastcall MostrarComprasClik(TObject *Sender);
+        void __fastcall QVentasEmpleadosBeforeOpen(TDataSet *DataSet);
+        void __fastcall bImpresionClick(TObject *Sender);
+        void __fastcall VentasResumen1Click(TObject *Sender);
+        void __fastcall ComprasResumen1Click(TObject *Sender);
+private:	// User declarations
+    Graphics::TBitmap *BtmOK;      // Imagen OK!
+    Graphics::TBitmap *BtmLockOpen;
+    Graphics::TBitmap *BtmLockShut;
+
+public:		// User declarations
+        __fastcall TBlMVnt(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TBlMVnt *BlMVnt;
+//---------------------------------------------------------------------------
+#endif