ana_iva_u.pas

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

unit ana_iva_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ana_catmer, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, ActnList;

type
  TAna_iva_form = class(Tana_catmer_form)
    Button2: TButton;
    PartitaPc: TAction;
    Aiuto: TAction;
    procedure PartitaPcExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ana_iva_form: TAna_iva_form;

implementation

uses ana_mod, gestModExt, Umenu;

{$R *.DFM}

procedure TAna_iva_form.PartitaPcExecute(Sender: TObject);
Var
   PartPC : string ;
   
begin
  inherited;
  PartPc := '' ;
  PartPc  := ContabilitaPianoContiShow ;
  If PartPc <> '' then
   begin
     ModuloDatiAnagrafiche.TTIva.Edit ;
     ModuloDatiAnagrafiche.TTIvaPartitaPc.asString := PartPC ;
   end ;
end;

procedure TAna_iva_form.FormCreate(Sender: TObject);
begin
  inherited;
    Griglia.Columns[4].Visible := ContaLoaded ;
    Partitapc.Visible := ContaLoaded
end;

procedure TAna_iva_form.AiutoExecute(Sender: TObject);
begin
  inherited;
  menu_form.Aiuto('manuale.pdf',65) ;
end;

end.