162 lines
5.3 KiB
C++
162 lines
5.3 KiB
C++
//---------------------------------------------------------------------------
|
|
#ifndef TpvVntGeneralH
|
|
#define TpvVntGeneralH
|
|
//---------------------------------------------------------------------------
|
|
#include <Classes.hpp>
|
|
#include <Controls.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include <Forms.hpp>
|
|
#include <ComCtrls.hpp>
|
|
#include <Db.hpp>
|
|
#include <DBGrids.hpp>
|
|
#include <DBTables.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
#include <Grids.hpp>
|
|
#include <Menus.hpp>
|
|
#include <ToolWin.hpp>
|
|
#include <Buttons.hpp>
|
|
#include <DBCtrls.hpp>
|
|
#include "ElastFrm.hpp"
|
|
//---------------------------------------------------------------------------
|
|
class TVntGeneral : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TStatusBar *StatusBar1;
|
|
TDBGrid *DBGrid1;
|
|
TDataSource *DsCliente;
|
|
TSplitter *Splitter1;
|
|
TDataSource *DsVentasD;
|
|
TTable *TbVentasD;
|
|
TAutoIncField *TbVentasDMaintenedForced;
|
|
TIntegerField *TbVentasDEnlaceFactura;
|
|
TStringField *TbVentasDCodProducto;
|
|
TStringField *TbVentasDNombreProducto;
|
|
TSmallintField *TbVentasDIVA;
|
|
TCurrencyField *TbVentasDPrecioC;
|
|
TCurrencyField *TbVentasDSubTotal;
|
|
TTable *TbVentasC;
|
|
TAutoIncField *TbVentasCEnlaceFactura;
|
|
TDateField *TbVentasCFechaFactura;
|
|
TDataSource *DsVentasC;
|
|
TPageControl *PageControl1;
|
|
TTabSheet *TabSheet1;
|
|
TTabSheet *TabSheet2;
|
|
TDBGrid *DBGrid2;
|
|
TSplitter *Splitter2;
|
|
TDBGrid *DBGrid3;
|
|
TTable *TbEmpl;
|
|
TStringField *TbVentasCEmplNombre;
|
|
TStringField *TbVentasCEmplApellidos;
|
|
TPanel *Panel1;
|
|
TDateTimePicker *MinFecha;
|
|
TDateTimePicker *MaxFecha;
|
|
TLabel *Label1;
|
|
TLabel *Label2;
|
|
TSpeedButton *SpeedButton1;
|
|
TSpeedButton *SpeedButton2;
|
|
TSpeedButton *SpeedButton3;
|
|
TSpeedButton *SpeedButton4;
|
|
TSpeedButton *SpeedButton5;
|
|
TSpeedButton *SpeedButton6;
|
|
TSpeedButton *ImpagFact;
|
|
TSpeedButton *TodasFact;
|
|
TPanel *Panel2;
|
|
TLabel *Label3;
|
|
TDBMemo *DBMemo1;
|
|
TSplitter *Splitter3;
|
|
TDBGrid *dbgFraccion;
|
|
TTable *TbCartera;
|
|
TIntegerField *TbCarteraEnlaceFactura;
|
|
TDateField *TbCarteraFecha;
|
|
TCurrencyField *TbCarteraImporte;
|
|
TCurrencyField *TbCarteraIncremento;
|
|
TSmallintField *TbCarteraFormaPago;
|
|
TBooleanField *TbCarteraPagado;
|
|
TCurrencyField *TbCarteraTotal;
|
|
TDataSource *DsCartera;
|
|
TComboBox *cbFormaPago;
|
|
TLabel *Label4;
|
|
TLabel *Label5;
|
|
TLabel *Label6;
|
|
TLabel *Label7;
|
|
TLabel *Label8;
|
|
TDBText *DBText1;
|
|
TCurrencyField *TbVentasCTotalSin;
|
|
TCurrencyField *TbVentasCTotalIva;
|
|
TDateField *TbVentasCUltimoPago;
|
|
TCurrencyField *TbVentasCTotalFrac;
|
|
TSmallintField *TbVentasCNumeroPagos;
|
|
TSmallintField *TbVentasCFormaPago;
|
|
TBooleanField *TbVentasCContabilizada;
|
|
TDBText *DBText2;
|
|
TDBText *DBText3;
|
|
TDBText *DBText4;
|
|
TCurrencyField *TbVentasCSumaTotal;
|
|
TQuery *TbClientes;
|
|
TFloatField *TbVentasDCantidad;
|
|
TIntegerField *TbVentasCCodEmpleado;
|
|
TSpeedButton *SpeedButton7;
|
|
TSmallintField *TbVentasCFacturaAbierta;
|
|
TTabSheet *TabSheet3;
|
|
TLabel *Label9;
|
|
TLabel *Label10;
|
|
TButton *Button1;
|
|
TButton *Button2;
|
|
TSpeedButton *SpeedButton8;
|
|
TSpeedButton *SpeedButton9;
|
|
TCheckBox *Facturar;
|
|
TTable *TbVentasF;
|
|
TLabel *Label11;
|
|
TLabel *Label12;
|
|
|
|
void __fastcall MinFechaChange(TObject *Sender);
|
|
void __fastcall MaxFechaChange(TObject *Sender);
|
|
|
|
void __fastcall SpeedButton1Click(TObject *Sender);
|
|
void __fastcall DBGrid3DrawColumnCell(TObject *Sender,
|
|
const TRect &Rect, int DataCol, TColumn *Column,
|
|
TGridDrawState State);
|
|
void __fastcall FormActivate(TObject *Sender);
|
|
void __fastcall ImpagFactClick(TObject *Sender);
|
|
void __fastcall TodasFactClick(TObject *Sender);
|
|
void __fastcall dbgFraccionDrawColumnCell(TObject *Sender,
|
|
const TRect &Rect, int DataCol, TColumn *Column,
|
|
TGridDrawState State);
|
|
void __fastcall dbgFraccionCellClick(TColumn *Column);
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
void __fastcall TbVentasCCalcFields(TDataSet *DataSet);
|
|
|
|
void __fastcall DsVentasCDataChange(TObject *Sender, TField *Field);
|
|
|
|
|
|
void __fastcall TbClientesBeforeOpen(TDataSet *DataSet);
|
|
void __fastcall TbCarteraBeforeDelete(TDataSet *DataSet);
|
|
void __fastcall TbCarteraBeforeInsert(TDataSet *DataSet);
|
|
|
|
|
|
void __fastcall FormResize(TObject *Sender);
|
|
void __fastcall SpeedButton7Click(TObject *Sender);
|
|
void __fastcall DBGrid3DblClick(TObject *Sender);
|
|
void __fastcall Button2Click(TObject *Sender);
|
|
void __fastcall Button1Click(TObject *Sender);
|
|
void __fastcall SpeedButton9Click(TObject *Sender);
|
|
void __fastcall TabSheet3Enter(TObject *Sender);
|
|
private: // User declarations
|
|
void __fastcall FiltrarFacturas(void);
|
|
bool FirstTime;
|
|
Graphics::TBitmap *BtmOK; // Imagen OK!
|
|
Graphics::TBitmap *BtmLockOpen;
|
|
Graphics::TBitmap *BtmLockShut;
|
|
|
|
int NewClient;
|
|
public: // User declarations
|
|
AnsiString CodCliente, TableFactName;
|
|
TDateTime MinFechaFact, MaxFechaFact;
|
|
__fastcall TVntGeneral(TComponent* Owner);
|
|
bool VTabs[2];
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TVntGeneral *VntGeneral;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|