africompta 1.9.10 → 1.9.11

data/lib/africompta/entities/report.rb

@@ -0,0 +1,136 @@
+class ReportAccounts < Entities
+  def setup_data
+    value_entity_account :root, :drop, :path
+    value_entity_account :account, :drop, :path
+    value_int :level
+  end
+end
+
+
+class Reports < Entities
+  def setup_data
+    value_str :name
+    value_list_entity_reportAccounts :accounts
+  end
+end
+
+class Report < Entity
+  attr_accessor :print_accounts, :print_movements, :print_account
+
+  def print_account_monthly(acc, start, months, counter)
+    stop = (start >> months) - 1
+
+    line = []
+    zeros = false
+    @print_account = ''
+    @print_accounts = counter.to_f / accounts.count
+    p_a = 0
+    acc.account.get_tree(acc.level.to_i) { |acc_sub, depth|
+      acc_sub.get_tree(depth > 0 ? 0 : -1) { p_a += accounts.count }
+    }
+    acc.account.get_tree(acc.level.to_i) { |acc_sub, depth|
+      dputs(2) { "Doing #{acc_sub.path} - #{depth.inspect}. Done: #{@print_accounts}" }
+      sum = Array.new(months) { 0 }
+      acc_sub.get_tree(depth > 0 ? 0 : -1) { |acc_sum|
+        @print_account = acc_sum.get_path
+        @print_accounts += 1.0 / p_a
+        p_m = 1.0 / acc_sum.movements.count
+        @print_movements = 0
+        acc_sum.movements.each { |m|
+          @print_movements += p_m
+          if (start..stop).include? m.date
+            sum[m.date.month - start.month] += m.get_value(acc_sum)
+          end
+        }
+      }
+      if sum.inject(false) { |m, o| m |= o != 0 } or line.size == 0
+        if line.size == 0
+          zeros = true
+        elsif zeros
+          line = []
+          zeros = false
+        end
+        line.push [acc_sub.path, sum + [sum.inject(:+)]]
+      end
+    }
+    line
+  end
+
+  def print_heading_monthly(start = Date.today, months = 12)
+    ['Period', (0...months).collect { |m|
+               (start >> m).strftime('%Y/%m')
+             } + ['Sum']]
+  end
+
+  def print_list_monthly(start = Date.today, months = 12)
+    stop = start >> (months - 1)
+    acc_counter = -1
+    list = accounts.collect { |acc|
+      line = print_account_monthly(acc, start, months, acc_counter += 1)
+      if line.size > 1
+        line.push ['Sum', line.reduce(Array.new(months+1, 0)) { |memo, obj|
+                          dputs(2) { "#{memo}, #{obj.inspect}" }
+                          memo = memo.zip(obj[1]).map { |a, b| a + b }
+                        }]
+      end
+      line
+    }
+    if list.size > 1
+      list + [[['Total', running = list.reduce(Array.new(months+1, 0)) { |memo, obj|
+                         dputs(2) { "#{memo}, #{obj.inspect}" }
+                         memo = memo.zip(obj.last.last).map { |a, b| a + b }
+                       }],
+               ['Running', running[0..-2].reduce([]) { |m, o| m + [(m.last || 0) + o] }]]]
+    else
+      list
+    end
+  end
+
+  def print(start = Date.today, months = 12)
+
+  end
+
+  def listp_accounts
+    accounts.collect { |a|
+      [a.id, "#{a.level}: #{a.account.path}"]
+    }
+  end
+
+  def print_pdf_monthly(start = Date.today, months = 12)
+    stop = start >> (months - 1)
+    file = "/tmp/report_#{name}.pdf"
+    Prawn::Document.generate(file,
+                             :page_size => 'A4',
+                             :page_layout => :landscape,
+                             :bottom_margin => 2.cm) do |pdf|
+
+      pdf.text "Report for #{name}",
+               :align => :center, :size => 20
+      pdf.font_size 7
+      pdf.text "From #{start.strftime('%Y/%m')} to #{stop.strftime('%Y/%m')}"
+      pdf.move_down 1.cm
+
+      pdf.table([print_heading_monthly(start, months).flatten.collect { |ch|
+                   {:content => ch, :align => :center} }] +
+                    print_list_monthly(start, months).collect { |acc|
+                      acc.collect { |a, values|
+                        [a] + values.collect { |v| Account.total_form(v) }
+                      }
+                    }.flatten(1).collect { |line|
+                      a, s = (line[0] =~ /::/ ? [:left, :normal] : [:right, :bold])
+                      [{:content => line.shift, :align => a, :font_style => s}] +
+                          line.collect { |v|
+                            {:content => v, :align => :right, :font_style => s} }
+                    },
+                :header => true)
+      pdf.move_down(2.cm)
+
+      pdf.repeat(:all, :dynamic => true) do
+        pdf.draw_text "#{Date.today} - #{name}",
+                      :at => [0, -20], :size => 10
+        pdf.draw_text pdf.page_number, :at => [18.cm, -20]
+      end
+    end
+    file
+  end
+end

data/lib/africompta/entities/users.rb

@@ -14,18 +14,25 @@ class Users < Entities
     value_int :movement_index
   end
 
+  def init
+    user = Users.create('local', Digest::MD5.hexdigest((rand 2**128).to_s).to_s,
+                        rand(2 ** 128).to_s)
+    user.account_index, user.movement_index = 0, 0
+    dputs(1) { "Created local user #{user}" }
+    user
+  end
+
   def load
     super
     if Users.search_by_name('local').count == 0
-      user = Users.create('local', Digest::MD5.hexdigest((rand 2**128).to_s).to_s,
-                          rand(2 ** 128).to_s)
-      dputs(1) { "Created local user #{user}" }
+      dputs(0) { 'User init not here' }
+      init
     end
   end
 
   def migration_1(u)
-    u.account_index ||= 0
-    u.movement_index ||= 0
+    u.account_index ||= -1
+    u.movement_index ||= -1
   end
 
   def create(name, full = nil, pass = nil)
@@ -34,7 +41,7 @@ class Users < Entities
       name, full, pass = name[:name], name[:full], name[:pass]
     end
     new_user = super(:name => name, :full => full, :pass => pass)
-    new_user.account_index, new_user.movement_index = 0, 0
+    new_user.account_index, new_user.movement_index = -1, -1
     new_user
   end
 end
@@ -52,4 +59,9 @@ class User < Entity
     update_movement_index
     update_account_index
   end
+
+  def reset_id
+    self.full = Digest::MD5.hexdigest((rand 2**128).to_s).to_s
+  end
+
 end

data/lib/africompta/views/compta/admin.rb

@@ -0,0 +1,135 @@
+class ComptaAdmin < View
+  def layout
+    @order = 300
+    @rsync_log = '/tmp/update_africompta'
+
+    gui_vbox do
+      gui_hbox do
+        show_button :merge
+      end
+      gui_hbox do
+        show_button :update_program
+      end
+      gui_hbox do
+        show_button :archive, :clean_up, :connect_server
+      end
+      gui_window :result do
+        show_html :txt
+        show_button :close
+      end
+
+      gui_window :get_server do
+        show_str :url, width: 200
+        show_str :user
+        show_str :pass
+        show_button :copy_from_server
+      end
+    end
+  end
+
+  def rpc_update_view(session)
+    super(session) +
+        reply_visible(ConfigBase.has_function?(:accounting_standalone),
+                      [:connect_server, :update_program])
+  end
+
+  def rpc_button_archive(session, data)
+    Accounts.archive
+  end
+
+  def rpc_button_clean_up(session, data)
+    count_mov, bad_mov,
+        count_acc, bad_acc = AccountRoot.clean
+    reply(:window_show, :result) +
+        reply(:update, :txt => "Movements total / bad: #{count_mov}/#{bad_mov}<br>" +
+                         "Accounts total / bad: #{count_acc}/#{bad_acc}")
+  end
+
+  def rpc_button_connect_server(session, data)
+    reply(:window_show, :get_server) +
+        reply(:update, url: 'http://localhost:3303/acaccess',
+              user: 'other', pass: 'other')
+  end
+
+  def rpc_button_copy_from_server(session, data)
+    remote = Remotes.get_db(data._url, data._user, data._pass)
+    reply(:window_hide) +
+        reply(:window_show, :result) +
+        if remote.class == Remote
+          reply(:update, txt: 'Copying was successful.')
+        else
+          reply(:update, txt: "Error while copying:\n#{remote}")
+        end
+  end
+
+  def rpc_button_close(session, data)
+    reply(:window_hide)
+  end
+
+  def rpc_button_merge(session, data)
+    @merge = Thread.new do
+      System.rescue_all do
+        (@remote = Remotes.search_all_.first).do_merge
+      end
+    end
+    session.s_data._compta_admin = :merge
+    reply(:window_show, :result) +
+        reply(:update, txt: 'Starting merge') +
+        reply(:auto_update, -1)
+  end
+
+  def rpc_update_with_values(session, data)
+    case session.s_data._compta_admin
+      when :merge
+        stat_str = %w(got_accounts put_accounts got_movements put_movements
+                put_movements_changes).collect { |v| "#{v}: #{@remote.send(v)}" }.
+            join('<br>')
+        ret = @remote.step =~ /^done/ ? reply(:auto_update, 0) : []
+        ret + reply(:update, txt: "Merge-step: #{@remote.step}<br>" + stat_str)
+      when :update_program
+        stat = IO.read(@rsync_log).split("\r")
+        if Process.waitpid(session.s_data._update_program, Process::WNOHANG)
+          session.s_data._update_program = nil
+          reply(:update, txt: 'Update finished<br>eventual non-100% total is normal<br>' +
+                           stat.last(2).join('<br>')) +
+              reply(:auto_update, 0)
+        else
+          reply(:update, txt: 'Updating<br>' + stat.last.to_s)
+        end
+      else
+        dputs(0) { "Updating with #{data.inspect} and #{session.inspect}" }
+    end
+  end
+
+  def rpc_button_close(session, data)
+    if session.s_data._compta_admin == :update_program
+      if (pid = session.s_data._update_program) &&
+          !Process.waitpid(pid, Process::WNOHANG)
+        log_msg :update_program, 'Killing rsync'
+        Process.kill('KILL', pid)
+      end
+    end
+    reply(:window_hide) +
+        reply(:auto_update, 0)
+  end
+
+  def rpc_button_update_program(session, data)
+    session.s_data._compta_admin = :update_program
+    remote_path = 'profeda.org::africompta-mac'
+    if System.run_str('pwd') =~ /AfriCompta\.app/
+      log_msg :update_africompta, 'Updating real app'
+      bwlimit = ''
+      local_path = '../../../..'
+    else
+      log_msg :update_africompta, 'Simulating update in /tmp'
+      bwlimit = '--bwlimit=10k'
+      local_path = '/tmp'
+    end
+    ac_cmd = "rsync -az --delete --info=progress2 #{bwlimit} #{remote_path} #{local_path}"
+    session.s_data._update_program = spawn(ac_cmd, :out => @rsync_log)
+
+    reply(:window_show, :result) +
+        reply(:update, txt: 'Starting update') +
+        reply(:auto_update, -1)
+  end
+end

data/lib/africompta/views/compta/check.rb

@@ -0,0 +1,245 @@
+class ComptaCheck < View
+  def layout
+    @order = 400
+    gui_vbox do
+      gui_hbox :nogroup do
+        gui_vbox :nogroup do
+          show_int_ro :accounts_only_db
+          show_int_ro :accounts_only_server
+          show_int_ro :accounts_mixed
+        end
+        gui_vboxg :nogroup do
+          show_table :accounts, :headings => [:Check, :Name, :Total],
+                     :widths => [100, 300, 75], :height => 400,
+                     :columns => [0, 0, :align_right]
+          show_button :accounts_delete, :accounts_copy
+        end
+      end
+
+      gui_hbox :nogroup do
+        gui_vbox :nogroup do
+          show_int_ro :movements_only_db
+          show_int_ro :movements_only_server
+          show_int_ro :movements_mixed
+
+        end
+        gui_vboxg :nogroup do
+          show_table :movements, :headings => [:Check, :Date, :Desc, :Value, :Src, :Dst],
+                     :widths => [100, 100, 300, 100, 100, 100], :height => 400,
+                     :columns => [0, 0, 0, :align_right, 0, 0], :flexwidth => 1
+          show_button :movements_delete, :movements_copy
+        end
+      end
+
+      gui_hbox :nogroup do
+        show_upload :upload_db, :callback => true
+      end
+
+      gui_window :progress do
+        show_html :progress_txt
+        show_button :close, :continue
+      end
+    end
+  end
+
+  def check_split(arr)
+   [arr[0].collect { |a| a.split(/[\r\t]/) },
+        arr[1].collect { |a, b|
+          [a.split(/[\r\t]/),
+           b.split(/[\r\t]/)]
+        },
+        arr[2].collect { |a| a.split(/[\r\t]/) }]
+  end
+
+  def start_thread(session, mod)
+    session.s_data._check_module = mod
+    Thread.start {
+      System.rescue_all do
+        case mod
+          when /Accounts/
+            dputs(2) { 'Starting check_accounts' }
+            session.s_data._check_accounts =
+                check_split(orig = Accounts.check_against_db(session._s_data._filename))
+            session.s_data._check_accounts_orig = orig
+          when /Movements/
+            dputs(2) { 'Starting check_movements' }
+            session.s_data._check_movements =
+                check_split(orig = Movements.check_against_db(session._s_data._filename))
+            session.s_data._check_movements_orig = orig
+        end
+      end
+    }
+    sleep 1
+  end
+
+  def get_accounts(accounts, row)
+    accounts.each { |a|
+      row[a] = (acc = Accounts.match_by_global_id(row[a])) ? acc.name : 'nil'
+    }
+    row
+  end
+
+  def collect_table(id, check, rows, cols, accounts = [])
+    level = check.class == String ? 0 : 1
+    counter = 0
+    rows.collect { |r|
+         counter += 1
+         if check.class == String
+           c = get_accounts(accounts, r)
+           ["#{id},#{counter}", cols.collect { |col_nbr| c[col_nbr] }.unshift(check)]
+         else
+           c1 = get_accounts(accounts, r[0])
+           c2 = get_accounts(accounts, r[1])
+           [["#{id},#{counter}", cols.collect { |col_nbr| c1[col_nbr] }.unshift(check[0])],
+               ["#{id},#{counter}", cols.collect { |col_nbr| c2[col_nbr] }.unshift(check[1])]]
+         end
+       }.flatten(level)
+  end
+
+  def update_counters_tables(session, data)
+    accs, movs = session.s_data._check_accounts, session.s_data._check_movements
+    dputs(2) { "Done. accs, movs = #{accs.collect { |a| a.size }} - "+
+        "#{movs.collect { |m| m.size }}" }
+    reply(:window_hide) +
+        reply(:auto_update, 0) +
+        reply(:update, accounts_only_db: accs[0].size, accounts_only_server: accs[2].size,
+              accounts_mixed: accs[1].size,
+              movements_only_db: movs[0].size, movements_only_server: movs[2].size,
+              movements_mixed: movs[1].size) +
+        reply(:update, accounts: collect_table(0, 'File only', accs[0], [3, 2]) +
+                         collect_table(2, 'Server only', accs[2], [3, 2]) +
+                         collect_table(1, ['Mix - File', 'Mix - Server'], accs[1], [3, 2]),
+              movements: collect_table(0, 'File only', movs[0], [3, 0, 2, 4, 5], [4, 5]) +
+                  collect_table(2, 'Server only', movs[2], [3, 0, 2, 4, 5], [4, 5]) +
+                  collect_table(1, ['Mix - File', 'Mix - Server'], movs[1], [3, 0, 2, 4, 5], [4, 5]))
+  end
+
+  def rpc_update_with_values(session, data)
+    state, progress = case mod = session.s_data._check_module
+                        when /Accounts/
+                          [Accounts.check_state, Accounts.check_progress]
+                        when /Movements/
+                          [Movements.check_state, Movements.check_progress]
+                        else
+                          ['Error', 0]
+                      end
+    dputs(3) { "Found module #{mod} with state #{state}: #{progress}" }
+    ret = reply(:update, :progress_txt => "#{mod}: #{state} - #{(progress * 100).floor}%")
+    if state == 'Done'
+      if mod == :Accounts
+        dputs(2) { 'Module Accounts done, starting Movements' }
+        start_thread(session, :Movements)
+      else
+        ret += update_counters_tables(session, data)
+      end
+    end
+    ret
+  end
+
+  def rpc_button_upload_db(session, data)
+    session._s_data._filename = "/tmp/#{UploadFiles.escape_chars(data._filename)}"
+    reply(:window_show, :progress) +
+        reply(:update, progress_txt: "Uploaded file #{session._s_data._filename}") +
+        reply(:unhide, :continue) +
+        rpc_button_continue(session, data)
+  end
+
+  def rpc_button_continue(session, data)
+    start_thread(session, :Accounts)
+    reply(:auto_update, -1) +
+        reply(:update, progress_txt: 'Starting checking') +
+        reply(:hide, :continue)
+  end
+
+  def get_entities(ent, rows, table, gid)
+    table.collect { |t|
+         r, ind = t.split(',').collect { |i| i.to_i }
+         [r, ind-1, if r == 1
+                      ent.match_by_global_id(rows[r][ind-1][1][gid])
+                    else
+                      ent.match_by_global_id(rows[r][ind-1][gid])
+                    end]
+       }
+  end
+
+  def action(session, ent, table, what)
+    case ent.to_s
+      when /Movements/
+        rows = session.s_data._check_movements
+        rows_orig = session.s_data._check_movements_orig
+      when /Accounts/
+        rows = session.s_data._check_accounts
+        rows_orig = session.s_data._check_accounts_orig
+    end
+    gid = ent == Movements ? 1 : 1
+    msgs = []
+    get_entities(ent, rows, table, gid).
+        each { |source, ind, e|
+      case ent.to_s
+        when /Movements/
+          case what
+            when :copy
+              case source
+                when 0
+                  mov = Movements.from_s(rows_orig[0][ind])
+                  msgs.push "Created movement #{mov.desc}"
+                when 1
+                  mov = Movements.from_s(rows_orig[1][ind][0])
+                  msgs.push "Created movement #{mov.desc}"
+                when 2
+                  e.new_index
+                  msgs.push "Updated index of #{e.desc}"
+              end
+            when :delete
+              if source > 0
+                e.delete
+                msgs.push 'Deleted movement'
+              else
+                msgs.push "Didn't delete movement from file"
+              end
+          end
+        when /Accounts/
+          case what
+            when :copy
+              if source == 0
+                acc = Accounts.from_s(rows_orig[0][ind])
+                msgs.push "Copied account #{acc.name} from file"
+              else
+                msgs.push "Didn't copy account from server to file or clean-up mixed"
+              end
+            when :delete
+              if source > 0
+                if e.is_empty
+                  e.delete
+                  msgs.push "Deleted account #{e.get_path}"
+                else
+                  msgs.push "Account #{e.get_path} is not empty"
+                end
+              else
+                msgs.push "Can't delete account in file"
+              end
+          end
+      end
+    }
+    reply(:window_show, :progress) +
+        reply(:update, progress_txt: "Done. Msgs:<br><pre>#{msgs.join("\n")}</pre>") +
+        reply(:hide, :continue)
+  end
+
+  def rpc_button_movements_copy(session, data)
+    action(session, Movements, data._movements, :copy)
+  end
+
+  def rpc_button_movements_delete(session, data)
+    action(session, Movements, data._movements, :delete)
+  end
+
+  def rpc_button_accounts_copy(session, data)
+    action(session, Accounts, data._accounts, :copy)
+  end
+
+  def rpc_button_accounts_delete(session, data)
+    action(session, Accounts, data._accounts, :delete)
+  end
+
+end