luca-jp 0.1.0 → 0.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: d226efcad9d2c52181b9fcbdd4ae8b74d9d5b754fe77394aa82461ad216fcffa
-  data.tar.gz: 8fe33b512f972ee94b78086d5a776ca348d26293c3da4e50d6979c839f0bb4c9
+  metadata.gz: 5c6d1f716fed87d639d11ba925e383a2b1d338a901dd148508c39d56664b1a36
+  data.tar.gz: e82fd1948e7df170d163fe15f790d58b61809319d6e2f9aba62499bbabbf6be3
 SHA512:
-  metadata.gz: 9087580538986050f9f759825a20fa3be2931814d558b555d1fcfd34d9b5469e2295f3840b6e4ee788dab53623cad0a7b1ffac1fd6764afe8faff25a753ca2d0
-  data.tar.gz: 5817884c64afecdba20440cc3f8a346656a025604d72b8d862e841aea6b53439a992a1076d8c4230e5507406a436da50fd88b3f6644d219eff38eb96b3b6f550
+  metadata.gz: 3501fc606dc9955b03b8e0cde1c3ebc4b4ff1374fa88e53218b4a66d2c48028325e49709e722aea835dd8b21cb0f4224036a77366665c1e6a46131e5648a8f06
+  data.tar.gz: ba151aeb2da6ab8f5334067804cb7d64d23ab218878b944f2bbd099749b452d322c9695817b44296b9dfd6e2fe6bcca34bfd9f18c38fc87e38a1c43b05bc9f16

data/exe/luca-jp

@@ -0,0 +1,57 @@
+#!/usr/bin/ruby
+
+require 'optparse'
+require 'luca/jp'
+
+class LucaCmd
+  def self.syouhizei(args, params)
+    if params[:export]
+      Luca::Jp::Syouhizei.range(*args).export_json
+    else
+      puts Luca::Jp::Syouhizei.range(*args).kani
+    end
+  end
+
+  def self.houjinzei(args, params)
+    if params[:export]
+      Luca::Jp::Aoiro.range(*args).export_json
+    else
+      puts Luca::Jp::Aoiro.range(*args).kani
+    end
+  end
+
+  def self.chihouzei(args, params)
+    if params[:export]
+      Luca::Jp::Chihouzei.range(*args).export_json
+    else
+      puts Luca::Jp::Chihouzei.range(*args).kani
+    end
+  end
+end
+
+cmd = ARGV.shift
+params = {}
+
+case cmd
+when /hou?jinzei/
+  OptionParser.new do |opt|
+    opt.banner = 'Usage: luca-jp houjinzei [options] yyyy mm yyyy mm'
+    opt.on('--export', 'export json') { |_v| params[:export] = true }
+    args = opt.parse!(ARGV)
+    LucaCmd.houjinzei(args, params)
+  end
+when /s[yh]ou?hizei/
+    OptionParser.new do |opt|
+      opt.banner = 'Usage: luca-jp syouhizei [options] yyyy mm yyyy mm'
+      opt.on('--export', 'export json') { |_v| params[:export] = true }
+      args = opt.parse!(ARGV)
+      LucaCmd.syouhizei(args, params)
+    end
+when /chihou?zei/
+  OptionParser.new do |opt|
+    opt.banner = 'Usage: luca-jp chihouzei [options] yyyy mm yyyy mm'
+    opt.on('--export', 'export json') { |_v| params[:export] = true }
+    args = opt.parse!(ARGV)
+    LucaCmd.chihouzei(args, params)
+  end
+end

data/lib/luca/jp.rb

@@ -5,6 +5,10 @@ require 'luca/jp/version'
 module Luca
   module Jp
     autoload :Kessan, 'luca/jp/kessan'
+    autoload :Aoiro, 'luca/jp/aoiro'
     autoload :Syouhizei, 'luca/jp/syouhizei'
+    autoload :Chihouzei, 'luca/jp/chihouzei'
+    autoload :Common, 'luca/jp/common'
+    autoload :Util, 'luca/jp/util'
   end
 end

data/lib/luca/jp/aoiro.rb

@@ -0,0 +1,409 @@
+# frozen_string_literal: true
+
+require 'json'
+require 'cgi/escape'
+require 'luca_book'
+require 'luca_support'
+require 'luca_record/dict'
+require 'luca_support/config'
+require 'luca/jp'
+
+module Luca
+  module Jp
+    class Aoiro < LucaBook::State
+      include LucaSupport::View
+      include LucaSupport::Code
+      include Luca::Jp::Common
+      include Luca::Jp::Util
+
+      @dirname = 'journals'
+      @record_type = 'raw'
+
+      def kani(export: false)
+        set_pl(4)
+        set_bs(4)
+        @issue_date = Date.today
+        @company = CGI.escapeHTML(LucaSupport::CONFIG.dig('company', 'name'))
+        @software = 'LucaJp'
+        @法人税中間納付 = prepaid_tax('1851')
+        @地方法人税中間納付 = prepaid_tax('1852')
+        @法人税額 = 中小企業の軽減税額 + 一般区分の税額
+        @確定法人税額 = (@法人税額 / 100).floor * 100
+        @地方法人税課税標準 = (@法人税額 / 1000).floor * 1000
+        @地方法人税額 = 地方法人税額(@地方法人税課税標準)
+        @確定地方法人税額 = (@地方法人税額 / 100).floor * 100
+
+        if export
+          {
+            kokuzei: {
+              zeigaku: @確定法人税額,
+              chukan: @法人税中間納付
+            },
+            chihou: {
+              zeigaku: @確定地方法人税額,
+              chukan: @地方法人税中間納付
+            }
+          }
+        else
+          @procedure_code = 'RHO0012'
+          @procedure_name = '内国法人の確定申告(青色)'
+          @version = '20.0.2'
+          @法人税期中増, @法人税期中減 = 未納法人税期中増減
+          @都道府県民税期中増, @都道府県民税期中減 = 未納都道府県民税期中増減
+          @市民税期中増, @市民税期中減 = 未納市民税期中増減
+          @事業税期中増, @事業税期中減 = 未納事業税期中増減
+          @納税充当金期中増, @納税充当金期中減 = 納税充当金期中増減
+          @概況売上 = gaikyo('A0')
+          @form_sec = ['HOA112', 'HOA116', 'HOA201', 'HOA420', 'HOA511', 'HOA522', 'HOE200', 'HOE990', 'HOI010', 'HOI100', 'HOI141', 'HOK010'].map{ |c| form_rdf(c) }.join('')
+          #@extra_form_sec = ['HOI040', 'HOI060', 'HOI090', 'HOI110']
+          @it = it_part
+          @form_data = [別表一, 別表一次葉, 別表二, 別表四簡易, 別表五一, 別表五二, 別表十五, 適用額明細, 預貯金内訳, 仮受金内訳, 役員報酬内訳, 概況説明].join("\n")
+          render_erb(search_template('aoiro.xtx.erb'))
+        end
+      end
+
+      def export_json
+        dat = kani(export: true)
+        [].tap do |res|
+          item = {}
+          item['date'] = @end_date
+          item['debit'] = []
+          item['credit'] = []
+          if dat[:kokuzei][:chukan] > 0
+            item['credit'] << { 'label' => '仮払法人税', 'amount' => dat[:kokuzei][:chukan] }
+          end
+          if dat[:kokuzei][:chukan] > dat[:kokuzei][:zeigaku]
+            item['debit'] << { 'label' => '未収法人税', 'amount' => dat[:kokuzei][:chukan] - dat[:kokuzei][:zeigaku] }
+          else
+            item['credit'] << { 'label' => '未払法人税', 'amount' => dat[:kokuzei][:zeigaku] - dat[:kokuzei][:chukan] }
+          end
+          item['debit'] << { 'label' => '法人税、住民税及び事業税', 'amount' => dat[:kokuzei][:zeigaku] }
+          if dat[:chihou][:chukan] > 0
+            item['credit'] << { 'label' => '仮払法人税(地方)', 'amount' => dat[:chihou][:chukan] }
+          end
+          if dat[:chihou][:chukan] > dat[:chihou][:zeigaku]
+            item['debit'] << { 'label' => '未収法人税', 'amount' => dat[:chihou][:chukan] - dat[:chihou][:zeigaku] }
+          else
+            item['credit'] << { 'label' => '未払法人税', 'amount' => dat[:chihou][:zeigaku] - dat[:chihou][:chukan] }
+          end
+          item['debit'] << { 'label' => '法人税、住民税及び事業税', 'amount' => dat[:chihou][:zeigaku] }
+          item['x-editor'] = 'LucaJp'
+          res << item
+          puts JSON.dump(res)
+        end
+      end
+
+      def 別表一
+        render_erb(search_template('beppyo1.xml.erb'))
+      end
+
+      def 別表一次葉
+        @消費税期中増, @消費税期中減 = 未納消費税期中増減
+        render_erb(search_template('beppyo1-next.xml.erb'))
+      end
+
+      def 別表二
+        render_erb(search_template('beppyo2.xml.erb'))
+      end
+
+      def 別表四簡易
+        @当期純損益 = readable(@pl_data.dig('HA'))
+        @法人税等 = readable(@pl_data.dig('H0'))
+        _, @納付事業税 = 未納事業税期中増減
+        @還付事業税 = readable(還付事業税 || 0)
+        @別表四調整所得 = @当期純損益 + @法人税等 + @還付事業税 - @納付事業税
+
+        render_erb(search_template('beppyo4.xml.erb'))
+      end
+
+      def 別表五一
+        render_erb(search_template('beppyo51.xml.erb'))
+      end
+
+      def 別表五二
+        @その他事業税 = 租税公課
+        render_erb(search_template('beppyo52.xml.erb'))
+      end
+
+      def 別表十五
+        @交際費 = readable(@pl_data.dig('C1B') || 0)
+        @限度額 = @交際費 < 4_000_000 ? @交際費 : 4_000_000
+        @不算入額 = @交際費 < 4_000_000 ? 0 : @交際費 - 4_000_000
+        render_erb(search_template('beppyo15.xml.erb'))
+      end
+
+      def 預貯金内訳
+        @預金 = @bs_data.each.with_object({}) do |(k, v), h|
+          next unless /^110[0-9A-Z]/.match(k)
+          next unless readable(v || 0) > 0
+
+          h[@dict.dig(k)[:label]] = readable(v)
+        end
+        render_erb(search_template('yokin-meisai.xml.erb'))
+      end
+
+      def 仮受金内訳
+        @源泉給与 = readable(@bs_data.dig('5191') || 0)
+        @源泉報酬 = readable(@bs_data.dig('5193') || 0)
+        render_erb(search_template('kariuke-meisai.xml.erb'))
+      end
+
+      def 役員報酬内訳
+        @役員報酬 = readable(@pl_data.dig('C11') || 0)
+        @給料 = readable(@pl_data.dig('C12') || 0)
+        render_erb(search_template('yakuin-meisai.xml.erb'))
+      end
+
+      def 適用額明細
+        render_erb(search_template('tekiyougaku.xml.erb'))
+      end
+
+      def 概況説明
+        @概況粗利益 = gaikyo('BA')
+        @概況役員報酬 = gaikyo('C11')
+        @概況給料 = gaikyo('C12')
+        @概況交際費 = gaikyo('C1B')
+        @概況減価償却 = gaikyo('C1P')
+        @概況地代租税 = gaikyo('C1E') + gaikyo('C1I')
+        @概況営業損益 = gaikyo('CA')
+        @概況特別利益 = gaikyo('F0')
+        @概況特別損失 = gaikyo('G0')
+        @概況税引前損益 = gaikyo('GA')
+        @概況資産計 = gaikyo('5')
+        @概況現預金 = gaikyo('10')
+        @概況受取手形 = gaikyo('120')
+        @概況売掛金 = gaikyo('130')
+        @概況棚卸資産 = gaikyo('160')
+        @概況貸付金 = gaikyo('140') + gaikyo('333')
+        @概況建物 = gaikyo('311')
+        @概況機械 = gaikyo('313')
+        @概況車船 = gaikyo('314') + gaikyo('318')
+        @概況土地 = gaikyo('316')
+        @概況負債計 = gaikyo('8ZZ')
+        @概況支払手形 = gaikyo('510')
+        @概況買掛金 = gaikyo('511')
+        @概況個人借入金 = gaikyo('5121')
+        @概況ほか借入金 =  gaikyo('512') - gaikyo('5121')
+        @概況純資産 = gaikyo('9ZZ')
+        @代表者報酬 = gaikyo('C11')
+        @代表者借入 = gaikyo('5121')
+        @概況仕入 = gaikyo('B11') + gaikyo('B12')
+        @概況外注費 = gaikyo('C10')
+        @概況人件費 = gaikyo('C11') + gaikyo('C12') + gaikyo('C13')
+        render_erb(search_template('gaikyo.xml.erb'))
+      end
+
+      private
+
+      def 期首未納事業税
+        readable(@start_balance.dig('5152')) || 0
+      end
+
+      def 期末未納事業税
+        readable(@bs_data.dig('5152')) || 0
+      end
+
+      def 当期事業税納付
+        readable(@pl_data.dig('C1I2')) || 0
+      end
+
+      def 租税公課
+        readable(LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: 'C1I')[:debit]) || 0
+      end
+
+      def 別表四還付事業税
+        return nil if @還付事業税 == 0
+
+        "<ARC00220><ARC00230>仮払事業税消却(未収計上した還付事業税)</ARC00230>#{render_attr('ARC00240', @還付事業税)}#{render_attr('ARC00250', @還付事業税)}</ARC00220>\n"
+      end
+
+      def 期首繰越損益
+        readable(@start_balance.dig('914')) || 0
+      end
+
+      def 期末繰越損益
+        readable(@bs_data.dig('914')) || 0
+      end
+
+      def 期首納税充当金
+        readable(@start_balance.dig('515')) || 0
+      end
+
+      def 期末納税充当金
+        readable(@bs_data.dig('515')) || 0
+      end
+
+      def 納税充当金期中増減
+        r = LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '515')
+        [
+          readable(r[:credit] || 0) + @法人税期中増 + @都道府県民税期中増 + @市民税期中増 + @事業税期中増,
+          readable(r[:debit] || 0) + @法人税期中減 + @都道府県民税期中減 + @市民税期中減 + @事業税期中減
+        ]
+      end
+
+      def 期首未納法人税
+        readable(@start_balance.dig('5151')) || 0
+      end
+
+      def 期末未納法人税
+        readable(@bs_data.dig('5151')) || 0
+      end
+
+      def 未納法人税期中増減
+        r = LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '5151')
+        [readable(r[:credit] || 0), readable(r[:debit] || 0)]
+      end
+
+      def 期首未納都道府県民税
+        readable(@start_balance.dig('5153')) || 0
+      end
+
+      def 期末未納都道府県民税
+        readable(@bs_data.dig('5153')) || 0
+      end
+
+      def 未納都道府県民税期中増減
+        r = LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '5153')
+        [readable(r[:credit] || 0), readable(r[:debit] || 0)]
+      end
+
+      def 期首未納市民税
+        readable(@start_balance.dig('5154')) || 0
+      end
+
+      def 期末未納市民税
+        readable(@bs_data.dig('5154')) || 0
+      end
+
+      def 未納市民税期中増減
+        r = LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '5154')
+        [readable(r[:credit] || 0), readable(r[:debit] || 0)]
+      end
+
+      def 別表五一期首差引金額
+        期首繰越損益 + 期首納税充当金 - 期首未納法人税 - 期首未納都道府県民税 - 期首未納市民税
+      end
+
+      def 別表五一期末差引金額
+        期末繰越損益 + 期末納税充当金 - 期末未納法人税 - 期末未納都道府県民税 - 期末未納市民税
+      end
+
+      def 別表五一期中減差引金額
+        期首繰越損益 + @納税充当金期中減 - @法人税期中減 - @都道府県民税期中減 - @市民税期中減
+      end
+
+      def 別表五一期中増差引金額
+        期末繰越損益 + @納税充当金期中増 - @法人税期中増 - @都道府県民税期中増 - @市民税期中増
+      end
+
+      def 期首資本金
+        readable(@start_balance.dig('911')) || 0
+      end
+
+      def 期末資本金
+        readable(@bs_data.dig('911')) || 0
+      end
+
+      def 別表五一期首資本
+        期首資本金
+      end
+
+      def 別表五一期末資本
+        期末資本金
+      end
+
+      def 期首未納消費税
+        readable(@start_balance.dig('516')) || 0
+      end
+
+      def 期末未納消費税
+        readable(@bs_data.dig('516')) || 0
+      end
+
+      def 未納消費税期中増減
+        r = LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '516')
+        [readable(r[:credit] || 0), readable(r[:debit] || 0)]
+      end
+
+      def 中小企業の軽減税率対象所得
+        if 所得金額 >= 8_000_000
+          8_000_000
+        elsif 所得金額 < 0
+          0
+        else
+          (所得金額 / 1000).floor * 1000
+        end
+      end
+
+      def 中小企業の軽減税額
+        中小企業の軽減税率対象所得 * 15 / 100
+      end
+
+      def 中小企業の軽減税率対象を超える所得
+        if 所得金額 <= 8_000_000
+          0
+        else
+          ((所得金額 - 8_000_000) / 1000).floor * 1000
+        end
+      end
+
+      def 一般区分の税額
+        (中小企業の軽減税率対象を超える所得 * 23.2 / 100).to_i
+      end
+
+      def 地方法人税額(地方法人税課税標準)
+        (地方法人税課税標準 * 10.3 / 100).to_i
+      end
+
+      def 概況月(idx)
+        @start_date.next_month(idx).month
+      end
+
+      def 概況月売上(idx)
+        gaikyo_month(idx, 'A0')
+      end
+
+      def 概況月仕入(idx)
+        gaikyo_month(idx, 'B11') + gaikyo_month(idx, 'B12')
+      end
+
+      def 概況月人件費(idx)
+        gaikyo_month(idx, 'C11') + gaikyo_month(idx, 'C12') + gaikyo_month(idx, 'C13') + gaikyo_month(idx, 'C14')
+      end
+
+      def 概況月外注費(idx)
+        gaikyo_month(idx, 'C10')
+      end
+
+      def 概況月源泉徴収(idx)
+        target = @start_date.next_month(idx)
+        readable(LucaBook::State.gross(target.year, target.month, code: '5191')[:credit] || 0)
+        + readable(LucaBook::State.gross(target.year, target.month, code: '5193')[:credit] || 0)
+      end
+
+      def 概況源泉徴収
+        readable(LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '5191')[:credit] || 0)
+        + readable(LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '5193')[:credit] || 0)
+      end
+
+      def gaikyo(code)
+        case code
+        when /^[0-9]/
+          readable(@bs_data.dig(code) || 0)
+        when /^[A-H]/
+          readable(@pl_data.dig(code) || 0)
+        else
+          raise 'invalid code supplied'
+        end
+      end
+
+      def gaikyo_month(index, code)
+        readable(@monthly.dig(index, code) || 0)
+      end
+
+      def lib_path
+        __dir__
+      end
+    end
+  end
+end