ana_sog_u.~pa

Mosaic ERP大型系统 v6.09.rar

unit ana_sog_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, DB, Grids, DBGrids, ActnList, ComCtrls,
  DBGridEh, DBTables;

type
  TAna_Soggetti_form = class(TForm)
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    Chiudi_but: TButton;
    ActionList1: TActionList;
    Cercatutto: TAction;
    Lista_elenco: TAction;
    Pagine: TPageControl;
    Generale: TTabSheet;
    Fatturazione: TTabSheet;
    Impostazioni: TTabSheet;
    Contatto: TTabSheet;
    Internet: TTabSheet;
    Label2: TLabel;
    Label1: TLabel;
    EditCodice: TDBEdit;
    TipoRapCombo: TDBLookupComboBox;
    DBRadioGroup1: TDBRadioGroup;
    DBLookupComboBox11: TDBLookupComboBox;
    Label34: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    DBEdit7: TDBEdit;
    Label7: TLabel;
    DBLookupComboBox8: TDBLookupComboBox;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label10: TLabel;
    Label16: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    dep_pref_but: TButton;
    Label19: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Pag_but: TButton;
    Label18: TLabel;
    DBLookupComboBox5: TDBLookupComboBox;
    Label17: TLabel;
    Label31: TLabel;
    DBLookupComboBox6: TDBLookupComboBox;
    Agente_but: TButton;
    DBLookupComboBox7: TDBLookupComboBox;
    Label32: TLabel;
    Zone_but: TButton;
    Banca_but: TButton;
    List_but: TButton;
    DBLookupComboBox10: TDBLookupComboBox;
    Label33: TLabel;
    Button1: TButton;
    Label24: TLabel;
    DBEdit18: TDBEdit;
    Label25: TLabel;
    DBEdit19: TDBEdit;
    Label26: TLabel;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    Label27: TLabel;
    Label28: TLabel;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    Label29: TLabel;
    Label30: TLabel;
    DBEdit24: TDBEdit;
    Label11: TLabel;
    DBEdit1: TDBEdit;
    Label12: TLabel;
    DBEdit2: TDBEdit;
    DBEdit11: TDBEdit;
    Label13: TLabel;
    DBEdit12: TDBEdit;
    Label14: TLabel;
    DBLookupComboBox9: TDBLookupComboBox;
    Label15: TLabel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label35: TLabel;
    DBEdit8: TDBEdit;
    DBLookupComboBox12: TDBLookupComboBox;
    Button2: TButton;
    Button10: TButton;
    DBMemo1: TDBMemo;
    Label36: TLabel;
    Contabilita: TGroupBox;
    LabelPartitaPC: TLabel;
    DBEditPartitaPC: TDBEdit;
    Label37: TLabel;
    DBEdit13: TDBEdit;
    DBLookupComboBox13: TDBLookupComboBox;
    Rit_nessuna: TButton;
    Label38: TLabel;
    DBLookupComboBox14: TDBLookupComboBox;
    SoggColl: TTabSheet;
    DBGridEh1: TDBGridEh;
    MancantiBtn: TButton;
    SvuotaBtn: TButton;
    Note: TTabSheet;
    DBMemo2: TDBMemo;
    Label39: TLabel;
    DBEdit25: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Label40: TLabel;
    DBEdit26: TDBEdit;
    DBEdit3: TDBEdit;
    Elenco: TTabSheet;
    Label70: TLabel;
    DBText5: TDBText;
    Label71: TLabel;
    DBText6: TDBText;
    DBText7: TDBText;
    Label72: TLabel;
    Aiuto: TAction;
    DBEdit27: TDBEdit;
    Label41: TLabel;
    DBNavigator2: TDBNavigator;
    DBCheckBox1: TDBCheckBox;
    TabSheet1: TTabSheet;
    DBGrid2: TDBGrid;
    DBNavigator3: TDBNavigator;
    DBGridEh2: TDBGridEh;
    DBGridEh3: TDBGridEh;
    procedure Chiudi_butClick(Sender: TObject);
    procedure dep_pref_butClick(Sender: TObject);
    procedure Pag_butClick(Sender: TObject);
    procedure Banca_butClick(Sender: TObject);
    procedure Zone_butClick(Sender: TObject);
    procedure Agente_butClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure Button2Click(Sender: TObject);
    procedure CercatuttoExecute(Sender: TObject);
    procedure Lista_elencoExecute(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Rit_nessunaClick(Sender: TObject);
    procedure MancantiBtnClick(Sender: TObject);
    procedure SvuotaBtnClick(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ana_Soggetti_form: TAna_Soggetti_form;

implementation

uses ana_mod, Umenu, Ucerca, Uelenco, gestModExt, Ric_banche;

{$R *.DFM}

procedure TAna_Soggetti_form.Chiudi_butClick(Sender: TObject);
begin
     If (EditCodice.DataSource.DataSet.State = dsEdit) or
        (EditCodice.DataSource.DataSet.State = dsInsert) then
        if MessageDlg('Attenzione, salvare le modifiche ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
           EditCodice.DataSource.DataSet.Post
        else
           EditCodice.DataSource.Dataset.Cancel ;           
     release ;
end;

procedure TAna_Soggetti_form.dep_pref_butClick(Sender: TObject);
begin
     menu_form.DepositiExecute(Sender);
end;

procedure TAna_Soggetti_form.Pag_butClick(Sender: TObject);
begin
     menu_form.Modalita_pagamentoExecute(sender);
end;

procedure TAna_Soggetti_form.Banca_butClick(Sender: TObject);
begin
     //menu_form.BancheExecute(Sender);
   Banche_LookUp := TBanche_LookUp.Create(self) ;
   Banche_lookUp.ShowModal ;
   If Banche_LookUp.ModalResult = mrOk then
     With ModuloDatiAnagrafiche do
      begin
       TTSoggetti.Edit ;
       TTsoggettiBanca.AsString := Banche_lookUp.Qbanche.FieldByName('Codice').asString ;
      end ;
   Banche_LookUp.Free ;
end;

procedure TAna_Soggetti_form.Zone_butClick(Sender: TObject);
begin
     menu_form.ZoneExecute(Sender);
end;

procedure TAna_Soggetti_form.Agente_butClick(Sender: TObject);
begin
     menu_form.AgentiExecute(Sender) ;
end;

procedure TAna_Soggetti_form.Button1Click(Sender: TObject);
begin
     menu_form.VettoriExecute(Sender) ;
end;

procedure TAna_Soggetti_form.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
     If Button = nbInsert then
        TipoRapCombo.SetFocus ;
end;

procedure TAna_Soggetti_form.Button2Click(Sender: TObject);
begin
     Menu_form.Tabelle_IvaExecute(Sender) ;
end;

procedure TAna_Soggetti_form.CercatuttoExecute(Sender: TObject);
begin
     Cerca_form.trova(self) ;
end;

procedure TAna_Soggetti_form.Lista_elencoExecute(Sender: TObject);
begin
     Elenco_form.MostraElenco(self) ;
end;

procedure TAna_Soggetti_form.Button3Click(Sender: TObject);
begin
     If Not (ModuloDatiAnagrafiche.TTsoggetti.State = dsEdit) then
        ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiListino.Clear ;
end;

procedure TAna_Soggetti_form.Button4Click(Sender: TObject);
begin
     If Not (ModuloDatiAnagrafiche.TTsoggetti.State = dsEdit) then
        ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiBanca.Clear ;
end;

procedure TAna_Soggetti_form.Button5Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiDepositoPreferenziale.Clear ;
end;

procedure TAna_Soggetti_form.Button6Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiPagamento.Clear ;
end;

procedure TAna_Soggetti_form.Button7Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiAgente.Clear ;
end;

procedure TAna_Soggetti_form.Button8Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiZona.Clear ;
end;

procedure TAna_Soggetti_form.Button9Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiVettorePreferenziale.Clear ;
end;

procedure TAna_Soggetti_form.Button10Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTsoggetti.edit ;
     ModuloDatiAnagrafiche.TTsoggettiIva.Clear ;
end;

procedure TAna_Soggetti_form.FormCreate(Sender: TObject);
begin
  Contabilita.Visible := ContaLoaded ;
  Pagine.ActivePage := Generale ;
end;

procedure TAna_Soggetti_form.Rit_nessunaClick(Sender: TObject);
begin
 with ModuloDatiAnagrafiche do
   begin
    TTSoggetti.Edit ;
    TTSoggettiCodiceRitenuta.AsString := '' ;
   end ;
end;

procedure TAna_Soggetti_form.MancantiBtnClick(Sender: TObject);
Var
   sog : TTable ;

begin
   Sog := TTAble.Create(nil) ;
   sog.DatabaseName := 'euro2000' ;
   Sog.TableName := 'soggetti.db' ;
   Sog.Open ;
   Sog.First ;
   While not Sog.Eof do
    with ModuloDatiAnagrafiche do
      begin
       If Not TTGruSogCod.Locate('Soggetto',Sog.FieldByName('Codice').asString,[]) then
        begin
         TTGruSogCod.Insert ;
         TTGruSogCodSoggetto.asString := Sog.FieldByName('Codice').asString ;
         TTGruSogCod.Post ;
        end ;
       sog.Next ;
      end ;
    sog.Close ;
    Sog.Free ;
end;

procedure TAna_Soggetti_form.SvuotaBtnClick(Sender: TObject);
begin
 With ModuloDatiAnagrafiche do
     While (Not TTGruSogCod.Eof) and (Not TTGruSogCod.Bof) do
      TTGruSogcod.Delete ;
end;

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

end.