luca-jp 0.1.1 → 0.1.6

data/lib/luca/jp/chihouzei.rb

@@ -22,19 +22,20 @@ module Luca
         set_pl(4)
         set_bs(4)
         @issue_date = Date.today
-        @company = CGI.escapeHTML(LucaSupport::CONFIG.dig('company', 'name'))
+        @company = CGI.escapeHTML(config.dig('company', 'name'))
         @software = 'LucaJp'
-        @jimusho_code = LucaSupport::CONFIG.dig('jp', 'eltax', 'jimusho_code')
+        @jimusho_code = config.dig('jp', 'eltax', 'jimusho_code')
         @jimusho_name = '都税事務所長'
 
-        @均等割 = 70000
+        @税額 = 税額計算
+        @均等割 = @税額.dig(:kenmin, :kintou)
         @法人税割課税標準 = 法人税割課税標準
-        @確定法人税割 = (法人税割 / 100).floor * 100
+        @確定法人税割 = (@税額.dig(:kenmin, :houjinzei) / 100).floor * 100
         @地方特別法人事業税中間納付 = prepaid_tax('1854')
         @所得割中間納付 = prepaid_tax('1855')
         @法人税割中間納付 = prepaid_tax('1859')
         @均等割中間納付 = prepaid_tax('185A')
-        @所得割 = 所得割400万以下 + 所得割800万以下 + 所得割800万超
+        @所得割 = @税額.dig(:kenmin, :shotoku)
         if export
           {
             jigyouzei: {
@@ -43,7 +44,7 @@ module Luca
                 chukan: @所得割中間納付
               },
               tokubetsu: {
-                zeigaku: 地方法人特別税(@所得割),
+                zeigaku: @税額.dig(:kenmin, :tokubetsu),
                 chukan: @地方特別法人事業税中間納付
               },
             },
@@ -61,9 +62,9 @@ module Luca
         else
           @procedure_code = 'R0102100'
           @procedure_name = '法人都道府県民税・事業税・特別法人事業税又は地方法人特別税　確定申告'
-          @form_sec = ['R0102AA190', 'R0102AG120'].map{ |c| form_attr(c) }.join('')
+          @form_sec = ['R0102AA190', 'R0102AG120', 別表九フォーム].compact.map{ |c| form_attr(c) }.join('')
           @user_inf = render_erb(search_template('el-userinf.xml.erb'))
-          @form_data = [第六号, 別表四三].join("\n")
+          @form_data = [第六号, 別表四三, 別表九].compact.join("\n")
           render_erb(search_template('eltax.xml.erb'))
         end
       end
@@ -80,22 +81,22 @@ module Luca
               item['credit'] << { 'label' => karibarai_label(k), 'amount' => dat[:chukan] }
             end
             if dat[:chukan] > dat[:zeigaku]
-              item['debit'] << { 'label' => '未収法人税', 'amount' => 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] }
+            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] }
+              item['debit'] << { 'label' => '未収都道府県住民税', 'amount' => dat[:chukan] - dat[:zeigaku] }
             else
               item['credit'] << { 'label' => '未払都道府県民税', 'amount' => dat[:zeigaku] - dat[:chukan] }
             end
-            item['debit'] << { 'label' => '法人税、住民税及び事業税', 'amount' => dat[:zeigaku] }
+            item['debit'] << { 'label' => '法人税、住民税及び事業税', 'amount' => dat[:zeigaku] } if dat[:zeigaku] > 0
           end
           item['x-editor'] = 'LucaJp'
           res << item
@@ -108,65 +109,61 @@ module Luca
       end
 
       def 別表四三
-        @office_23ku = LucaSupport::CONFIG.dig('jp', 'eltax', 'office_23ku')
+        @office_23ku = config.dig('jp', 'eltax', 'office_23ku')
         render_erb(search_template('el-no6-43.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 別表九フォーム
+        return nil if @繰越損失管理.records.length == 0
 
-      def 法人税割
-        (@法人税割課税標準 * 7 / 100).floor
+        'R0102AM190'
       end
 
-      def 地方法人特別税(事業税)
-        ((事業税 * 37 / 100) / 100).floor * 100
-      end
+      def 別表九
+        return nil if @繰越損失管理.records.length == 0
 
-      def 所得400万以下
-        if 所得金額 >= 4_000_000
-          4_000_000
-        else
-          (所得金額 / 1000).floor * 1000
-        end
+        render_erb(search_template('el-no6-9.xml.erb'))
       end
 
-      def 所得割400万以下
-        ((所得400万以下 * 3.5 / 100) / 100).floor * 100
-      end
+      private
 
-      def 所得800万以下
-        if 所得金額 <= 4_000_000
-          0
-        elsif 所得金額 >= 8_000_000
-          4_000_000
-        else
-          ((所得金額 - 4_000_000) / 1000).floor * 1000
-        end
+      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 所得割800万以下
-        ((所得800万以下 * 5.3 / 100) / 100).floor * 100
+      def 事業税中間納付
+        @所得割中間納付
       end
 
-      def 所得800万超
-        if 所得金額 <= 8_000_000
-          0
-        else
-          ((所得金額 - 8_000_000) / 1000).floor * 1000
+      # 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
-      end
-
-      def 所得割800万超
-        ((所得800万超 * 7.0 / 100) / 100).floor * 100
-      end
+        return tags.compact.join("\n") if tags.length > 0
 
-      def 事業税中間納付
-        @所得割中間納付
+        %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)
@@ -185,7 +182,7 @@ module Luca
           '仮払地方税資本割'
         when :fukakachi
           '仮払地方税付加価値割'
-        when :hojinzei
+        when :houjinzei
           '仮払地方税法人税割'
         when :kinto
           '仮払地方税均等割'

data/lib/luca/jp/common.rb

@@ -7,13 +7,180 @@ module Luca
     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 所得金額
+      def 当期所得金額
         _, 納付事業税 = 未納事業税期中増減
-        LucaSupport::Code.readable(@pl_data.dig('GA') - 納付事業税 + 還付事業税)
+        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)
@@ -37,12 +204,25 @@ module Luca
       end
 
       def 還付事業税
-        LucaBook::State.gross(@start_date.year, @start_date.month, @end_date.year, @end_date.month, code: '1504')[:credit]
+        refund_tax('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] || 0), LucaSupport::Code.readable(r[:debit] || 0)]
+        [LucaSupport::Code.readable(r[:credit]['5152'] || 0), LucaSupport::Code.readable(r[:debit]['5152'] || 0)]
+      end
+
+
+      # -----------------------------------------------------
+      # :section: 消費税の計算
+      # -----------------------------------------------------
+
+      def 消費税中間納付額
+        prepaid_tax('185B')
+      end
+
+      def 地方消費税中間納付額
+        prepaid_tax('185C')
       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