aggmain.pas

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

unit aggmain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, StdCtrls, DBTables, Grids, DBGrids, ActnList, Menus,
  DBCtrls, ExtCtrls, DbPrgrss, ToolWin;

type
  Taggprezzi_main_form = class(TForm)
    qPrezzi: TQuery;
    ArticoliDB: TTable;
    ArticoliDBArticolo: TStringField;
    ArticoliDBDescrizione: TStringField;
    ArticoliDBDescrizioneetichetta: TStringField;
    ArticoliDBFamiglia: TStringField;
    ArticoliDBGestionescadenza: TBooleanField;
    ArticoliDBScadenzaingiorni: TSmallintField;
    ArticoliDBScadenzainmesi: TSmallintField;
    ArticoliDBScadenzaassolutaggmm: TStringField;
    ArticoliDBTiposcadenzaGMA: TStringField;
    ArticoliDBUM: TStringField;
    ArticoliDBArticoloetichetta: TStringField;
    ArticoliDBFornitore: TStringField;
    ArticoliDBArticolofornitore: TStringField;
    ArticoliDBPrezzoacquistoL: TCurrencyField;
    ArticoliDBPrezzoacquistoE: TCurrencyField;
    ArticoliDBPrezzoacquistoLivato: TCurrencyField;
    ArticoliDBPrezzoacquistoEivato: TCurrencyField;
    ArticoliDBPrezzolistinoL: TCurrencyField;
    ArticoliDBPrezzolistinoE: TCurrencyField;
    ArticoliDBPrezzolistinoLivato: TCurrencyField;
    ArticoliDBPrezzolistinoEivato: TCurrencyField;
    ArticoliDBSconto: TFloatField;
    ArticoliDBSconto2: TFloatField;
    ArticoliDBSconto3: TFloatField;
    ArticoliDBStagione: TStringField;
    ArticoliDBMinimoordine: TFloatField;
    ArticoliDBConsegna: TFloatField;
    ArticoliDBSottoscorta: TFloatField;
    ArticoliDBMinimomagazzino: TFloatField;
    ArticoliDBAllarmenegativi: TBooleanField;
    ArticoliDBAllarmesottoscorta: TBooleanField;
    ArticoliDBClasseriordino: TSmallintField;
    ArticoliDBGestioneriordino: TBooleanField;
    ArticoliDBPesolordo: TFloatField;
    ArticoliDBPesoImballo: TFloatField;
    ArticoliDBVolume: TFloatField;
    ArticoliDBImballo: TStringField;
    ArticoliDBTipoarticolo: TStringField;
    ArticoliDBCategoriamerceologica: TStringField;
    ArticoliDBMarca: TStringField;
    ArticoliDBCodiceIVA: TStringField;
    ArticoliDBGestionegiacenza: TBooleanField;
    ArticoliDBGestioneVarianti: TBooleanField;
    ArticoliDBVariante1: TStringField;
    ArticoliDBVariante2: TStringField;
    ArticoliDBConaiassolto: TBooleanField;
    ArticoliDBNote: TMemoField;
    ArticoliDBStampanellistino: TBooleanField;
    ArticoliDBStampaetichetta: TBooleanField;
    ArticoliDBUbicazione: TStringField;
    ArticoliDBGiacenzainiziale: TFloatField;
    ArticoliDBDistintabase: TBooleanField;
    ArticoliDBOfferta: TBooleanField;
    ArticoliDBIdGiornale: TStringField;
    qPrezziArticolointerno: TStringField;
    qPrezziPrezzo: TCurrencyField;
    qPrezziSconto: TFloatField;
    qPrezzidata: TDateField;
    GiornaleDb: TTable;
    GiornaleDbIdGiornale: TStringField;
    GiornaleDbNomeTab: TStringField;
    GiornaleDbData: TDateField;
    GiornaleDbOra: TTimeField;
    GiornaleDbTipoOperazione: TStringField;
    GiornaleDbOperatore: TStringField;
    GiornaleDbFlag: TStringField;
    GiornaleDbMemoria: TMemoField;
    barra: TProgressBar;
    qPrezziValuta: TStringField;
    IvaDb: TTable;
    IvaDbCodice: TStringField;
    IvaDbDescrizione: TStringField;
    IvaDbAliquota: TFloatField;
    IvaDbAliquotaindetrazione: TFloatField;
    IvaDbPartitaPC: TStringField;
    IvaDbIdGiornale: TStringField;
    ArticoliDBAlqIva: TFloatField;
    qPrezziSconto2: TFloatField;
    qPrezziSconto3: TFloatField;
    dsprezzi: TDataSource;
    QVerifica: TQuery;
    QVerificaArticolo: TStringField;
    QVerificaDescrizione: TStringField;
    QVerificaFornitore: TStringField;
    QVerificaArticolofornitore: TStringField;
    QVerificaPrezzoacquistoL: TCurrencyField;
    QVerificaPrezzonettoL: TCurrencyField;
    QVerificaPrezzonettoE: TCurrencyField;
    QVerificaPrezzoivatoL: TCurrencyField;
    QVerificaPrezzoivatoE: TCurrencyField;
    QVerificaRagionesociale: TStringField;
    TTAnomalie: TTable;
    ActionList1: TActionList;
    AggiornaDaDoc: TAction;
    Verifica: TAction;
    Esci: TAction;
    TTSoggetti: TTable;
    TTSoggettiCodice: TStringField;
    TTSoggettiTiporapporto: TStringField;
    TTSoggettiRagionesociale: TStringField;
    TTSoggettiRagionesocialeMerce: 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;
    TTSoggettiPasswd: 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;
    TTSoggettiRicarico: TFloatField;
    TTSoggettiNote: TMemoField;
    TTSoggettiPartitaPC: TStringField;
    TTSoggettiCausalecontabile: TStringField;
    TTSoggettiCodiceritenuta: TStringField;
    TTSoggettiIdGiornale: TStringField;
    QVerificaRicarico: TFloatField;
    TTAnomalieArticolo: TStringField;
    TTAnomalieDescrizione: TStringField;
    TTAnomalieFornitore: TStringField;
    TTAnomalieArticolofornitore: TStringField;
    TTAnomaliePrezzoacquistoL: TCurrencyField;
    TTAnomaliePrezzonettoL: TCurrencyField;
    TTAnomaliePrezzonettoE: TCurrencyField;
    TTAnomaliePrezzoivatoL: TCurrencyField;
    TTAnomaliePrezzoivatoE: TCurrencyField;
    TTAnomalieRagionesociale: TStringField;
    TTAnomalieRicarico: TFloatField;
    TTAnomalieScostamento: TFloatField;
    TTAnomaliePrezzoProposto: TCurrencyField;
    Mostra: TAction;
    Pannello: TPanel;
    dsAnomalie: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Qfornitori: TQuery;
    QfornitoriFornitore: TStringField;
    QfornitoriRagioneSociale: TStringField;
    dsFornitori: TDataSource;
    DBGrid2: TDBGrid;
    TTanomaliDisp: TTable;
    TTanomaliDispFornitore: TStringField;
    TTanomaliDispArticolo: TStringField;
    TTanomaliDispDescrizione: TStringField;
    TTanomaliDispArticolofornitore: TStringField;
    TTanomaliDispPrezzoacquistoL: TCurrencyField;
    TTanomaliDispPrezzonettoL: TCurrencyField;
    TTanomaliDispPrezzonettoE: TCurrencyField;
    TTanomaliDispPrezzoivatoL: TCurrencyField;
    TTanomaliDispPrezzoivatoE: TCurrencyField;
    TTanomaliDispRicarico: TFloatField;
    TTanomaliDispScostamento: TFloatField;
    TTanomaliDispPrezzoProposto: TCurrencyField;
    QVerificaPrezzoListinoL: TCurrencyField;
    QVerificaSconto: TFloatField;
    QVerificaSconto2: TFloatField;
    QVerificaSconto3: TFloatField;
    TTAnomaliePrezzoListinoL: TCurrencyField;
    TTAnomalieSconto: TFloatField;
    TTAnomalieSconto2: TFloatField;
    TTAnomalieSconto3: TFloatField;
    TTanomaliDispPrezzoListinoL: TCurrencyField;
    TTanomaliDispSconto: TFloatField;
    TTanomaliDispSconto2: TFloatField;
    TTanomaliDispSconto3: TFloatField;
    TTanomaliDispRicAttuale: TFloatField;
    QVerificaListino: TStringField;
    TTAnomalieListino: TStringField;
    TTanomaliDispListino: TStringField;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure ArticoliDBCalcFields(DataSet: TDataSet);
    procedure AggiornaDaDocExecute(Sender: TObject);
    procedure EsciExecute(Sender: TObject);
    procedure VerificaExecute(Sender: TObject);
    procedure VerificaTuttiExecute(Sender: TObject);
    procedure MostraExecute(Sender: TObject);
    procedure TTanomaliDispAfterPost(DataSet: TDataSet);
    procedure TTanomaliDispCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    procedure VerificaTT(tutti: boolean);
    { Public declarations }
  end;

var
  aggprezzi_main_form: Taggprezzi_main_form;

implementation

uses dlg1, ana_mod, Doc_mod;

{$R *.DFM}


procedure Taggprezzi_main_form.ArticoliDBCalcFields(DataSet: TDataSet);
begin
 If IvaDb.FindKey([ArticoliDbCodiceiva.asString]) then