doc_mod.pas

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

    TTDconvDocPrezzo: TCurrencyField;
    TTDconvDocIVA: TStringField;
    TTDconvDocSconto: TFloatField;
    TTDconvDocSconto2: TFloatField;
    TTDconvDocSconto3: TFloatField;
    TTDconvDocQtaconfermata: TFloatField;
    TTDconvDocChiudi: TBooleanField;
    TTConvDocChiudi: TBooleanField;
    TTVarConvDocDocumento: TIntegerField;
    TTVarConvDocProgressivo: TIntegerField;
    TTVarConvDocProgressivotaglie: TAutoIncField;
    TTVarConvDocArticolointerno: TStringField;
    TTVarConvDocArticoloetichetta: TStringField;
    TTVarConvDocQta: TFloatField;
    TTVarConvDocQtaevasa: TFloatField;
    TTVarConvDocQtaconfermata: TFloatField;
    TTVarConvDocVariante1: TStringField;
    TTVarConvDocVariante2: TStringField;
    TTVarConvDocDesc_var1: TStringField;
    TTVarConvDocDesc_var2: TStringField;
    TTVarConvDocChiudi: TBooleanField;
    AppendRighe: TBatchMove;
    QselRigheQtaConfermata: TFloatField;
    QselRigheEvaso: TBooleanField;
    QselVarianti: TQuery;
    QselVariantiDocumento: TIntegerField;
    QselVariantiProgressivo: TIntegerField;
    QselVariantiProgressivotaglie: TIntegerField;
    QselVariantiArticolointerno: TStringField;
    QselVariantiArticoloetichetta: TStringField;
    QselVariantiQta: TFloatField;
    QselVariantiQtaevasa: TFloatField;
    QselVariantiVariante1: TStringField;
    QselVariantiVariante2: TStringField;
    QselVariantiDesc_var1: TStringField;
    QselVariantiDesc_var2: TStringField;
    QselVariantiEvaso: TBooleanField;
    QselVariantiQtaconfermata: TFloatField;
    AppendVarianti: TBatchMove;
    TTDconvDocEvaso: TBooleanField;
    TTDconvDocSeleziona: TBooleanField;
    TTVarConvDocSeleziona: TBooleanField;
    TTConvDocValuta: TStringField;
    TTVarConvDocEvaso: TBooleanField;
    TTConvDocEvaso: TBooleanField;
    QAccorpaDettaglio: TQuery;
    QAccorpaVarianti: TQuery;
    QAccorpaDettaglioArticolo: TStringField;
    QAccorpaDettaglioArticoloetichetta: TStringField;
    QAccorpaDettaglioArticolofornitore: TStringField;
    QAccorpaDettaglioUM: TStringField;
    QAccorpaDettaglioPrezzo: TCurrencyField;
    QAccorpaDettaglioIVA: TStringField;
    QAccorpaDettaglioSconto: TFloatField;
    QAccorpaDettaglioSconto2: TFloatField;
    QAccorpaDettaglioSconto3: TFloatField;
    QAccorpaDettaglioQta: TFloatField;
    QAccorpaDettaglioQtaevasa: TFloatField;
    QAccorpaDettaglioQtaconfermata: TFloatField;
    QAccorpaVariantiArticolointerno: TStringField;
    QAccorpaVariantiArticoloetichetta: TStringField;
    QAccorpaVariantiVariante1: TStringField;
    QAccorpaVariantiVariante2: TStringField;
    QAccorpaVariantiDesc_var1: TStringField;
    QAccorpaVariantiDesc_var2: TStringField;
    QAccorpaVariantiQta: TFloatField;
    QAccorpaVariantiQtaevasa: TFloatField;
    dsAccorpaDettaglio: TDataSource;
    QAccorpaDettaglioScontoGenerale: TFloatField;
    QAccorpaVariantiQtaConfermata: TFloatField;
    TTIntestazione: TTable;
    dsIntestazione: TDataSource;
    Intestazione: TppBDEPipeline;
    TTIntestazioneRagioneSociale: TStringField;
    TTIntestazioneIndirizzo: TStringField;
    TTIntestazioneCap: TStringField;
    TTIntestazioneLocalita: TStringField;
    TTIntestazioneProvincia: TStringField;
    TTIntestazionePIVA: TStringField;
    TTIntestazioneCFiscale: TStringField;
    TTIntestazioneTelefono: TStringField;
    TTIntestazioneFax: TStringField;
    TTIntestazioneEmail: TStringField;
    TTIntestazioneVarie: TStringField;
    TTIntestazioneLogo: TGraphicField;
    TTIntestazioneIndirizzoCompleto: TStringField;
    TTIntestazioneNumeri: TStringField;
    TTDettaglioPrezzoIvato: TCurrencyField;
    TTDettaglioDocumentopadre: TIntegerField;
    TTDettaglioRigadettagliopadre: TIntegerField;
    TTDettaglioRigavariantipadre: TIntegerField;
    TTTestataCodiceritenuta: TStringField;
    TTTestataAliquotaritenuta: TFloatField;
    TTEcontoDatapagamento: TDateField;
    TTEcontoCodiceritenuta: TStringField;
    TTTestataSoggettodiriferimento: TStringField;
    TTTestataSoggettoriferimentoLookup: TStringField;
    TTTestataCodicesuriferimento: TStringField;
    TTTestataIndirizzoriferimento: TStringField;
    TTTestataLocalitariferimento: TStringField;
    TTTestataTelefonoriferimento: TStringField;
    TTTestataFaxriferimento: TStringField;
    QRipGiacenza: TQuery;
    QRipGiacenzaData: TDateField;
    QRipGiacenzaArticolointerno: TStringField;
    QRipGiacenzaTipomovimento: TStringField;
    QRipGiacenzaArticoloetichetta: TStringField;
    QRipGiacenzaQta: TFloatField;
    QRipGiacenzaQtaVarianti: TFloatField;
    TTTestataRagioneSocialeRiferimento: TStringField;
    TTTestataAbi: TStringField;
    TTTestataCab: TStringField;
    SogRif_ricerca: TTable;
    SogRif_ricercaDescrizione: TStringField;
    SogRif_ricercaTipoRapporto: TStringField;
    SogRif_ricercaRagioneSociale: TStringField;
    SogRif_ricercaCodice: TStringField;
    TTPrzStory: TTable;
    TTPrzStorySoggetto: TStringField;
    TTPrzStoryArticolo: TStringField;
    TTPrzStoryPrezzo: TCurrencyField;
    TTPrzStorySconto: TFloatField;
    TTPrzStorySconto2: TFloatField;
    TTPrzStorySconto3: TFloatField;
    TTPrzStoryQta: TFloatField;
    TTPrzStoryValuta: TStringField;
    TTPrzStoryData: TDateField;
    TTTestataMemorizzaPrezzi: TBooleanField;
    SogRif_ricercaCap: TStringField;
    SogRif_ricercaIndirizzo: TStringField;
    SogRif_ricercaLocalita: TStringField;
    SogRif_ricercaProvincia: TStringField;
    SogRif_ricercaTelefono: TStringField;
    SogRif_ricercaFax: TStringField;
    TTGrusogCod: TTable;
    TTGrusogCodGruppo: TStringField;
    TTGrusogCodSoggetto: TStringField;
    TTGrusogCodCodice: TStringField;
    dsSogRif: TDataSource;
    TTEcontoDenominazionesoggetto: TStringField;
    TTTestataContocorrente: TStringField;
    TTImpostazioni: TTable;
    TTImpostazioniIva: TStringField;
    TTImpostazioniDepositoentrata: TStringField;
    TTImpostazioniDepositouscita: TStringField;
    TTImpostazioniSpeseditrasportoL: TCurrencyField;
    TTImpostazioniSpeseditrasportoE: TCurrencyField;
    TTImpostazioniSpesebancarieL: TCurrencyField;
    TTImpostazioniSpesebancarieE: TCurrencyField;
    TTImpostazioniSpesevarieL: TCurrencyField;
    TTImpostazioniSpesevarieE: TCurrencyField;
    TTImpostazioniPagamento: TStringField;
    TTImpostazioniAgente: TStringField;
    TTImpostazioniImballo: TStringField;
    TTImpostazioniCuradeltrasporto: TStringField;
    TTImpostazioniVettore: TStringField;
    TTImpostazioniRicercaDepositoEntrata: TStringField;
    TTImpostazioniRicercaDepositoUscita: TStringField;
    TTImpostazioniRicercaPagamento: TStringField;
    TTImpostazioniRicercaagente: TStringField;
    TTImpostazioniRicercaImballo: TStringField;
    TTImpostazioniRicercaVettore: TStringField;
    TTImpostazioniRicercaIva: TStringField;
    TTDocVarQtaevasa: TFloatField;
    TTDocVarEvaso: TBooleanField;
    TTDett: TTable;
    TTEcontoDatadocumento: TDateField;
    TTEcontoNumerodocumento: TIntegerField;
    TTEcontoRegistrazione: TIntegerField;
    EtiSelDb: TTable;
    EtiSelDbArticoloInterno: TStringField;
    EtiSelDbDescrizione: TStringField;
    EtiSelDbArticolofornitore: TStringField;
    EtiSelDbArticoloetichetta: TStringField;
    EtiSelDbQta: TFloatField;
    EtiSelDbDescrizioneaggiuntiva: TStringField;
    TTTestataPorto: TStringField;
    TTDettaglioImportostatisticoL: TCurrencyField;
    TTDettaglioImportostatisticoE: TCurrencyField;
    TTDettaglioIstat: TStringField;
    TTDettaglioAliquotaIstat: TFloatField;
    TTDettaglioExtra: TStringField;
    TTDettaglioColli: TFloatField;
    TTDettaglioImportoIstat: TCurrencyField;
    TTDettaglioDescrizioneIstat: TStringField;
    TTTestataIdGiornale: TStringField;
    TTDettaglioIdGiornale: TStringField;
    TTDocVarIdGiornale: TStringField;
    TTGiacenzaIdGiornale: TStringField;
    TTIvaIdGiornale: TStringField;
    TTArticoliIdGiornale: TStringField;
    TTEcontoIdGiornale: TStringField;
    TTCausaliIdGiornale: TStringField;
    TTCaudocIdGiornale: TStringField;
    TTImpostazioniIdGiornale: TStringField;
    Soggetti_RicercaIdGiornale: TStringField;
    TTFiltroDocIdGiornale: TStringField;
    SogRif_ricercaIdGiornale: TStringField;
    TTCastivaIdGiornale: TStringField;
    TTGrusogCodIdGiornale: TStringField;
    TTEtichetteIdGiornale: TStringField;
    TTIntestazioneIdGiornale: TStringField;
    TTPrzStoryIdGiornale: TStringField;
    TTDettIdGiornale: TStringField;
    EtiSelDbIdGiornale: TStringField;
    Soggetti_RicercaCodice: TStringField;
    Soggetti_RicercaTiporapporto: TStringField;
    Soggetti_RicercaRagionesociale: TStringField;
    Soggetti_RicercaRagionesocialeMerce: TStringField;
    Soggetti_RicercaIndirizzo: TStringField;
    Soggetti_RicercaCap: TStringField;
    Soggetti_RicercaLocalita: TStringField;
    Soggetti_RicercaProvincia: TStringField;
    Soggetti_RicercaStato: TStringField;
    Soggetti_RicercaPartitaIVA: TStringField;
    Soggetti_RicercaCodiceFiscale: TStringField;
    Soggetti_RicercaEL: TStringField;
    Soggetti_RicercaIndirizzofatture: TStringField;
    Soggetti_RicercaCapfatture: TStringField;
    Soggetti_RicercaLocalitafatture: TStringField;
    Soggetti_RicercaProvinciafatture: TStringField;
    Soggetti_RicercaStatofatture: TStringField;
    Soggetti_RicercaPersonadacontattare: TStringField;
    Soggetti_RicercaTelefono: TStringField;
    Soggetti_RicercaFax: TStringField;
    Soggetti_RicercaDati: TStringField;
    Soggetti_RicercaEmail: TStringField;
    Soggetti_RicercaURL: TStringField;
    Soggetti_RicercaLogin: TStringField;
    Soggetti_RicercaPassword: TStringField;
    Soggetti_RicercaHost: TStringField;
    Soggetti_RicercaPathlistino: TStringField;
    Soggetti_RicercaNomefilelistino: TStringField;
    Soggetti_RicercaNomeproceduralistino: TStringField;
    Soggetti_RicercaFido: TCurrencyField;
    Soggetti_RicercaAgente: TStringField;
    Soggetti_RicercaZona: TStringField;
    Soggetti_RicercaDepositopreferenziale: TStringField;
    Soggetti_RicercaVettorepreferenziale: TStringField;
    Soggetti_RicercaListino: TStringField;
    Soggetti_RicercaBanca: TStringField;
    Soggetti_RicercaConto: TStringField;
    Soggetti_RicercaValutaconto: TStringField;
    Soggetti_RicercaPagamento: TStringField;
    Soggetti_RicercaGruppo: TStringField;
    Soggetti_RicercaIva: TStringField;
    Soggetti_RicercaTestoesenzioniIVA: TMemoField;
    Soggetti_RicercaContocorrente: TStringField;
    Soggetti_RicercaSconto: TFloatField;
    Soggetti_RicercaNote: TMemoField;
    Soggetti_RicercaPartitaPC: TStringField;
    Soggetti_RicercaCausalecontabile: TStringField;
    Soggetti_RicercaCodiceritenuta: TStringField;
    TTDettDocumento: TIntegerField;
    TTDettProgressivo: TIntegerField;
    TTDettArticolointerno: TStringField;
    TTDettArticoloetichetta: TStringField;
    TTDettArticolofornitore: TStringField;
    TTDettDescrizione: TMemoField;
    TTDettUM: TStringField;
    TTDettQta: TFloatField;
    TTDettValuta: TStringField;
    TTDettPrezzo: TCurrencyField;
    TTDettPrezzoIvato: TCurrencyField;
    TTDettSconto: TFloatField;
    TTDettSconto2: TFloatField;
    TTDettSconto3: TFloatField;
    TTDettEvaso: TBooleanField;
    TTDettQtaevasa: TFloatField;
    TTDettIva: TStringField;
    TTDettDescrittivo: TBooleanField;
    TTDettMatricola: TStringField;
    TTDettArticolobase: TStringField;
    TTDettDocumentopadre: TIntegerField;
    TTDettRigadettagliopadre: TIntegerField;
    TTDettRigavariantipadre: TIntegerField;
    TTDettImportostatisticoL: TCurrencyField;
    TTDettImportostatisticoE: TCurrencyField;
    TTDettIstat: TStringField;
    TTDettAliquotaIstat: TFloatField;
    TTDettExtra: TStringField;
    TTDettColli: TFloatField;
    TTArticoliSconto3: TFloatField;
    TTArticoliNote: TMemoField;
    TTArticoliDistintabase: TBooleanField;
    TTArticoliOfferta: TBooleanField;
    TTMailDoc: TTable;
    TTMailDocDocumento: TIntegerField;
    TTMailDocFrom: TStringField;
    TTMailDocTo: TStringField;
    TTMailDocCC: TStringField;
    TTMailDocBCC: TStringField;
    TTMailDocOggetto: TStringField;
    TTMailDocMessaggio: TMemoField;
    TTMailDocAllegati: TStringField;
    TTTestataInviareDocumento: TBooleanField;
    TTTestataIvato: TBooleanField;
    TTDettaglioPrezzoScontato: TCurrencyField;
    TTDettaglioPrezzoIvatoScontato: TCurrencyField;
    TTDettaglioFlag: TStringField;
    TTDettaglioIdLotto: TIntegerField;
    TTDettaglioProvvigione: TCurrencyField;
    TTDettaglioPc: TFloatField;
    TTDettaglioUc: TFloatField;
    TTDettaglioQtaMov: TFloatField;
    TTDettaglioArteti: TStringField;
    TTDettaglioDepIn: TStringField;
    TTDettaglioDepOut: TStringField;
    TTDettaglioT: TBooleanField;
    TTDettaglioD1: TBooleanField;
    TTDettaglioD2: TBooleanField;
    TTDettaglioA: TBooleanField;
    TTDettaglioDataMov: TDateField;
    TTDocVarQtaMov: TFloatField;
    TTDocVarArteti: TStringField;
    TTDocVarDepIn: TStringField;
    TTDocVarDepOut: TStringField;
    TTDettaglioUcMov: TFloatField;
    TTDettaglioPcMov: TFloatField;
    TTDettaglioTMov: TBooleanField;
    TTDettaglioD1Mov: TBooleanField;
    TTDettaglioD2Mov: TBooleanField;
    TTDettaglioAMov: TBooleanField;
    TTPrzStoryCausale: TStringField;
    TTDettaglioAdebitoagente: TCurrencyField;
    TTTestataAdebitoagente: TCurrencyField;
    TTParam_doc: TTable;
    TTParam_docSoggetto: TStringField;
    TTParam_docDatadal: TDateField;
    TTParam_docDataal: TDateField;
    TTParam_docNumerodal: TFloatField;
    TTParam_docNumeroal: TFloatField;
    DsParam_doc: TDataSource;
    TTParam_docRagionesociale: TStringField;
    TTParam_docEvaso: TStringField;
    TTParam_docAnnullato: TStringField;
    TTParam_docFiltra: TBooleanField;
    TTContatti: TTable;
    TTContattiCodice: TStringField;
    TTContattiDescrizione: TStringField;
    TTContattiValore: TStringField;
    TTContattiIdGiornale: TStringField;
    PipeContatti: TppBDEPipeline;
    DsContatti: TDataSource;
    TTDettaglioModalitadistintabase: TStringField;
    TTDettaglioDistintabase: TBooleanField;
    TTDettaglioModDistintaMov: TStringField;
    TTTestataAgente2: TStringField;
    TTTestataPesolordo: TFloatField;
    TTDettaglioPesolordo: TFloatField;
    TTTestataPrimodoc: TBooleanField;
    Soggetti_RicercaPrimaprovvigione: TBooleanField;
    PipeDocVar: TppBDEPipeline;
    TTTestataFiliale: TStringField;
    TTFiliali: TTable;
    DSsog_ricerca: TDataSource;
    TTFilialiCodice: TStringField;
    TTFilialiRagioneSociale: TStringField;
    TTFilialiIndirizzo: TStringField;
    TTFilialiCap: TStringField;
    TTFilialiLocalita: TStringField;