source: nastroje/prevod_osnovy/UMainForm.pas

unit UMainForm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
var
  Source, Dest: TStringList;
  I: Integer;
  SourceLine, DestLine: TStringList;
  Typ: TStringList;
  UserType: string;
  Sub: string;
  SubUnderline: string;
  SubSpace: string;
  SubName: string;
begin
  try
    Typ := TStringList.Create;
    Typ.Add('A=active');
    Typ.Add('P=passive');
    Typ.Add('N=expenses');
    Typ.Add('V=incomes');
    Typ.Add('=result');

    Source := TStringList.Create;
    Dest := TStringList.Create;
    SourceLine := TStringList.Create;
    DestLine := TStringList.Create;

    Dest.Add('<?xml version="1.0" encoding="utf-8"?>');
    Dest.Add('<openerp>');
    Dest.Add('<data noupdate="1">');

    Dest.Add('<record id="' +
    'account_template_root" model="account.account.template">');
    Dest.Add('  <field name="code">root</field>');
    Dest.Add('  <field name="name">Kořenový účet</field>');
    Dest.Add('  <field name="parent_id" ref=""/>');
    Dest.Add('  <field name="type">view</field>');
    Dest.Add('  <field name="user_type" ref="active"/>');
    Dest.Add('</record>');

    Source.LoadFromFile('osnova_tridy.csv');
    for I := 0 to Source.Count - 1 do begin
      SourceLine.CommaText := Source[I];
      Dest.Add('<record id="' +
      'account_template_' + Trim(SourceLine[0]) +
      '" model="account.account.template">');
      Dest.Add('  <field name="code">' + Trim(SourceLine[0]) + '</field>');
      Dest.Add('  <field name="name">' + Trim(SourceLine[1]) + '</field>');
      Dest.Add('  <field name="parent_id" ref="account_template_root"/>');
      Dest.Add('  <field name="type">view</field>');
      Dest.Add('  <field name="user_type" ref="active"/>');
      Dest.Add('</record>');
    end;

    Source.LoadFromFile('osnova_skupiny.csv');
    for I := 0 to Source.Count - 1 do begin
      SourceLine.CommaText := Source[I];
      Dest.Add('<record id="' +
      'account_template_' + Trim(SourceLine[0]) +
      '" model="account.account.template">');
      Dest.Add('  <field name="code">' + Trim(SourceLine[0]) + '</field>');
      Dest.Add('  <field name="name">' + Trim(SourceLine[1]) + '</field>');
      Dest.Add('  <field name="parent_id" ref="' +
        'account_template_' + Trim(Copy(SourceLine[0], 1, Length(Trim(SourceLine[0])) - 1)) +
        '"/>');
      Dest.Add('  <field name="type">view</field>');
      Dest.Add('  <field name="user_type" ref="active"/>');
      Dest.Add('</record>');
    end;

    Source.LoadFromFile('osnova_ucty.csv');
    for I := 0 to Source.Count - 1 do begin

      SourceLine.CommaText := Source[I];
      SourceLine[0] := Trim(SourceLine[0]);
      if Pos(' ', Trim(SourceLine[0])) > 0 then begin
        Sub := Copy(SourceLine[0], Pos(' ', SourceLine[0]) + 1, 255);
        SourceLine[0] := Copy(SourceLine[0], 1, Pos(' ', SourceLine[0]) - 1);
        SubUnderline := '_' + Sub;
        SubSpace := ' ' + Sub;
        SubName := ' ' + Trim(SourceLine[4]);
      end else begin
        Sub := '';
        SubUnderline := '';
        SubSpace := '';
        SubName := '';;
      end;

      Dest.Add('<record id="' +
      'account_template_' + Trim(SourceLine[0]) + SubUnderline +
      '" model="account.account.template">');
      Dest.Add('  <field name="code">' + Trim(SourceLine[0]) + SubSpace + '</field>');
      Dest.Add('  <field name="name">' + Trim(SourceLine[3]) + SubName + '</field>');
      Dest.Add('  <field name="parent_id" ref="' +
        'account_template_' + Trim(Copy(SourceLine[0], 1, Length(Trim(SourceLine[0])) - 1)) +
        '"/>');
      Dest.Add('  <field name="type">view</field>');
      UserType := Typ.Values[Trim(SourceLine[1])];
      if UserType = '' then UserType := 'result';

      Dest.Add('  <field name="user_type" ref="' + UserType + '"/>');
      Dest.Add('</record>');
      Memo1.Lines.Add(IntToStr(SourceLine.Count) + ': ' + SourceLine[1] + ' => ' + Typ.Values[SourceLine[1]]);

    end;

    Dest.Add('</data>');
    Dest.Add('</openerp>');

    Dest.SaveToFile('account_template.xml');
  finally
    SourceLine.Free;
    DestLine.Free;
    Source.Free;
    Dest.Free;
    Typ.Free;
  end;
end;

end.