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