304 lines
11 KiB
C++
304 lines
11 KiB
C++
//---------------------------------------------------------------------------
|
|
#ifndef TpvVentasH
|
|
#define TpvVentasH
|
|
//---------------------------------------------------------------------------
|
|
#include "TDlgBuscar.h"
|
|
|
|
#include "DigitNum.h"
|
|
#include "LetreroDigital.h"
|
|
#include <Buttons.hpp>
|
|
#include <Classes.hpp>
|
|
#include <ComCtrls.hpp>
|
|
#include <Controls.hpp>
|
|
#include <Db.hpp>
|
|
#include <DBCtrls.hpp>
|
|
#include <DBGrids.hpp>
|
|
#include <DBTables.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
#include <Grids.hpp>
|
|
#include <Mask.hpp>
|
|
#include <Menus.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include "ElastFrm.hpp"
|
|
|
|
//---------------------------------------------------------------------------
|
|
class TVentas : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TPanel *Panel1;
|
|
TBevel *Bevel1;
|
|
TBevel *Bevel2;
|
|
TStatusBar *StatusBar1;
|
|
TDBGrid *DBGrid1;
|
|
TPanel *Panel2;
|
|
TSpeedButton *SpeedButton5;
|
|
TSpeedButton *SpeedButton11;
|
|
TPageControl *PageControl1;
|
|
TTabSheet *TabSheet1;
|
|
TBevel *Bevel3;
|
|
TLabel *Label2;
|
|
TDBText *DBText2;
|
|
TLabel *Label4;
|
|
TDBText *DBText3;
|
|
TLabel *Label5;
|
|
TDBText *DBText4;
|
|
TDBText *DBText5;
|
|
TDBText *DBText8;
|
|
TLabel *Label9;
|
|
TBevel *Bevel4;
|
|
TDBText *DBText6;
|
|
TButton *BusqCliente;
|
|
TTabSheet *TabSheet2;
|
|
TBevel *Bevel5;
|
|
TLabel *Label1;
|
|
TDBText *DBText9;
|
|
TTabSheet *TabSheet3;
|
|
TDBGrid *DBGrid4;
|
|
TButton *BusqVendedor;
|
|
TStatusBar *StatusBar2;
|
|
TDigitNum *DigitNum1;
|
|
TDigitNum *DigitNum2;
|
|
TLabel *Label7;
|
|
TLetreroDigital *LetreroDigital1;
|
|
TTable *TbInfoClt;
|
|
TDBText *DBText10;
|
|
TDBText *DBText11;
|
|
TDBText *DBText12;
|
|
TDBText *DBText13;
|
|
TDBText *DBText14;
|
|
TDBText *DBText15;
|
|
TDBText *DBText16;
|
|
TDBText *DBText17;
|
|
TTable *TbInfoEmpl;
|
|
TDataSource *DsVentasD;
|
|
TTable *TbVentasD;
|
|
TTable *TbVentasC;
|
|
TDataSource *DsVentasC;
|
|
TTable *TbVentasAbiertas;
|
|
TDataSource *DsVentasAbiertas;
|
|
TSpeedButton *bCancelarTicket;
|
|
TSpeedButton *bFicharTicket;
|
|
TSpeedButton *SpeedButton3;
|
|
TDBText *DBText18;
|
|
TBitBtn *BitBtn2;
|
|
TCurrencyField *TbVentasDSubTotal;
|
|
TAutoIncField *TbVentasAbiertasCodFactura;
|
|
TIntegerField *TbVentasAbiertasCodCliente;
|
|
TDateField *TbVentasAbiertasFechaFactura;
|
|
TSmallintField *TbVentasAbiertasFacturaAbierta;
|
|
|
|
TStringField *TbVentasAbiertasNombreCliente;
|
|
TStringField *TbVentasAbiertasNombreVendedor;
|
|
TAutoIncField *TbVentasCCodFactura;
|
|
TIntegerField *TbVentasCCodCliente;
|
|
TDateField *TbVentasCFechaFactura;
|
|
TSmallintField *TbVentasCFacturaAbierta;
|
|
TSmallintField *TbVentasCNumeroPagos;
|
|
TTabSheet *TabSheet4;
|
|
TBevel *Bevel6;
|
|
TDBMemo *DBMemo1;
|
|
TBooleanField *TbVentasCImprimirNotas;
|
|
TMemoField *TbVentasCNotasFactura;
|
|
TDBCheckBox *DBCheckBox1;
|
|
TPopupMenu *MFacturasMolde;
|
|
TMenuItem *MenuTitleBar;
|
|
TMenuItem *RestaurarMolde1;
|
|
TMenuItem *LoadMolde;
|
|
TMenuItem *SalvarMolde1;
|
|
TMenuItem *EliminarX1;
|
|
TDataSource *DsVentasMolde;
|
|
TTable *VentasMolde;
|
|
TDBText *DBText1;
|
|
TAutoIncField *TbVentasCEnlaceFactura;
|
|
TAutoIncField *TbVentasAbiertasEnlaceFactura;
|
|
TDataSource *DsVentasI;
|
|
TTable *TbVentasI;
|
|
TAutoIncField *TbVentasDMaintenedForced;
|
|
TIntegerField *TbVentasDEnlaceFactura;
|
|
TStringField *TbVentasDCodProducto;
|
|
TStringField *TbVentasDNombreProducto;
|
|
TSmallintField *TbVentasDIVA;
|
|
TCurrencyField *TbVentasDPrecioC;
|
|
TTimeField *TbVentasCHoraFactura;
|
|
TStringField *TbVentasCClt_nomb;
|
|
TStringField *TbVentasCClt_app;
|
|
TStringField *TbVentasCClt_nif;
|
|
TCurrencyField *TbVentasCClt_crd;
|
|
TStringField *TbVentasCClt_email;
|
|
TStringField *TbVentasCClt_cod2;
|
|
TStringField *TbVentasCCtl_tlf;
|
|
TStringField *TbVentasCEmpl_cod2;
|
|
TStringField *TbVentasCEmpl_nomb;
|
|
TStringField *TbVentasCEmpl_app;
|
|
TTable *TbProdCircular;
|
|
TElasticForm *ElasticForm1;
|
|
TImage *PideTicket;
|
|
TBooleanField *TbVentasCContabilizada;
|
|
TTable *TbCartera;
|
|
TIntegerField *TbCarteraEnlaceFactura;
|
|
TDateField *TbCarteraFecha;
|
|
TCurrencyField *TbCarteraImporte;
|
|
TCurrencyField *TbCarteraIncremento;
|
|
TSmallintField *TbCarteraFormaPago;
|
|
TBooleanField *TbCarteraPagado;
|
|
TCurrencyField *TbCarteraTotal;
|
|
TDataSource *DsCartera;
|
|
TDBGrid *dbgFraccion;
|
|
TSplitter *Splitter2;
|
|
TPanel *Panel3;
|
|
TLabel *Label3;
|
|
TLabel *Label6;
|
|
TEdit *Edit2;
|
|
TEdit *Edit1;
|
|
TComboBox *ComboBox;
|
|
TCurrencyField *TbVentasCTotalSin;
|
|
TCurrencyField *TbVentasCTotalIva;
|
|
TDateField *TbVentasCUltimoPago;
|
|
TCurrencyField *TbVentasCTotalFrac;
|
|
TFloatField *TbVentasDCantidad;
|
|
TIntegerField *TbVentasCCodEmpleado;
|
|
TIntegerField *TbVentasAbiertasCodEmpleado;
|
|
TTable *TbVentasF;
|
|
TSmallintField *TbVentasDDto;
|
|
TIntegerField *TbVentasDCodProductoAux;
|
|
TCurrencyField *TbVentasAbiertasTotalSin;
|
|
TPanel *Panel4;
|
|
TEdit *QCodigo;
|
|
TEdit *QNProducto;
|
|
TEdit *QIva;
|
|
TEdit *QPrecio;
|
|
TEdit *QDto;
|
|
TEdit *QUnds;
|
|
TEdit *QSubtotal;
|
|
TSmallintField *TbVentasCBanco_Entidad;
|
|
TSmallintField *TbVentasCBanco_Sucursal;
|
|
TSmallintField *TbVentasCBanco_DC;
|
|
TStringField *TbVentasCBanco_NumCuenta;
|
|
TDateField *TbVentasCFechaAlbaran;
|
|
TComboBox *cbFormaPago;
|
|
TSmallintField *TbVentasCFormaPago;
|
|
void __fastcall SpeedButton5Click(TObject *Sender);
|
|
void __fastcall TbVentasCNewRecord(TDataSet *DataSet);
|
|
|
|
|
|
void __fastcall BusqClienteClick(TObject *Sender);
|
|
void __fastcall BusqVendedorClick(TObject *Sender);
|
|
void __fastcall TbVentasDCalcFields(TDataSet *DataSet);
|
|
void __fastcall TbVentasAbiertasCalcFields(TDataSet *DataSet);
|
|
void __fastcall bFicharTicketClick(TObject *Sender);
|
|
|
|
void __fastcall TabSheet4Enter(TObject *Sender);
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
void __fastcall TbVentasDCodProductoSetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbVentasDCantidadSetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall DBGrid1ColExit(TObject *Sender);
|
|
void __fastcall TbVentasDBeforeDelete(TDataSet *DataSet);
|
|
void __fastcall TbVentasDNombreProductoSetText(TField *Sender,
|
|
const AnsiString Text);
|
|
|
|
void __fastcall BitBtn2Click(TObject *Sender);
|
|
void __fastcall bCancelarTicketClick(TObject *Sender);
|
|
void __fastcall TbVentasCBeforeDelete(TDataSet *DataSet);
|
|
void __fastcall TbVentasDPrecioCSetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall DBGrid1KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall DBGrid4DblClick(TObject *Sender);
|
|
void __fastcall DsVentasCDataChange(TObject *Sender, TField *Field);
|
|
void __fastcall DBGrid1DrawColumnCell(TObject *Sender,
|
|
const TRect &Rect, int DataCol, TColumn *Column,
|
|
TGridDrawState State);
|
|
void __fastcall TbVentasDNewRecord(TDataSet *DataSet);
|
|
void __fastcall DBGrid4CellClick(TColumn *Column);
|
|
void __fastcall TbVentasIBeforeOpen(TDataSet *DataSet);
|
|
void __fastcall TbVentasCAfterOpen(TDataSet *DataSet);
|
|
void __fastcall PideTicketClick(TObject *Sender);
|
|
void __fastcall LoadMoldeClick(TObject *Sender);
|
|
void __fastcall SalvarMolde1Click(TObject *Sender);
|
|
void __fastcall EliminarX1Click(TObject *Sender);
|
|
void __fastcall dbgFraccionDrawColumnCell(TObject *Sender,
|
|
const TRect &Rect, int DataCol, TColumn *Column,
|
|
TGridDrawState State);
|
|
|
|
void __fastcall ComboBoxChange(TObject *Sender);
|
|
void __fastcall Edit2Change(TObject *Sender);
|
|
void __fastcall Edit1Change(TObject *Sender);
|
|
void __fastcall DsCarteraDataChange(TObject *Sender, TField *Field);
|
|
|
|
|
|
|
|
void __fastcall TbCarteraFechaChange(TField *Sender);
|
|
void __fastcall TbCarteraImporteSetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall TbCarteraBeforeDelete(TDataSet *DataSet);
|
|
void __fastcall TbCarteraBeforeInsert(TDataSet *DataSet);
|
|
void __fastcall TbCarteraCalcFields(TDataSet *DataSet);
|
|
void __fastcall TbCarteraNewRecord(TDataSet *DataSet);
|
|
void __fastcall SpeedButton3Click(TObject *Sender);
|
|
void __fastcall TbCarteraIncrementoSetText(TField *Sender, const AnsiString Text);
|
|
void __fastcall SpeedButton11Click(TObject *Sender);
|
|
void __fastcall TbVentasDDtoSetText(TField *Sender,
|
|
const AnsiString Text);
|
|
void __fastcall QPrecioChange(TObject *Sender);
|
|
void __fastcall QUndsChange(TObject *Sender);
|
|
void __fastcall QDtoChange(TObject *Sender);
|
|
void __fastcall QNProductoChange(TObject *Sender);
|
|
void __fastcall QNProductoKeyDown(TObject *Sender, WORD &Key,
|
|
TShiftState Shift);
|
|
|
|
void __fastcall QNProductoKeyUp(TObject *Sender, WORD &Key,
|
|
TShiftState Shift);
|
|
void __fastcall QUndsEnter(TObject *Sender);
|
|
void __fastcall QUndsExit(TObject *Sender);
|
|
void __fastcall DBGrid1Enter(TObject *Sender);
|
|
void __fastcall QCodigoEnter(TObject *Sender);
|
|
void __fastcall QCodigoExit(TObject *Sender);
|
|
void __fastcall QCodigoKeyPress(TObject *Sender, char &Key);
|
|
void __fastcall QPrecioKeyPress(TObject *Sender, char &Key);
|
|
void __fastcall QUndsKeyPress(TObject *Sender, char &Key);
|
|
void __fastcall QCodigoClick(TObject *Sender);
|
|
void __fastcall QIvaKeyDown(TObject *Sender, WORD &Key,
|
|
TShiftState Shift);
|
|
void __fastcall ElasticForm1AfterResize(TObject *Sender);
|
|
void __fastcall QUndsClick(TObject *Sender);
|
|
void __fastcall QPrecioEnter(TObject *Sender);
|
|
void __fastcall QPrecioExit(TObject *Sender);
|
|
private: // User declarations
|
|
TDlgBuscar *DlgBuscarProd;
|
|
|
|
Currency SUMAcompraC, IVAcompraC;
|
|
|
|
void __fastcall FicharTicket(void);
|
|
void __fastcall EfectuarCambio(void);
|
|
void __fastcall NuevaFacturaCliente(void);
|
|
// ## Cambiado 11/08/01
|
|
// void __fastcall ActualizaStock( AnsiString CodProducto, float Cantidad );
|
|
void __fastcall ActualizaStock( int CodProducto, float Cantidad );
|
|
|
|
void __fastcall ActualizaStockMultiple( int CodProducto, float Cantidad, TStringList *ListaCombinados );
|
|
void __fastcall ActualizaTotales(void);
|
|
|
|
int TerminalActual;
|
|
|
|
Currency __fastcall GetPrecioVenta( TTable *Sender );
|
|
|
|
int QCodAux;
|
|
void __fastcall QRellenaDatos(int start);
|
|
void __fastcall ClearQuickControl(void);
|
|
|
|
bool ActualizandoTOTALES;
|
|
|
|
public: // User declarations
|
|
bool EsAlbaran, FocoRapido;
|
|
|
|
Graphics::TBitmap *BtmOK; // Imagen OK!
|
|
void __fastcall AsignarNumFactura(void);
|
|
bool ImprimirTicket;
|
|
__fastcall TVentas(TComponent* Owner);
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern TVentas *Ventas;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|