rica_art_u_fornit.pas

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

unit rica_art_u_fornit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Mask, DBCtrls, Db, DBTables, Grids, DBGrids, Buttons,
  ActnList, ComCtrls, ToolWin, DBGridEh, RxMemDS, DBCGrids, ToolEdit,
  RxLookup;

type
  TRicerca_articoli = class(TForm)
    DsArticoli: TDataSource;
    ActionList1: TActionList;
    cercatutto: TAction;
    Descrizione: TToolBar;
    OK: TAction;
    Annulla: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    GrigliaArticoli: TDBGridEh;
    TTGiacenza: TTable;
    dsGiacenza: TDataSource;
    TTGiacenzaGiacenza: TFloatField;
    TTGiacenzaArticolo: TStringField;
    TTGiacenzaDeposito: TStringField;
    TTGiacenzaCausale: TStringField;
    TTGiacenzaQtainiziale: TFloatField;
    TTGiacenzaQtacarico: TFloatField;
    TTGiacenzaQtascarico: TFloatField;
    TTGiacenzaDataultimoMovimento: TDateField;
    TTGiacenzaDataultimoinventario: TDateField;
    TTGiacenzaArticolointerno: TStringField;
    Timer1: TTimer;
    Panel1: TPanel;
    Label2: TLabel;
    Label6: TLabel;
    Reset: TAction;
    ToolButton3: TToolButton;
    TTListino: TTable;
    dsListino: TDataSource;
    TTListinoListino: TStringField;
    TTListinoArticolo: TStringField;
    TTListinoEL: TStringField;
    TTListinoValoreX: TFloatField;
    TTListinoValoreY: TFloatField;
    TTListinoValoreZ: TFloatField;
    TTListinoValoreK: TFloatField;
    TTListinoFormulaRSNIV: TStringField;
    TTListinoPagina: TStringField;
    TTListinoRiga: TStringField;
    TTListinoPezziperconfezione: TFloatField;
    TTListinoArrotondaprezzi: TBooleanField;
    TTListinoPunteggio: TFloatField;
    TTListinoPrezzonettoL: TCurrencyField;
    TTListinoPrezzonettoE: TCurrencyField;
    TTListinoPrezzoivatoL: TCurrencyField;
    TTListinoPrezzoivatoE: TCurrencyField;
    TTListinoIdGiornale: TStringField;
    Edit_Descrizione: TEdit;
    Ricerca: TAction;
    ToolButton4: TToolButton;
    Qarticoli: TRxMemoryData;
    QarticoliArticolo: TStringField;
    QarticoliArticoloetichetta: TStringField;
    RicercaArticoloFornitore: TStringField;
    RicercaDescrizione: TStringField;
    RicercaTipo: TStringField;
    RicercaMarca: TStringField;
    RicercaOfferta: TBooleanField;
    tab: TTable;
    Soggetti: TTable;
    Panel4: TPanel;
    Iniziali: TCheckBox;
    Tutti: TCheckBox;
    TTDefault: TTable;
    TTDefaultChiave: TStringField;
    TTDefaultValore: TStringField;
    TTDefaultIdGiornale: TStringField;
    QarticoliFornitore: TStringField;
    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;
    TTSoggettiPassword: 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;
    TTSoggettiNote: TMemoField;
    TTSoggettiPartitaPC: TStringField;
    TTSoggettiCausalecontabile: TStringField;
    TTSoggettiCodiceritenuta: TStringField;
    TTSoggettiIdGiornale: TStringField;
    TTTipArt: TTable;
    TTTipArtTipoarticolo: TStringField;
    TTTipArtOrdinenellistino: TSmallintField;
    TTTipArtStampanellistino: TBooleanField;
    TTTipArtIdGiornale: TStringField;
    TTTipiSog: TTable;
    TTTipiSogTiporapporto: TStringField;
    TTTipiSogListinodefault: TStringField;
    TTTipiSogPagamentodefault: TStringField;
    TTTipiSogBancadefault: TStringField;
    TTTipiSogDocumentodefault: TStringField;
    TTTipiSogCausaledefault: TStringField;
    TTTipiSogElencasempre: TBooleanField;
    TTTipiSogElencafornitore: TBooleanField;
    TTTipiSogElencacliente: TBooleanField;
    TTTipiSogFiltro: TStringField;
    TTTipiSogIdGiornale: TStringField;
    TTListini: TTable;
    TTListiniListino: TStringField;
    TTListiniFormulastandRSNIV: TStringField;
    TTListiniValoreX: TFloatField;
    TTListiniValoreY: TFloatField;
    TTListiniValoreZ: TFloatField;
    TTListiniEL: TStringField;
    TTListiniTitolo: TStringField;
    TTListiniNoteinterne: TStringField;
    TTListiniNoteinstampa: TStringField;
    TTListiniNomefileesportazione: TStringField;
    TTListiniNomefilestampa: TStringField;
    TTListiniArrotondaprezzi: TBooleanField;
    TTListiniIdGiornale: TStringField;
    QarticoliPrezzo: TCurrencyField;
    Panel_depositi: TPanel;
    DBCtrlGrid2: TDBCtrlGrid;
    Label8: TLabel;
    DBText2: TDBText;
    Label10: TLabel;
    DBEdit5: TDBEdit;
    Panel_Listino: TPanel;
    DBCtrlGrid1: TDBCtrlGrid;
    DBText1: TDBText;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DepositiBtn: TButton;
    ListiniBtn: TButton;
    TTListinoLook: TTable;
    TTListinoLookListino: TStringField;
    TTListinoLookArticolo: TStringField;
    TTListinoLookEL: TStringField;
    TTListinoLookValoreX: TFloatField;
    TTListinoLookValoreY: TFloatField;
    TTListinoLookValoreZ: TFloatField;
    TTListinoLookValoreK: TFloatField;
    TTListinoLookFormulaRSNIV: TStringField;
    TTListinoLookPagina: TStringField;
    TTListinoLookRiga: TStringField;
    TTListinoLookPezziperconfezione: TFloatField;
    TTListinoLookArrotondaprezzi: TBooleanField;
    TTListinoLookPunteggio: TFloatField;
    TTListinoLookPrezzonettoL: TCurrencyField;
    TTListinoLookPrezzonettoE: TCurrencyField;
    TTListinoLookPrezzoivatoL: TCurrencyField;
    TTListinoLookPrezzoivatoE: TCurrencyField;
    TTListinoLookIdGiornale: TStringField;
    QarticoliGiacenza: TFloatField;
    Label12: TLabel;
    DBEdit7: TDBEdit;
    Label13: TLabel;
    DBEdit8: TDBEdit;
    Label14: TLabel;
    DBEdit9: TDBEdit;
    Giac: TTable;
    GiacArticolo: TStringField;
    GiacDeposito: TStringField;
    GiacQtainiziale: TFloatField;
    GiacQtacarico: TFloatField;
    GiacQtascarico: TFloatField;
    GiacArticolointerno: TStringField;
    dsTab: TDataSource;
    crono: TLabel;
    TTDepositi: TTable;
    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;
    TTDepositiLocale: TBooleanField;
    TTDepositiListino: TStringField;
    TTDepositiNote: TStringField;
    TTDepositiIdGiornale: TStringField;
    Sociale: TRxDBLookupList;
    Tipo_Articolo: TRxDBLookupList;
    dsSoggetti: TDataSource;
    dsTipart: TDataSource;
    Campo_ricerca: TRadioGroup;
    TTArtBase: TTable;
    dsArtBase: TDataSource;
    Label9: TLabel;
    DBText3: TDBText;
    QarticoliUbicazione: TStringField;
    TTUbicazione: TTable;
    TTUbicazioneCodice: TStringField;
    TTUbicazioneUbicazione: TStringField;
    TTUbicazioneIdGiornale: TStringField;
    Aiuto: TAction;
    TTGiacenzaDem_Var1: TStringField;
    TTGiacenzaDem_Var2: TStringField;
    TTGiacenzaVar1: TStringField;
    TTGiacenzaVar2: TStringField;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    Varianti: TAction;
    Button1: TButton;
    TTArtBaseArticoloetichetta: TStringField;
    TTArtBaseArticolointerno: TStringField;
    TTArtBaseCodvar1: TStringField;
    TTArtBaseCodvar2: TStringField;
    TTArtBaseVariante1: TStringField;
    TTArtBaseVariante2: TStringField;
    TTArtBaseDenominazioneVariante1: TStringField;
    TTArtBaseDenominazioneVariante2: TStringField;
    TTArtBaseIdGiornale: TStringField;
    procedure ElencoExecute(Sender: TObject);
    procedure cercatuttoExecute(Sender: TObject);
    procedure ricercaChange(Sender: TObject);
    procedure AnnullaExecute(Sender: TObject);
    procedure OKExecute(Sender: TObject);
    procedure GrigliaArticoliTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure GrigliaArticoliDblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TTGiacenzaCalcFields(DataSet: TDataSet);
    procedure QarticoliAfterOpen(DataSet: TDataSet);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit_DescrizioneChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit_internoChange(Sender: TObject);
    procedure Edit_FornitoreChange(Sender: TObject);
    procedure Edit_EtichetteChange(Sender: TObject);
    procedure ResetExecute(Sender: TObject);
    procedure RicercaExecute(Sender: TObject);
    procedure InizialiClick(Sender: TObject);
    procedure DepositiBtnClick(Sender: TObject);
    procedure ListiniBtnClick(Sender: TObject);
    procedure SocialeClick(Sender: TObject);
    procedure SocialeExit(Sender: TObject);
    procedure SocialeKeyPress(Sender: TObject; var Key: Char);
    procedure Campo_ricercaClick(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
    procedure VariantiExecute(Sender: TObject);
  private
    { Private declarations }
  public
    maxconta: integer;
    ValutaStandard: string;
    PrezzoStandard: String;
    ElencaSubito: string;
    elencaTutti: boolean;
    GiacTotale: Boolean;
    { Public declarations }
    function Articolo : string ;
    procedure Aziona_timer;
    procedure PreparaQuery;
    procedure EseguiRicerca;
  end;

var
  Ricerca_articoli: TRicerca_articoli;
  resetting: boolean;

implementation

uses ana_mod, Ucerca, Uelenco,  Umenu, giacenza_varianti_u;

{$R *.DFM}

function TRicerca_articoli.Articolo : string ;
begin
     result := QArticoli.FieldByName('Articolo').asString ;
end ;

procedure TRicerca_articoli.ElencoExecute(Sender: TObject);
begin
     Elenco_form.mostraelenco(self) ;
end;

procedure TRicerca_articoli.cercatuttoExecute(Sender: TObject);
begin
     Cerca_form.Trova(self) ;
end;

procedure TRicerca_articoli.ricercaChange(Sender: TObject);
begin
 Timer1.Enabled := false ;
 Timer1.Enabled := true ;
end;

procedure TRicerca_articoli.AnnullaExecute(Sender: TObject);
begin
     ModalResult := mrCancel ;
end;

procedure TRicerca_articoli.OKExecute(Sender: TObject);
begin
     modalResult := mrOk ;
end;

procedure TRicerca_articoli.GrigliaArticoliTitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
 if Qarticoli.active and
    (column.field.FieldKind = fkdata) then
    Qarticoli.SortOnFields(Column.Field.FieldName);
end;

procedure TRicerca_articoli.GrigliaArticoliDblClick(Sender: TObject);
begin
 Ok.Execute ;
end;

procedure TRicerca_articoli.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = 13 then ok.execute ;
 if key = 27 then annulla.Execute ;
end;

procedure TRicerca_articoli.TTGiacenzaCalcFields(DataSet: TDataSet);
begin
 TTGiacenzaGiacenza.AsFloat := TTGiacenza.FieldByName('Qta Iniziale').asFloat +
                               TTGiacenza.FieldByName('Qta Carico').AsFloat -
                               TTGiacenza.FieldByName('Qta Scarico').AsFloat ;
end;

procedure TRicerca_articoli.QarticoliAfterOpen(DataSet: TDataSet);
begin
 TTGiacenza.Open ;
end;

procedure TRicerca_articoli.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled := false ;
 PreparaQuery;
end;

procedure TRicerca_articoli.Aziona_timer;
begin
     if ricerca.visible then exit ;
     if not resetting then
      begin
       Timer1.Enabled := false ;
       Timer1.Enabled := true ;
      end ;