vendita.pas

基于OOP设计的一套较好的ERP系统

unit vendita;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, RXCtrls, PageMngr, ActnList, RxLookup, DBCtrls, Mask,
  Db, DBTables, Grids, DBGrids, ComCtrls, DBCGrids, DBSumLst, Buttons,
  DBGridEh, ToolEdit, CurrEdit;

type
  TVendita_form = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    IndietroBtn: TButton;
    AvantiBtn: TButton;
    Button4: TButton;
    Notebook1: TNotebook;
    PanelCliente: TPanel;
    Panel1: TPanel;
    ActionList1: TActionList;
    PageManager1: TPageManager;
    Fine: TAction;
    Avanti: TAction;
    Indietro: TAction;
    P3: TPageProxy;
    RxLabel1: TRxLabel;
    Panel5: TPanel;
    P1: TPageProxy;
    P2: TPageProxy;
    TTClienti: TTable;
    dsCliente: TDataSource;
    TTClientiCodice: TStringField;
    TTClientiNominativo: TStringField;
    TTClientiIndirizzo: TStringField;
    TTClientiLocalita: TStringField;
    TTClientiCap: TStringField;
    TTClientiProvincia: TStringField;
    TTClientiSconto: TFloatField;
    TTClientiPunteggio: TFloatField;
    TTClientiTel: TStringField;
    TTClientiDatadinascita: TDateField;
    TTClientiLuogodinascita: TStringField;
    TTClientiProfessione: TStringField;
    TTClientiConiugato: TBooleanField;
    TTClientiFigli: TBooleanField;
    TTClientiEt: TStringField;
    TTClientiAnnihobby: TFloatField;
    TTClientiBarca: TBooleanField;
    TTClientiSocieta: TStringField;
    TTClientiFIPSAS: TBooleanField;
    TTClientiGarista: TBooleanField;
    TTClientiSpecialita: TStringField;
    TTClientiFrequenza: TStringField;
    TTClientiIdGiornale: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label9: TLabel;
    RxDBLookupCombo1: TRxDBLookupCombo;
    TTProfessione: TTable;
    dsProfessione: TDataSource;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    DBEdit11: TDBEdit;
    Panel6: TPanel;
    RxLabel2: TRxLabel;
    Panel7: TPanel;
    DettArt: TPanel;
    RiepilogoPanel: TPanel;
    RxLabel3: TRxLabel;
    Panel10: TPanel;
    TTScontrino: TTable;
    TTScontrinoNumeroscontrino: TFloatField;
    TTScontrinoIdprenotazione: TIntegerField;
    TTScontrinoIdliste: TIntegerField;
    TTScontrinoDeposito: TStringField;
    TTScontrinoCassa: TStringField;
    TTScontrinoOperatore: TStringField;
    TTScontrinoData: TDateField;
    TTScontrinoValuta: TStringField;
    TTScontrinoScontovalore: TCurrencyField;
    TTScontrinoSconto: TFloatField;
    TTScontrinoPagamento: TStringField;
    TTScontrinoCliente: TStringField;
    TTScontrinoBonus: TIntegerField;
    TTScontrinoPassato: TBooleanField;
    TTScontrinoStampato: TBooleanField;
    TTScontrinoNominativoregalatore: TStringField;
    TTScontrinoTelregalatore: TStringField;
    TTScontrinoIdBolla: TIntegerField;
    TTScontrinoTestata: TMemoField;
    TTScontrinoAcconto: TCurrencyField;
    TTScontrinoIdGiornale: TStringField;
    dsScontrino: TDataSource;
    TTDettaglio: TTable;
    TTDettaglioNumeroscontrino: TFloatField;
    TTDettaglioRiga: TAutoIncField;
    TTDettaglioArticolo: TStringField;
    TTDettaglioQuantita: TFloatField;
    TTDettaglioPrezzoivato: TCurrencyField;
    TTDettaglioAliquotaiva: TFloatField;
    TTDettaglioSconto: TFloatField;
    TTDettaglioSconto2: TCurrencyField;
    TTDettaglioPunteggio: TFloatField;
    TTDettaglioPassato: TBooleanField;
    TTDettaglioPZConf: TFloatField;
    TTDettaglioIdGiornale: TStringField;
    TTDettaglioImporto: TCurrencyField;
    Griglia: TDBGrid;
    TTDettaglioDescrizione: TStringField;
    TTDettaglioArticolofornitore: TStringField;
    TTArticoli: TTable;
    dsDettaglio: TDataSource;
    TTArticoliArticolo: TStringField;
    TTArticoliDescrizione: TStringField;
    TTArticoliDescrizioneetichetta: TStringField;
    TTArticoliFamiglia: TStringField;
    TTArticoliGestionescadenza: TBooleanField;
    TTArticoliScadenzaingiorni: TSmallintField;
    TTArticoliScadenzainmesi: TSmallintField;
    TTArticoliScadenzaassolutaggmm: TStringField;
    TTArticoliTiposcadenzaGMA: TStringField;
    TTArticoliUM: TStringField;
    TTArticoliArticoloetichetta: TStringField;
    TTArticoliFornitore: TStringField;
    TTArticoliArticolofornitore: TStringField;
    TTArticoliPrezzoacquistoL: TCurrencyField;
    TTArticoliPrezzoacquistoE: TCurrencyField;
    TTArticoliPrezzoacquistoLivato: TCurrencyField;
    TTArticoliPrezzoacquistoEivato: TCurrencyField;
    TTArticoliPrezzolistinoL: TCurrencyField;
    TTArticoliPrezzolistinoE: TCurrencyField;
    TTArticoliPrezzolistinoLivato: TCurrencyField;
    TTArticoliPrezzolistinoEivato: TCurrencyField;
    TTArticoliSconto: TFloatField;
    TTArticoliSconto2: TFloatField;
    TTArticoliSconto3: TFloatField;
    TTArticoliStagione: TStringField;
    TTArticoliMinimoordine: TFloatField;
    TTArticoliConsegna: TFloatField;
    TTArticoliSottoscorta: TFloatField;
    TTArticoliMinimomagazzino: TFloatField;
    TTArticoliAllarmenegativi: TBooleanField;
    TTArticoliAllarmesottoscorta: TBooleanField;
    TTArticoliClasseriordino: TSmallintField;
    TTArticoliGestioneriordino: TBooleanField;
    TTArticoliPesolordo: TFloatField;
    TTArticoliPesoImballo: TFloatField;
    TTArticoliVolume: TFloatField;
    TTArticoliImballo: TStringField;
    TTArticoliTipoarticolo: TStringField;
    TTArticoliCategoriamerceologica: TStringField;
    TTArticoliMarca: TStringField;
    TTArticoliCodiceIVA: TStringField;
    TTArticoliGestionegiacenza: TBooleanField;
    TTArticoliGestioneVarianti: TBooleanField;
    TTArticoliVariante1: TStringField;
    TTArticoliVariante2: TStringField;
    TTArticoliConaiassolto: TBooleanField;
    TTArticoliNote: TMemoField;
    TTArticoliStampanellistino: TBooleanField;
    TTArticoliStampaetichetta: TBooleanField;
    TTArticoliUbicazione: TStringField;
    TTArticoliGiacenzainiziale: TFloatField;
    TTArticoliDistintabase: TBooleanField;
    TTArticoliOfferta: TBooleanField;
    TTArticoliPrezzoMPL: TCurrencyField;
    TTArticoliPrezzoMPE: TCurrencyField;
    TTArticoliPrezzoUPL: TCurrencyField;
    TTArticoliPrezzoUPE: TCurrencyField;
    TTArticoliTestopiccola: TBlobField;
    TTArticoliImmaginepiccola: TGraphicField;
    TTArticoliTestomedia: TBlobField;
    TTArticoliImmaginemedia: TGraphicField;
    TTArticoliTestogrande: TBlobField;
    TTArticoliImmaginegrande: TGraphicField;
    TTArticoliIdGiornale: TStringField;
    Mostra_Dettagli_ck: TCheckBox;
    MostraDettagli: TAction;
    dsArticoli: TDataSource;
    TTGiacenza: TTable;
    PageControl1: TPageControl;
    Articolo: TTabSheet;
    Magazzino: TTabSheet;
    Listino: TTabSheet;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    TTListino: TTable;
    DBCtrlGrid1: TDBCtrlGrid;
    dsListino: TDataSource;
    dsGiacenza: TDataSource;
    TTGiacenzaArticolo: TStringField;
    TTGiacenzaDeposito: TStringField;
    TTGiacenzaCausale: TStringField;
    TTGiacenzaQtainiziale: TFloatField;
    TTGiacenzaQtacarico: TFloatField;
    TTGiacenzaQtascarico: TFloatField;
    TTGiacenzaDataultimoMovimento: TDateField;
    TTGiacenzaDataultimoinventario: TDateField;
    TTGiacenzaArticolointerno: TStringField;
    TTGiacenzaPMInvL: TCurrencyField;
    TTGiacenzaPMInvE: TCurrencyField;
    TTGiacenzaPMAttL: TCurrencyField;
    TTGiacenzaPMAttE: TCurrencyField;
    TTGiacenzaIdDocInv: TIntegerField;
    TTGiacenzaIdScontrInv: TIntegerField;
    TTGiacenzaIdResiInv: TIntegerField;
    TTGiacenzaIdGiornale: TStringField;
    TTListinoListino: TStringField;
    TTListinoArticolo: TStringField;
    TTListinoEL: TStringField;
    TTListinoValoreX: TFloatField;
    TTListinoValoreY: TFloatField;
    TTListinoValoreZ: TFloatField;
    TTListinoValoreK: TFloatField;
    TTListinoFormulaRSNIV: TStringField;
    TTListinoPagina: TStringField;
    TTListinoRiga: TStringField;
    TTListinoPezziperconfezione: TFloatField;
    TTListinoArrotondaprezzi: TBooleanField;
    TTListinoPunteggio: TFloatField;
    TTListinoPrezzonettoL: TCurrencyField;
    TTListinoPrezzonettoE: TCurrencyField;
    TTListinoPrezzoivatoL: TCurrencyField;
    TTListinoPrezzoivatoE: TCurrencyField;
    TTListinoIdGiornale: TStringField;
    Label17: TLabel;
    DBEdit16: TDBEdit;
    Label18: TLabel;
    DBEdit17: TDBEdit;
    Panel8: TPanel;
    Label15: TLabel;
    DBEdit14: TDBEdit;
    Label16: TLabel;
    DBEdit15: TDBEdit;
    DBText1: TDBText;
    Label19: TLabel;
    Bevel2: TBevel;
    Label22: TLabel;
    Label23: TLabel;
    DBEdit18: TDBEdit;
    TTDettaglioRicarico: TFloatField;
    TTDettaglioMargine: TFloatField;
    DBEdit19: TDBEdit;
    TTIva: TTable;
    TTIvaCodice: TStringField;
    TTIvaDescrizione: TStringField;
    TTIvaAliquota: TFloatField;
    TTIvaAliquotaindetrazione: TFloatField;
    TTIvaPartitaPC: TStringField;
    TTIvaIdGiornale: TStringField;
    DBCtrlGrid2: TDBCtrlGrid;
    Panel12: TPanel;
    DBText2: TDBText;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit20: TDBEdit;
    Label24: TLabel;
    DBEdit21: TDBEdit;
    Label25: TLabel;
    DBEdit22: TDBEdit;
    TTGiacenzaGiacenza: TFloatField;
    Label26: TLabel;
    DBEdit23: TDBEdit;
    Label27: TLabel;
    DBEdit24: TDBEdit;
    SumGiac: TDBSumList;
    Attuale: TEdit;
    Attual: TLabel;
    Label28: TLabel;
    successiva: TEdit;
    Scarico: TAction;
    Label29: TLabel;
    DBEdit25: TDBEdit;
    Label30: TLabel;
    DBEdit26: TDBEdit;
    Label31: TLabel;
    ScontoVEdit: TDBEdit;
    Label32: TLabel;
    DBEdit28: TDBEdit;
    Label33: TLabel;
    DBEdit29: TDBEdit;
    TTScontrinoAbbuono: TCurrencyField;
    TTScontrinoBuono: TCurrencyField;
    TTScontrinoTotaleL: TCurrencyField;
    TTScontrinoTotaleE: TCurrencyField;
    Label34: TLabel;
    DBEdit30: TDBEdit;
    Label35: TLabel;
    DBEdit31: TDBEdit;
    Label36: TLabel;
    DBEdit32: TDBEdit;
    Label39: TLabel;
    DBEdit35: TDBEdit;
    Label40: TLabel;
    DBEdit36: TDBEdit;
    Label37: TLabel;
    DBEdit33: TDBEdit;
    Label38: TLabel;
    DBEdit34: TDBEdit;
    Label41: TLabel;
    DBEdit37: TDBEdit;
    RxDBLookupList2: TRxDBLookupList;
    TTPagamenti: TTable;
    dsPagamenti: TDataSource;
    TTScontrinoTotaleSaldoL: TCurrencyField;
    TTScontrinoTotaleSaldoE: TCurrencyField;
    Totale: TAction;
    Label42: TLabel;
    EditCliente: TDBEdit;
    DBText3: TDBText;
    TTScontrinoNominativoCliente: TStringField;
    DettaglioCliente: TCheckBox;
    MostraDettCli: TAction;
    ElencoCli: TRxDBLookupList;
    DBGrid1: TDBGrid;
    TotaliDb: TTable;
    TotaliDbScontrino: TIntegerField;
    TotaliDbAliquota: TFloatField;
    TotaliDbImponibile: TCurrencyField;
    TotaliDbImposta: TCurrencyField;
    TotaliDbTotale: TCurrencyField;
    TotaliDbIdGiornale: TStringField;
    dsTotAliquote: TDataSource;
    articoli: TAction;
    RxLabel4: TRxLabel;
    RxLabel5: TRxLabel;
    RxLabel6: TRxLabel;
    NuovoCliente: TAction;
    Label43: TLabel;
    Label44: TLabel;
    TTScontrinoTotaleMerce: TCurrencyField;
    Stampa: TAction;
    SpeedButton1: TSpeedButton;
    TTScontrinoIdBuono: TIntegerField;
    TTScontrinoSaldato: TBooleanField;
    Qbuoni: TQuery;
    dsQBuoni: TDataSource;
    elBuoni: TDBGridEh;
    Label45: TLabel;
    Qbuoniid: TIntegerField;
    QbuoniData: TDateField;
    QbuoniImportoL: TCurrencyField;
    QbuoniImportoE: TCurrencyField;
    QbuoniTipo: TStringField;
    totL: TCurrencyEdit;
    TotE: TCurrencyEdit;
    SelTutti: TButton;
    UsaBuoni: TCheckBox;
    QbuoniDescrizione: TMemoField;
    Label46: TLabel;
    RicCli: TAction;
    Salvabottone: TAction;
    DBNavigator1: TDBNavigator;
    DBEdit27: TDBEdit;
    Label47: TLabel;
    TTScontrinoTotaleBonus: TFloatField;
    TTArticoliUC: TFloatField;
    Resto: TAction;
    SpeedButton2: TSpeedButton;
    TTDScontrVar: TTable;
    TTDScontrVarNumeroscontrino: TFloatField;
    TTDScontrVarRiga: TFloatField;
    TTDScontrVarProgressivo: TAutoIncField;
    TTDScontrVarArticolo: TStringField;