First commit 14/02/1999
This commit is contained in:
206
TpvCmp.h
Normal file
206
TpvCmp.h
Normal file
@ -0,0 +1,206 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#ifndef TpvCmpH
|
||||
#define TpvCmpH
|
||||
//---------------------------------------------------------------------------
|
||||
#include "TDlgBuscar.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 <StdCtrls.hpp>
|
||||
#include <ToolWin.hpp>
|
||||
#include "ElastFrm.hpp"
|
||||
|
||||
|
||||
#define DFechaFact 0
|
||||
#define DNumFact 1
|
||||
#define DNumProv 2
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
class TTpvCmp1 : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TPanel *Panel2;
|
||||
TSpeedButton *SpeedButton4;
|
||||
TSpeedButton *SpeedButton5;
|
||||
TSpeedButton *SpeedButton6;
|
||||
TSpeedButton *BusqAnt;
|
||||
TSpeedButton *BuscarFicha;
|
||||
TSpeedButton *BusqSig;
|
||||
TSpeedButton *btFacturar;
|
||||
TDBNavigator *DBNavigator1;
|
||||
TDBGrid *DBGrid1;
|
||||
TStatusBar *StatusBar1;
|
||||
TDataSource *DsFacturasD;
|
||||
TLabel *Label6;
|
||||
TLabel *TotalCompra;
|
||||
TSpeedButton *SpeedButton1;
|
||||
TTable *TbFacturasD;
|
||||
TDBGrid *DBGrid2;
|
||||
TDataSource *DsFacturasC;
|
||||
TTable *TbFacturasC;
|
||||
TLabel *Label10;
|
||||
|
||||
|
||||
TStringField *TbFacturasCProveedor;
|
||||
TIntegerField *TbFacturasCCodProveedor;
|
||||
TStringField *TbFacturasCCodFactura;
|
||||
TDateField *TbFacturasCFechaFactura;
|
||||
TStringField *TbFacturasCProvPersona;
|
||||
TStringField *TbFacturasCProvCIF;
|
||||
TStringField *TbFacturasCProvTlf;
|
||||
TStringField *TbFacturasCProvFax;
|
||||
TAutoIncField *TbFacturasCEnlaceFactura;
|
||||
TSmallintField *TbFacturasCNumeroPagos;
|
||||
TPageControl *PageControl1;
|
||||
TTabSheet *TabSheet1;
|
||||
TTabSheet *TabSheet2;
|
||||
TBevel *Bevel1;
|
||||
TDBText *DBText1;
|
||||
TLabel *Label2;
|
||||
TDBText *DBText2;
|
||||
TLabel *Label4;
|
||||
TDBText *DBText3;
|
||||
TLabel *Label5;
|
||||
TDBText *DBText4;
|
||||
TDBText *DBText5;
|
||||
TDBText *DBText8;
|
||||
TLabel *Label9;
|
||||
TDBEdit *DBEdit1;
|
||||
TEdit *Edit1;
|
||||
TBevel *Bevel2;
|
||||
TLabel *Label8;
|
||||
TLabel *Label11;
|
||||
TLabel *SUMAcompra;
|
||||
TLabel *Scantidad;
|
||||
TLabel *Label14;
|
||||
TLabel *IVAcompra;
|
||||
TDBText *DBText6;
|
||||
TLabel *Label3;
|
||||
TButton *Button1;
|
||||
TDBText *DBText7;
|
||||
TDBGrid *dbgFraccion;
|
||||
TBevel *Bevel3;
|
||||
TLabel *Label1;
|
||||
TDataSource *DsCartera;
|
||||
TTable *TbCartera;
|
||||
TDateTimePicker *FechaFactura;
|
||||
TTable *TbProveedor;
|
||||
TBooleanField *TbFacturasCContabilizada;
|
||||
TStringField *TbFacturasCDescripcion;
|
||||
TLabel *Label7;
|
||||
TDBEdit *DBEdit3;
|
||||
TSpeedButton *SpeedButton2;
|
||||
TLabel *Label12;
|
||||
TEdit *Edit2;
|
||||
TComboBox *ComboVox;
|
||||
TIntegerField *TbFacturasDEnlaceFactura;
|
||||
TStringField *TbFacturasDCodProducto;
|
||||
TStringField *TbFacturasDNombreProducto;
|
||||
TSmallintField *TbFacturasDIVA;
|
||||
TCurrencyField *TbFacturasDPrecioC;
|
||||
TFloatField *TbFacturasDCantidad;
|
||||
TCurrencyField *TbFacturasDTotal;
|
||||
TIntegerField *TbCarteraEnlaceFactura;
|
||||
TDateField *TbCarteraFecha;
|
||||
TCurrencyField *TbCarteraImporte;
|
||||
TCurrencyField *TbCarteraIncremento;
|
||||
TSmallintField *TbCarteraFormaPago;
|
||||
TBooleanField *TbCarteraPagado;
|
||||
TCurrencyField *TbCarteraTotal;
|
||||
TDateField *TbFacturasCUltimoPago;
|
||||
TCurrencyField *TbFacturasCTotalSin;
|
||||
TCurrencyField *TbFacturasCTotalIva;
|
||||
TCurrencyField *TbFacturasCTotalFrac;
|
||||
TSmallintField *TbFacturasCBanco_Entidad;
|
||||
TSmallintField *TbFacturasCBanco_Sucursal;
|
||||
TSmallintField *TbFacturasCBanco_DC;
|
||||
TStringField *TbFacturasCBanco_NumCuenta;
|
||||
TSmallintField *TbFacturasCFormaPago;
|
||||
TIntegerField *TbFacturasCCod_Abono_Albaran;
|
||||
TBooleanField *TbFacturasCAbono_o_Albaran;
|
||||
TComboBox *cbFormaPago;
|
||||
TElasticForm *ElasticForm1;
|
||||
void __fastcall SpeedButton5Click(TObject *Sender);
|
||||
void __fastcall SpeedButton4Click(TObject *Sender);
|
||||
void __fastcall SpeedButton6Click(TObject *Sender);
|
||||
void __fastcall BuscarFichaClick(TObject *Sender);
|
||||
void __fastcall BusqAntClick(TObject *Sender);
|
||||
void __fastcall BusqSigClick(TObject *Sender);
|
||||
void __fastcall SpeedButton1Click(TObject *Sender);
|
||||
void __fastcall DsFacturasDDataChange(TObject *Sender, TField *Field);
|
||||
void __fastcall DsFacturasCDataChange(TObject *Sender, TField *Field);
|
||||
void __fastcall TbFacturasCNewRecord(TDataSet *DataSet);
|
||||
void __fastcall Button1Click(TObject *Sender);
|
||||
void __fastcall DBEdit1KeyPress(TObject *Sender, char &Key);
|
||||
void __fastcall TbFacturasCBeforeDelete(TDataSet *DataSet);
|
||||
void __fastcall TbFacturasDBeforeInsert(TDataSet *DataSet);
|
||||
void __fastcall DBGrid1EditButtonClick(TObject *Sender);
|
||||
void __fastcall TbFacturasDCalcFields(TDataSet *DataSet);
|
||||
void __fastcall DBGrid1KeyPress(TObject *Sender, char &Key);
|
||||
void __fastcall TbFacturasDCantidadSetText(TField *Sender,
|
||||
const AnsiString Text);
|
||||
void __fastcall TbFacturasDPrecioCSetText(TField *Sender,
|
||||
const AnsiString Text);
|
||||
void __fastcall TbFacturasDIVASetText(TField *Sender, const AnsiString Text);
|
||||
void __fastcall TbFacturasDCodProductoSetText(TField *Sender,
|
||||
const AnsiString Text);
|
||||
|
||||
void __fastcall DBGrid1ColExit(TObject *Sender);
|
||||
void __fastcall TbFacturasDBeforeDelete(TDataSet *DataSet);
|
||||
|
||||
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
||||
void __fastcall FechaFacturaChange(TObject *Sender);
|
||||
void __fastcall TbFacturasDNombreProductoSetText(TField *Sender,
|
||||
const AnsiString Text);
|
||||
void __fastcall btFacturarClick(TObject *Sender);
|
||||
|
||||
void __fastcall SpeedButton2Click(TObject *Sender);
|
||||
|
||||
|
||||
void __fastcall DsCarteraDataChange(TObject *Sender, TField *Field);
|
||||
void __fastcall Edit2Change(TObject *Sender);
|
||||
void __fastcall Edit1Change(TObject *Sender);
|
||||
void __fastcall cbFormaPagoChange(TObject *Sender);
|
||||
void __fastcall TbCarteraNewRecord(TDataSet *DataSet);
|
||||
void __fastcall TbCarteraBeforeDelete(TDataSet *DataSet);
|
||||
void __fastcall TbCarteraCalcFields(TDataSet *DataSet);
|
||||
void __fastcall dbgFraccionDrawColumnCell(TObject *Sender,
|
||||
const TRect &Rect, int DataCol, TColumn *Column,
|
||||
TGridDrawState State);
|
||||
void __fastcall DBGrid2DrawColumnCell(TObject *Sender,
|
||||
const TRect &Rect, int DataCol, TColumn *Column,
|
||||
TGridDrawState State);
|
||||
void __fastcall TbCarteraBeforeInsert(TDataSet *DataSet);
|
||||
void __fastcall TbCarteraFechaChange(TField *Sender);
|
||||
private: // User declarations
|
||||
bool BusqManual;
|
||||
Graphics::TBitmap *BtmOK; // Imagen OK!
|
||||
Graphics::TBitmap *BtmLockOpen;
|
||||
Graphics::TBitmap *BtmLockShut;
|
||||
|
||||
TDlgBuscar *DlgBuscarProd;
|
||||
|
||||
bool CambioCantidad5;
|
||||
TDateTime FechaFacturaA;
|
||||
Currency SUMAcompraC, IVAcompraC;
|
||||
void __fastcall ReajustaFiltro(void);
|
||||
void __fastcall ActualizaStock( AnsiString CodProducto, int Cantidad, int CodProveedor );
|
||||
// Indica si estamos cambiando de factura en este momento....
|
||||
bool CambiandoFactura;
|
||||
|
||||
public: // User declarations
|
||||
__fastcall TTpvCmp1(TComponent* Owner);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern TTpvCmp1 *TpvCmp1;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user