?? rica_art_u_fornit.pas
字號:
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 ;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -