//---------------------------------------------------------------------------
#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