lucabook 0.2.24 → 0.2.29

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 55e730a696b4537183e9a298cff7d715c2a93dfa22fabc10cc889fd18c72b1a1
-  data.tar.gz: f5e579c528ad978533f7df60eed6b4a494dd723a4fdef15180622737fd9be32a
+  metadata.gz: b6e3ddc43f78a55be0357756cc617efd9fc798836cd771e4814a058e62abc6eb
+  data.tar.gz: b5b6d3419d2dbfcee9f859744c7513830a6576868a6a51241ea0ee04633c0c5f
 SHA512:
-  metadata.gz: 607110ed2c686b35c1be749b16bd6f4c0827450e55277d44c62ddb5acfb06fbb67d601c9fe475c453f5999afa23a1bf83923d7251ba72a7a24267e0cfc8b4057
-  data.tar.gz: d8fe5540370bc81494847b5f9d975667d19bda4e7979fc852556e81b2adbd644b87ca11bdf7601334454cfe545070698e0e20570895fd2e0eb4bb790eea19711
+  metadata.gz: f2c7c3b7043a60f39379be1c6e36b02367e2ec31261b0268768934c2f258cba62d3fc042f6286c5ac62b15289a89d1ac6e05143dcb9f2ecc04b5aa8d37bb9a89
+  data.tar.gz: 653e43c3f11785dabf83e8997810ae3316b8549b8370854e42bcc170ba54729dc50762e11e0733fbff2994fc15a37d6ac1eeb60c2581885f451acafeb57f5cdc

data/exe/luca-book

@@ -19,13 +19,15 @@ class LucaCmd
     end
 
     def self.list(args, params)
-      args = gen_range(params[:n] || 1) if args.empty?
+      args = gen_range(params[:n]) if args.empty?
       if params['code']
         if params['headers']
           render(LucaBook::ListByHeader.term(*args, code: params['code'], header: params['headers']).list_by_code, params)
         else
-          render(LucaBook::List.term(*args, code: params['code']).list_by_code, params)
+          render(LucaBook::List.term(*args, code: params['code'], recursive: params[:recursive]).list_by_code(params[:recursive]), params)
         end
+      elsif params['render']
+        puts LucaBook::List.term(*args).render_html(params['render'])
       else
         render(LucaBook::List.term(*args).list_journals, params)
       end
@@ -34,7 +36,7 @@ class LucaCmd
     def self.stats(args, params)
       args = gen_range(params[:n]) if args.empty?
       if params['code']
-        render(LucaBook::State.by_code(params['code'], *args), params)
+        render(LucaBook::State.by_code(params['code'], *args, recursive: params[:recursive]), params)
       else
         render(LucaBook::State.range(*args).stats(params[:level]), params)
       end
@@ -51,6 +53,13 @@ class LucaCmd
   end
 
   class Report < LucaCmd
+    def self.xbrl(args, params)
+      level = params[:level] || 3
+      legal = params[:legal] || false
+      args = gen_range(params[:n] || 1) if args.empty?
+      LucaBook::State.range(*args).render_xbrl(params[:output])
+    end
+
     def self.balancesheet(args, params)
       level = params[:level] || 3
       legal = params[:legal] || false
@@ -63,13 +72,27 @@ class LucaCmd
       args = gen_range(params[:n]) if args.empty?
       render(LucaBook::State.range(*args).pl(level), params)
     end
+
+    def self.report_mail(args, params)
+      level = params[:level] || 3
+      args = gen_range(params[:n] || 12) if args.empty?
+      render(LucaBook::State.range(*args).report_mail(level), params)
+    end
   end
 
-  def self.gen_range(count)
-    count ||= 3
+  def self.gen_range(count = nil)
     today = Date.today
-    start = today.prev_month(count - 1)
-    [start.year, start.month, today.year, today.month]
+    if count
+      start = today.prev_month(count - 1)
+      [start.year, start.month, today.year, today.month]
+    else
+      start_year = if today.month >= LucaSupport::CONFIG['fy_start'].to_i
+                     today.year
+                   else
+                     today.year - 1
+                   end
+      [start_year, LucaSupport::CONFIG['fy_start'], start_year + 1, LucaSupport::CONFIG['fy_start'].to_i - 1]
+    end
   end
 
   def self.render(dat, params)
@@ -82,6 +105,12 @@ class LucaCmd
       puts YAML.dump(dat)
     end
   end
+
+  class Dict < LucaCmd
+    def self.update_balance(args, params)
+      LucaBook::Dict.generate_balance(*args)
+    end
+  end
 end
 
 def new_pj(args = nil, params = {})
@@ -105,13 +134,17 @@ when /journals?/, 'j'
       LucaCmd::Journal.import(args, params)
     end
   when 'list'
+    params[:recursive] = false
     OptionParser.new do |opt|
       opt.banner = 'Usage: luca-book journals list [options] [YYYY M]'
-      opt.on('-c', '--code VAL', 'search with code') { |v| params['code'] = v }
+      opt.on('-c', '--code VAL', 'filter with code or label') { |v| params['code'] = v }
+      opt.on('-r', '--recursive', 'include subaccounts') { |_v| params[:recursive] = true }
       opt.on('--customer', 'categorize by x-customer header') { |_v| params['headers'] = 'x-customer' }
       opt.on('-n VAL', 'report count') { |v| params[:n] = v.to_i }
       opt.on('--nu', 'show table in nushell') { |_v| params[:output] = 'nu' }
       opt.on('-o', '--output VAL', 'output serialized data') { |v| params[:output] = v }
+      opt.on('--html', 'output journals html') { |_v| params['render'] = :html }
+      opt.on('--pdf', 'output journals PDF') { |_v| params['render'] = :pdf }
       opt.on_tail('List records. If you specify code and/or month, search on each criteria.')
       args = opt.parse!(ARGV)
       LucaCmd::Journal.list(args, params)
@@ -127,9 +160,11 @@ when /journals?/, 'j'
       LucaCmd::Journal.add_header(args, params)
     end
   when 'stats'
+    params[:recursive] = false
     OptionParser.new do |opt|
       opt.banner = 'Usage: luca-book journals stats [options] [YYYY M]'
-      opt.on('-c', '--code VAL', 'search with code') { |v| params['code'] = v }
+      opt.on('-c', '--code VAL', 'filter with code or label') { |v| params['code'] = v }
+      opt.on('-r', '--recursive', 'include subaccounts') { |_v| params[:recursive] = true }
       opt.on('-n VAL', 'report count') { |v| params[:n] = v.to_i }
       opt.on('--nu', 'show table in nushell') { |_v| params[:output] = 'nu' }
       opt.on('-o', '--output VAL', 'output serialized data') { |v| params[:output] = v }
@@ -155,6 +190,13 @@ when 'new'
 when /reports?/, 'r'
   subcmd = ARGV.shift
   case subcmd
+  when 'xbrl'
+    OptionParser.new do |opt|
+      opt.banner = 'Usage: luca-book reports bs [options] [YYYY M]'
+      opt.on('-o', '--output VAL', 'output filename') { |v| params[:output] = v }
+      args = opt.parse!(ARGV)
+      LucaCmd::Report.xbrl(args, params)
+    end
   when 'bs'
     OptionParser.new do |opt|
       opt.banner = 'Usage: luca-book reports bs [options] [YYYY M]'
@@ -175,6 +217,14 @@ when /reports?/, 'r'
       args = opt.parse!(ARGV)
       LucaCmd::Report.profitloss(args, params)
     end
+  when 'mail'
+    OptionParser.new do |opt|
+      opt.banner = 'Usage: luca-book reports mail [options] [YYYY M YYYY M]'
+      opt.on('-l', '--level VAL', 'account level') { |v| params[:level] = v.to_i }
+      opt.on('-n VAL', 'report count') { |v| params[:n] = v.to_i }
+      args = opt.parse!(ARGV)
+      LucaCmd::Report.report_mail(args, params)
+    end
   else
     puts 'Proper subcommand needed.'
     puts
@@ -183,6 +233,16 @@ when /reports?/, 'r'
     puts '  pl: show statement of income'
     exit 1
   end
+when /balance/
+  subcmd = ARGV.shift
+  case subcmd
+  when 'update'
+    OptionParser.new do |opt|
+      opt.banner = 'Usage: luca-book balance update YYYY [M]'
+      args = opt.parse!(ARGV)
+      LucaCmd::Dict.update_balance(args, params)
+    end
+  end
 else
   puts 'Proper subcommand needed.'
   puts

data/lib/luca_book.rb

@@ -5,6 +5,7 @@ require 'luca_record'
 require 'luca_book/version'
 
 module LucaBook
+  autoload :Accumulator, 'luca_book/accumulator'
   autoload :Dict, 'luca_book/dict'
   autoload :Import, 'luca_book/import'
   autoload :Journal, 'luca_book/journal'
@@ -12,5 +13,6 @@ module LucaBook
   autoload :ListByHeader, 'luca_book/list_by_header'
   autoload :Setup, 'luca_book/setup'
   autoload :State, 'luca_book/state'
+  autoload :Test, 'luca_book/test'
   autoload :Util, 'luca_book/util'
 end

data/lib/luca_book/accumulator.rb

@@ -0,0 +1,212 @@
+# frozen_string_literal: true
+
+require 'luca_book/util'
+require 'luca_support/config'
+
+module LucaBook
+  module Accumulator
+    def self.included(klass) # :nodoc:
+      klass.extend ClassMethods
+    end
+
+    module ClassMethods
+      def accumulate_month(year, month)
+        monthly_record, count = net(year, month)
+        [total_subaccount(monthly_record), count]
+      end
+
+      # Accumulate Level 2, 3 account.
+      #
+      def total_subaccount(report)
+        {}.tap do |res|
+          res['A0'] = sum_matched(report, /^[A][0-9A-Z]{2,}/)
+          res['B0'] = sum_matched(report, /^[B][0-9A-Z]{2,}/)
+          res['BA'] = res['A0'] - res['B0']
+          res['C0'] = sum_matched(report, /^[C][0-9A-Z]{2,}/)
+          res['CA'] = res['BA'] - res['C0']
+          res['D0'] = sum_matched(report, /^[D][0-9A-Z]{2,}/)
+          res['E0'] = sum_matched(report, /^[E][0-9A-Z]{2,}/)
+          res['EA'] = res['CA'] + res['D0'] - res['E0']
+          res['F0'] = sum_matched(report, /^[F][0-9A-Z]{2,}/)
+          res['G0'] = sum_matched(report, /^[G][0-9][0-9A-Z]{1,}/)
+          res['GA'] = res['EA'] + res['F0'] - res['G0']
+          res['H0'] = sum_matched(report, /^[H][0-9][0-9A-Z]{1,}/)
+          res['HA'] = res['GA'] - res['H0']
+
+          report['9142'] = (report['9142'] || BigDecimal('0')) + res['HA']
+          res['9142'] = report['9142']
+          res['10'] = sum_matched(report, /^[12][0-9A-Z]{2,}/)
+          jp_4v = sum_matched(report, /^[4][V]{2,}/) # deferred assets for JP GAAP
+          res['30'] = sum_matched(report, /^[34][0-9A-Z]{2,}/) - jp_4v
+          res['4V'] = jp_4v if LucaSupport::CONFIG['country'] == 'jp'
+          res['50'] = sum_matched(report, /^[56][0-9A-Z]{2,}/)
+          res['70'] = sum_matched(report, /^[78][0-9A-Z]{2,}/)
+          res['91'] = sum_matched(report, /^91[0-9A-Z]{1,}/)
+          res['8ZZ'] = res['50'] + res['70']
+          res['9ZZ'] = sum_matched(report, /^[9][0-9A-Z]{2,}/)
+
+          res['1'] = res['10'] + res['30']
+          res['5'] = res['8ZZ'] + res['9ZZ']
+          res['_d'] = report['_d']
+
+          report.each do |k, v|
+            res[k] ||= sum_matched(report, /^#{k}[0-9A-Z]{1,}/) if k.length == 2
+            res[k] = v if k.length == 3
+          end
+
+          report.each do |k, v|
+            if k.length >= 4
+              if res[k[0, 3]]
+                res[k[0, 3]] += v
+              else
+                res[k[0, 3]] = v
+              end
+              res[k] = v
+            end
+          end
+          res.sort.to_h
+        end
+      end
+
+      def sum_matched(report, reg)
+        report.select { |k, v| reg.match(k)}.values.sum
+      end
+
+      # for assert purpose
+      #
+      def gross(start_year, start_month, end_year = nil, end_month = nil, code:  nil, date_range: nil, rows: 4, recursive: false)
+        if ! date_range.nil?
+          raise if date_range.class != Range
+          # TODO: date based range search
+        end
+
+        end_year ||= start_year
+        end_month ||= start_month
+        sum = { debit: {}, credit: {}, debit_count: {}, credit_count: {} }
+        idx_memo = []
+        term(start_year, start_month, end_year, end_month, code, 'journals') do |f, _path|
+          CSV.new(f, headers: false, col_sep: "\t", encoding: 'UTF-8')
+            .each_with_index do |row, i|
+            break if i >= rows
+
+            case i
+            when 0
+              idx_memo = row.map(&:to_s)
+              next if code && idx_memo.select { |idx| /^#{code}/.match(idx) }.empty?
+
+              idx_memo.each do |r|
+                sum[:debit][r] ||= BigDecimal('0')
+                sum[:debit_count][r] ||= 0
+              end
+            when 1
+              next if code && idx_memo.select { |idx| /^#{code}/.match(idx) }.empty?
+
+              row.each_with_index do |r, j|
+                sum[:debit][idx_memo[j]] += BigDecimal(r.to_s)
+                sum[:debit_count][idx_memo[j]] += 1
+              end
+            when 2
+              idx_memo = row.map(&:to_s)
+              break if code && idx_memo.select { |idx| /^#{code}/.match(idx) }.empty?
+
+              idx_memo.each do |r|
+                sum[:credit][r] ||= BigDecimal('0')
+                sum[:credit_count][r] ||= 0
+              end
+            when 3
+              row.each_with_index do |r, j|
+                sum[:credit][idx_memo[j]] += BigDecimal(r.to_s)
+                sum[:credit_count][idx_memo[j]] += 1
+              end
+            else
+              puts row # for debug
+            end
+          end
+        end
+        return sum if code.nil?
+
+        codes = if recursive
+                  sum[:debit].keys.concat(sum[:credit].keys).uniq.select { |k| /^#{code}/.match(k) }
+                else
+                  Array(code)
+                end
+        res = { debit: { code => 0 }, credit: { code => 0 }, debit_count: { code => 0 }, credit_count: { code => 0 } }
+        codes.each do |cd|
+          res[:debit][code] += sum[:debit][cd] || BigDecimal('0')
+          res[:credit][code] += sum[:credit][cd] || BigDecimal('0')
+          res[:debit_count][code] += sum[:debit_count][cd] || 0
+          res[:credit_count][code] += sum[:credit_count][cd] || 0
+        end
+        res
+      end
+
+      # netting vouchers in specified term
+      #
+      def net(start_year, start_month, end_year = nil, end_month = nil, code: nil, date_range: nil, recursive: false)
+        g = gross(start_year, start_month, end_year, end_month, code: code, date_range: date_range, recursive: recursive)
+        idx = (g[:debit].keys + g[:credit].keys).uniq.sort
+        count = {}
+        diff = {}.tap do |sum|
+          idx.each do |code|
+            sum[code] = g.dig(:debit, code).nil? ? BigDecimal('0') : LucaBook::Util.calc_diff(g[:debit][code], code)
+            sum[code] -= g.dig(:credit, code).nil? ? BigDecimal('0') : LucaBook::Util.calc_diff(g[:credit][code], code)
+            count[code] = (g.dig(:debit_count, code) || 0) + (g.dig(:credit_count, code) || 0)
+          end
+        end
+        [diff, count]
+      end
+
+      # Override LucaRecord::IO.load_data
+      #
+      def load_data(io, path = nil)
+        io
+      end
+    end
+
+    def net_amount(code, start_year = nil, start_month = nil, end_year = nil, end_month = nil, recursive: true)
+      start_year ||= @cursor_start&.year || @start_date.year
+      start_month ||= @cursor_start&.month || @start_date.month
+      end_year ||= @cursor_end&.year || @end_date.year
+      end_month ||= @cursor_end&.month || @end_date.month
+      self.class.net(start_year, start_month, end_year, end_month, code: code, recursive: recursive)[0][code]
+    end
+
+    def debit_amount(code, start_year = nil, start_month = nil, end_year = nil, end_month = nil, recursive: true)
+      gross_amount(code, start_year, start_month, end_year, end_month, recursive: recursive)[0]
+    end
+
+    def credit_amount(code, start_year = nil, start_month = nil, end_year = nil, end_month = nil, recursive: true)
+      gross_amount(code, start_year, start_month, end_year, end_month, recursive: recursive)[1]
+    end
+
+    def gross_amount(code, start_year = nil, start_month = nil, end_year = nil, end_month = nil, recursive: true)
+      start_year ||= @cursor_start&.year || @start_date.year
+      start_month ||= @cursor_start&.month || @start_date.month
+      end_year ||= @cursor_end&.year || @end_date.year
+      end_month ||= @cursor_end&.month || @end_date.month
+      g = self.class.gross(start_year, start_month, end_year, end_month, code: code, recursive: recursive)
+      [g[:debit][code], g[:credit][code]]
+    end
+
+    def debit_count(code, start_year = nil, start_month = nil, end_year = nil, end_month = nil, recursive: true)
+      gross_count(code, start_year, start_month, end_year, end_month, recursive: recursive)[0]
+    end
+
+    def credit_count(code, start_year = nil, start_month = nil, end_year = nil, end_month = nil, recursive: true)
+      gross_count(code, start_year, start_month, end_year, end_month, recursive: recursive)[1]
+    end
+
+    def gross_count(code, start_year = nil, start_month = nil, end_year = nil, end_month = nil, recursive: true)
+      start_year ||= @cursor_start&.year || @start_date.year
+      start_month ||= @cursor_start&.month || @start_date.month
+      end_year ||= @cursor_end&.year || @end_date.year
+      end_month ||= @cursor_end&.month || @end_date.month
+      g = self.class.gross(start_year, start_month, end_year, end_month, code: code, recursive: recursive)
+      [g[:debit_count][code], g[:credit_count][code]]
+    end
+
+    def each_month
+      yield
+    end
+  end
+end

data/lib/luca_book/dict.rb

@@ -1,12 +1,22 @@
 # frozen_string_literal: true
 
+require 'luca_support/code'
 require 'luca_support/config'
+require 'luca_support/range'
 require 'luca_record/dict'
+require 'luca_record/io'
+require 'luca_book'
 require 'date'
 require 'pathname'
 
 module LucaBook
   class Dict < LucaRecord::Dict
+    include LucaSupport::Range
+    include LucaBook::Util
+    include LucaRecord::IO
+    include Accumulator
+
+    @dirname = 'journals'
     # Column number settings for CSV/TSV convert
     #
     # :label
@@ -84,14 +94,83 @@ module LucaBook
       nil
     end
 
-    def self.latest_balance
+    # Find balance at financial year start by given date.
+    # If not found 'start-yyyy-mm-*.tsv', use 'start.tsv' as default.
+    #
+    def self.latest_balance(date)
+      load_tsv_dict(latest_balance_path(date))
+    end
+
+    def self.latest_balance_path(date)
+      start_year = date.month >= LucaSupport::CONFIG['fy_start'] ? date.year : date.year - 1
+      latest = Date.new(start_year, LucaSupport::CONFIG['fy_start'], 1).prev_month
       dict_dir = Pathname(LucaSupport::PJDIR) / 'data' / 'balance'
-      # TODO: search latest balance dictionary
-      load_tsv_dict(dict_dir / 'start.tsv')
+      fileglob = %Q(start-#{latest.year}-#{format("%02d", latest.month)}-*)
+      path = Dir.glob(fileglob, base: dict_dir)[0] || 'start.tsv'
+      dict_dir / path
     end
 
     def self.issue_date(obj)
       Date.parse(obj.dig('_date', :label))
     end
+
+    def self.generate_balance(year, month = nil)
+      start_date = Date.new((year.to_i - 1), LucaSupport::CONFIG['fy_start'], 1)
+      month ||= LucaSupport::CONFIG['fy_start'] - 1
+      end_date = Date.new(year.to_i, month, -1)
+      labels = load('base.tsv')
+      bs = load_balance(start_date, end_date)
+      fy_digest = checksum(start_date, end_date)
+      current_ref = gitref
+      csv = CSV.generate(String.new, col_sep: "\t", headers: false) do |f|
+        f << ['code', 'label', 'balance']
+        f << ['_date', end_date]
+        f << ['_digest', fy_digest]
+        f << ['_gitref', current_ref] if current_ref
+        bs.each do |code, balance|
+          next if LucaSupport::Code.readable(balance) == 0
+
+          f << [code, labels.dig(code, :label), LucaSupport::Code.readable(balance)]
+        end
+      end
+      dict_dir = Pathname(LucaSupport::PJDIR) / 'data' / 'balance'
+      filepath = dict_dir / "start-#{end_date.to_s}.tsv"
+
+      File.open(filepath, 'w') { |f| f.write csv }
+    end
+
+    def self.load_balance(start_date, end_date)
+      base = latest_balance(start_date).each_with_object({}) do |(k, v), h|
+        h[k] = BigDecimal(v[:balance].to_s) if v[:balance]
+      end
+
+      search_range = term_by_month(start_date, end_date)
+      bs = search_range.each_with_object(base) do |date, h|
+        net(date.year, date.month)[0].each do |code, amount|
+          next if /^[^1-9]/.match(code)
+
+          h[code] ||= BigDecimal('0')
+          h[code] += amount
+        end
+      end
+      bs['9142'] ||= BigDecimal('0')
+      bs['9142'] += LucaBook::State
+                     .range(start_date.year, start_date.month, end_date.year, end_date.month)
+                     .net_income
+      bs.sort
+    end
+
+    def self.checksum(start_date, end_date)
+      digest = update_digest(String.new, File.read(latest_balance_path(start_date)))
+      term_by_month(start_date, end_date)
+        .map { |date| dir_digest(date.year, date.month) }
+        .each { |month_digest| digest = update_digest(digest, month_digest) }
+      digest
+    end
+
+    def self.gitref
+      digest = `git rev-parse HEAD`
+      $?.exitstatus == 0 ? digest.strip : nil
+    end
   end
 end