ana_listini_u.~pa

Mosaic ERP大型系统 v6.09.rar

unit ana_listini_u;

interface

uses
  Dialogs, SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, Forms, DBCtrls, DB, DBGrids, ExtCtrls, Grids, Mask, ppEndUsr,
  ppProd, ppClass, ppReport, ppDB, ppComm, ppCache, ppDBPipe, ppDBBDE,
  ppPrnabl, ppCtrls, ppBands, ppRelatv, ppModule, daDatMod, ppVar, FileCtrl,
  ActnList, ComCtrls, ToolWin, DBTables, RxMemDS, DBGridEh, DBCGrids,
  ToolEdit, CurrEdit, RXDBCtrl;

type
  TAna_listini_form = class(TForm)
    SaveDialog: TSaveDialog;
    Modifica_listino: TppDesigner;
    ActionList1: TActionList;
    cercatutto: TAction;
    elenco: TAction;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    Stampa: TAction;
    Personalizza: TAction;
    Esci: TAction;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Esporta: TAction;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Verifica: TAction;
    StatusBar: TStatusBar;
    QListino: TQuery;
    Listino: TppReport;
    ppListino: TppBDEPipeline;
    DSListino: TDataSource;
    Pagine: TPageControl;
    Impostazioni: TTabSheet;
    Panel2: TPanel;
    ScrollBox: TScrollBox;
    Label21: TLabel;
    Label23: TLabel;
    Label9: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label1: TLabel;
    Label4: TLabel;
    EditListino: TDBEdit;
    EditNoteinterne: TDBEdit;
    EditNomefileesportazione: TDBEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBLookupComboBox1: TDBLookupComboBox;
    DBCheckBox1: TDBCheckBox;
    DBEdit11: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit12: TDBEdit;
    DBMemo1: TDBMemo;
    Punteggi: TTabSheet;
    DBGrid3: TDBGrid;
    DBNavigator2: TDBNavigator;
    Memo1: TMemo;
    Controlla: TAction;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    auto_cat: TButton;
    QListinoDescrizione: TStringField;
    QListinoUM: TStringField;
    QListinoArticoloetichetta: TStringField;
    QListinoArticolofornitore: TStringField;
    QListinoMarca: TStringField;
    QListinoListino: TStringField;
    QListinoArticolo: TStringField;
    QListinoPezziperconfezione: TFloatField;
    QListinoArrotondaprezzi: TBooleanField;
    QListinoPunteggio: TFloatField;
    QListinoNettoL: TCurrencyField;
    QListinoNettoE: TCurrencyField;
    QListinoIvatoL: TCurrencyField;
    QListinoIvatoE: TCurrencyField;
    QListinoRagioneSociale: TStringField;
    esporta_list: TBatchMove;
    ExportListino: TTable;
    QListinoTipo: TStringField;
    QListinoCategoria: TStringField;
    AggiornaPrezzi: TTabSheet;
    DsQArticoli: TDataSource;
    Sociale: TComboBox;
    Label6: TLabel;
    DBGridEh1: TDBGridEh;
    PrezziAcquistoBox: TGroupBox;
    Label7: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label8: TLabel;
    Label19: TLabel;
    Sconto: TDBEdit;
    Sconto2: TDBEdit;
    C_Valuta: TRadioGroup;
    GridaListini: TDBCtrlGrid;
    Label10: TLabel;
    Label24: TLabel;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    DBEdit7: TDBEdit;
    DBCheckBox4: TDBCheckBox;
    Ricarico_edit: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBLookupComboBox11: TDBLookupComboBox;
    Avanti: TAction;
    Indietro: TAction;
    Focus: TAction;
    Label11: TLabel;
    ppHeaderBand1: TppHeaderBand;
    ppDBText1: TppDBText;
    ppSystemVariable1: TppSystemVariable;
    ppLabel5: TppLabel;
    ppDetailBand1: TppDetailBand;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText6: TppDBText;
    ppFooterBand1: TppFooterBand;
    ppSystemVariable2: TppSystemVariable;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppShape1: TppShape;
    ppDBText5: TppDBText;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppGroup3: TppGroup;
    ppGroupHeaderBand3: TppGroupHeaderBand;
    ppGroupFooterBand3: TppGroupFooterBand;
    ppDBText7: TppDBText;
    ppShape2: TppShape;
    DBText11: TDBText;
    DBText10: TDBText;
    Label58: TLabel;
    Label59: TLabel;
    DBNavigator: TDBNavigator;
    Aiuto: TAction;
    AcNL: TDBEdit;
    AcNE: TDBEdit;
    AcIL: TDBEdit;
    AcIE: TDBEdit;
    ScNL: TDBEdit;
    ScNE: TDBEdit;
    ScIL: TDBEdit;
    ScIE: TDBEdit;
    DBEdit2: TDBEdit;
    Label12: TLabel;
    NettoL: TDBEdit;
    NettoE: TDBEdit;
    IvatoL: TDBEdit;
    IvatoE: TDBEdit;
    procedure Button1Click(Sender: TObject);
    procedure cercatuttoExecute(Sender: TObject);
    procedure elencoExecute(Sender: TObject);
    procedure StampaExecute(Sender: TObject);
    procedure PersonalizzaExecute(Sender: TObject);
    procedure Modifica_listinoCustomSaveDoc(Sender: TObject);
    procedure EsciExecute(Sender: TObject);
    procedure EsportaExecute(Sender: TObject);
    procedure VerificaExecute(Sender: TObject);
    procedure ArticoliShow(Sender: TObject);
    procedure ArticoliHide(Sender: TObject);
    procedure auto_catClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure C_ValutaClick(Sender: TObject);
    procedure C_ValutaExit(Sender: TObject);
    procedure AvantiExecute(Sender: TObject);
    procedure IndietroExecute(Sender: TObject);
    procedure SocialeChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FocusExecute(Sender: TObject);
    procedure AggiornaPrezziShow(Sender: TObject);
    procedure AggiornaPrezziHide(Sender: TObject);
    procedure EditListinoKeyPress(Sender: TObject; var Key: Char);
    procedure FormDestroy(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
    procedure AggiornaPrezziExit(Sender: TObject);
  private
    { private declarations }
  public
    procedure aggiorna_combo;
    procedure CambiaValuta;
    procedure VaiAPrezziAcquistoBox;
    { public declarations }
  end;

var
  Ana_listini_form: TAna_listini_form;

implementation

uses ana_mod, prezzi_articolo_u, rica_art_u_fornit, Ucerca, Uelenco, Umenu,
  Doc_mod, aboutOS ;

{$R *.DFM}


procedure TAna_listini_form.Button1Click(Sender: TObject);
begin
     if savedialog.execute then
        begin
             ModuloDatiAnagrafiche.TTlistini.Edit ;
             ModuloDatiAnagrafiche.ttListiniNomeFileEsportazione.value := savedialog.filename ;
        end ;
end;

procedure TAna_listini_form.cercatuttoExecute(Sender: TObject);
begin
     Cerca_form.trova(self) ;
end;

procedure TAna_listini_form.elencoExecute(Sender: TObject);
begin
     Elenco_form.Mostraelenco(self) ;
end;

procedure TAna_listini_form.StampaExecute(Sender: TObject);
begin
    Qlistino.Active := True ;
    If ModuloDatiAnagrafiche.TTListiniNomefilestampa.asString <> '' then
     begin
      Listino.template.FileName := modulodatianagrafiche.TTListiniNomefileStampa.asString ;
      Listino.template.loadFromFile ;
     end ;
    listino.print ;     
    //else
     //ShowMessage('Impostare il listino, cliccare su "PERSONALIZZA".') ;
    Qlistino.Active := False ;
end;

procedure TAna_listini_form.PersonalizzaExecute(Sender: TObject);
begin
     Qlistino.Active := True ;
    If FileExists(ModuloDatiAnagrafiche.TTListiniNomefilestampa.asString) then
     begin
      Listino.template.FileName := modulodatianagrafiche.TTListiniNomefileStampa.asString ;
      Listino.template.loadFromFile ;
     end ;
     modifica_listino.ShowModal ;
     Qlistino.Active:= False ;
end;

procedure TAna_listini_form.Modifica_listinoCustomSaveDoc(Sender: TObject);
begin
     ModuloDatianagrafiche.TTListini.Edit ;