103 lines
2.4 KiB
ObjectPascal
103 lines
2.4 KiB
ObjectPascal
unit uConfFicherosEDI;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uFrameConfiguracion, StdCtrls, ExtCtrls, Mask, JvExMask,
|
|
JvToolEdit, ActnList, JvSpin, cxControls, cxContainer, cxEdit,
|
|
cxTextEdit, cxMaskEdit, cxSpinEdit;
|
|
|
|
type
|
|
TfrConfFicherosEDI = class(TFrameConfiguracion)
|
|
GroupBox1: TGroupBox;
|
|
edtEntrada: TJvDirectoryEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
edtAlmacen: TJvDirectoryEdit;
|
|
bElegir1: TButton;
|
|
bElegir2: TButton;
|
|
bAbrir1: TButton;
|
|
bAbrir2: TButton;
|
|
ActionList1: TActionList;
|
|
actAbrir1: TAction;
|
|
actAbrir2: TAction;
|
|
Panel1: TPanel;
|
|
Label3: TLabel;
|
|
edtDias: TcxSpinEdit;
|
|
procedure bElegir1Click(Sender: TObject);
|
|
procedure bElegir2Click(Sender: TObject);
|
|
procedure actAbrir1Update(Sender: TObject);
|
|
procedure actAbrir2Update(Sender: TObject);
|
|
procedure actAbrir1Execute(Sender: TObject);
|
|
procedure actAbrir2Execute(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
protected
|
|
procedure Finalize; override;
|
|
public
|
|
procedure Init; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses uDataModuleServer, JclShell;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrConfFicherosEDI }
|
|
|
|
procedure TfrConfFicherosEDI.Finalize;
|
|
begin
|
|
inherited;
|
|
dmServer.FDirEntrada := edtEntrada.Text;
|
|
dmServer.FDirAlmacen := edtAlmacen.Text;
|
|
dmServer.FDias := edtDias.Value;
|
|
end;
|
|
|
|
procedure TfrConfFicherosEDI.Init;
|
|
begin
|
|
inherited;
|
|
edtEntrada.Text := dmServer.FDirEntrada;
|
|
edtAlmacen.Text := dmServer.FDirAlmacen;
|
|
edtDias.Value := dmServer.FDias;
|
|
end;
|
|
|
|
procedure TfrConfFicherosEDI.bElegir1Click(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
edtEntrada.DoClick;
|
|
end;
|
|
|
|
procedure TfrConfFicherosEDI.bElegir2Click(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
edtAlmacen.DoClick;
|
|
end;
|
|
|
|
procedure TfrConfFicherosEDI.actAbrir1Update(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (Length(edtEntrada.Text) > 0)
|
|
end;
|
|
|
|
procedure TfrConfFicherosEDI.actAbrir2Update(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (Length(edtAlmacen.Text) > 0)
|
|
end;
|
|
|
|
procedure TfrConfFicherosEDI.actAbrir1Execute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
OpenFolder(edtEntrada.Text);
|
|
end;
|
|
|
|
procedure TfrConfFicherosEDI.actAbrir2Execute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
OpenFolder(edtAlmacen.Text);
|
|
end;
|
|
|
|
end.
|