ana_mod.pas

一套来自国外的ERP系统,有兴趣的朋友可以看看!

unit ana_mod;

interface

uses
  SysUtils, Windows, Classes, Graphics, Controls,
  Forms, Dialogs, DB, DBTables, ExtCtrls,Registry,Inifiles , math, BdeUtils;

type
  TModuloDatiAnagrafiche = class(TDataModule)
    TTimballiImballo: TStringField;
    DSImballi: TDataSource;
    TTimballi: TTable;
    TTCatMer: TTable;
    TTCatMerCategoriaMerceologica: TStringField;
    DsCatmer: TDataSource;
    TTdefaults: TTable;
    TTdefaultsChiave: TStringField;
    TTdefaultsValore: TStringField;
    TTMarche: TTable;
    DSMarche: TDataSource;
    TTTipArt: TTable;
    DSTipArt: TDataSource;
    TTBanche: TTable;
    DSBanche: TDataSource;
    TTBancheCodice: TStringField;
    TTBancheBanca: TStringField;
    TTBancheAbi: TStringField;
    TTBancheCab: TStringField;
    TTTipArtTipoarticolo: TStringField;
    TTMarcheMarca: TStringField;
    TTIva: TTable;
    DSIva: TDataSource;
    TTDepositi: TTable;
    DsDepositi: TDataSource;
    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;
    TTDepositiNote: TStringField;
    TTIvaCodice: TStringField;
    TTIvaDescrizione: TStringField;
    TTIvaAliquota: TFloatField;
    TTIvaAliquotaindetrazione: TFloatField;
    TTGruSog: TTable;
    DSGruSog: TDataSource;
    TTGruSogCodice: TStringField;
    TTGruSogTipoGruppo: TStringField;
    TTGruSogRagionesociale: TStringField;
    TTGruSogIndirizzo: TStringField;
    TTGruSogCap: TStringField;
    TTGruSogLocalita: TStringField;
    TTGruSogProvincia: TStringField;
    TTGruSogStato: TStringField;
    TTGruSogPartitaIVA: TStringField;
    TTGruSogCodiceFiscale: TStringField;
    TTGruSogEL: TStringField;
    TTGruSogPersonadacontattare: TStringField;
    TTGruSogTelefono: TStringField;
    TTGruSogFax: TStringField;
    TTGruSogDati: TStringField;
    TTGruSogEmail: TStringField;
    TTGruSogURL: TStringField;
    TTGruSogLogin: TStringField;
    TTGruSogPassword: TStringField;
    TTGruSogHost: TStringField;
    TTGruSogListino: TStringField;
    TTGruSogBanca: TStringField;
    TTGruSogConto: TStringField;
    TTGruSogValutaconto: TStringField;
    TTGruSogPagamento: TStringField;
    TTModPag: TTable;
    TTModPagCodice: TStringField;
    TTModPagDescrizione: TStringField;
    TTModPagDF_FM: TStringField;
    TTModPagCalcola: TBooleanField;
    TTModPagSalda: TBooleanField;
    DSModPag: TDataSource;
    TTDModPag: TTable;
    TTDModPagPagamento: TStringField;
    TTDModPagGiorni: TFloatField;
    TTDModPagFrazione: TFloatField;
    DSDModPag: TDataSource;
    TTTipidoc: TTable;
    TTTipidocDescrizione: TStringField;
    TTTipidocNumeratore: TStringField;
    TTTipidocGiacenza: TBooleanField;
    TTTipidocScadenziario: TBooleanField;
    TTTipidocProvvigione: TBooleanField;
    TTTipidocVenduto: TBooleanField;
    TTTipidocAcquistato: TBooleanField;
    DSTipidoc: TDataSource;
    TTTipidocCodice: TStringField;
    TTTipidocDareAvere: TStringField;
    TTTipidocCopie: TSmallintField;
    TTTipidocAnteprima: TBooleanField;
    TTnumera: TTable;
    DSNumera: TDataSource;
    TTCausali: TTable;
    DSCausali: TDataSource;
    TTCaudoc: TTable;
    DSCaudoc: TDataSource;
    TTCaudocTipodocumento: TStringField;
    TTCaudocCausale: TStringField;
    TTCaudocDescrizionedocumento: TStringField;
    DSDefaults: TDataSource;
    TTConti: TTable;
    DSConti: TDataSource;
    TTModPagContoanticipo: TStringField;
    TTModPagFrazioneanticipo: TFloatField;
    TTModPagContoincasso: TStringField;
    TTModPagDescr_conto_anticipo: TStringField;
    TTModPagdescr_conto_incasso: TStringField;
    TTContiConto: TStringField;
    TTContiDescrizione: TStringField;
    TTContiTipoconto: TStringField;
    TTsoggetti: TTable;
    DSSoggetti: TDataSource;
    TTsoggettiCodice: TStringField;
    TTsoggettiTiporapporto: TStringField;
    TTsoggettiRagionesociale: TStringField;
    TTsoggettiIndirizzo: TStringField;
    TTsoggettiCap: TStringField;
    TTsoggettiLocalita: TStringField;
    TTsoggettiProvincia: TStringField;
    TTsoggettiStato: TStringField;
    TTsoggettiPartitaIVA: TStringField;
    TTsoggettiCodiceFiscale: TStringField;
    TTsoggettiEL: TStringField;
    TTsoggettiIndirizzofatture: TStringField;
    TTsoggettiCapfatture: TStringField;
    TTsoggettiLocalitafatture: TStringField;
    TTsoggettiProvinciafatture: TStringField;
    TTsoggettiStatofatture: TStringField;
    TTsoggettiPersonadacontattare: TStringField;
    TTsoggettiTelefono: TStringField;
    TTsoggettiFax: TStringField;
    TTsoggettiDati: TStringField;
    TTsoggettiEmail: TStringField;
    TTsoggettiURL: TStringField;
    TTsoggettiLogin: TStringField;
    TTsoggettiPassword: TStringField;
    TTsoggettiHost: TStringField;
    TTsoggettiPathlistino: TStringField;
    TTsoggettiNomefilelistino: TStringField;
    TTsoggettiNomeproceduralistino: TStringField;
    TTsoggettiFido: TCurrencyField;
    TTsoggettiAgente: TStringField;
    TTsoggettiZona: TStringField;
    TTsoggettiDepositopreferenziale: TStringField;
    TTsoggettiListino: TStringField;
    TTsoggettiBanca: TStringField;
    TTsoggettiConto: TStringField;
    TTsoggettiPagamento: TStringField;
    TTsoggettiDescr_banca: TStringField;
    TTsoggettidescr_pag: TStringField;
    TTsoggettidescr_dep: TStringField;
    TTTipisog: TTable;
    DSTipisog: TDataSource;
    TTTipisogTiporapporto: TStringField;
    TTTipisogListinodefault: TStringField;
    TTTipisogBancadefault: TStringField;
    TTTipisogDocumentodefault: TStringField;
    TTTipisogCausaledefault: TStringField;
    TTTipisogElencasempre: TBooleanField;
    TTTipisogElencafornitore: TBooleanField;
    TTTipisogElencacliente: TBooleanField;
    TTTipisogFiltro: TStringField;
    TTTipisogdescr_banca: TStringField;
    TTTipisogdescr_documento: TStringField;
    TTTipisogdescr_causale: TStringField;
    TTTipisogPagamentodefault: TStringField;
    TTTipisogdescr_pagamento: TStringField;
    TTListino: TTable;
    TTListinoValoreK: TFloatField;
    TTListinoFormulaRSNIV: TStringField;
    DSListino: TDataSource;
    TTListini: TTable;
    DSListini: TDataSource;
    TTCausaliCodice: TStringField;
    TTCausaliDescrizione: TStringField;
    TTCausaliPrezzo: TStringField;
    TTCausaliTipomovimento: TStringField;
    TTCausaliAttiva: TBooleanField;
    TTCausaliTipovendita: TStringField;
    TTAgenti: TTable;
    DSAgenti: TDataSource;
    TTsoggettiDescr_agente: TStringField;
    TTZone: TTable;
    DSZone: TDataSource;
    TTsoggettiZona_desc: TStringField;
    TTAgZone: TTable;
    DSAgZone: TDataSource;
    TTAgZoneAgente: TStringField;
    TTAgZoneZona: TStringField;
    TTZoneZona: TStringField;
    TTAgentiCodice: TStringField;
    TTAgentiRagionesociale: TStringField;
    TTAgentiIndirizzo: TStringField;
    TTAgentiCap: TStringField;
    TTAgentiLocalita: TStringField;
    TTAgentiProvincia: TStringField;
    TTAgentiStato: TStringField;
    TTAgentiPartitaIVA: TStringField;
    TTAgentiCodiceFiscale: TStringField;
    TTAgentiEL: TStringField;
    TTAgentiTelefono: TStringField;
    TTAgentiFax: TStringField;
    TTAgentiDati: TStringField;
    TTAgentiEmail: TStringField;
    TTAgentiURL: TStringField;
    TTAgentiZona: TStringField;
    TTAgentiDepositopreferenziale: TStringField;
    TTAgentiListino: TStringField;
    TTAgentiBanca: TStringField;
    TTStati: TTable;
    DSStati: TDataSource;
    TTsoggettiStatoDesc: TStringField;
    TTsoggettistatofattdescr: TStringField;
    TTAgentiStatodescr: TStringField;
    TTListinoEL: TStringField;
    TTListinoValoreX: TFloatField;
    TTListinoValoreY: TFloatField;
    TTListinoValoreZ: TFloatField;
    TTListiniListino: TStringField;
    TTListiniFormulastandRSNIV: TStringField;
    TTListiniEL: TStringField;
    TTListiniTitolo: TStringField;
    TTListiniNoteinterne: TStringField;
    TTListiniNoteinstampa: TStringField;
    TTListiniNomefileesportazione: TStringField;
    TTArticoli: TTable;
    DSArticoli: TDataSource;
    TTArticoliArticolo: TStringField;
    TTArticoliDescrizione: TStringField;
    TTArticoliUM: TStringField;
    TTArticoliArticoloetichetta: TStringField;
    TTArticoliArticolofornitore: TStringField;
    TTArticoliPrezzoacquistoL: TCurrencyField;
    TTArticoliPrezzoacquistoE: TCurrencyField;
    TTArticoliMinimoordine: TFloatField;
    TTArticoliConsegna: TFloatField;
    TTArticoliPesolordo: TFloatField;
    TTArticoliPesoImballo: TFloatField;
    TTArticoliVolume: TFloatField;
    TTArticoliImballo: TStringField;
    TTArticoliTipoarticolo: TStringField;
    TTArticoliCategoriamerceologica: TStringField;
    TTArticoliMarca: TStringField;
    TTArticoliCodiceIVA: TStringField;
    TTArticoliGestionegiacenza: TBooleanField;
    TTArticoliVariante1: TStringField;
    TTArticoliVariante2: TStringField;
    TTArticoliAliquotaIva: TFloatField;
    TTformule: TTable;
    DSFormule: TDataSource;
    TTListinoFormulaDescr2: TStringField;
    TTArticoliRagioneSocialeFornitore: TStringField;
    TTArticoliDescrizioneIVA: TStringField;
    TTArticoliAnagraficatipoarticolo: TStringField;
    TTArticolianagraficacatmerc: TStringField;
    TTArticoliAnagraficamarche: TStringField;
    TTArticolianagraficaimballi: TStringField;
    TTVarianti1: TTable;
    DSVarianti1: TDataSource;
    TTDVarianti1: TTable;
    DSDVarianti1: TDataSource;
    TTVarianti1Variante: TStringField;
    TTVarianti1Automatica: TBooleanField;
    TTDVarianti1Variante: TStringField;
    TTDVarianti1Descrizione: TStringField;
    TTDVarianti1Progressivo: TAutoIncField;
    TTArticoliFamiglia: TStringField;
    TTArticoliScadenzaingiorni: TSmallintField;
    TTArticoliScadenzainmesi: TSmallintField;
    TTArticoliScadenzaassolutaggmm: TStringField;
    TTArticoliTiposcadenzaGMA: TStringField;
    TTArticoliGestioneVarianti: TBooleanField;
    TTArticoliGestionescadenza: TBooleanField;
    TTArticoliVariante1Look: TStringField;
    TTArticoliVariante2Look: TStringField;
    TTConai: TTable;