nuovo_soggetto_u.pas

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

unit nuovo_soggetto_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, ExtCtrls, Mask, Buttons, ActnList;

type
  TNuovo_soggetto_form = class(TForm)
    DBLookupComboBox1: TDBLookupComboBox;
    EditCodice: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    DBEdit3: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    DBLookupComboBox8: TDBLookupComboBox;
    DBEdit10: TDBEdit;
    DBEdit7: TDBEdit;
    Label2: TLabel;
    Label1: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Fatturazione: TGroupBox;
    Label11: TLabel;
    DBEdit1: TDBEdit;
    Label12: TLabel;
    DBEdit2: TDBEdit;
    DBEdit11: TDBEdit;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    Label15: TLabel;
    DBLookupComboBox9: TDBLookupComboBox;
    Label35: TLabel;
    DBEdit8: TDBEdit;
    DBLookupComboBox12: TDBLookupComboBox;
    DBMemo1: TDBMemo;
    Label33: TLabel;
    Label16: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox10: TDBLookupComboBox;
    Label19: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Contabilita: TGroupBox;
    LabelPartitaPC: TLabel;
    Label37: TLabel;
    DBEditPartitaPC: TDBEdit;
    DBEdit13: TDBEdit;
    DBLookupComboBox13: TDBLookupComboBox;
    Label36: TLabel;
    Label17: TLabel;
    EDITLISTINO: TDBLookupComboBox;
    Label20: TLabel;
    DBEdit14: TDBEdit;
    Label21: TLabel;
    DBEdit15: TDBEdit;
    Label22: TLabel;
    DBEdit16: TDBEdit;
    Label23: TLabel;
    DBEdit17: TDBEdit;
    Label31: TLabel;
    EDITAGENTE: TDBLookupComboBox;
    Label18: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label13: TLabel;
    DBLookupComboBox5: TDBLookupComboBox;
    Rit_nessuna: TButton;
    ana_bancaBtn: TButton;
    DBEdit18: TDBEdit;
    Label24: TLabel;
    Nuova: TButton;
    ActionList1: TActionList;
    Aiuto: TAction;
    DBEdit27: TDBEdit;
    Label41: TLabel;
    Button1: TButton;
    zona: TAction;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBLookupComboBox1Exit(Sender: TObject);
    procedure Rit_nessunaClick(Sender: TObject);
    procedure ana_bancaBtnClick(Sender: TObject);
    procedure NuovaClick(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
    procedure zonaExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Nuovo_soggetto_form: TNuovo_soggetto_form;

implementation

uses ana_mod, u_request, Ric_banche, Umenu, u_zona_form;

{$R *.DFM}

procedure TNuovo_soggetto_form.BitBtn1Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTSoggetti.Post ;
end;

procedure TNuovo_soggetto_form.BitBtn2Click(Sender: TObject);
begin
(*
  If MessageDLg('Abbandonare l''inserimento del nuovo soggetto ?',mtconfirmation,[mbYes,mbNo],0) = mrYes then
   begin

   end ;
  *)
end;

procedure TNuovo_soggetto_form.DBLookupComboBox1Exit(Sender: TObject);
var
   ab : boolean ;
begin
 Try
     If modulodatianagrafiche.TTSoggettiTipoRapporto.asString = ''  then exit ;
     with modulodatianagrafiche do
      ab := TTTipisog.Lookup('Tipo rapporto',TTsoggettiTipoRapporto.asString,'Elenca cliente') ;
     EditListino.enabled := ab ;
     EditAgente.enabled := ab ;
 except
 end ;
     
end;

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

procedure TNuovo_soggetto_form.ana_bancaBtnClick(Sender: TObject);
Var
   Banca, Abi, Cab, piazza : String ;
begin
     Request_form := TRequest_form.Create(Self) ;
     Request_form.Label1.Caption := 'Nuova banca - Inserisci la banca' ;
     Request_form.ShowModal ;
     If Request_form.modalresult = mrOK then
      begin
       Banca := Request_form.testo.text ;
       Request_form.Label1.Caption := 'Nuova banca - Inserisci ABI' ;
       Request_form.Testo.Text := '' ;       
       Request_form.ShowModal ;
       If Request_form.modalresult = mrOK then
        begin
         Abi := Request_form.testo.text ;
         Request_form.Label1.Caption := 'Nuova banca - Inserisci CAB' ;
         Request_form.Testo.Text := '' ;
         Request_form.ShowModal ;
         If Request_form.modalresult = mrOK then
          begin
           Cab := Request_form.testo.text ;
           Request_form.Label1.Caption := 'Nuova banca - Inserisci PIAZZA' ;
           Request_form.Testo.Text := '' ;
           Request_form.ShowModal ;
           If Request_form.modalresult = mrOK then
            begin
             piazza := Request_form.testo.Text ;
             with modulodatianagrafiche do
              begin
               TTBanche.insert ;
               TTBancheBanca.asString := Banca;
               TTBancheAbi.AsString := Abi ;
               TTbancheCab.AsString := Cab ;
               TTBanchePiazza.AsString := Piazza ;
               TTBanche.Post ;
               TTSoggettiBanca.AsString := TTBancheCodice.asString ;
              end ;
            end ;
          end ;
        end ;
      end ;
end;

procedure TNuovo_soggetto_form.NuovaClick(Sender: TObject);
begin
   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 TNuovo_soggetto_form.AiutoExecute(Sender: TObject);
begin
  menu_form.Aiuto('manuale.pdf',54) ;
end;

procedure TNuovo_soggetto_form.zonaExecute(Sender: TObject);
begin
     Zona_form := TZona_Form.Create(self) ;
     Zona_form.showmodal ;
end;

end.