etichette_u.pas

Mosaic ERP大型系统 v6.09.rar

unit etichette_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, StdCtrls, Buttons, ppRelatv, ppModule, daDatMod,
  ppCtrls, ppStrtch, ppMemo, ppPrnabl, ppClass, ppBarCod, ppDB, ppBands,
  ppCache, ppDBPipe, ppDBBDE, ppComm, ppProd, ppReport, Db, Grids, DBGrids,
  DBTables, ActnList, ppEndUsr, appexec, DBGridEh, ComCtrls, ToolWin;

type
  TStampa_etichette = class(TForm)
    ActionList1: TActionList;
    cercatutto: TAction;
    Stampa: TAction;
    Personalizza: TAction;
    Svuota: TAction;
    Chiudi: TAction;
    Seleziona: TAction;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    dsEtiSel: TDataSource;
    GrigliaEtiSel: TDBGridEh;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    DBNavigator2: TDBNavigator;
    Aiuto: TAction;
    procedure BitBtn1Click(Sender: TObject);
    procedure cercatuttoExecute(Sender: TObject);
    procedure StampaExecute(Sender: TObject);
    procedure PersonalizzaExecute(Sender: TObject);
    procedure SvuotaExecute(Sender: TObject);
    procedure ChiudiExecute(Sender: TObject);
    procedure SelezionaExecute(Sender: TObject);
    procedure GrigliaEtiSelEditButtonClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Stampa_etichette: TStampa_etichette;

implementation

uses ana_mod, rica_art_u_fornit, Doc_mod, Ucerca, Umenu;

{$R *.DFM}


procedure TStampa_etichette.BitBtn1Click(Sender: TObject);
begin
     release ;
end;

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

procedure TStampa_etichette.StampaExecute(Sender: TObject);
begin
 moduloDatiDocumenti.Stampa_eti ;
end;

procedure TStampa_etichette.PersonalizzaExecute(Sender: TObject);
Var
   DRV : String ;
begin
     DRV := '' ;
     ModuloDatiAnagrafiche.LeggiChiave('Driver etichette',Drv) ;
     if Drv = '' then
        ModuloDatiDocumenti.modifica_etichette.show
     else
      with ModuloDatiDocumenti do
       begin
         If FileExists(DRV) then
          begin
               esegui.ExeName := drv ;
               esegui.execute ;
          end
         else
           ShowMessage('Attenzione, impossibile trovare il driver di stampa per le etichette... controllare le impostazioni globali alla voce : "Driver etichette")') ;
       end ;
end;

procedure TStampa_etichette.SvuotaExecute(Sender: TObject);
begin
 ModuloDatiDocumenti.Elimina_coda_etichette ;
end;

procedure TStampa_etichette.ChiudiExecute(Sender: TObject);
begin
     release ;
end;

procedure TStampa_etichette.SelezionaExecute(Sender: TObject);
var
   ListinoEti : String ;
begin
 with ModuloDatiDocumenti do
  begin
     EtiSeldb.First ;
     While Not EtiselDb.Eof do
      begin
       ModuloDatiAnagrafiche.LeggiChiave('LISTINO ETICHETTE',listinoEti) ;
       ModuloDatiDocumenti.Seleziona_Articolo(ListinoEti,
                                              EtiSelDbArticoloEtichetta.asString,
                                              EtiSelDbArticoloInterno.AsString,
                                              EtiSelDbQta.asInteger,
                                              False,
                                              EtiSelDbDescrizioneAggiuntiva.asString) ;
       EtiSelDb.Next ;
      end ;
  end ;
end;

procedure TStampa_etichette.GrigliaEtiSelEditButtonClick(Sender: TObject);
Var
   ricerca_articoli : TRicerca_articoli ;
begin
       Ricerca_articoli := TRicerca_articoli.Create(self) ;
       Ricerca_articoli.GrigliaArticoli.Options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect] ;
       Ricerca_Articoli.showModal ;
       If Ricerca_Articoli.ModalResult = mrOk then
         begin
           If Ricerca_Articoli.GrigliaArticoli.SelectedRows.Count > 1 then
             begin
               Ricerca_Articoli.Qarticoli.First ;
               While Not Ricerca_Articoli.Qarticoli.Eof do
                 begin
                  with ModuloDatiDocumenti do
                   begin
                     If Ricerca_Articoli.GrigliaArticoli.SelectedRows.CurrentRowSelected then
                     if EtiSelDB.State = dsInsert then
                        begin
                         EtiSelDBArticoloInterno.AsString := Ricerca_Articoli.qArticoli.fieldbyName('Articolo').asString ;
                         EtiSelDB.Post ;
                        end
                     else
                        begin
                          EtiSelDB.Append ;
                          EtiSelDBArticoloInterno.AsString := Ricerca_Articoli.qArticoli.fieldbyName('Articolo').asString ;
                          EtiSelDB.Post ;
                        end ;
                   end ;
                   Ricerca_Articoli.Qarticoli.Next ;
                 end ;
             end
           else
            begin
             ModuloDatidocumenti.EtiSelDb.Edit ;
             ModuloDatiDocumenti.EtiSelDbArticoloInterno.AsString := Ricerca_Articoli.Articolo ;
            end ;
           end ;
           Ricerca_Articoli.hide;
end;

procedure TStampa_etichette.ToolButton5Click(Sender: TObject);
begin
 If MessageDlg('Attenzione : eliminare l''elenco di articoli ',mtConfirmation,[mbYes,mbNo],0) = mrYes then
  begin
   with ModuloDatiDocumenti do
    begin
     If (EtiSelDb.State = DsEdit) or
        (EtiSelDb.State = dsInsert) then
        EtiSelDb.Cancel ;
     While Not etiseldb.IsEmpty do etiselDb.Delete ;
    end ;
  end ;
end;

procedure TStampa_etichette.AiutoExecute(Sender: TObject);
begin
     menu_form.Aiuto('manuale.pdf',95) ;
end;

end.