Changeset 20 for trunk


Ignore:
Timestamp:
Mar 25, 2013, 10:58:03 PM (12 years ago)
Author:
chronos
Message:
  • Upraveno: Celé číslo účtu rozděleno do samostatných částí jako samotné číslo a kód banky.
Location:
trunk
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAccounts.lfm

    r12 r20  
    2828      end   
    2929      item
     30        Caption = 'Bank code'
     31      end   
     32      item
    3033        Caption = 'Balance'
    3134        Width = 80
    … …  
    3942      end>
    4043    OwnerData = True
     44    PopupMenu = PopupMenu1
    4145    ReadOnly = True
    4246    RowSelect = True
    … …  
    7276    Top = 308
    7377    Width = 75
     78    Action = AAdd
    7479    Anchors = [akLeft, akBottom]
    75     Caption = 'Add'
    7680    Color = clScrollBar
    77     OnClick = ButtonAddClick
    7881    TabOrder = 3
    7982  end
    … …  
    8386    Top = 308
    8487    Width = 75
     88    Action = ARemove
    8589    Anchors = [akLeft, akBottom]
    86     Caption = 'Remove'
    8790    Color = clScrollBar
    88     OnClick = ButtonRemoveClick
    8991    TabOrder = 4
    9092  end
    … …  
    127129    OnChange = LabeledEditTokenChange
    128130  end
     131  object ActionList1: TActionList
     132    Images = Core.ImageList1
     133    left = 200
     134    top = 304
     135    object AAdd: TAction
     136      Caption = 'Add'
     137      OnExecute = AAddExecute
     138      ShortCut = 45
     139    end
     140    object ARemove: TAction
     141      Caption = 'Remove'
     142      OnExecute = ARemoveExecute
     143      ShortCut = 46
     144    end
     145  end
     146  object PopupMenu1: TPopupMenu
     147    Images = Core.ImageList1
     148    left = 280
     149    top = 304
     150    object MenuItem1: TMenuItem
     151      Action = AAdd
     152    end
     153    object MenuItem2: TMenuItem
     154      Action = ARemove
     155    end
     156  end
    129157end

  • trunk/Forms/UFormAccounts.lrt

    r12 r20  
    22TFORMACCOUNTS.LISTVIEW1.COLUMNS[0].CAPTION=Name
    33TFORMACCOUNTS.LISTVIEW1.COLUMNS[1].CAPTION=Number
    4 TFORMACCOUNTS.LISTVIEW1.COLUMNS[2].CAPTION=Balance
    5 TFORMACCOUNTS.LISTVIEW1.COLUMNS[3].CAPTION=Date
    6 TFORMACCOUNTS.LISTVIEW1.COLUMNS[4].CAPTION=Token
     4TFORMACCOUNTS.LISTVIEW1.COLUMNS[2].CAPTION=Bank code
     5TFORMACCOUNTS.LISTVIEW1.COLUMNS[3].CAPTION=Balance
     6TFORMACCOUNTS.LISTVIEW1.COLUMNS[4].CAPTION=Date
     7TFORMACCOUNTS.LISTVIEW1.COLUMNS[5].CAPTION=Token
    78TFORMACCOUNTS.BUTTONOK.CAPTION=Ok
    89TFORMACCOUNTS.BUTTONCANCEL.CAPTION=Cancel
    9 TFORMACCOUNTS.BUTTONADD.CAPTION=Add
    10 TFORMACCOUNTS.BUTTONREMOVE.CAPTION=Remove
    1110TFORMACCOUNTS.LABELEDEDITTOKEN.EDITLABEL.CAPTION=Token
    1211TFORMACCOUNTS.LABELEDEDITNAME.EDITLABEL.CAPTION=Name
     12TFORMACCOUNTS.AADD.CAPTION=Add
     13TFORMACCOUNTS.AREMOVE.CAPTION=Remove

  • trunk/Forms/UFormAccounts.pas

    r14 r20  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   StdCtrls, ExtCtrls, SpecializedList;
     9  StdCtrls, ExtCtrls, ActnList, Menus, SpecializedList;
    1010
    1111type
    … …  
    1414
    1515  TFormAccounts = class(TForm)
     16    AAdd: TAction;
     17    ARemove: TAction;
     18    ActionList1: TActionList;
    1619    ButtonAdd: TButton;
    1720    ButtonRemove: TButton;
    … …  
    2124    LabeledEditName: TLabeledEdit;
    2225    ListView1: TListView;
    23     procedure ButtonAddClick(Sender: TObject);
    24     procedure ButtonRemoveClick(Sender: TObject);
     26    MenuItem1: TMenuItem;
     27    MenuItem2: TMenuItem;
     28    PopupMenu1: TPopupMenu;
     29    procedure AAddExecute(Sender: TObject);
     30    procedure ARemoveExecute(Sender: TObject);
    2531    procedure FormCreate(Sender: TObject);
    2632    procedure FormDestroy(Sender: TObject);
    … …  
    5763    Item.Data := Accounts[Item.Index];
    5864    Item.SubItems.Add(Number);
     65    Item.SubItems.Add(BankCode);
    5966    Item.SubItems.Add(FloatToStr(Balance));
    6067    Item.SubItems.Add(DateToStr(Time));
    … …  
    97104end;
    98105
    99 procedure TFormAccounts.ButtonAddClick(Sender: TObject);
     106procedure TFormAccounts.ARemoveExecute(Sender: TObject);
     107begin
     108  if Assigned(ListView1.Selected) then begin
     109    Accounts.Delete(Accounts.IndexOf(ListView1.Selected.Data));
     110    Reload;
     111  end;
     112end;
     113
     114procedure TFormAccounts.AAddExecute(Sender: TObject);
    100115begin
    101116  with Accounts.AddNew(TAccount.Create) do begin
    102117  end;
    103   Reload;
    104 end;
    105 
    106 procedure TFormAccounts.ButtonRemoveClick(Sender: TObject);
    107 begin
    108   Accounts.Delete(Accounts.IndexOf(ListView1.Selected.Data));
    109118  Reload;
    110119end;
    … …  
    124133procedure TFormAccounts.UpdateInterface;
    125134begin
    126   ButtonRemove.Enabled := Assigned(ListView1.Selected);
     135  ARemove.Enabled := Assigned(ListView1.Selected);
    127136  LabeledEditToken.Enabled := Assigned(ListView1.Selected);
    128137  LabeledEditName.Enabled := Assigned(ListView1.Selected);

  • trunk/Forms/UFormMain.lfm

    r15 r20  
    11object FormMain: TFormMain
    2   Left = 364
    3   Height = 390
    4   Top = 183
    5   Width = 519
     2  Left = 357
     3  Height = 513
     4  Top = 122
     5  Width = 602
    66  Caption = 'FioInfo'
    7   ClientHeight = 390
    8   ClientWidth = 519
     7  ClientHeight = 513
     8  ClientWidth = 602
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
    … …  
    1313  LCLVersion = '1.1'
    1414  object ButtonSettings: TButton
    15     Left = 384
     15    Left = 454
    1616    Height = 25
    17     Top = 358
     17    Top = 481
    1818    Width = 112
    1919    Action = Core.ASettings
    … …  
    2424    Left = 16
    2525    Height = 57
    26     Top = 120
    27     Width = 498
    28     Anchors = [akTop, akLeft, akRight]
     26    Top = 250
     27    Width = 581
     28    Anchors = [akLeft, akRight, akBottom]
    2929    Caption = 'New transaction from last check'
    3030    ClientHeight = 38
    31     ClientWidth = 494
     31    ClientWidth = 577
    3232    TabOrder = 1
    3333    object ButtonNew: TButton
    … …  
    4040      TabOrder = 0
    4141    end
     42    object Label7: TLabel
     43      Left = 6
     44      Height = 17
     45      Top = 12
     46      Width = 47
     47      Caption = 'Last id:'
     48      ParentColor = False
     49    end
     50    object SpinEditLastId: TSpinEdit
     51      Left = 70
     52      Height = 27
     53      Top = 7
     54      Width = 96
     55      MaxValue = 1000000000
     56      TabOrder = 1
     57    end
    4258  end
    4359  object GroupBox2: TGroupBox
    4460    Left = 17
    4561    Height = 72
    46     Top = 184
    47     Width = 498
    48     Anchors = [akTop, akLeft, akRight]
     62    Top = 316
     63    Width = 581
     64    Anchors = [akLeft, akRight, akBottom]
    4965    Caption = 'Transactions from defined time interval'
    5066    ClientHeight = 53
    51     ClientWidth = 494
     67    ClientWidth = 577
    5268    TabOrder = 2
    5369    object ButtonInterval: TButton
    … …  
    112128    Left = 16
    113129    Height = 65
    114     Top = 280
    115     Width = 499
    116     Anchors = [akTop, akLeft, akRight]
     130    Top = 412
     131    Width = 582
     132    Anchors = [akLeft, akRight, akBottom]
    117133    Caption = 'Selected mothly report'
    118134    ClientHeight = 46
    119     ClientWidth = 495
     135    ClientWidth = 578
    120136    TabOrder = 3
    121137    object ButtonMonthly: TButton
    … …  
    168184    Left = 16
    169185    Height = 25
    170     Top = 358
     186    Top = 481
    171187    Width = 112
    172188    Action = Core.AExit
    … …  
    177193    Left = 136
    178194    Height = 25
    179     Top = 358
     195    Top = 481
    180196    Width = 112
    181197    Action = Core.AAbout
    … …  
    195211    Height = 29
    196212    Top = 8
    197     Width = 312
     213    Width = 395
    198214    Anchors = [akTop, akLeft, akRight]
    199215    ItemHeight = 0
    … …  
    203219  end
    204220  object ButtonNew1: TButton
    205     Left = 416
     221    Left = 499
    206222    Height = 25
    207223    Top = 8
    … …  
    214230  object GroupBox4: TGroupBox
    215231    Left = 16
    216     Height = 65
     232    Height = 197
    217233    Top = 48
    218     Width = 498
    219     Anchors = [akTop, akLeft, akRight]
     234    Width = 581
     235    Anchors = [akTop, akLeft, akRight, akBottom]
    220236    Caption = 'Account state'
    221     ClientHeight = 46
    222     ClientWidth = 494
     237    ClientHeight = 178
     238    ClientWidth = 577
    223239    TabOrder = 8
    224240    object Label6: TLabel
    … …  
    241257      Left = 358
    242258      Height = 25
    243       Top = 7
     259      Top = -1
    244260      Width = 112
    245261      Caption = 'Get'
    … …  
    247263      TabOrder = 0
    248264    end
     265    object ListView1: TListView
     266      Left = 6
     267      Height = 144
     268      Top = 31
     269      Width = 561
     270      Anchors = [akTop, akLeft, akRight, akBottom]
     271      Columns = <     
     272        item
     273          Caption = 'Id'
     274        end     
     275        item
     276          Caption = 'Date'
     277          Width = 80
     278        end     
     279        item
     280          Caption = 'Account'
     281          Width = 80
     282        end     
     283        item
     284          Caption = 'Value'
     285          Width = 80
     286        end     
     287        item
     288          Caption = 'Var. sym.'
     289          Width = 70
     290        end     
     291        item
     292          Caption = 'Spec. sym.'
     293        end     
     294        item
     295          Caption = 'Const. sym.'
     296          Width = 134
     297        end>
     298      TabOrder = 1
     299      ViewStyle = vsReport
     300    end
    249301  end
    250302end

  • trunk/Forms/UFormMain.lrt

    r15 r20  
    22TFORMMAIN.GROUPBOX1.CAPTION=New transaction from last check
    33TFORMMAIN.BUTTONNEW.CAPTION=Download
     4TFORMMAIN.LABEL7.CAPTION=Last id:
    45TFORMMAIN.GROUPBOX2.CAPTION=Transactions from defined time interval
    56TFORMMAIN.BUTTONINTERVAL.CAPTION=Download
    … …  
    2021TFORMMAIN.LABELBALANCE.CAPTION=   
    2122TFORMMAIN.BUTTONGETSTATE.CAPTION=Get
     23TFORMMAIN.LISTVIEW1.COLUMNS[0].CAPTION=Id
     24TFORMMAIN.LISTVIEW1.COLUMNS[1].CAPTION=Date
     25TFORMMAIN.LISTVIEW1.COLUMNS[2].CAPTION=Account
     26TFORMMAIN.LISTVIEW1.COLUMNS[3].CAPTION=Value
     27TFORMMAIN.LISTVIEW1.COLUMNS[4].CAPTION=Var. sym.
     28TFORMMAIN.LISTVIEW1.COLUMNS[5].CAPTION=Spec. sym.
     29TFORMMAIN.LISTVIEW1.COLUMNS[6].CAPTION=Const. sym.

  • trunk/Forms/UFormMain.pas

    r16 r20  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ExtCtrls, Menus, ActnList, Spin, EditBtn, UFioAPI, URegistry, Registry,
    10   DateUtils;
     9  ExtCtrls, Menus, ActnList, Spin, EditBtn, ComCtrls, UFioAPI, URegistry,
     10  Registry, DateUtils;
    1111
    1212type
    … …  
    3636    Label5: TLabel;
    3737    Label6: TLabel;
     38    Label7: TLabel;
    3839    LabelBalance: TLabel;
     40    ListView1: TListView;
    3941    SpinEditYear: TSpinEdit;
    4042    SpinEditId: TSpinEdit;
     43    SpinEditLastId: TSpinEdit;
    4144    procedure ButtonGetStateClick(Sender: TObject);
    4245    procedure ButtonIntervalClick(Sender: TObject);

  • trunk/Forms/UFormSettings.lfm

    r18 r20  
    100100    Width = 532
    101101    Anchors = [akTop, akLeft, akRight]
    102     Caption = '%f - data format, %d - date, %t - time, %a - account number, %n - account name, %% - percent symbol'
     102    Caption = '%f - data format, %d - date, %t - time, %a - account number, %n - account name, %b - bank code, %% - percent symbol'
    103103    ParentColor = False
    104104    WordWrap = True

  • trunk/Forms/UFormSettings.lrt

    r18 r20  
    66TFORMSETTINGS.BUTTON1.CAPTION=Select
    77TFORMSETTINGS.LABELEDEDITFILENAMEFORMAT.EDITLABEL.CAPTION=Output file name format:
    8 TFORMSETTINGS.LABEL2.CAPTION=%f - data format, %d - date, %t - time, %a - account number, %n - account name, %% - percent symbol
     8TFORMSETTINGS.LABEL2.CAPTION=%f - data format, %d - date, %t - time, %a - account number, %n - account name, %b - bank code, %% - percent symbol
    99TFORMSETTINGS.LABEL3.CAPTION=Interface language:

  • trunk/Languages/FioInfo.cs.po

    r18 r20  
    6161msgstr "O aplikaci"
    6262
    63 #: tformaccounts.buttonadd.caption
     63#: tformaccounts.aadd.caption
     64msgctxt "tformaccounts.aadd.caption"
    6465msgid "Add"
    6566msgstr "Přidat"
     67
     68#: tformaccounts.aremove.caption
     69msgctxt "tformaccounts.aremove.caption"
     70msgid "Remove"
     71msgstr "Odebrat"
    6672
    6773#: tformaccounts.buttoncancel.caption
    … …  
    7581msgstr "Ok"
    7682
    77 #: tformaccounts.buttonremove.caption
    78 msgid "Remove"
    79 msgstr "Odebrat"
    80 
    8183#: tformaccounts.caption
    8284msgctxt "tformaccounts.caption"
    … …  
    104106
    105107#: tformaccounts.listview1.columns[2].caption
     108#| msgid "Balance"
     109msgid "Bank code"
     110msgstr "Kód banky"
     111
     112#: tformaccounts.listview1.columns[3].caption
     113#| msgid "Date"
     114msgctxt "tformaccounts.listview1.columns[3].caption"
    106115msgid "Balance"
    107116msgstr "Zůstatek"
    108117
    109 #: tformaccounts.listview1.columns[3].caption
     118#: tformaccounts.listview1.columns[4].caption
    110119#| msgid "Token"
    111 msgctxt "tformaccounts.listview1.columns[3].caption"
     120msgctxt "tformaccounts.listview1.columns[4].caption"
    112121msgid "Date"
    113122msgstr "Datum"
    114123
    115 #: tformaccounts.listview1.columns[4].caption
    116 msgctxt "tformaccounts.listview1.columns[4].caption"
     124#: tformaccounts.listview1.columns[5].caption
     125msgctxt "tformaccounts.listview1.columns[5].caption"
    117126msgid "Token"
    118127msgstr "Token"
    … …  
    208217msgstr "Zůstatek:"
    209218
     219#: tformmain.label7.caption
     220msgid "Last id:"
     221msgstr "Poslední Id:"
     222
    210223#: tformmain.labelbalance.caption
    211224msgid "   "
    212 msgstr ""
     225msgstr "   "
     226
     227#: tformmain.listview1.columns[0].caption
     228msgid "Id"
     229msgstr "Id"
     230
     231#: tformmain.listview1.columns[1].caption
     232msgctxt "tformmain.listview1.columns[1].caption"
     233msgid "Date"
     234msgstr "Datum"
     235
     236#: tformmain.listview1.columns[2].caption
     237msgid "Account"
     238msgstr "Účet"
     239
     240#: tformmain.listview1.columns[3].caption
     241msgid "Value"
     242msgstr "Hodnota"
     243
     244#: tformmain.listview1.columns[4].caption
     245msgid "Var. sym."
     246msgstr "Var. sym."
     247
     248#: tformmain.listview1.columns[5].caption
     249msgid "Spec. sym."
     250msgstr "Spec. sym."
     251
     252#: tformmain.listview1.columns[6].caption
     253msgid "Const. sym."
     254msgstr "Konst. sym."
    213255
    214256#: tformsettings.button1.caption
    … …  
    236278
    237279#: tformsettings.label2.caption
    238 msgid "%f - data format, %d - date, %t - time, %a - account number, %n - account name, %% - percent symbol"
    239 msgstr "%f - formát dat, %d - datum, %t - čas, %a - číslo účtu, %n - jméno účtu, %% - znak procent"
     280#| msgid "%f - data format, %d - date, %t - time, %a - account number, %n - account name, %% - percent symbol"
     281msgid "%f - data format, %d - date, %t - time, %a - account number, %n - account name, %b - bank code, %% - percent symbol"
     282msgstr "%f - formát dat, %d - datum, %t - čas, %a - číslo účtu, %n - jméno účtu, %b - kód banky, %% - znak procent"
    240283
    241284#: tformsettings.label3.caption

  • trunk/Languages/FioInfo.po

    r18 r20  
    5353msgstr ""
    5454
    55 #: tformaccounts.buttonadd.caption
     55#: tformaccounts.aadd.caption
     56msgctxt "TFORMACCOUNTS.AADD.CAPTION"
    5657msgid "Add"
     58msgstr ""
     59
     60#: tformaccounts.aremove.caption
     61msgctxt "TFORMACCOUNTS.AREMOVE.CAPTION"
     62msgid "Remove"
    5763msgstr ""
    5864
    … …  
    6773msgstr ""
    6874
    69 #: tformaccounts.buttonremove.caption
    70 msgid "Remove"
    71 msgstr ""
    72 
    7375#: tformaccounts.caption
    7476msgctxt "tformaccounts.caption"
    … …  
    9698
    9799#: tformaccounts.listview1.columns[2].caption
    98 msgid "Balance"
     100msgid "Bank code"
    99101msgstr ""
    100102
    101103#: tformaccounts.listview1.columns[3].caption
    102104msgctxt "TFORMACCOUNTS.LISTVIEW1.COLUMNS[3].CAPTION"
    103 msgid "Date"
     105msgid "Balance"
    104106msgstr ""
    105107
    106108#: tformaccounts.listview1.columns[4].caption
    107109msgctxt "TFORMACCOUNTS.LISTVIEW1.COLUMNS[4].CAPTION"
     110msgid "Date"
     111msgstr ""
     112
     113#: tformaccounts.listview1.columns[5].caption
     114msgctxt "TFORMACCOUNTS.LISTVIEW1.COLUMNS[5].CAPTION"
    108115msgid "Token"
    109116msgstr ""
    … …  
    198205msgstr ""
    199206
     207#: tformmain.label7.caption
     208msgid "Last id:"
     209msgstr ""
     210
    200211#: tformmain.labelbalance.caption
    201212msgid "   "
     213msgstr ""
     214
     215#: tformmain.listview1.columns[0].caption
     216msgid "Id"
     217msgstr ""
     218
     219#: tformmain.listview1.columns[1].caption
     220msgctxt "TFORMMAIN.LISTVIEW1.COLUMNS[1].CAPTION"
     221msgid "Date"
     222msgstr ""
     223
     224#: tformmain.listview1.columns[2].caption
     225msgid "Account"
     226msgstr ""
     227
     228#: tformmain.listview1.columns[3].caption
     229msgid "Value"
     230msgstr ""
     231
     232#: tformmain.listview1.columns[4].caption
     233msgid "Var. sym."
     234msgstr ""
     235
     236#: tformmain.listview1.columns[5].caption
     237msgid "Spec. sym."
     238msgstr ""
     239
     240#: tformmain.listview1.columns[6].caption
     241msgid "Const. sym."
    202242msgstr ""
    203243
    … …  
    226266
    227267#: tformsettings.label2.caption
    228 msgid "%f - data format, %d - date, %t - time, %a - account number, %n - account name, %% - percent symbol"
     268msgid "%f - data format, %d - date, %t - time, %a - account number, %n - account name, %b - bank code, %% - percent symbol"
    229269msgstr ""
    230270

  • trunk/UCore.lfm

    r14 r20  
    405405    EmailContact = 'robie@centrum.cz'
    406406    AppName = 'FioInfo'
    407     ReleaseDate = 41352
     407    ReleaseDate = 41358
    408408    RegistryKey = '\Software\Chronosoft\FioInfo'
    409409    RegistryRoot = rrKeyCurrentUser

  • trunk/UCore.pas

    r19 r20  
    1111
    1212type
     13  TAccountOperation = class
     14    Id: string;
     15    Time: TDateTime;
     16    Value: Double;
     17    VarSym: string;
     18    SpecSym: string;
     19    ConstSym: string;
     20  end;
    1321
    1422  { TAccount }
    … …  
    1826    Name: string;
    1927    Number: string;
     28    BankCode: string;
    2029    Balance: Double;
    2130    Time: TDateTime;
     31    Operations: TListObject;
    2232    procedure Assign(Source: TAccount);
    2333    procedure LoadFromRegistry(Context: TRegistryContext);
    2434    procedure SaveToRegistry(Context: TRegistryContext);
     35    constructor Create;
     36    destructor Destroy; override;
    2537  end;
    2638
    … …  
    128140    Balance := ReadFloatWithDefault('Balance', 0);
    129141    Number := UTF8Encode(ReadStringWithDefault('Number', ''));
     142    BankCode := UTF8Encode(ReadStringWithDefault('BankCode', ''));
    130143  finally
    131144    Free;
    … …  
    144157    WriteString('Token', UTF8Decode(Token));
    145158    WriteFloat('Balance', Balance);
    146   finally
    147     Free;
    148   end;
     159    WriteString('BankCode', UTF8Decode(BankCode));
     160  finally
     161    Free;
     162  end;
     163end;
     164
     165constructor TAccount.Create;
     166begin
     167  Operations := TListObject.Create;
     168end;
     169
     170destructor TAccount.Destroy;
     171begin
     172  Operations.Free;
     173  inherited Destroy;
    149174end;
    150175
    … …  
    194219    Strings.Delete(Strings.Count - 1);
    195220  for I := 0 to Count - 1 do begin
    196     Strings.Strings[I] := TAccount(Items[I]).Name + ' (' + TAccount(Items[I]).Number + ')';
     221    Strings.Strings[I] := IntToStr(I) + ': ' + TAccount(Items[I]).Name + ' (' +
     222      TAccount(Items[I]).Number + '/' + TAccount(Items[I]).BankCode + ')';
    197223    Strings.Objects[I] := Items[I];
    198224  end;
    … …  
    240266  Result := StringReplace(Result, '%a', CurrentAccount.Number, [rfReplaceAll]);
    241267  Result := StringReplace(Result, '%n', CurrentAccount.Name, [rfReplaceAll]);
     268  Result := StringReplace(Result, '%b', CurrentAccount.BankCode, [rfReplaceAll]);
    242269  Result := StringReplace(Result, '%%', '%', [rfReplaceAll]);
    243270end;
    … …  
    273300      Node2 := Node.FindNode('bankId');
    274301      if Assigned(Node2) then
    275         Account.Number := Account.Number + '/' + UTF8Encode(Node2.TextContent);
     302        Account.BankCode := UTF8Encode(Node2.TextContent);
    276303      Node2 := Node.FindNode('closingBalance');
    277304      if Assigned(Node2) then
    … …  
    279306          DefaultFormatSettings.DecimalSeparator, [rfReplaceAll]));
    280307    end else begin
     308      Account.BankCode := '';
    281309      Account.Number := '';
    282310      Account.Balance := 0;
Note: See TracChangeset for help on using the changeset viewer.