doc_mod.pas

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

unit Doc_mod;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ppDB, ppDBPipe, ppDBBDE, ppBands, ppReport, ppSubRpt,
  ppMemo, ppCtrls, ppStrtch, ppRichTx, jpeg, ppPrnabl, ppClass, ppCache,
  ppComm, ppProd, ppEndUsr, ppRelatv, ppModule, daDatMod, ppBarCod, appexec,
  StdCtrls, ComCtrls, DBGrids, raIde, TXComp, Psock, NMsmtp , TxtraDev, Math ;

type
  mov_mag = record
       Articolo_mag : string ;
       Qta_mag : real ;
       DepIn_mag : string ;
       DepOut_mag : string ;
  end ;
  
  TModuloDatiDocumenti = class(TDataModule)
    DSTestata: TDataSource;
    DsDettaglio: TDataSource;
    TTGiacenza: TTable;
    DSGiacenza: TDataSource;
    TTTestata: TTable;
    TTTestataDocumento: TIntegerField;
    TTTestataValuta: TStringField;
    TTTestataData: TDateField;
    TTTestataNumero: TIntegerField;
    TTTestataTipoMovimento: TStringField;
    TTTestataSerie: TStringField;
    TTTestataTipo: TStringField;
    TTTestataCausale: TStringField;
    TTTestataSoggetto: TStringField;
    TTTestataSoggetto_ricerca: TStringField;
    TTTestataRagionesocialemerce: TStringField;
    TTTestataIndirizzomerce: TStringField;
    TTTestataCapmerce: TStringField;
    TTTestataLocalitamerce: TStringField;
    TTTestataProvinciamerce: TStringField;
    TTTestataStatomerce: TStringField;
    TTTestataRagionesocialedocumento: TStringField;
    TTTestataIndirizzodocumento: TStringField;
    TTTestataCapdocumento: TStringField;
    TTTestataLocalitadocumento: TStringField;
    TTTestataProvinciadocumento: TStringField;
    TTTestataStatodocumento: TStringField;
    TTTestataDepositouscita: TStringField;
    TTTestataDepositoentrata: TStringField;
    TTTestataColli: TSmallintField;
    TTTestataCuradeltrasporto: TStringField;
    TTTestataImballo: TStringField;
    TTTestataPagamento: TStringField;
    TTTestataBanca: TStringField;
    TTTestataAgente: TStringField;
    TTTestataEvaso: TBooleanField;
    TTTestataSospeso: TBooleanField;
    TTTestataNote: TMemoField;
    TTTestataTipodocumento: TStringField;
    TTTestataCausaledocumento: TStringField;
    TTTestataStatomerceDocumento: TStringField;
    TTTestataStatodocumentodocumento: TStringField;
    TTTestataDepositoentratadocumento: TStringField;
    TTTestataDepositouscitadocumento: TStringField;
    TTTestataImballodocumento: TStringField;
    TTTestataPagamentodocumento: TStringField;
    TTTestataBancadocumento: TStringField;
    TTTestataAgentedocumento: TStringField;
    TTTestataVettoredocumento: TStringField;
    TTTestataDatapartenza: TDateField;
    TTTestataOrapartenza: TTimeField;
    TTTestataDataconsegna: TDateField;
    TTTestataOraconsegna: TTimeField;
    TTTestataFirmadocumento: TStringField;
    TTTestataVettore: TStringField;
    TTTestataFaiScadenze: TBooleanField;
    TTTestataMuoviMerce: TBooleanField;
    TTTestataDescrstatodocumento: TStringField;
    TTTestatalistinodasoggetto: TStringField;
    TTTestataTipoRapportodaSoggetto: TStringField;
    TTTestataCausaleDefault: TStringField;
    TTTestataDocumentoDefault: TStringField;
    TTTestataSconto: TCurrencyField;
    TTTestataSconto2: TFloatField;
    TTTestataNomefilereport: TStringField;
    TTTestataStampato: TBooleanField;
    TTTestataAnnullato: TBooleanField;
    TTTestataCompletato: TBooleanField;
    TTTestataPivaSoggetto: TStringField;
    TTTestataCodiceFiscaleSoggetto: TStringField;
    TTTestataImponibile: TCurrencyField;
    TTTestataImponibilescontato: TCurrencyField;
    TTTestataImposta: TCurrencyField;
    TTTestataTotaleE: TCurrencyField;
    TTTestataTotaleL: TCurrencyField;
    TTTestataProvvigione: TBooleanField;
    TTTestataNumeratoreDaTipiDoc: TStringField;
    TTTestataStampareDocumento: TBooleanField;
    TTTestataCopieDocumento: TIntegerField;
    TTTestataAnteprimaDocumento: TBooleanField;
    TTDettaglio: TTable;
    TTDettaglioDocumento: TIntegerField;
    TTDettaglioProgressivo: TIntegerField;
    TTDettaglioArticolointerno: TStringField;
    TTDettaglioDescrizione: TMemoField;
    TTDettaglioUM: TStringField;
    TTDettaglioQta: TFloatField;
    TTDettaglioPrezzo: TCurrencyField;
    TTDettaglioSconto: TFloatField;
    TTDettaglioSconto2: TFloatField;
    TTDettaglioSconto3: TFloatField;
    TTDettaglioEvaso: TBooleanField;
    TTDettaglioQtaevasa: TFloatField;
    TTDettaglioIva: TStringField;
    TTDettaglioDescrittivo: TBooleanField;
    TTDettaglioImporto: TCurrencyField;
    TTDettaglioScontoRiga: TFloatField;
    TTDettaglioImportoScontato: TCurrencyField;
    TTDettaglioIvaLookUp: TStringField;
    TTDettaglioValuta: TStringField;
    TTDettaglioScontoStampato: TStringField;
    TTDettaglioAliquotaIva: TFloatField;
    TTIva: TTable;
    TTIvaCodice: TStringField;
    TTIvaDescrizione: TStringField;
    TTIvaAliquota: TFloatField;
    TTIvaAliquotaindetrazione: TFloatField;
    TTArticoli: TTable;
    TTArticoliArticolo: TStringField;
    TTArticoliDescrizione: TStringField;
    TTArticoliUM: TStringField;
    TTArticoliArticoloetichetta: TStringField;
    TTArticoliArticolofornitore: TStringField;
    TTArticoliPrezzoacquistoL: TCurrencyField;
    TTArticoliPrezzoacquistoE: TCurrencyField;
    TTArticoliPrezzoacquistoLivato: TCurrencyField;
    TTArticoliPrezzoacquistoEivato: TCurrencyField;
    TTArticoliPesolordo: TFloatField;
    TTArticoliPesoImballo: TFloatField;
    TTArticoliVolume: TFloatField;
    TTArticoliImballo: TStringField;
    TTArticolianagraficaimballi: TStringField;
    TTArticoliTipoarticolo: TStringField;
    TTArticoliAnagraficatipoarticolo: TStringField;
    TTArticoliCategoriamerceologica: TStringField;
    TTArticolianagraficacatmerc: TStringField;
    TTArticoliMarca: TStringField;
    TTArticoliAnagraficamarche: TStringField;
    TTArticoliCodiceIVA: TStringField;
    TTArticoliDescrizioneIVA: TStringField;
    TTArticoliAliquotaIva: TFloatField;
    TTArticoliGestionegiacenza: TBooleanField;
    TTArticoliVariante1: TStringField;
    TTArticoliVariante2: TStringField;
    TTArticoliFamiglia: TStringField;
    TTArticoliGestionescadenza: TBooleanField;
    TTArticoliScadenzaingiorni: TSmallintField;
    TTArticoliScadenzainmesi: TSmallintField;
    TTArticoliScadenzaassolutaggmm: TStringField;
    TTArticoliTiposcadenzaGMA: TStringField;
    TTArticoliGestioneVarianti: TBooleanField;
    TTArticoliVariante1Look: TStringField;
    TTArticoliVariante2Look: TStringField;
    TTArticoliConaiassolto: TBooleanField;
    TTArticoliFornitore: TStringField;
    TTArticoliStagione: TStringField;
    TTArticoliMinimoordine: TFloatField;
    TTArticoliConsegna: TFloatField;
    TTArticoliSottoscorta: TFloatField;
    TTArticoliMinimomagazzino: TFloatField;
    TTArticoliAllarmenegativi: TBooleanField;
    TTArticoliAllarmesottoscorta: TBooleanField;
    TTArticoliStagioneLook: TStringField;
    TTArticoliClasseriordino: TSmallintField;
    TTArticoliGestioneriordino: TBooleanField;
    TTCastiva: TTable;
    TTCastivaDocumento: TIntegerField;
    TTCastivaCodiceIVA: TStringField;
    TTCastivaAliquotaIva: TFloatField;
    TTCastivaImponibile: TCurrencyField;
    TTCastivaImposta: TCurrencyField;
    TTEconto: TTable;
    TTEcontoDocumento: TIntegerField;
    TTEcontoSaldoL: TCurrencyField;
    TTEcontoSaldoE: TCurrencyField;
    TTEcontoDareL: TCurrencyField;
    TTEcontoDareE: TCurrencyField;
    TTEcontoAvereL: TCurrencyField;
    TTEcontoAvereE: TCurrencyField;
    TTEcontoConto: TStringField;
    TTEcontoPagamento: TStringField;
    TTEcontoSoggetto: TStringField;
    TTEcontoSaldato: TBooleanField;
    TTEcontoManuale: TBooleanField;
    TTEcontoSollecito: TStringField;
    DSCastiva: TDataSource;
    DSEconto: TDataSource;
    DocumentoReport: TppReport;
    PipeTestata: TppBDEPipeline;
    PipeCastiva: TppBDEPipeline;
    TTCausali: TTable;
    TTCausaliCodice: TStringField;
    TTCausaliDescrizione: TStringField;
    TTCausaliPrezzo: TStringField;
    TTCausaliTipomovimento: TStringField;
    TTCausaliAttiva: TBooleanField;
    TTCausaliTipovendita: TStringField;
    TTCaudoc: TTable;
    TTCaudocCausale: TStringField;
    TTCaudocTipodocumento: TStringField;
    TTCaudocDocumento: TStringField;
    TTCaudocNumeratore: TStringField;
    ModificaReportDocumenti: TppDesigner;
    TTFiltroDoc: TTable;
    DSFiltroDoc: TDataSource;
    TTFiltroDocProgressivo: TAutoIncField;
    TTFiltroDocSoggetto: TStringField;
    TTFiltroDocTipo: TStringField;
    TTFiltroDocDadata: TDateField;
    TTFiltroDocAdata: TDateField;
    TTFiltroDocValuta: TStringField;
    TTFiltroDocSoggettodocumento: TStringField;
    TTFiltroDocTipodocumento: TStringField;
    DSCausali: TDataSource;
    TTDettaglioMatricola: TStringField;
    TTDettaglioArticolofornitore: TStringField;
    TTDettaglioArticoloetichetta: TStringField;
    TTDettaglioArticolobase: TStringField;
    ppTitleBand1: TppTitleBand;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    piedePagina: TppFooterBand;
    Sommario: TppSummaryBand;
    TTTestataMuoviDepositoUscita: TBooleanField;
    TTTestataMuoviDepositoEntrata: TBooleanField;
    TTArticoliPrezzolistinoL: TCurrencyField;
    TTArticoliPrezzolistinoE: TCurrencyField;
    TTArticoliPrezzolistinoLivato: TCurrencyField;
    TTArticoliPrezzolistinoEivato: TCurrencyField;
    TTArticoliSconto: TFloatField;
    TTArticoliSconto2: TFloatField;
    TTArticoliStampanellistino: TBooleanField;
    TTArticoliStampaetichetta: TBooleanField;
    TTArticoliUbicazione: TStringField;
    TTTestataDareAvere: TStringField;
    TTGiacenzaArticolo: TStringField;
    TTGiacenzaDeposito: TStringField;
    TTGiacenzaQtainiziale: TFloatField;
    TTGiacenzaQtacarico: TFloatField;
    TTGiacenzaQtascarico: TFloatField;
    TTGiacenzaArticolointerno: TStringField;
    TTTestataTestoesenzioneIva: TMemoField;
    TTTestataEsenzioneIVA: TStringField;
    TTTestataEsenzioneIvaLookUp: TStringField;
    TTEcontoScadenza: TDateField;
    TTEcontoAP: TStringField;
    TTTestataAccontoL: TCurrencyField;
    TTTestataAccontoE: TCurrencyField;
    TTEtichette: TTable;
    TTEtichetteProgressivo: TAutoIncField;
    TTEtichetteArticoloetichetta: TStringField;
    TTEtichetteDescrizione: TStringField;
    TTEtichettePrezzoL: TCurrencyField;
    TTEtichettePrezzoE: TCurrencyField;
    TTEtichettePunti: TFloatField;
    DsEtichette: TDataSource;
    coda_etichette: TppBDEPipeline;
    modifica_etichette: TppDesigner;
    TTArticoliDescrizioneetichetta: TStringField;
    TTArticoliGiacenzainiziale: TFloatField;
    TTEtichetteArticolointerno: TStringField;
    TTEtichetteArticolofornitore: TStringField;
    etichette: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppFooterBand2: TppFooterBand;
    ppDBText51: TppDBText;
    ppDBText52: TppDBText;
    ppDBText53: TppDBText;
    Esegui: TAppExec;
    TTDocVar: TTable;
    DsDocVar: TDataSource;
    TTDettaglioVarianti: TBooleanField;
    TTDocVarDocumento: TIntegerField;
    TTDocVarProgressivo: TIntegerField;
    TTDocVarProgressivotaglie: TAutoIncField;
    TTDocVarArticolointerno: TStringField;
    TTDocVarArticoloetichetta: TStringField;
    TTDocVarQta: TFloatField;
    TTDocVarVariante1: TStringField;
    TTDocVarVariante2: TStringField;
    TTTestataIndirizzovettore: TStringField;
    PipeScadenze: TppBDEPipeline;
    TTTestataSpesebancarie: TCurrencyField;
    TTTestataSpesetrasporto: TCurrencyField;
    TTTestataSpesevarie: TCurrencyField;
    eurodb: TDatabase;
    TTGiacenzaDataultimoMovimento: TDateField;
    Soggetti_Ricerca: TTable;
    TTEtichetteDescrizione2: TStringField;
    TTDettaglioImportoIvato: TCurrencyField;
    TTDettaglioImportoIvatoScontato: TCurrencyField;
    TTTestataRegistrazione: TIntegerField;
    TTDocVarDesc_var1: TStringField;
    TTDocVarDesc_var2: TStringField;
    TTConvDoc: TTable;
    dsConvDoc: TDataSource;
    TTDconvDoc: TTable;
    dsDConvDoc: TDataSource;
    TTVarConvDoc: TTable;
    dsVarConvDoc: TDataSource;
    QselTeste: TQuery;
    QselTesteValuta: TStringField;
    QselTesteData: TDateField;
    QselTesteNumero: TIntegerField;
    QselTesteTipo: TStringField;
    QselTesteSconto: TFloatField;
    QselTesteTotaleE: TCurrencyField;
    QselTesteTotaleL: TCurrencyField;
    QselTesteSerie: TStringField;
    TTConvDocDocumento: TIntegerField;
    TTConvDocTipo: TStringField;
    TTConvDocDescrizione: TStringField;
    TTConvDocData: TDateField;
    TTConvDocNumero: TFloatField;
    TTConvDocSerie: TStringField;
    TTConvDocTotaleL: TCurrencyField;
    TTConvDocTotaleE: TCurrencyField;
    TTConvDocAccontoL: TCurrencyField;
    TTConvDocAccontoE: TCurrencyField;
    TTConvDocSconto: TFloatField;
    TTConvDocSeleziona: TBooleanField;
    QselTesteDocumento: TIntegerField;
    QselTesteAccontoL: TCurrencyField;
    QselTesteAccontoE: TCurrencyField;
    QselTesteDescrizione: TStringField;
    QselRighe: TQuery;
    QselRigheDocumento: TIntegerField;
    QselRigheProgressivo: TIntegerField;
    QselRigheArticolointerno: TStringField;
    QselRigheArticoloetichetta: TStringField;
    QselRigheArticolofornitore: TStringField;
    QselRigheDescrizione: TMemoField;
    QselRigheUM: TStringField;
    QselRigheQta: TFloatField;
    QselRighePrezzo: TCurrencyField;
    QselRigheSconto: TFloatField;
    QselRigheSconto2: TFloatField;
    QselRigheSconto3: TFloatField;
    QselRigheQtaevasa: TFloatField;
    QselRigheIva: TStringField;
    QselRigheSeleziona: TBooleanField;
    TTDconvDocDocumento: TIntegerField;
    TTDconvDocRiga: TIntegerField;
    TTDconvDocArticolointerno: TStringField;
    TTDconvDocArticoloetichetta: TStringField;
    TTDconvDocArticolofornitore: TStringField;
    TTDconvDocDescrizioneinstampa: TMemoField;
    TTDconvDocUM: TStringField;
    TTDconvDocQta: TFloatField;
    TTDconvDocQtaevasa: TFloatField;