Remesas de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@62 f33bb606-9f5c-448d-9c99-757f00063c96
2010-01-25 12:45:30 +00:00 · 2010-01-25 12:45:30 +00:00 · 9d2c9364a9
commit 9d2c9364a9
parent 07bdfb0a79
2 changed files with 547 additions and 0 deletions
--- a/electronica/Views/uEditorExportacionNorma32.dfm
+++ b/electronica/Views/uEditorExportacionNorma32.dfm
@ -0,0 +1,316 @@
+object fEditorExportacionNorma32: TfEditorExportacionNorma32
+  Left = 0
+  Top = 0
+  ActiveControl = edtCodEntidad
+  BorderStyle = bsDialog
+  Caption = 'Volcado de remesas a disco (Norma 32)'
+  ClientHeight = 366
+  ClientWidth = 389
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  DesignSize = (
+    389
+    366)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label2: TLabel
+    Left = 24
+    Top = 144
+    Width = 90
+    Height = 13
+    Margins.Bottom = 0
+    Caption = 'Entidad receptora:'
+  end
+  object Label3: TLabel
+    Left = 24
+    Top = 171
+    Width = 42
+    Height = 13
+    Margins.Bottom = 0
+    Caption = 'Agencia:'
+  end
+  object Bevel1: TBevel
+    Left = 8
+    Top = 321
+    Width = 373
+    Height = 3
+    Anchors = [akLeft, akRight, akBottom]
+    Shape = bsBottomLine
+    ExplicitTop = 328
+  end
+  object Label1: TLabel
+    Left = 24
+    Top = 264
+    Width = 71
+    Height = 13
+    Margins.Bottom = 0
+    Caption = 'Guardar como:'
+  end
+  object Bevel2: TBevel
+    Left = 24
+    Top = 245
+    Width = 349
+    Height = 3
+    Anchors = [akLeft, akTop, akRight]
+    Shape = bsBottomLine
+  end
+  object Label5: TLabel
+    Left = 202
+    Top = 144
+    Width = 48
+    Height = 13
+    Margins.Bottom = 0
+    Caption = '(4 d'#237'gitos)'
+  end
+  object Label6: TLabel
+    Left = 202
+    Top = 171
+    Width = 48
+    Height = 13
+    Margins.Bottom = 0
+    Caption = '(4 d'#237'gitos)'
+  end
+  object Label7: TLabel
+    Left = 24
+    Top = 90
+    Width = 65
+    Height = 13
+    Margins.Bottom = 0
+    Caption = 'Identificador:'
+  end
+  object Label8: TLabel
+    Left = 301
+    Top = 90
+    Width = 54
+    Height = 13
+    Margins.Bottom = 0
+    Caption = '(15 d'#237'gitos)'
+  end
+  object Label9: TLabel
+    Left = 24
+    Top = 117
+    Width = 69
+    Height = 13
+    Margins.Bottom = 0
+    Caption = 'C'#243'digo I.N.E.:'
+  end
+  object Label10: TLabel
+    Left = 301
+    Top = 117
+    Width = 48
+    Height = 13
+    Margins.Bottom = 0
+    Caption = '(9 d'#237'gitos)'
+  end
+  object Label4: TLabel
+    Left = 24
+    Top = 201
+    Width = 78
+    Height = 13
+    Margins.Bottom = 0
+    Caption = 'Fecha de cargo:'
+  end
+  object edtCodEntidad: TcxMaskEdit
+    Left = 120
+    Top = 141
+    Properties.BeepOnError = True
+    Properties.MaxLength = 4
+    Style.LookAndFeel.Kind = lfStandard
+    Style.LookAndFeel.NativeStyle = True
+    StyleDisabled.LookAndFeel.Kind = lfStandard
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfStandard
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfStandard
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 2
+    Text = '    '
+    Width = 73
+  end
+  object edtCodAgencia: TcxMaskEdit
+    Left = 120
+    Top = 168
+    Properties.BeepOnError = True
+    Properties.MaxLength = 4
+    Style.LookAndFeel.Kind = lfStandard
+    Style.LookAndFeel.NativeStyle = True
+    StyleDisabled.LookAndFeel.Kind = lfStandard
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfStandard
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfStandard
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 3
+    Text = '    '
+    Width = 73
+  end
+  object CancelBtn: TButton
+    Left = 301
+    Top = 330
+    Width = 75
+    Height = 25
+    Anchors = [akLeft, akRight, akBottom]
+    Cancel = True
+    Caption = '&Cancelar'
+    ModalResult = 2
+    TabOrder = 7
+    OnClick = CancelBtnClick
+  end
+  object OKBtn: TButton
+    Left = 202
+    Top = 330
+    Width = 85
+    Height = 25
+    Action = actVolcar
+    Anchors = [akLeft, akRight, akBottom]
+    TabOrder = 6
+  end
+  object JvFilenameEdit1: TJvFilenameEdit
+    Left = 24
+    Top = 283
+    Width = 349
+    Height = 21
+    Flat = False
+    ParentFlat = False
+    Filter = 'Ficheros de norma 32 (*.C32)|*.C32'
+    DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
+    DialogTitle = 'Volcar a disco la remesa'
+    TabOrder = 5
+  end
+  object edtCodigoIdentif: TcxMaskEdit
+    Left = 120
+    Top = 87
+    Properties.BeepOnError = True
+    Properties.MaxLength = 15
+    Style.LookAndFeel.Kind = lfStandard
+    Style.LookAndFeel.NativeStyle = True
+    StyleDisabled.LookAndFeel.Kind = lfStandard
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfStandard
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfStandard
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 0
+    Text = '    '
+    Width = 167
+  end
+  object edtINE: TcxMaskEdit
+    Left = 120
+    Top = 114
+    Properties.BeepOnError = True
+    Properties.MaxLength = 9
+    Style.LookAndFeel.Kind = lfStandard
+    Style.LookAndFeel.NativeStyle = True
+    StyleDisabled.LookAndFeel.Kind = lfStandard
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfStandard
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfStandard
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 1
+    Text = '    '
+    Width = 167
+  end
+  object edtFechaCargo: TcxDateEdit
+    Left = 120
+    Top = 198
+    Properties.DateButtons = [btnToday]
+    Properties.ImmediatePost = True
+    Properties.SaveTime = False
+    Properties.ShowTime = False
+    Style.LookAndFeel.Kind = lfStandard
+    Style.LookAndFeel.NativeStyle = True
+    StyleDisabled.LookAndFeel.Kind = lfStandard
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfStandard
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfStandard
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 4
+    Width = 167
+  end
+  object pnlHeader: TPanel
+    Left = 0
+    Top = 0
+    Width = 389
+    Height = 64
+    Align = alTop
+    BevelOuter = bvNone
+    Color = clWhite
+    Padding.Left = 25
+    Padding.Top = 8
+    Padding.Right = 25
+    Padding.Bottom = 8
+    ParentBackground = False
+    TabOrder = 8
+    object lblTitle: TLabel
+      AlignWithMargins = True
+      Left = 25
+      Top = 8
+      Width = 339
+      Height = 13
+      Margins.Left = 0
+      Margins.Top = 0
+      Margins.Right = 0
+      Margins.Bottom = 8
+      Align = alTop
+      Caption = 'Volcado de remesas a disco'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      ExplicitWidth = 155
+    end
+    object lblComments: TLabel
+      AlignWithMargins = True
+      Left = 50
+      Top = 29
+      Width = 314
+      Height = 24
+      Margins.Left = 25
+      Margins.Top = 0
+      Margins.Right = 0
+      Align = alClient
+      Caption = 'Introduzca los siguientes datos para realizar el volcado'
+      ExplicitWidth = 263
+      ExplicitHeight = 13
+    end
+  end
+  object JvFormStorage: TJvFormStorage
+    AppStorage = JvAppRegistryStorage
+    AppStoragePath = 'fEditorBase\'
+    VersionCheck = fpvcNocheck
+    StoredProps.Strings = (
+      'edtCodigoIdentif.Text'
+      'edtINE.Text')
+    StoredValues = <>
+    Left = 80
+    Top = 32
+  end
+  object JvAppRegistryStorage: TJvAppRegistryStorage
+    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
+    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
+    Root = 'Software\FactuGES'
+    SubStorages = <>
+    Left = 112
+    Top = 32
+  end
+  object ActionList1: TActionList
+    Left = 144
+    Top = 32
+    object actVolcar: TAction
+      Caption = 'Volcar a disco'
+      OnExecute = actVolcarExecute
+      OnUpdate = actVolcarUpdate
+    end
+  end
+end
--- a/electronica/Views/uEditorExportacionNorma32.pas
+++ b/electronica/Views/uEditorExportacionNorma32.pas
@ -0,0 +1,231 @@
+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, cxGraphics, cxLookAndFeels,
+  cxLookAndFeelPainters;
+
+type
+  TfEditorExportacionNorma32 = class(TForm, IEditorExportacionNorma32)
+    OKBtn: TButton;
+    CancelBtn: TButton;
+    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;
+    pnlHeader: TPanel;
+    lblTitle: TLabel;
+    lblComments: TLabel;
+    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: Integer);
+    function GetCodigoEntidad : Integer;
+
+    procedure SetCodigoAgencia(const AValue: Integer);
+    function GetCodigoAgencia : Integer;
+
+    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 : Integer read GetCodigoEntidad write SetCodigoEntidad;
+    property CodigoAgencia : Integer 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: Integer;
+begin
+  Result := StrToInt(edtCodAgencia.Text);
+end;
+
+function TfEditorExportacionNorma32.GetCodigoEntidad: Integer;
+begin
+  Result := StrToInt(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: Integer);
+begin
+  edtCodAgencia.Text := IntToStr(AValue);
+end;
+
+procedure TfEditorExportacionNorma32.SetCodigoEntidad(const AValue: Integer);
+begin
+  edtCodEntidad.Text := IntToStr(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.