main.pas

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

    TTSoggettiPassword: TStringField;
    TTSoggettiHost: TStringField;
    TTSoggettiPathlistino: TStringField;
    TTSoggettiNomefilelistino: TStringField;
    TTSoggettiNomeproceduralistino: TStringField;
    TTSoggettiFido: TCurrencyField;
    TTSoggettiAgente: TStringField;
    TTSoggettiZona: TStringField;
    TTSoggettiDepositopreferenziale: TStringField;
    TTSoggettiVettorepreferenziale: TStringField;
    TTSoggettiListino: TStringField;
    TTSoggettiBanca: TStringField;
    TTSoggettiConto: TStringField;
    TTSoggettiValutaconto: TStringField;
    TTSoggettiPagamento: TStringField;
    TTSoggettiGruppo: TStringField;
    TTSoggettiIva: TStringField;
    TTSoggettiTestoesenzioniIVA: TMemoField;
    TTSoggettiContocorrente: TStringField;
    TTSoggettiSconto: TFloatField;
    TTSoggettiNote: TMemoField;
    TTSoggettiPartitaPC: TStringField;
    TTSoggettiCausalecontabile: TStringField;
    TTSoggettiCodiceritenuta: TStringField;
    TTSoggettiIdGiornale: TStringField;
    TTTipArt: TTable;
    TTTipiSog: TTable;
    TTTipiSogTiporapporto: TStringField;
    TTTipiSogListinodefault: TStringField;
    TTTipiSogPagamentodefault: TStringField;
    TTTipiSogBancadefault: TStringField;
    TTTipiSogDocumentodefault: TStringField;
    TTTipiSogCausaledefault: TStringField;
    TTTipiSogElencasempre: TBooleanField;
    TTTipiSogElencafornitore: TBooleanField;
    TTTipiSogElencacliente: TBooleanField;
    TTTipiSogFiltro: TStringField;
    TTTipiSogIdGiornale: TStringField;
    TTTipArtTipoarticolo: TStringField;
    TTTipArtOrdinenellistino: TSmallintField;
    TTTipArtStampanellistino: TBooleanField;
    TTTipArtIdGiornale: TStringField;
    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;
    TTArticoliStampanellistino: TBooleanField;
    TTArticoliStampaetichetta: TBooleanField;
    TTArticoliUbicazione: TStringField;
    TTArticoliGiacenzainiziale: TFloatField;
    TTArticoliDistintabase: TBooleanField;
    TTArticoliIdGiornale: TStringField;
    TTIva: TTable;
    TTIvaCodice: TStringField;
    TTIvaAliquota: TFloatField;
    TTArticoliAliquotaIva: TIntegerField;
    TTListino: TTable;
    TTDepositi: TTable;
    TTDepositiListino: TStringField;
    TTListinoPunteggio: TFloatField;
    TTListinoListino: TStringField;
    TTListinoArticolo: TStringField;
    TTListinoPrezzoivatoL: TCurrencyField;
    TTListinoPrezzoivatoE: TCurrencyField;
    TTListinoIdGiornale: TStringField;
    TTArticoliOfferta: TBooleanField;
    TotaleDett: TTable;
    TotaleDettNumeroscontrino: TFloatField;
    TotaleDettRiga: TAutoIncField;
    TotaleDettArticolo: TStringField;
    TotaleDettQuantita: TFloatField;
    TotaleDettPrezzoivato: TCurrencyField;
    TotaleDettAliquotaiva: TFloatField;
    TotaleDettSconto: TFloatField;
    TotaleDettSconto2: TCurrencyField;
    TotaleDettPunteggio: TFloatField;
    TotaleDettPassato: TBooleanField;
    TotaleDettImporto: TCurrencyField;
    GiornaleNomeTab: TStringField;
    GiornaleFlag: TStringField;
    TTDefault: TTable;
    TTDefaultChiave: TStringField;
    TTDefaultValore: TStringField;
    TTDefaultIdGiornale: TStringField;
    TTPostazione: TTable;
    TTPostazionePostazione: TStringField;
    TTPostazioneDescrizione: TStringField;
    TTClientiSconto: TFloatField;
    TTNumGiorn: TTable;
    TTNumGiornId: TIntegerField;
    TTNumGiornPostazione: TStringField;
    TTArtbase: TTable;
    TTArtbaseArticoloetichetta: TStringField;
    TTArtbaseArticolointerno: TStringField;
    TTArtbaseCodvar1: TStringField;
    TTArtbaseCodvar2: TStringField;
    TTArtbaseVariante1: TStringField;
    TTArtbaseVariante2: TStringField;
    TTArtbaseDenominazioneVariante1: TStringField;
    TTArtbaseDenominazioneVariante2: TStringField;
    TTArtbaseIdGiornale: TStringField;
    TTDepositiDeposito: TStringField;
    TTDepositiDenominazione: TStringField;
    TTDepositiIndirizzo: TStringField;
    TTDepositiLocalita: TStringField;
    TTDepositiCap: TStringField;
    TTDepositiProvincia: TStringField;
    TTDepositiStato: TStringField;
    TTDepositiSoggetto: TStringField;
    TTDepositiRiferimento: TStringField;
    TTDepositiTelefono: TStringField;
    TTDepositiFax: TStringField;
    TTDepositiDati: TStringField;
    TTDepositiEmail: TStringField;
    TTDepositiUrl: TStringField;
    TTDepositiHost: TStringField;
    TTDepositiLogin: TStringField;
    TTDepositiPassword: TStringField;
    TTDepositiOradichiamata: TStringField;
    TTDepositiTentativi: TStringField;
    TTDepositiGiacenza: TBooleanField;
    TTDepositiLocale: TBooleanField;
    TTDepositiNote: TStringField;
    TTDepositiIdGiornale: TStringField;
    TTconfigDepositoLookUp: TStringField;
    Lancia_Stampa: TAction;
    TTScontrinoCliente: TStringField;
    TTClientiCodice: TStringField;
    TTSpecialiCliente: TStringField;
    TTScontrinoIdliste: TIntegerField;
    TTScontrinoNominativoregalatore: TStringField;
    TTScontrinoTelregalatore: TStringField;
    TTScontrinoIdBolla: TIntegerField;
    TTScontrinoTestata: TMemoField;
    TTScontrinoAcconto: TCurrencyField;
    TTconfigStampaBolla: TSmallintField;
    Numera: TTable;
    NumeraIDlista: TIntegerField;
    NumeraIDriga: TIntegerField;
    NumeraIDprenotazione: TIntegerField;
    NumeraIDpicklist: TIntegerField;
    NumeraIDbolla: TIntegerField;
    NumeraOrdinamento: TIntegerField;
    NumeraIDSezione: TIntegerField;
    NumeraIdGiornale: TStringField;
    ppScontrino: TppBDEPipeline;
    ppDettaglio: TppBDEPipeline;
    Scontrino: TppReport;
    TTScontrinoPostazione: TStringField;
    TTDettaglioFornitore: TStringField;
    Soggetti_bis: TTable;
    Soggetti_bisCodice: TStringField;
    Soggetti_bisTiporapporto: TStringField;
    Soggetti_bisRagionesociale: TStringField;
    TTScontrinoTotale: TCurrencyField;
    TTScontrinoTotDoc: TCurrencyField;
    StampaBolla: TAction;
    Tpicklist: TTable;
    DsTpicklist: TDataSource;
    DPickList: TTable;
    TpicklistIdpicklist: TIntegerField;
    TpicklistIdlista: TIntegerField;
    TpicklistStatopicklist: TStringField;
    TpicklistIdvendita: TIntegerField;
    TpicklistDestinatario: TStringField;
    TpicklistModalitdiconsegna: TStringField;
    TpicklistIdGiornale: TStringField;
    DPickListIdrigalista: TIntegerField;
    DPickListIdpicklist: TIntegerField;
    DPickListArticolo: TStringField;
    DPickListDescrizione: TStringField;
    DPickListQta: TFloatField;
    DPickListIdGiornale: TStringField;
    Lista: TTable;
    ListaIdriga: TIntegerField;
    ListaIdlista: TIntegerField;
    ListaArticolo: TStringField;
    ListaDescrizione: TStringField;
    ListaQta: TFloatField;
    ListaQtaprenota: TFloatField;
    ListaQtavenduta: TFloatField;
    ListaQtaconsegnata: TFloatField;
    ListaQtarimasta: TFloatField;
    ListaQtarimasta2: TFloatField;
    ListaIdGiornale: TStringField;
    ListaQtaselezionata: TFloatField;
    ListaQtanonconsegnata: TFloatField;
    Tprenotazioni: TTable;
    DsPrenotazioni: TDataSource;
    DPrenotazioni: TTable;
    TprenotazioniIdprenotazione: TIntegerField;
    TprenotazioniNominativo: TStringField;
    TprenotazioniNtelefono: TStringField;
    TprenotazioniCaparraL: TCurrencyField;
    TprenotazioniCaparraE: TCurrencyField;
    TprenotazioniId_lista: TIntegerField;
    TprenotazioniStato: TStringField;
    TprenotazioniConsegna: TStringField;
    TprenotazioniIdGiornale: TStringField;
    DPrenotazioniIdprenotazione: TIntegerField;
    DPrenotazioniIdrigalista: TIntegerField;
    DPrenotazioniQta: TFloatField;
    DPrenotazioniPrezzoL: TCurrencyField;
    DPrenotazioniPrezzoE: TCurrencyField;
    DPrenotazioniIdGiornale: TStringField;
    TTScontrinoIdprenotazione: TIntegerField;
    TTArticoliNote: TMemoField;
    TTDettagli: TTable;
    TTDettagliNumeroscontrino: TFloatField;
    TTDettagliRiga: TAutoIncField;
    TTDettagliArticolo: TStringField;
    TTDettagliQuantita: TFloatField;
    TTDettagliPrezzoivato: TCurrencyField;
    TTDettagliAliquotaiva: TFloatField;
    TTDettagliSconto: TFloatField;
    TTDettagliSconto2: TCurrencyField;
    TTDettagliPunteggio: TFloatField;
    TTDettagliPassato: TBooleanField;
    TTDettagliIdGiornale: TStringField;
    TTListinoEL: TStringField;
    TTListinoValoreX: TFloatField;
    TTListinoValoreY: TFloatField;
    TTListinoValoreZ: TFloatField;
    TTListinoValoreK: TFloatField;
    TTListinoFormulaRSNIV: TStringField;
    TTListinoPagina: TStringField;
    TTListinoRiga: TStringField;
    TTListinoPezziperconfezione: TFloatField;
    TTListinoArrotondaprezzi: TBooleanField;
    TTListinoPrezzonettoL: TCurrencyField;
    TTListinoPrezzonettoE: TCurrencyField;
    TTDettaglioArticoloFornitore: TStringField;
    TTDettaglioPZConf: TFloatField;
    GiornaleMemoria: TMemoField;
    Registra: TAction;
    Informazioni: TAction;
    Help1: TMenuItem;