ana_mod.pas

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

    DsConai: TDataSource;
    TTartConai: TTable;
    DSArtConai: TDataSource;
    TTConaiMateriale: TStringField;
    TTConaiCoefficienteLireKg: TCurrencyField;
    TTartConaiArticolo: TStringField;
    TTartConaiMateriale: TStringField;
    TTartConaiPeso: TFloatField;
    TTartConaiMaterialeLook: TStringField;
    TTArticoliConaiassolto: TBooleanField;
    TTArticoliFornitore: TStringField;
    TTnumeraNumeratore: TStringField;
    TTnumeraAnno: TStringField;
    TTnumeraMese: TStringField;
    TTnumeraGiorno: TStringField;
    TTVarianti2: TTable;
    TTVarianti2Variante: TStringField;
    BooleanField1: TBooleanField;
    DSVarianti2: TDataSource;
    DSDVarianti2: TDataSource;
    TTDvarianti2: TTable;
    StringField2: TStringField;
    AutoIncField1: TAutoIncField;
    TTDVarianti2Descrizione: TStringField;
    TTDvarianti2Codice: TStringField;
    TTDVarianti1Codice: TStringField;
    TTnumeraValore: TIntegerField;
    TTArticoliStagione: TStringField;
    TTArticoliSottoscorta: TFloatField;
    TTArticoliMinimomagazzino: TFloatField;
    TTArticoliAllarmenegativi: TBooleanField;
    TTArticoliAllarmesottoscorta: TBooleanField;
    TTStagioni: TTable;
    DSStagioni: TDataSource;
    TTArticoliStagioneLook: TStringField;
    TTArticoliClasseriordino: TSmallintField;
    TTArticoliGestioneriordino: TBooleanField;
    TTArtBase: TTable;
    DsArtbase: TDataSource;
    TTArtBaseArticoloetichetta: TStringField;
    TTArtBaseArticolointerno: TStringField;
    TTArtBaseCodvar1: TStringField;
    TTArtBaseCodvar2: TStringField;
    TTVettori: TTable;
    DsVettori: TDataSource;
    TTListinoMargineLordo: TFloatField;
    TTListinoRicaricoLordo: TFloatField;
    TTArticoliPrezzoacquistoLivato: TCurrencyField;
    TTArticoliPrezzoacquistoEivato: TCurrencyField;
    TTCatList: TTable;
    DSCatList: TDataSource;
    TTCatListListino: TStringField;
    TTCatListTipoarticolo: TStringField;
    TTCatListFormula: TStringField;
    TTCatListValoreX: TFloatField;
    TTCatListValoreY: TFloatField;
    TTCatListValoreZ: TFloatField;
    TTCatListTipo_look: TStringField;
    TTCatListFormula_look: TStringField;
    TTsoggettiVettorepreferenziale: TStringField;
    TTsoggettiValutaconto: TStringField;
    TTsoggettiDenominazioneVettorePreferenziale: TStringField;
    TTListiniValoreX: TFloatField;
    TTListiniValoreY: TFloatField;
    TTListiniValoreZ: TFloatField;
    TTTipArtOrdinenellistino: TSmallintField;
    TTArticoliPrezzolistinoL: TCurrencyField;
    TTArticoliPrezzolistinoE: TCurrencyField;
    TTArticoliPrezzolistinoLivato: TCurrencyField;
    TTArticoliPrezzolistinoEivato: TCurrencyField;
    TTArticoliSconto: TFloatField;
    TTArticoliSconto2: TFloatField;
    TTListiniNomefilestampa: TStringField;
    TTTipidocStampare: TBooleanField;
    TTTipidocNomefilestampaE: TStringField;
    TTTipidocNomefilestampaL: TStringField;
    TTCatMerGestionevarianti: TBooleanField;
    TTCatMerVariante1: TStringField;
    TTCatMerVariante2: TStringField;
    TTCatMerGestionegiacenza: TBooleanField;
    TTCatMerGestioneriordino: TBooleanField;
    TTCatMerAllarmenegativi: TBooleanField;
    TTCatMerAllarmesottoscorta: TBooleanField;
    TTCatMerIva: TStringField;
    TTCatMerGestionescadenza: TBooleanField;
    TTCatMerVariante1LookUP: TStringField;
    TTCatMerVariante2LookUp: TStringField;
    TTCatMerIvaLookup: TStringField;
    TTCatMerAliquotaIva: TFloatField;
    TTTipisogDescr_listino: TStringField;
    TTArticoliStampanellistino: TBooleanField;
    TTCatMerStampaetichetta: TBooleanField;
    TTArticoliStampaetichetta: TBooleanField;
    TTArticoliUbicazione: TStringField;
    TTsoggettiGruppo: TStringField;
    TTsoggettiGruppoLookUp: TStringField;
    TTUbicazione: TTable;
    TTUbicazioneCodice: TStringField;
    TTUbicazioneUbicazione: TStringField;
    TTArticoliUbicazioneLookUp: TStringField;
    DSUbicazione: TDataSource;
    TTListinoPezziperconfezione: TFloatField;
    TTListiniArrotondaprezzi: TBooleanField;
    Timer: TTimer;
    TTArticoliDescrizioneetichetta: TStringField;
    TTarticolilookup: TTable;
    TTsoggettiIva: TStringField;
    TTsoggettiTestoesenzioniiva: TMemoField;
    TTsoggettiIvaLookup: TStringField;
    TTarticolilookupArticolo: TStringField;
    TTarticolilookupDescrizione: TStringField;
    TTarticolilookupFamiglia: TStringField;
    TTarticolilookupGestionescadenza: TBooleanField;
    TTarticolilookupScadenzaingiorni: TSmallintField;
    TTarticolilookupScadenzainmesi: TSmallintField;
    TTarticolilookupScadenzaassolutaggmm: TStringField;
    TTarticolilookupTiposcadenzaGMA: TStringField;
    TTarticolilookupUM: TStringField;
    TTarticolilookupArticoloetichetta: TStringField;
    TTarticolilookupFornitore: TStringField;
    TTarticolilookupArticolofornitore: TStringField;
    TTarticolilookupPrezzoacquistoL: TCurrencyField;
    TTarticolilookupPrezzoacquistoE: TCurrencyField;
    TTarticolilookupPrezzoacquistoLivato: TCurrencyField;
    TTarticolilookupPrezzoacquistoEivato: TCurrencyField;
    TTarticolilookupPrezzolistinoL: TCurrencyField;
    TTarticolilookupPrezzolistinoE: TCurrencyField;
    TTarticolilookupPrezzolistinoLivato: TCurrencyField;
    TTarticolilookupPrezzolistinoEivato: TCurrencyField;
    TTarticolilookupSconto: TFloatField;
    TTarticolilookupSconto2: TFloatField;
    TTarticolilookupStagione: TStringField;
    TTarticolilookupMinimoordine: TFloatField;
    TTarticolilookupConsegna: TFloatField;
    TTarticolilookupSottoscorta: TFloatField;
    TTarticolilookupMinimomagazzino: TFloatField;
    TTarticolilookupAllarmenegativi: TBooleanField;
    TTarticolilookupAllarmesottoscorta: TBooleanField;
    TTarticolilookupClasseriordino: TSmallintField;
    TTarticolilookupGestioneriordino: TBooleanField;
    TTarticolilookupPesolordo: TFloatField;
    TTarticolilookupPesoImballo: TFloatField;
    TTarticolilookupVolume: TFloatField;
    TTarticolilookupImballo: TStringField;
    TTarticolilookupTipoarticolo: TStringField;
    TTarticolilookupCategoriamerceologica: TStringField;
    TTarticolilookupMarca: TStringField;
    TTarticolilookupCodiceIVA: TStringField;
    TTarticolilookupGestionegiacenza: TBooleanField;
    TTarticolilookupGestioneVarianti: TBooleanField;
    TTarticolilookupVariante1: TStringField;
    TTarticolilookupVariante2: TStringField;
    TTarticolilookupConaiassolto: TBooleanField;
    TTarticolilookupStampanellistino: TBooleanField;
    TTarticolilookupStampaetichetta: TBooleanField;
    TTarticolilookupUbicazione: TStringField;
    TTarticolilookupDescrizioneetichetta: TStringField;
    TTarticolilookupAliquotaIva: TFloatField;
    TTCatListPunteggio: TFloatField;
    TTListinoPunteggio: TFloatField;
    TTArtForn: TTable;
    DSArtforn: TDataSource;
    TTArtFornArticolo: TStringField;
    TTArtFornFornitore: TStringField;
    TTArtFornCodicedafornitore: TStringField;
    TTArtFornPrezzoacquistoL: TCurrencyField;
    TTArtFornPrezzoacquistoE: TCurrencyField;
    TTArtFornRagionesociale: TStringField;
    TTArtFornPrezzolistinoL: TCurrencyField;
    TTArtFornPrezzolistinoE: TCurrencyField;
    TTArtFornSconto: TFloatField;
    TTArticoliGiacenzainiziale: TFloatField;
    TTListinoPrezzoNettoL: TCurrencyField;
    TTListinoPrezzoNettoE: TCurrencyField;
    TTListinoPrezzoIvatoL: TCurrencyField;
    TTListinoPrezzoIvatoE: TCurrencyField;
    TTListinoPagina: TStringField;
    TTListinoRiga: TStringField;
    TTListinoArrotondaprezzi: TBooleanField;
    TTListinoListino: TStringField;
    TTListinoLABELX: TStringField;
    TTListinoLABELY: TStringField;
    TTListinoLABELZ: TStringField;
    TTListinoLABELK: TStringField;
    TTListinoArticolo: TStringField;
    TTListiniFormula: TStringField;
    TTListiniLabelX: TStringField;
    TTListiniLabelY: TStringField;
    TTListiniLabelZ: TStringField;
    TTformuleCodice: TStringField;
    TTformuleDescrizione: TStringField;
    TTformuleLabelX: TStringField;
    TTformuleLabelY: TStringField;
    TTformuleLabelZ: TStringField;
    TTformuleLabelK: TStringField;
    TTformuleSpiegazione: TMemoField;
    TTTipArtStampanellistino: TBooleanField;
    TTPunteggi: TTable;
    DsPunteggi: TDataSource;
    TTPunteggiListino: TStringField;
    TTPunteggiRicarico: TFloatField;
    TTPunteggiPunti: TFloatField;
    TTPunteggiImportoL: TCurrencyField;
    TTPunteggiImportoE: TCurrencyField;
    TTVettoriCodice: TStringField;
    TTVettoriVettore: TStringField;
    TTVettoriIndirizzo: TStringField;
    TTVettoriTelefono: TStringField;
    TTVettoriFax: TStringField;
    TTVettoriEmail: TStringField;
    TTVettoriWEB: TStringField;
    TTStagioniStagione: TStringField;
    TTStagioniGiornoinizio: TSmallintField;
    TTStagioniMeseinizio: TSmallintField;
    TTStagioniGiornofine: TSmallintField;
    TTStagioniMesefine: TSmallintField;
    TTModPagSconto: TFloatField;
    TTsoggettiContocorrente: TStringField;
    TTsoggettiSconto: TFloatField;
    TTsoggettiNote: TMemoField;
    TTArtStat: TTable;
    TTArtStatArticolo: TStringField;
    TTArtStatData: TDateField;
    TTArtStatQuantita: TFloatField;
    TTArtStatFatturatoL: TCurrencyField;
    TTArtStatFatturatoE: TCurrencyField;
    TTArtStatRicarico: TFloatField;
    TTArtStatMargine: TFloatField;
    TTArtStatIncidenza: TFloatField;
    TTArtStatPrezzoAcquistoL: TCurrencyField;
    TTArtStatPrezzoAcquistoE: TCurrencyField;
    DSArtStat: TDataSource;
    TTImpostat: TTable;
    TTImpostatFrequenzaingiorni: TSmallintField;
    TTImpostatDataesecuzione: TDateField;
    TTImpostatFatturatoAttivoE: TCurrencyField;
    TTImpostatFatturatoAttivoL: TCurrencyField;
    TTImpostatFatturatoPassivoE: TCurrencyField;
    TTImpostatFatturatoPassivoL: TCurrencyField;
    TTImpostatArticoli: TSmallintField;
    TTImpostatCategoriemerceologiche: TSmallintField;
    TTImpostatCategorie: TSmallintField;
    TTImpostatClienti: TSmallintField;
    TTImpostatFornitori: TSmallintField;
    TTImpostatAgenti: TSmallintField;
    TTImpostatDepositi: TSmallintField;
    QStatAttivo: TQuery;
    QStatAttivoScontoDoc: TFloatField;
    QStatAttivoUM: TStringField;
    QStatAttivoPrezzo: TCurrencyField;
    QStatAttivoSconto: TFloatField;
    QStatAttivoSconto2: TFloatField;
    QStatAttivoSconto3: TFloatField;
    QStatAttivoQta: TFloatField;
    QStatAttivoArticolo: TStringField;
    QStatAttivoValuta: TStringField;
    TTArtStatFornitore: TStringField;
    TTsoggettiPartitaPC: TStringField;
    TTIvaPartitaPC: TStringField;
    TTsoggettiCausalecontabile: TStringField;
    TTCauContabili: TTable;
    TTsoggettiCauContabileLookup: TStringField;
    TTTipidocCausalePagamento: TStringField;
    TTTipidocCauPagLookUp: TStringField;
    TTTipidocMovimenti: TBooleanField;
    TTDVarianti1Seleziona: TBooleanField;
    TTDvarianti2Seleziona: TBooleanField;
    TTDvar2: TTable;
    TTDVar1: TTable;
    TTArtBaseVariante1: TStringField;
    TTArtBaseVariante2: TStringField;
    TTArtBaseDenominazioneVariante1: TStringField;
    TTArtBaseDenominazioneVariante2: TStringField;
    TTGiacenza: TTable;
    TTGiacenzaArticolo: TStringField;
    TTGiacenzaDeposito: TStringField;
    TTGiacenzaCausale: TStringField;
    TTGiacenzaQtainiziale: TFloatField;
    TTGiacenzaQtacarico: TFloatField;
    TTGiacenzaQtascarico: TFloatField;
    TTGiacenzaDataultimoMovimento: TDateField;
    TTGiacenzaArticolointerno: TStringField;
    TTConvDoc_ana: TTable;
    TTConvDoc_anaTipodocumentoFiglio: TStringField;
    TTConvDoc_anaTipodocumentoPadre: TStringField;
    TTConvDoc_anaConverti: TBooleanField;
    TTConvDoc_anaNoteditesta: TBooleanField;
    TTConvDoc_anaAggiornaQtaEvasa: TBooleanField;
    TTConvDoc_anaSmarcaPadre: TBooleanField;
    TTConvDoc_anaDocumento: TStringField;
    TTDocLookup: TTable;
    dsConvDoc: TDataSource;
    TTTipidocAccorpamento: TStringField;
    TTCatMerPredefinita: TBooleanField;
    TTTipidocArticolofornitore: TBooleanField;
    TTTipidocArticoloetichetta: TBooleanField;
    TTTipidocUM: TBooleanField;
    TTTipidocQta: TBooleanField;