268 lines
9.4 KiB
C++
268 lines
9.4 KiB
C++
//---------------------------------------------------------------------------
|
|
#ifndef TpvBlcDVntH
|
|
#define TpvBlcDVntH
|
|
//---------------------------------------------------------------------------
|
|
#include <Classes.hpp>
|
|
#include <Controls.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include <Forms.hpp>
|
|
#include <Buttons.hpp>
|
|
#include <ComCtrls.hpp>
|
|
#include <DBCtrls.hpp>
|
|
#include <DBGrids.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
#include <Grids.hpp>
|
|
#include <Mask.hpp>
|
|
#include <Db.hpp>
|
|
#include <DBTables.hpp>
|
|
#include <Chart.hpp>
|
|
#include <TeEngine.hpp>
|
|
#include <TeeProcs.hpp>
|
|
#include <Series.hpp>
|
|
#include "ElastFrm.hpp"
|
|
//---------------------------------------------------------------------------
|
|
class TTpvBlDVnt : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TStatusBar *StatusBar1;
|
|
TGroupBox *GroupBox1;
|
|
TLabel *Label1;
|
|
TLabel *Label2;
|
|
TLabel *Label3;
|
|
TLabel *Label4;
|
|
TLabel *Label5;
|
|
TLabel *Label6;
|
|
TLabel *Label7;
|
|
TLabel *Label8;
|
|
TLabel *Label9;
|
|
TLabel *Label10;
|
|
TLabel *Label11;
|
|
TDBEdit *DBEdit1;
|
|
TDBEdit *DBEdit2;
|
|
TDBEdit *DBEdit3;
|
|
TDBEdit *DBEdit4;
|
|
TDBEdit *DBEdit5;
|
|
TDBEdit *DBEdit6;
|
|
TDBEdit *DBEdit7;
|
|
TDBEdit *DBEdit8;
|
|
TDBEdit *DBEdit9;
|
|
TDBEdit *DBEdit10;
|
|
TDBEdit *DBEdit11;
|
|
TDBEdit *DBEdit12;
|
|
TLabel *Label12;
|
|
TDBEdit *DBEdit13;
|
|
TDBEdit *DBEdit14;
|
|
TDBEdit *DBEdit15;
|
|
TDBEdit *DBEdit16;
|
|
TDBEdit *DBEdit17;
|
|
TDBEdit *DBEdit18;
|
|
TDBEdit *DBEdit19;
|
|
TDBEdit *DBEdit20;
|
|
TDBEdit *DBEdit21;
|
|
TDBEdit *DBEdit22;
|
|
TDBEdit *DBEdit23;
|
|
TDBEdit *DBEdit24;
|
|
TDBEdit *DBEdit25;
|
|
TLabel *Label13;
|
|
TDBEdit *DBEdit26;
|
|
TBevel *Bevel1;
|
|
TLabel *Label14;
|
|
TLabel *Label15;
|
|
TLabel *Label16;
|
|
TLabel *Label17;
|
|
TLabel *Label18;
|
|
TLabel *Label19;
|
|
TLabel *Label20;
|
|
TLabel *Label21;
|
|
TLabel *Label22;
|
|
TBevel *Bevel2;
|
|
TDBMemo *DBMemo1;
|
|
TPanel *Panel2;
|
|
TSpeedButton *SpeedButton1;
|
|
TSpeedButton *SpeedButton2;
|
|
TSpeedButton *BusqSig;
|
|
TSpeedButton *SpeedButton4;
|
|
TSpeedButton *BusqAnt;
|
|
TSpeedButton *SpeedButton6;
|
|
TDateTimePicker *FechaCaja;
|
|
TDataSource *DsVentasI;
|
|
TTable *TbVentasI;
|
|
TLabel *Label29;
|
|
TDBText *DBText1;
|
|
TDBText *DBText2;
|
|
TDBText *DBText3;
|
|
TDBText *DBText4;
|
|
TDBText *DBText5;
|
|
TDBText *DBText6;
|
|
TDBText *DBText7;
|
|
TSmallintField *TbVentasICantidadx1;
|
|
TIntegerField *TbVentasITotalx1;
|
|
TSmallintField *TbVentasICantidadx5;
|
|
TIntegerField *TbVentasITotalx5;
|
|
TSmallintField *TbVentasICantidadx10;
|
|
TIntegerField *TbVentasITotalx10;
|
|
TSmallintField *TbVentasICantidadx25;
|
|
TIntegerField *TbVentasITotalx25;
|
|
TSmallintField *TbVentasICantidadx50;
|
|
TIntegerField *TbVentasITotalx50;
|
|
TSmallintField *TbVentasICantidadx100;
|
|
TIntegerField *TbVentasITotalx100;
|
|
TSmallintField *TbVentasICantidadx200;
|
|
TIntegerField *TbVentasITotalx200;
|
|
TSmallintField *TbVentasICantidadx500;
|
|
TIntegerField *TbVentasITotalx500;
|
|
TSmallintField *TbVentasICantidadx1000;
|
|
TIntegerField *TbVentasITotalx1000;
|
|
TSmallintField *TbVentasICantidadx2000;
|
|
TIntegerField *TbVentasITotalx2000;
|
|
TSmallintField *TbVentasICantidadx5000;
|
|
TIntegerField *TbVentasITotalx5000;
|
|
TSmallintField *TbVentasICantidadx10000;
|
|
TIntegerField *TbVentasITotalx10000;
|
|
TSmallintField *TbVentasICantidadxvarios;
|
|
TIntegerField *TbVentasITotalxvarios;
|
|
TDateField *TbVentasIFechaCaja;
|
|
TTimeField *TbVentasIInicio;
|
|
TTimeField *TbVentasIFin;
|
|
TSmallintField *TbVentasIIntentosSalir;
|
|
TSmallintField *TbVentasIExitoSalir;
|
|
TSmallintField *TbVentasITickets;
|
|
TSmallintField *TbVentasICancelados;
|
|
TSmallintField *TbVentasICambios;
|
|
TMemoField *TbVentasINotas;
|
|
TChart *Chart1;
|
|
TScrollBox *ScrollBox1;
|
|
TLabel *Label23;
|
|
TLabel *Label24;
|
|
TLabel *Label25;
|
|
TBevel *Bevel3;
|
|
TMemo *MDatos;
|
|
TSpeedButton *Clientes;
|
|
TSpeedButton *Productos;
|
|
TAreaSeries *Series2;
|
|
TDataSource *DsVentasC;
|
|
TTable *TbVentasC;
|
|
TTable *TbFacturasC;
|
|
TDataSource *DsFacturasC;
|
|
TSpeedButton *Empleados;
|
|
TLabel *LVentasT;
|
|
TLabel *LGastos;
|
|
TLabel *LBeneficio;
|
|
TLabel *Label26;
|
|
TLabel *Label27;
|
|
TSpeedButton *SpeedButton7;
|
|
TLabel *Label28;
|
|
TLabel *EnCaja;
|
|
TBevel *Bevel4;
|
|
TLabel *Label30;
|
|
TLabel *Label31;
|
|
TLabel *LVentasE;
|
|
TLabel *LGastosE;
|
|
TLabel *LBeneficioE;
|
|
TLabel *Label35;
|
|
TElasticForm *ElasticForm1;
|
|
void __fastcall SpeedButton1Click(TObject *Sender);
|
|
|
|
void __fastcall TbVentasICantidadx1SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx5SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx10SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx25SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx50SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx100SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx200SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx500SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx1000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx2000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx5000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasICantidadx10000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx1SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx5SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx10SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx25SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx50SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx100SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx200SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx500SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx1000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx2000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx5000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasITotalx10000SetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall DBEdit1KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit2KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit3KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit4KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit5KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit6KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit7KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit8KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit9KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit10KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit11KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit12KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit25KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit13KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit14KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit15KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit16KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit17KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit18KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit19KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit20KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit21KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit22KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit23KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit24KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBEdit26KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall FechaCajaChange(TObject *Sender);
|
|
TDateTime __fastcall BuscaFecha( TDateTime FechaInicio );
|
|
|
|
|
|
void __fastcall ClientesClick(TObject *Sender);
|
|
void __fastcall EmpleadosClick(TObject *Sender);
|
|
void __fastcall ProductosClick(TObject *Sender);
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
|
|
void __fastcall DsVentasIDataChange(TObject *Sender, TField *Field);
|
|
void __fastcall SpeedButton7Click(TObject *Sender);
|
|
|
|
|
|
|
|
|
|
private: // User declarations
|
|
public: // User declarations
|
|
__fastcall TTpvBlDVnt(TComponent* Owner);
|
|
void __fastcall DineroEnCajaAyer(void);
|
|
void __fastcall CalculaVentaGasto(void);
|
|
|
|
Currency VentasHora[26], VentasE;
|
|
Currency Gastos, EnCajaAyer;
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TTpvBlDVnt *TpvBlDVnt;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|