africompta 1.9.8

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 704d5cbfc5f07dfb28510afdc7e48fc55ee903d5
+  data.tar.gz: c8f6198db4e0471ab210681789b9f9313770a55c
+SHA512:
+  metadata.gz: ba2375b01c9751d0cfa28a39f7f422b41478239c96f1594279471ba3bfba46dd6c7f013c32f487ccc43b3e74e909ca7641d8e7c30ea34829f49d6c6ef1d1f7d2
+  data.tar.gz: 961f644f75673085a8eda617a4a3d9d6afc410137fe9b304c52514c4f16013af20a915e6f6b19259ea9a9884eb4822fe3b7d47fabeca48f83b97721652feca35

data/.gitignore

@@ -0,0 +1,15 @@
+Backups
+db.*
+camping-1.5.old
+nohup.out
+.hg
+*.log
+config.yaml
+data
+tmp/
+.idea
+compta.db.*
+test/test.pdf
+test/*db
+test/data*
+/*gem

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in qooxview.gemspec
+gemspec

data/Gemfile.lock

@@ -0,0 +1,74 @@
+PATH
+  remote: .
+  specs:
+    africompta (1.9.8)
+      qooxview
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    activemodel (3.1.1)
+      activesupport (= 3.1.1)
+      builder (~> 3.0.0)
+      i18n (~> 0.6)
+    activerecord (3.1.1)
+      activemodel (= 3.1.1)
+      activesupport (= 3.1.1)
+      arel (~> 2.2.1)
+      tzinfo (~> 0.3.29)
+    activesupport (3.1.1)
+      multi_json (~> 1.0)
+    arel (2.2.1)
+    builder (3.0.4)
+    chunky_png (1.3.4)
+    docsplit (0.7.6)
+    gettext (3.0.0)
+      locale (>= 2.0.5)
+      text
+    helper_classes (0.2.1)
+    i18n (0.6.0)
+    iconv (1.0.3)
+    json (1.8.2)
+    locale (2.0.8)
+    multi_json (1.0.3)
+    net-ldap (0.5.1)
+    parseconfig (0.5.2)
+    pdf-core (0.5.1)
+    prawn (2.0.1)
+      pdf-core (~> 0.5.1)
+      ttfunk (~> 1.4.0)
+    qooxview (2.0.0.pre.pre1)
+      activemodel (= 3.1.1)
+      activerecord (= 3.1.1)
+      activesupport (= 3.1.1)
+      arel (= 2.2.1)
+      chunky_png (= 1.3.4)
+      docsplit (= 0.7.6)
+      gettext (= 3.0.0)
+      helper_classes (= 0.2.1)
+      i18n (= 0.6.0)
+      iconv (= 1.0.3)
+      json (= 1.8.2)
+      locale (= 2.0.8)
+      multi_json (= 1.0.3)
+      net-ldap (= 0.5.1)
+      parseconfig (= 0.5.2)
+      pdf-core (= 0.5.1)
+      prawn (= 2.0.1)
+      rqrcode (= 0.4.2)
+      rubyzip (= 1.1.7)
+      serialport (= 1.3.1)
+      text (= 1.2.3)
+      ttfunk (= 1.4.0)
+    rqrcode (0.4.2)
+    rubyzip (1.1.7)
+    serialport (1.3.1)
+    text (1.2.3)
+    ttfunk (1.4.0)
+    tzinfo (0.3.44)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  africompta!

data/TODO

@@ -0,0 +1,31 @@
+- Users
+	- some users can add accounts
+- Add remote repositories
+	- sync movements to a remote repository
+	
+Think
+	* What to do about a movement that includes an account not available to
+	that user?
+
+JOLI
+	* Edition des comptes en cliquant dedans
+	
+Performance:
+	/movement/list:
+			Before making it better
+		Sorting movements: 0.06-0.08
+		Writing accounts: 1.05-1.2
+		Preparing edit: 0.50-0.65
+		Sorting a year: 0.29-0.37
+		Movements: 1.60-1.65
+		Total: 3.6-3.8
+	
+			Kicking Markaby out of loops:
+		Sorting movements: 0.04-0.07
+		Writing accounts: 0.25-0.50
+		Preparing edit: 0.30-0.50
+		Sorting a year: 0.30-0.32
+		Movements: 0.25-0.35
+		Total: 1.15-1.50
+		
+			Improvement: Down to 30%-50%

data/Test/ac_account.rb

@@ -0,0 +1,128 @@
+require 'test/unit'
+
+class TC_Account < 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_path
+    assert_equal 'Root::Cash', @cash.path
+  end
+
+  def test_del_account
+    AccountRoot.accounts.each{|a|
+      dputs(1){"Found root-account #{a.inspect}"}
+      a.get_tree{|t|
+        dputs(1){
+          "#{t.path} - #{t.deleted.inspect}"
+        }
+      }
+    }
+    assert_equal false, @root.delete, @root.inspect
+    assert_equal false, @income.delete
+    old_index = @lending.rev_index
+    assert_equal true, @lending.delete
+    assert_operator old_index, :<, @lending.rev_index
+    
+    Accounts.create_path('Root::Cash::Foo', '')
+  end
+  
+  def test_account_root
+    Accounts.create_path('Root::Archive')
+    assert_equal nil, AccountRoot.archive
+    
+    Accounts.create_path('Archive')
+    assert_not_equal nil, AccountRoot.archive
+  end
+  
+  def test_clean
+    Accounts.create_path('Test')
+    Accounts.dump
+    count_mov, bad_mov, count_acc, bad_acc = AccountRoot.clean
+    assert_equal [ 4, 0, 19, 1 ],
+      [ count_mov, bad_mov, count_acc, bad_acc ]
+
+    Accounts.dump
+    count_mov, bad_mov, count_acc, bad_acc = AccountRoot.clean
+    assert_equal [ 4, 0, 19, 0 ],
+      [ count_mov, bad_mov, count_acc, bad_acc ]
+  end
+  
+  def test_merge_two_users
+    @user_1.update_all
+    @u1 = {'user' => 'user1', 'pass' => 'pass'}
+    @user_2.update_all
+    @u2 = {'user' => 'user2', 'pass' => 'pass'}
+    
+    a_id = ACaccess.post( 'account_get_id', @u1.merge( 'account' => 'Root') )
+    assert_equal '1', a_id
+    
+    assert_equal '', ACaccess.get('accounts_get/user1,pass')
+    assert_equal '', ACaccess.get('accounts_get/user2,pass')
+  end
+  
+  def test_merge_account_delete
+    test_merge_two_users
+    
+    @lending.delete
+    dputs(3){@lending.inspect}
+    ACaccess.post( 'account_put', @u1.merge( 'account' => @lending.to_s ) )
+    assert_equal '', ACaccess.get('accounts_get/user1,pass')
+    assert_equal @lending.to_s, ACaccess.get('accounts_get/user2,pass').chomp
+  end
+  
+  def test_merge_account_change
+    test_merge_two_users
+
+    @lending.name = 'Lendings'
+    @lending.new_index
+    dputs(3){@lending.inspect}
+    ACaccess.post( 'account_put', @u1.merge( 'account' => @lending.to_s ) )
+    assert_equal '', ACaccess.get('accounts_get/user1,pass')
+    assert_equal @lending.to_s, ACaccess.get('accounts_get/user2,pass').chomp
+    
+    assert_equal 1, @lending.account_id
+  end
+  
+  def test_print_pdf
+    @root.print_pdf( 'test.pdf', true )
+  end
+
+  def test_get_archives
+    (2011..2014).each{|y|
+      Movements.create( '', Date.new(y), 1000, @income, @cash )
+    }
+    Movements.create( '', Date.new(2013, 3, 3), 1000, @outcome, @cash )
+    Accounts.archive( 1, 2014 )
+
+    assert_equal %w(Archive::2011::Income Archive::2012::Income Archive::2013::Income),
+      Accounts.get_by_path('Root::Income').get_archives.collect{|a|
+      a.path }.sort
+    assert_equal %w(Archive::2012::Outcome Archive::2013::Outcome),
+      Accounts.get_by_path('Root::Outcome').get_archives.collect{|a|
+      a.path }.sort
+  end
+end