luca-jp 0.1.0 → 0.1.5

data/lib/luca/jp/chihouzei.rb

@@ -0,0 +1,197 @@
+# 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 Chihouzei < LucaBook::State
+      include LucaSupport::View
+      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(config.dig('company', 'name'))
+        @software = 'LucaJp'
+        @jimusho_code = config.dig('jp', 'eltax', 'jimusho_code')
+        @jimusho_name = '都税事務所長'
+
+        @税額 = 税額計算
+        @均等割 = @税額.dig(:kenmin, :kintou)
+        @法人税割課税標準 = 法人税割課税標準
+        @確定法人税割 = (@税額.dig(:kenmin, :houjinzei) / 100).floor * 100
+        @地方特別法人事業税中間納付 = prepaid_tax('1854')
+        @所得割中間納付 = prepaid_tax('1855')
+        @法人税割中間納付 = prepaid_tax('1859')
+        @均等割中間納付 = prepaid_tax('185A')
+        @所得割 = @税額.dig(:kenmin, :shotoku)
+        if export
+          {
+            jigyouzei: {
+              shotoku: {
+                zeigaku: @所得割,
+                chukan: @所得割中間納付
+              },
+              tokubetsu: {
+                zeigaku: @税額.dig(:kenmin, :tokubetsu),
+                chukan: @地方特別法人事業税中間納付
+              },
+            },
+            juminzei: {
+              kinto: {
+                zeigaku: @均等割,
+                chukan: @均等割中間納付
+              },
+              houjinzei: {
+                zeigaku: @確定法人税割,
+                chukan: @法人税割中間納付
+              }
+            }
+          }
+        else
+          @procedure_code = 'R0102100'
+          @procedure_name = '法人都道府県民税・事業税・特別法人事業税又は地方法人特別税　確定申告'
+          @form_sec = ['R0102AA190', 'R0102AG120', 別表九フォーム].compact.map{ |c| form_attr(c) }.join('')
+          @user_inf = render_erb(search_template('el-userinf.xml.erb'))
+          @form_data = [第六号, 別表四三, 別表九].compact.join("\n")
+          render_erb(search_template('eltax.xml.erb'))
+        end
+      end
+
+      def export_json
+        records = kani(export: true)
+        [].tap do |res|
+          item = {}
+          item['date'] = @end_date
+          item['debit'] = []
+          item['credit'] = []
+          records[:jigyouzei].each do |k, dat|
+            if dat[:chukan] > 0
+              item['credit'] << { 'label' => karibarai_label(k), 'amount' => dat[:chukan] }
+            end
+            if dat[:chukan] > dat[:zeigaku]
+              item['debit'] << { 'label' => '未収地方事業税', 'amount' => dat[:chukan] - dat[:zeigaku] }
+            else
+              item['credit'] << { 'label' => '未払地方事業税', 'amount' => dat[:zeigaku] - dat[:chukan] }
+            end
+            item['debit'] << { 'label' => '法人税、住民税及び事業税', 'amount' => dat[:zeigaku] } if dat[:zeigaku] > 0
+          end
+          records[:juminzei].each do |k, dat|
+            if dat[:chukan] > 0
+              item['credit'] << { 'label' => karibarai_label(k), 'amount' => dat[:chukan] }
+            end
+            if dat[:chukan] > dat[:zeigaku]
+              item['debit'] << { 'label' => '未収都道府県住民税', 'amount' => dat[:chukan] - dat[:zeigaku] }
+            else
+              item['credit'] << { 'label' => '未払都道府県民税', 'amount' => dat[:zeigaku] - dat[:chukan] }
+            end
+            item['debit'] << { 'label' => '法人税、住民税及び事業税', 'amount' => dat[:zeigaku] } if dat[:zeigaku] > 0
+          end
+          item['x-editor'] = 'LucaJp'
+          res << item
+          puts JSON.dump(res)
+        end
+      end
+
+      def 第六号
+        render_erb(search_template('el-no6.xml.erb'))
+      end
+
+      def 別表四三
+        @office_23ku = config.dig('jp', 'eltax', 'office_23ku')
+        render_erb(search_template('el-no6-43.xml.erb'))
+      end
+
+      def 別表九フォーム
+        return nil if @繰越損失管理.records.length == 0
+
+        'R0102AM190'
+      end
+
+      def 別表九
+        return nil if @繰越損失管理.records.length == 0
+
+        render_erb(search_template('el-no6-9.xml.erb'))
+      end
+
+      private
+
+      def 法人税割課税標準
+        national_tax = Luca::Jp::Aoiro.range(@start_date.year, @start_date.month, @end_date.year, @end_date.month).kani(export: true)
+        (national_tax[:kokuzei][:zeigaku] / 1000).floor * 1000
+      end
+
+      def 事業税中間納付
+        @所得割中間納付
+      end
+
+      # TODO: 損失の区分
+      #
+      def 別表九各期青色損失
+        tags = @繰越損失管理.records
+                 .filter { |record| record['start_date'] > @end_date.prev_year(10) && record['end_date'] < @start_date }
+                 .map do |record|
+          deduction = record['decrease']&.filter{ |r| r['date'] >= @start_date }&.dig(0, 'val') || 0
+          next if deduction == 0 && record['amount'] == 0
+
+          %Q(<AMB00200>
+          <AMB00210>#{etax_date(@start_date)}</AMB00210>
+          <AMB00220>#{etax_date(@end_date)}</AMB00220>
+          <AMB00225 />
+          #{render_attr('AMB00230', deduction + record['amount'])}
+          #{render_attr('AMB00240', deduction)}
+          #{render_attr('AMB00250', record['amount'])}
+          </AMB00200>)
+        end
+        return tags.compact.join("\n") if tags.length > 0
+
+        %Q(<AMB00200>
+        <AMB00210><gen:era /><gen:yy /><gen:mm /><gen:dd /></AMB00210>
+        <AMB00220><gen:era /><gen:yy /><gen:mm /><gen:dd /></AMB00220>
+        <AMB00225 />
+        <AMB00230 />
+        <AMB00240 />
+        <AMB00250 />
+        </AMB00200>)
+      end
+
+      def form_attr(code)
+        "<FORM_ATTR><FORM_ID>#{code}</FORM_ID><FORM_NAME></FORM_NAME><FORM_FILE_NAME></FORM_FILE_NAME><FORM_XSL_NAME></FORM_XSL_NAME></FORM_ATTR>"
+      end
+
+      def karibarai_label(key)
+        case key
+        when :tokubetsu
+          '仮払地方税特別法人事業税'
+        when :shotoku
+          '仮払地方税所得割'
+        when :syunyu
+          '仮払地方税収入割'
+        when :shihon
+          '仮払地方税資本割'
+        when :fukakachi
+          '仮払地方税付加価値割'
+        when :houjinzei
+          '仮払地方税法人税割'
+        when :kinto
+          '仮払地方税均等割'
+        end
+      end
+
+      def lib_path
+        __dir__
+      end
+    end
+  end
+end

data/lib/luca/jp/common.rb

@@ -0,0 +1,216 @@
+# frozen_string_literal: true
+
+require 'luca_support'
+
+module Luca
+  module Jp
+    module Common
+      module_function
+
+      # 法人税、地方税の当期確定税額の計算
+      #
+      def 税額計算
+        所得 = 所得金額
+        { houjin: {}, kenmin: {}, shimin: {} }.tap do |tax|
+          法人税額 = 中小企業の軽減税額(所得) + 一般区分の税額(所得)
+          tax[:houjin][:kokuzei] = (法人税額 / 100).floor * 100
+          地方法人税課税標準 = (法人税額 / 1000).floor * 1000
+          地方法人税 = 地方法人税額(地方法人税課税標準)
+          tax[:houjin][:chihou] = (地方法人税 / 100).floor * 100
+
+          tax[:kenmin][:houjinzei], tax[:shimin][:houjinzei] = 法人税割(法人税額)
+          tax[:kenmin][:kintou], tax[:shimin][:kintou] = 均等割
+          tax[:kenmin][:shotoku] = 所得割400万以下(所得) + 所得割800万以下(所得) + 所得割800万超(所得)
+          tax[:kenmin][:tokubetsu] = 地方法人特別税(tax[:kenmin][:shotoku])
+        end
+      end
+
+      # -----------------------------------------------------
+      # :section: 法人税額の計算
+      # -----------------------------------------------------
+
+      def 中小企業の軽減税率対象所得(所得 = nil)
+        所得 ||= 所得金額
+        return 0 if 所得 <= 0
+
+        if 所得 >= 8_000_000
+          8_000_000
+        elsif 所得 < 0
+          0
+        else
+          (所得 / 1000).floor * 1000
+        end
+      end
+
+      def 中小企業の軽減税額(所得 = nil)
+          中小企業の軽減税率対象所得(所得) * 15 / 100
+      end
+
+      def 中小企業の軽減税率対象を超える所得(所得 = nil)
+        所得 ||= 所得金額
+        return 0 if 所得 <= 0
+
+        if 所得 <= 8_000_000
+          0
+        else
+          ((所得 - 8_000_000) / 1000).floor * 1000
+        end
+      end
+
+      def 一般区分の税額(所得 = nil)
+        (中小企業の軽減税率対象を超える所得(所得) * 23.2 / 100).to_i
+      end
+
+      def 地方法人税額(地方法人税課税標準)
+        (地方法人税課税標準 * 10.3 / 100).to_i
+      end
+
+      # 繰越損失適用後の所得金額
+      #
+      def 所得金額
+        @繰越損失管理 = Sonshitsu.load(@end_date).update(当期所得金額).save if @繰越損失管理.nil?
+        @繰越損失管理.profit
+      end
+
+      # 税引前当期利益をもとに計算
+      # 消費税を租税公課に計上している場合、控除済みの金額
+      # 未払事業税は精算時に認識
+      #
+      def 当期所得金額
+        _, 納付事業税 = 未納事業税期中増減
+        LucaSupport::Code.readable(@pl_data.dig('GA') - 納付事業税)
+      end
+
+      # -----------------------------------------------------
+      # :section: 繰越損失の計算
+      # -----------------------------------------------------
+
+      def 期首繰越損失
+        @繰越損失管理.records
+          .filter { |record| record['start_date'] > @end_date.prev_year(10) && record['end_date'] < @start_date }
+          .inject(0) { |sum, record| sum + (record['amount'] || 0) }
+      end
+
+      def 当期控除計
+        @繰越損失管理.deduction
+      end
+
+      def 翌期繰越損失
+        @繰越損失管理.records
+          .filter { |record| record['start_date'] > @end_date.prev_year(10) && record['end_date'] < @start_date }
+          .inject(0) { |sum, record| sum + (record['amount'] || 0) }
+      end
+
+      def 当期繰越損失
+        @繰越損失管理.records
+          .filter { |record| record['start_date'] == @start_date }.dig(0, 'increase') || 0
+      end
+
+
+      # -----------------------------------------------------
+      # :section: 地方税額の計算
+      # -----------------------------------------------------
+
+      def 均等割
+        if config.dig('jp', 'eltax', 'office_23ku')
+          [70_000, 0]
+        else
+          [20_000, 50_000]
+        end
+      end
+
+      def 法人税割(法人税 = nil)
+        課税標準 = if 法人税
+                     (法人税 / 1000).floor * 1000
+                   else
+                     @法人税割課税標準
+                   end
+        if config.dig('jp', 'eltax', 'office_23ku')
+          [(課税標準 * 7 / 100).floor, 0]
+        else
+          [(課税標準 * 1 / 100).floor, (課税標準 * 6 / 100).floor]
+        end
+      end
+
+      def 所得400万以下(所得 = nil)
+        所得 ||= 所得金額
+        return 0 if 所得 < 0
+
+        if 所得 >= 4_000_000
+          4_000_000
+        else
+          (所得 / 1000).floor * 1000
+        end
+      end
+
+      def 所得割400万以下(所得 = nil)
+        ((所得400万以下(所得) * 3.5 / 100) / 100).floor * 100
+      end
+
+      def 所得800万以下(所得 = nil)
+        所得 ||= 所得金額
+        return 0 if 所得 < 0
+
+        if 所得 <= 4_000_000
+          0
+        elsif 所得 >= 8_000_000
+          4_000_000
+        else
+          ((所得 - 4_000_000) / 1000).floor * 1000
+        end
+      end
+
+      def 所得割800万以下(所得 = nil)
+        ((所得800万以下(所得) * 5.3 / 100) / 100).floor * 100
+      end
+
+      def 所得800万超(所得 = nil)
+        所得 ||= 所得金額
+        return 0 if 所得 < 0
+
+        if 所得 <= 8_000_000
+          0
+        else
+          ((所得 - 8_000_000) / 1000).floor * 1000
+        end
+      end
+
+      def 所得割800万超(所得 = nil)
+        ((所得800万超(所得) * 7.0 / 100) / 100).floor * 100
+      end
+
+      def 地方法人特別税(事業税)
+        ((事業税 * 37 / 100) / 100).floor * 100
+      end
+
+      def 消費税課税売上高(税率 = 10)
+        LucaSupport::Code.readable(@pl_data.dig('A0') * 100 / (100 + 税率).floor || 0)
+      end
+
+      def 納付税額(税額, 中間納付額)
+        if 税額 > 中間納付額
+          税額 - 中間納付額
+        else
+          0
+        end
+      end
+
+      def 中間還付税額(税額, 中間納付額)
+        if 税額 < 中間納付額
+          中間納付額 - 税額
+        else
+          0
+        end
+      end
+
+      def 還付事業税
+        LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '1504')[:credit]['1504']
+      end
+
+      def 未納事業税期中増減
+        r = LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '5152')
+        [LucaSupport::Code.readable(r[:credit]['5152'] || 0), LucaSupport::Code.readable(r[:debit]['5152'] || 0)]
+      end
+    end
+  end
+end

data/lib/luca/jp/it_part.rb

@@ -0,0 +1,99 @@
+# frozen_string_literal: true
+
+require 'luca_support'
+require 'luca_support/config'
+
+module Luca
+  module Jp
+    module ItPart
+      # タグの出現順序は順不同ではない。eTaxの定義に準拠
+      #
+      def it_part
+        entries = ['<IT VR="1.4" id="IT">']
+        entries.concat(['zeimusho']
+                         .map{ |key| render_it_tag(key) })
+        entries << teisyutsu_day
+        entries.concat(['nozeisha_id', 'nozeisha_bango']
+                         .map{ |key| render_it_tag(key) })
+        entries.concat(['nozeisha_nm_kn', 'nozeisha_nm', 'nozeisha_zip', 'nozeisha_adr_kn', 'nozeisha_adr', 'nozeisha_tel']
+                         .map{ |key| render_it_tag(key) })
+        entries.concat(['shihon_kin', 'jigyo_naiyo', 'kanpu_kinyukikan']
+                         .map{ |key| render_it_tag(key) })
+        entries.concat(['daihyo_nm_kn', 'daihyo_nm', 'daihyo_zip', 'daihyo_adr', 'daihyo_tel']
+                         .map{ |key| render_it_tag(key) })
+        entries << %Q(<TETSUZUKI ID="TETSUZUKI"><procedure_CD>#{@procedure_code}</procedure_CD><procedure_NM>#{@procedure_name}</procedure_NM></TETSUZUKI>)
+        entries.concat([jigyo_nendo_from, jigyo_nendo_to, kazei_kikan_from, kazei_kikan_to])
+        entries << render_it_tag('keiri_sekininsha')
+        entries << '<SHINKOKU_KBN ID="SHINKOKU_KBN"><kubun_CD>1</kubun_CD></SHINKOKU_KBN>'
+        entries.concat(['eltax_id'].map{ |key| render_it_tag(key) })
+        entries << '</IT>'
+        entries.compact.join("\n")
+      end
+
+      def render_it_tag(key)
+        content = config.dig('jp', 'it_part', key)
+        return nil if content.nil?
+
+        case key
+        when 'zeimusho'
+          content = parse_zeimusho(content)
+        when 'nozeisha_tel', 'daihyo_tel'
+          content = parse_tel(content)
+        when 'nozeisha_zip', 'daihyo_zip'
+          content = parse_zip(content)
+        when 'nozeisha_bango'
+          content = parse_houjinbango(content)
+        when 'kanpu_kinyukikan'
+          content = parse_kinyukikan(content)
+        end
+
+        tag = key.to_s.upcase
+        %Q(<#{tag} ID="#{tag}">#{content}</#{tag}>)
+      end
+
+      def parse_zeimusho(str)
+        items = str.split('-')
+        %Q(<gen:zeimusho_CD>#{items[0]}</gen:zeimusho_CD><gen:zeimusho_NM>#{items[1]}</gen:zeimusho_NM>)
+      end
+
+      def parse_houjinbango(str)
+        %Q(<gen:hojinbango>#{str}</gen:hojinbango>)
+      end
+
+      def parse_kinyukikan(str)
+        items = str.split('-')
+        %Q(<gen:kinyukikan_NM kinyukikan_KB="1">#{items[0]}</gen:kinyukikan_NM><gen:shiten_NM shiten_KB="2">#{items[1]}</gen:shiten_NM><gen:yokin>#{items[2]}</gen:yokin><gen:koza>#{items[3]}</gen:koza>)
+      end
+
+      def parse_tel(str)
+        num = str.split('-')
+        %Q(<gen:tel1>#{num[0]}</gen:tel1><gen:tel2>#{num[1]}</gen:tel2><gen:tel3>#{num[2]}</gen:tel3>)
+      end
+
+      def parse_zip(str)
+        num = str.split('-')
+        %Q(<gen:zip1>#{num[0]}</gen:zip1><gen:zip2>#{num[1]}</gen:zip2>)
+      end
+
+      def teisyutsu_day
+        %Q(<TEISYUTSU_DAY ID="TEISYUTSU_DAY"><gen:era>#{gengou(@issue_date)}</gen:era><gen:yy>#{wareki(@issue_date)}</gen:yy><gen:mm>#{@issue_date.month}</gen:mm><gen:dd>#{@issue_date.day}</gen:dd></TEISYUTSU_DAY>)
+      end
+
+      def jigyo_nendo_from
+        %Q(<JIGYO_NENDO_FROM ID="JIGYO_NENDO_FROM"><gen:era>#{gengou(@start_date)}</gen:era><gen:yy>#{wareki(@start_date)}</gen:yy><gen:mm>#{@start_date.month}</gen:mm><gen:dd>#{@start_date.day}</gen:dd></JIGYO_NENDO_FROM>)
+      end
+
+      def jigyo_nendo_to
+        %Q(<JIGYO_NENDO_TO ID="JIGYO_NENDO_TO"><gen:era>#{gengou(@end_date)}</gen:era><gen:yy>#{wareki(@end_date)}</gen:yy><gen:mm>#{@end_date.month}</gen:mm><gen:dd>#{@end_date.day}</gen:dd></JIGYO_NENDO_TO>)
+      end
+
+      def kazei_kikan_from
+        %Q(<KAZEI_KIKAN_FROM ID="KAZEI_KIKAN_FROM"><gen:era>#{gengou(@start_date)}</gen:era><gen:yy>#{wareki(@start_date)}</gen:yy><gen:mm>#{@start_date.month}</gen:mm><gen:dd>#{@start_date.day}</gen:dd></KAZEI_KIKAN_FROM>)
+      end
+
+      def kazei_kikan_to
+        %Q(<KAZEI_KIKAN_TO ID="KAZEI_KIKAN_TO"><gen:era>#{gengou(@end_date)}</gen:era><gen:yy>#{wareki(@end_date)}</gen:yy><gen:mm>#{@end_date.month}</gen:mm><gen:dd>#{@end_date.day}</gen:dd></KAZEI_KIKAN_TO>)
+      end
+    end
+  end
+end