africompta 1.9.8

data/Test/ac_big.rb

@@ -0,0 +1,62 @@
+require 'test/unit'
+
+TESTBIG=false
+
+class TC_Big < Test::Unit::TestCase
+  def setup
+    setup_db
+  end
+
+  def teardown
+    Entities.save_all
+  end
+
+  def setup_db
+    dputs_func
+    dputs(1) { 'Setting up big data' }
+    Entities.delete_all_data()
+
+    dputs(2) { 'Resetting SQLite' }
+    SQLite.dbs_close_all
+    dputs(2) { 'Loading big data' }
+    MigrationVersions.create({:class_name => 'Account', :version => 2})
+    MigrationVersions.create({:class_name => 'Movement', :version => 1})
+    MigrationVersions.save
+    FileUtils.cp('db.man', 'data/compta.db')
+    SQLite.dbs_open_load_migrate
+    dputs(2) { 'Finished loading' }
+    Entities.save_all
+    @user = Users.match_by_name('local')
+  end
+
+  def reload_all
+    Entities.delete_all_data(true)
+    Entities.load_all
+  end
+
+  def test_matches_speed_improved
+    dputs_func
+    require 'benchmark'
+
+    ret = ''
+    dputs(1){ @user.account_index}
+    dputs(1) { Benchmark.measure {
+      ret = Accounts.data.select { |k, v|
+        v._rev_index > 14000 }.
+          collect { |k, v| Accounts.get_data_instance(k) }.
+          sort_by { |a| a.path }.reverse.
+          collect { |a| a.to_s }.
+          join("\n")
+    }.to_s
+    }
+    dputs(1){ ret.length}
+  end
+
+  def test_matches_speed_old
+    dputs_func
+    dputs(1) { Benchmark.measure {
+      ACaccess.accounts_fetch(@user)
+    }.to_s
+    }
+  end
+end

data/Test/ac_movement.rb

@@ -0,0 +1,59 @@
+require 'test/unit'
+
+class TC_Movement < Test::Unit::TestCase
+  def setup
+    dputs(1) { 'Setting up new data' }
+    Entities.delete_all_data()
+
+    dputs(2) { 'Resetting SQLite' }
+    SQLite.dbs_close_all
+    FileUtils.cp('db.testGestion', 'data/compta.db')
+    SQLite.dbs_open_load_migrate
+
+    dputs(2) { 'And searching for some accounts' }
+    @root = Accounts.match_by_name('Root')
+    @cash = Accounts.match_by_name('Cash')
+    @lending = Accounts.match_by_name('Lending')
+    @income = Accounts.match_by_name('Income')
+    @outcome = Accounts.match_by_name('Outcome')
+    @local = Users.match_by_name('local')
+
+    @user_1 = Users.create('user1', '', 'pass')
+    @user_2 = Users.create('user2', '', 'pass')
+  end
+
+  def teardown
+  end
+
+  def test_move
+    value_cash = @cash.total.to_f
+    value_lending = @lending.total.to_f
+    value_income = @income.total.to_f
+    m = Movements.create('test', Date.today, 1000, @cash, @lending)
+    assert_equal @cash, m.account_src
+    assert_equal @lending, m.account_dst
+    assert_equal value_cash + 1000, @cash.total.to_f
+    assert_equal value_lending - 1000, @lending.total.to_f
+
+    m.move_from_to(@cash, @income)
+    assert_equal @income, m.account_src
+    assert_equal @lending, m.account_dst
+    assert_equal value_cash, @cash.total.to_f
+    assert_equal value_income - 1000, @income.total.to_f
+    assert_equal value_lending - 1000, @lending.total.to_f
+
+    m.move_from_to(@lending, @cash)
+    assert_equal @income, m.account_src
+    assert_equal @cash, m.account_dst
+    assert_equal value_cash - 1000, @cash.total.to_f
+    assert_equal value_income - 1000, @income.total.to_f
+    assert_equal value_lending, @lending.total.to_f
+  end
+
+  def test_search_index
+    res = Movements.search_index_range(2, 3)
+    assert_equal 2, res.length
+    assert_equal Movement, res.first.class
+    assert_equal [2, 3], res.map { |m| m.rev_index }
+  end
+end

data/Test/ac_sqlite.rb

@@ -0,0 +1,139 @@
+require 'test/unit'
+require 'sqlite3'
+
+class TC_SQLite < Test::Unit::TestCase
+  def setup
+    Entities.delete_all_data()
+    SQLite.dbs_close_all
+    FileUtils.cp('db.testGestion', 'data/compta.db')
+    SQLite.dbs_open_load_migrate
+
+    dputs(2) { 'And searching for some accounts' }
+    @root = Accounts.match_by_name('Root')
+    @cash = Accounts.match_by_name('Cash')
+    @lending = Accounts.match_by_name('Lending')
+    @income = Accounts.match_by_name('Income')
+    @outcome = Accounts.match_by_name('Outcome')
+    @local = Users.match_by_name('local')
+
+    @user_1 = Users.create('user1', '', 'pass')
+    @user_2 = Users.create('user2', '', 'pass')
+  end
+
+  def teardown
+  end
+
+  def test_check_accounts
+    Entities.delete_all_data
+    Entities.load_all
+
+    tmpfile = '/tmp/compta.db'
+    tmpfile2 = '/tmp/compta2.db'
+
+    FileUtils.cp('data/compta.db', tmpfile)
+    in_db, diff, in_local = Accounts.check_against_db(tmpfile)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [], in_db
+    assert_equal [], diff
+    assert_equal [], in_local
+
+    Accounts.create('Services', '', Accounts.match_by_name('Income'))
+    in_db, diff, in_local = Accounts.check_against_db(tmpfile)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [], in_db
+    assert_equal [], diff
+    assert_equal Accounts.match_by_name('Services').to_s.to_a,
+                 in_local
+
+    Accounts.save
+    FileUtils.cp('data/compta.db', tmpfile2)
+    Accounts.match_by_name('Lending').name = 'Prêts'
+    in_db, diff, in_local = Accounts.check_against_db(tmpfile2)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [], in_db
+    assert_equal 1, diff.length
+    assert_equal [], in_local
+
+    Accounts.delete_all
+    Accounts.storage[:SQLiteAC].close_db
+    FileUtils.cp(tmpfile, 'data/compta.db')
+    SQLite.dbs_open_load_migrate
+    in_db, diff, in_local = Accounts.check_against_db(tmpfile2)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [Accounts.create('Services', '', Accounts.match_by_name('Income')).to_s],
+                 in_db
+    assert_equal 0, diff.length
+    assert_equal [], in_local
+  end
+
+  def add_mov(desc, value, src, dst)
+    Movements.create(desc, Date.today, value.to_f,
+                     Accounts.match_by_name(src), Accounts.match_by_name(dst))
+  end
+
+  def add_movements
+    [
+        %w( Income Cash course1 10),
+        %w( Income Cash course2 20),
+        %w( Income Cash course3 30),
+        %w( Cash Outcome salary1 25),
+        %w( Cash Outcome salary2 15),
+    ].each { |src, dst, desc, value|
+      add_mov desc, value, src, dst
+    }
+  end
+
+  def test_check_movements
+    Entities.delete_all_data()
+    Entities.load_all
+
+    add_movements
+    Movements.save
+    tmpfile = '/tmp/compta.db'
+    tmpfile2 = '/tmp/compta2.db'
+
+    FileUtils.cp('data/compta.db', tmpfile)
+    in_db, diff, in_local = Movements.check_against_db(tmpfile)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [], in_db
+    assert_equal [], diff
+    assert_equal [], in_local
+
+    add_mov 'Services', 20, 'Income', 'Cash'
+    in_db, diff, in_local = Movements.check_against_db(tmpfile)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [], in_db
+    assert_equal [], diff
+    assert_equal Movements.match_by_desc('Services').to_s.to_a,
+                 in_local
+
+    add_mov 'Services2', 20, 'Income', 'Cash'
+    Movements.match_by_desc('Services2').delete
+    Movements.save
+    FileUtils.cp('data/compta.db', tmpfile2)
+    in_db, diff, in_local = Movements.check_against_db(tmpfile2)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [], in_db
+    assert_equal [], diff
+    assert_equal [], in_local
+
+    Movements.save
+    FileUtils.cp('data/compta.db', tmpfile2)
+    Movements.match_by_desc('Services').desc = 'Prêts'
+    in_db, diff, in_local = Movements.check_against_db(tmpfile2)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [], in_db
+    assert_equal 1, diff.length
+    assert_equal [], in_local
+
+    Movements.delete_all
+    Movements.storage[:SQLiteAC].close_db
+    FileUtils.cp(tmpfile, 'data/compta.db')
+    SQLite.dbs_open_load_migrate
+    in_db, diff, in_local = Movements.check_against_db(tmpfile2)
+    dputs(3) { "#{in_db.inspect}\n#{diff.inspect}\n#{in_local.inspect}" }
+    assert_equal [add_mov('Services', 20, 'Income', 'Cash').to_s], in_db
+    assert_equal 0, diff.length
+    assert_equal [], in_local
+  end
+end

data/Test/config_test.yaml

@@ -0,0 +1,31 @@
+StorageType:
+  CSV:
+    csv_dir: ./data2/
+
+#autologin: linus
+#autologin: admin
+
+title: "Gestion du Markas-al-Nour"
+
+log: events.log
+
+compta_due:
+  host: "http://localhost:3301"
+  user: "gestion"
+  pass: "gestion777"
+  src: "Emprunts::"
+  dst: "Entrés"
+
+StorageHandler:
+  Replace:
+      LDAP: CSV
+
+AfriCompta:
+  disabled: true
+
+DiplomaDir: Diplomas
+
+Entities:
+  LogActions:
+    logging: false
+    

data/Test/test.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+##!/usr/local/bin/ruby -I.
+##!/usr/bin/ruby -I.. -I../../QooxView -I../../AfriCompta -I../../LibNet -I. -wKU
+%w( QooxView AfriCompta HelperClasses/lib ).each{|l|
+  $LOAD_PATH.push "../../#{l}"
+}
+$LOAD_PATH.push '.'
+
+require 'test/unit'
+require 'fileutils'
+
+FileUtils.rm_rf('data/')
+FileUtils.rm_rf('data2/')
+
+CONFIG_FILE='config_test.yaml'
+DEBUG_LVL=0
+
+require 'QooxView'
+require 'ACQooxView'
+require 'ACaccess'
+
+Permission.add( 'default', 'View,Welcome' )
+Permission.add( 'admin', '.*', '.*' )
+Permission.add( 'internet', 'Internet,PersonShow', 'default' )
+Permission.add( 'student', '', 'internet' )
+Permission.add( 'professor', '', 'student' )
+Permission.add( 'secretary', 'PersonModify', 'professor' )
+
+qooxView = QooxView.init( '../Entities', '../Views' )
+
+tests = %w( africompta account movement sqlite )
+#tests = %w( africompta )
+#tests = %w( sqlite )
+#tests = %w( big )
+tests.each{|t|
+  require "ac_#{t}"
+}
+
+# Fails test_archive_sum_up

data/VERSION

@@ -0,0 +1,140 @@
+Sometime
+	+ Change the movement/list-description field so it automatically
+	 takes the optimum width... Javascript-magic...
+	+ Put money from multiple into multiple accounts, but only once into any
+	 tree!
+	+ UNDO
+
+? - 1.3
+	+ Present transactions
+? - 1.2
+	+ Interface for Josue
+? - 1.1
+	+ Better user-authentification
+		+ Jobs for users
+	+ Open / close trees in account-view
+	+ Good <titles>
+
+130227 - 1.0.1
+        + Added interface for QooxView-Entities
+       	+ Use JSON instead of to_s and from_s -> take care about id's of
+	 the objects...
+        + lots of changes in account-handling
+	+ Fixed bugs
+        + added possibility to show archives
+        + cleaned up front-interface
+	+ Archive accounts and movements and hide them
+	+ Delete accounts and merge them
+	  + add "status" field with bits
+100421 - 0.9.8
+	+ added a movements_put to the code, so that a lot of movements don't
+	 block the server
+	+ removed several errors
+090601 - 0.9.7
+	+ Deleted the menu for chosing accounts, too slow
+090519 - 0.9.6
+	+ add menu for chosing accoun - it's slow, very slow!t
+	+ translation to french
+	+ Test for bad movements in own menu
+	+ merged report_c and report_a
+	+ Debug-level on 1
+	+ ledger - "grand livre" - first try
+081103 - 0.9.5
+	+ Fixed "changed"-method for ActiveRecord 2.1.x
+	+ Fixed wrong starting account in "report"-view
+081028 - 0.9.4
+	+ Speed up merge
+		- Accounts and Movements get a changed "revision":
+		 it is a global (one for Accounts and one for Movements)
+		 counter that increases steadily. If something is changed,
+		 the counter gets increased by one.
+		  Remote.account_index and Remote.movement_index point to the
+		 last Account and Movement transferred, while
+		  User.account_index and User.movement_index do the same on
+		 the server side
+		  User('local').account_index and User('local').movement_index
+		 point to the actual index used in the local database
+081009 - 0.9.3
+	* account-edit: only propagate multiplier if changed
+	* Only show range of time in accounts
+	* Insert checkboxes on movements and allow moving/deleting
+080717 - 0.9.2
+	* Merging works again when root-account is not id==0
+	* Cleanup "bypass_markaby" in movement.rb::movement_list
+080514 - 0.9.1
+	* Speed up movement-listing (wget: 3.0s -> 0.95s)
+	* Kick account-listing with totals and replace with a
+	 combobox
+	* Fix delete movement (still shown till next update)
+	* Report: Add all sub-accounts in the total of each month,
+	  including the name of the direct child
+080221 - 0.9
+	* Throw away user-restriction on accounts - 
+	 has to be re-evaluated in version 1.1
+	* Sort accounts alphabetically in lists
+	* Multiplier for accounts: +1 or -1
+	* When adding account, take multiplier of parent
+	 account
+	* Keep last account in "new movement"
+	* Monthly and yearly sums
+	* Speed: setting multipliers in merge-mode doesn't need to go
+	 recursif!
+080213 - 0.8.5
+	* Merge accounts
+		* Put a revision in the accounts, so they
+		 can be changed, too
+		* Allow for accounts to be merged back and
+		 forth
+080212 - 0.8.4
+	* Merge transactions
+		* If both change the transaction, the one
+		 who does the second merge looses!
+		* Only negativ revisions are to be sent,
+		 not revision == 0!
+	* Movement
+		* /movement/list needs to take into account
+		 the $ of the sub-accounts
+	* Interface
+		* More nice interface
+080201 - 0.8.3
+	* Merge transactions
+		* Deleted transactions (value == 0)
+080130 - 0.8.2
+	* Merge transactions
+		* Movements get the global_id of the accounts
+		* Fix the problem of who's older... or newer, btw.
+		 using a "version"-string
+		* Only send new movements to the other side
+080120 - 0.8.1
+	* Movements
+		* Editing, Deleting
+080119 - 0.8
+	* Add movements
+		* Date, Amount, src, dst
+		* Adding
+080116 - 0.7.1
+	* sync to a remote repository
+		* Check for authentification
+		* Add and update accounts
+	* added user "local" with random-md5-hashed string
+	  for unique representation of database
+		* user "local" is not shown for editing
+	* added unique account-ids Account.global_id based
+	  on the user "local"
+		* create global_id only upon creation of Account
+		  and not when editing
+	* Verify account-viewing when root-account is missing
+080114 - 0.7
+	* Add remote repositories
+080109 - 0.6
+	* Users
+		* Users and Accounts
+		* Users have passwords
+		* Accounts has_and_belongs_to_many Users
+		* Edit of Users
+	* Accounts
+		* Edit of Users
+	* General cleaning up
+080105 - 0.5
+	* Accounts work:
+		* It's possible to list, add and delete

data/africompta.gemspec

@@ -0,0 +1,20 @@
+Gem::Specification.new do |s|
+  s.name = 'africompta'
+  s.version = '1.9.8'
+  s.date = '2015-05-13'
+  s.summary = 'Africompta-module for QooxView'
+  s.description = 'With this module you can have a simple accounting-system'
+  s.authors = ['Linus Gasser']
+  s.email = 'ineiti@linusetviviane.ch'
+
+  s.files         = `git ls-files -z`.split("\x0")
+  s.executables   = s.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  s.test_files    = s.files.grep(%r{^(test|spec|features)/})
+  s.require_paths = ['lib']
+
+  s.homepage =
+      'https://github.com/ineiti/AfriCompta'
+  s.license = 'GPLv3'
+
+  s.add_dependency 'qooxview'
+end