AbetoDesign_FactuGES2/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.pas

unit uEditorExportacionNorma32;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
  uIEditorExportacionNorma32, JvExControls, JvComponent, JvgWizardHeader,
  JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
  JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;

type
  TfEditorExportacionNorma32 = class(TForm, IEditorExportacionNorma32)
    OKBtn: TButton;
    CancelBtn: TButton;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    edtCodEntidad: TcxMaskEdit;
    edtCodAgencia: TcxMaskEdit;
    Bevel1: TBevel;
    JvFormStorage: TJvFormStorage;
    JvAppRegistryStorage: TJvAppRegistryStorage;
    Label1: TLabel;
    Bevel2: TBevel;
    JvFilenameEdit1: TJvFilenameEdit;
    ActionList1: TActionList;
    actVolcar: TAction;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edtCodigoIdentif: TcxMaskEdit;
    Label8: TLabel;
    Label9: TLabel;
    edtINE: TcxMaskEdit;
    Label10: TLabel;
    Label4: TLabel;
    edtFechaCargo: TcxDateEdit;
    procedure OKBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure actVolcarUpdate(Sender: TObject);
    procedure actVolcarExecute(Sender: TObject);
  private
    FFichero : String;
  protected
    procedure SetCodigoEntidad(const AValue: String);
    function GetCodigoEntidad : String;

    procedure SetCodigoAgencia(const AValue: String);
    function GetCodigoAgencia : String;

    function GetCodigoINE: String;
    procedure SetCodigoINE(const Value: String);

    procedure SetCodigoIdentif(const Value: String);
    function GetCodigoIdentif: String;

    procedure SetFechaCargo(const AValue: TDateTime);
    function GetFechaCargo : TDateTime;

    procedure SetFichero(const AValue: String);
    function GetFichero : String;
  public
    property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
    property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
    property CodigoIdentif : String read GetCodigoIdentif write SetCodigoIdentif;
    property CodigoINE : String read GetCodigoINE write SetCodigoINE;
    property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
    property Fichero : String read GetFichero write SetFichero;
  end;


implementation

{$R *.dfm}

uses
  uDialogUtils;

{ TfEditorExportacionNorma32 }

procedure TfEditorExportacionNorma32.actVolcarExecute(Sender: TObject);
begin
  FFichero := JvFilenameEdit1.FileName;
  ModalResult := mrOk;
end;

procedure TfEditorExportacionNorma32.actVolcarUpdate(Sender: TObject);
begin
  (Sender as TAction).Enabled :=
    (Length(edtCodEntidad.Text) = 4) and
    (Length(edtCodAgencia.Text) = 4) and
    (Length(JvFilenameEdit1.Text) > 0)
end;

procedure TfEditorExportacionNorma32.CancelBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TfEditorExportacionNorma32.FormCreate(Sender: TObject);
var
  APath : String;
begin
  inherited;
  with JvFormStorage do
  begin
    if Pos('_', Self.Name) = 0 then
      APath := Self.Name
    else
      APath := Copy(Self.Name, 0, (Pos('_', Self.Name)-1));
    AppStoragePath := APath;
  end;
  edtFechaCargo.Date := Now;
end;

function TfEditorExportacionNorma32.GetCodigoAgencia: String;
begin
  Result := edtCodAgencia.Text;
end;

function TfEditorExportacionNorma32.GetCodigoEntidad: String;
begin
  Result := edtCodEntidad.Text;
end;

function TfEditorExportacionNorma32.GetCodigoINE: String;
begin
  Result := edtINE.Text;
end;

function TfEditorExportacionNorma32.GetFechaCargo: TDateTime;
begin
  Result := edtFechaCargo.Date;
end;

function TfEditorExportacionNorma32.GetFichero: String;
begin
  Result := FFichero;
end;

function TfEditorExportacionNorma32.GetCodigoIdentif: String;
begin
  Result := edtCodigoIdentif.Text;
end;

procedure TfEditorExportacionNorma32.OKBtnClick(Sender: TObject);
var
  ASaveDialog : TSaveDialog;    // Save dialog variable
  AArchivo : string;
  ARuta : String;
begin
  AArchivo := FFichero;
  ARuta := ExtractFilePath(Application.ExeName);
  
//  ASaveDialog := TSaveDialog.Create(nil);
//  try
//    ASaveDialog.Title := 'Volcar a disco la remesa';
//    ASaveDialog.FileName := FFichero;
//
//    ASaveDialog.InitialDir := GetCurrentDir;
//
//    ASaveDialog.Filter := 'Ficheros de norma 19 (*.C19)|*.C19';
//    ASaveDialog.DefaultExt := 'C19';
//    ASaveDialog.FilterIndex := 1;
//
//  try
//    if ASaveDialog.Execute then
//    begin
//      FFichero := ASaveDialog.FileName;
//      ModalResult := mrOk
//    end
//    else begin
//      ModalResult := mrCancel;
//    end;
//  except
//    on e: exception do
//      ShowErrorMessage('error', 'error', e);
//  end;
//  finally
//    FreeAndNIL(ASaveDialog);
//  end;

{  if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
    'c:\', 'Volcar a disco la remesa', FFichero) then}
  if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
    ARuta, 'Volcar a disco la remesa', AArchivo) then
    ModalResult := mrOk
  else
    ModalResult := mrCancel;

end;

procedure TfEditorExportacionNorma32.SetCodigoAgencia(const AValue: String);
begin
  edtCodAgencia.Text := AValue;
end;

procedure TfEditorExportacionNorma32.SetCodigoEntidad(const AValue: String);
begin
  edtCodEntidad.Text := AValue;
end;

procedure TfEditorExportacionNorma32.SetCodigoINE(const Value: String);
begin
  edtINE.Text := Value;
end;

procedure TfEditorExportacionNorma32.SetFechaCargo(const AValue: TDateTime);
begin
  edtFechaCargo.Date := AValue;
end;

procedure TfEditorExportacionNorma32.SetFichero(const AValue: String);
begin
  FFichero := AValue;
  JvFilenameEdit1.InitialDir := ExtractFilePath(Application.ExeName);
  JvFilenameEdit1.FileName := JvFilenameEdit1.InitialDir + PathDelim + FFichero;
end;

procedure TfEditorExportacionNorma32.SetCodigoIdentif(const Value: String);
begin
  edtCodigoIdentif.Text := Value;
end;

end.