#2024-09-27 CSV閲覧不可の件【暫定対応】

項番13.異動事由は10文字以内にする。　※半角も1文字とされている模様
 i06_0[i,13] <- gsub("[0-9]|-","",i06_As[,13]) 

合計行（項番2.行区分==1）をeTaxに組み込まない。
  i <- which(i06_0[,2]==1) 
 i06_0[i,2]<-0 # 1:合計行 → 0:明細行
 i06_0[i,13]<-"前期末" 
 i06_0[i,14:18]<-as.numeric("") 
 
 Write_eTax( i06_0 ,f )  
 # Write_eTax( i06_当期 ,f ) # 当期末の合計行が含まれている

 # 翌期に合計行を計算、
 i06_前期末 <- i06_lines_sum( i06_前期 )

 # _0 明細行（当期の帳簿価額を計算）
 # i06_0 <- i06_Book_value( i06_前期,i06_期中 )
 i06_0 <- i06_Book_value( i06_前期末,i06_期中 )
 # で良いかと

#2024-04-02 改定　
期中_1.R
前期_2.R
#2022-09-07 改定
1.Read_eTax関数（不具合修正、１行目が読み込まれない）　※パッケージ改定
2.使い方（整合性チェック追加）

はじめに

githubにパッケージを作りました。

⑥有価証券の内訳書　注.この記事は【法人税】のお話です。
　フォーマット：HOI060_4.0.csv
https://www.e-tax.nta.go.jp/hojin/gimuka/csv_jyoho1/2/HOI060.pdf
これを
　SBI証券の約定履歴から
　　↓（R言語）
　eTaxのCSVファイルを作成します。

簿価の計算を自動化したかった。※特に、売却時の損益

#

特記事項

当パッケージの特殊な仕様

	項番4.	項番17.	項番18.
列名→	種類=	住所=	摘要=
考え方→	本来は「株式」	↓計算用紙	↓計算用紙
設定内容→	株式の銘柄コード	入金額（売却時のみ）	損益 = 項番17.入金額 △マイナス項番15.簿価

#

使い方

githubからパッケージをインストールしてください。

準備_0.R

library(devtools) # install.packages("devtools")
install_github("nt1969m/office")

「SBI証券の約定履歴」のあるファイルパスとファイル名を指定し、読み込む。
これをフォーマット変換する。

期中_1.R

library(office)

# 約定履歴
    # d <- file.path(	... )
    # f <- "SaveFile_000001_000005"     # 拡張子(.csv)不要
    # sbi_idou <- Read_MS( d ,f ,n=8 )
sbi_idou <- Read_MS("",file.choose(),"",n=8)
    View(sbi_idou)　# Rstudioであれば、これで確認

# ⑥有価証券の内訳書にフォーマットを変換
i06_期中 <- i06_sbi_idou( sbi_idou )

初年度
※前期の期末現在高をゼロとして設定する

前期_2.R

# 前期の⑥有価証券の内訳書を取り込み
i06_前期 <- i06_init() # ←前期が無い場合は、ここまで
    # d1 <- file.path( ... )
    # f1 <- "HOI060_4.0_⑥有価証券" # 拡張子(.csv)不要
    # i06_前期 <- Read_eTax( d1 ,f1 )
i06_前期 <- Read_eTax( "",file.choose() ,"")
colnames(i06_前期) <- colnames(i06_init())
    View(i06_前期)　# Rstudioであれば、これで確認

上記２点から、⑥有価証券の内訳書を作成する。
（同時に売却損益）

当期_3.R

# _0 明細行（当期の帳簿価額を計算）
i06_0 <- i06_Book_value( i06_前期
                        ,i06_期中 )
# _1 合計行(当期）    # 2022-09-07 rep
i06_1 <- i06_lines_sum( i06_0 )
        # 2022-09-07 add sta
sum(i06_1[,8])     # 整合性チェック（会計vs税務）、帳簿価額の一致を確認の為
write.csv( i06_1 ,"i06_1.csv") # 為念で保存
        # 2022-09-07 add end

    #     2022-09-07 del sta
    # i06_当期 <-i06_ct( i06_0     # 明細行のみ残す（前期・合計行を削除）
    #              ,i06_1 )        # 合計行
    #     2022-09-07 del end
        # 2022-09-07 add sta
i06_当期 <-i06_ct( i06_0          # 合計行（前期）を削除（明細行のみ残す）
                  ,i06_1 )        # 合計行（当期）を追加
        # 2022-09-07 add end

# 当期の⑥有価証券の内訳書
決算日 <- "2021-8-31"
f <- i06.sheet( 決算日 )
Write_eTax( i06_当期 ,f )

# 売却損益
i06_PL  <-i06_ct( i06_0 ,n = 2 )
write.csv( i06_PL ,"i06_PL.csv")

#

株式分割（新規に割当られた株式の取込）

PDF（SBI証券、割当株式等のお知らせ）からCSV（テキスト）を作成する
https://qiita.com/nt1969m/items/890846d529d08c8edbb2
を参照して下さい。

株式分割_1_1.R

# PDF（SBI証券、割当株式等のお知らせ）からCSV（テキスト）を作成する
library(sbitools) # 参照 https://qiita.com/nt1969m/items/890846d529d08c8edbb2
d <- file.path(	... ) 
sbi_As  <- As( d )

i06_As <- i06_sbi_As( sbi_As )

i06_期中 <- i06_merge( i06_期中 ,i06_As )

#

株式交換（吸収合併された旧株式の取込）

事例：2019-3-31 昭和シェル石油(5002)300 to 出光興産(5019)123

株式交換_1_2.R

# 株式交換 2019-3-31 昭和シェル石油(5002)300 to 出光興産(5019)123
Xs <- data.frame( matrix(
  c( 5002 ,300 ,"2019-3-31" ,"交換" ,5019 ,123 ,"出光興産" )
  ,1 ,7 ) )
i06_Xs <- i06_Xs( Xs ,i06_前期
                     ,i06_期中 )

i06_期中 <- i06_merge( i06_期中 ,i06_Xs )

#

TOB（カブドットコム証券の約定履歴の取込）

事例：2019-06頃　カブドットコム証券がTOBされて、
買取証券会社がカブドットコム証券。
ややこしい事例ですが、
カブドットコム証券の約定履歴を取り込みます。

TOB_1_3.R

# カブドットコム証券 TOB
d <- file.path(	... )
f <- "TradeKabu-2"  # 拡張子(.csv)不要
kabu_idou <- Read_MS( d ,f )

i06_kabu <- i06_kabu_idou( kabu_idou )

i06_期中 <- i06_merge( i06_期中 ,i06_kabu )

#

CSVスペック

○ レコードの内容及び留意事項(2-6)
【勘定科目内訳明細書(6有価証券の内訳書)】
（令和6年3月1日以後終了事業年度分）　※変化なしかな？

(平成31年4月1日以後終了事業年度分)

勘定科目内訳明細書の標準フォーム等
（令和5年4月1日前終了事業年度分)
(平成31年4月1日以後終了事業年度分)
https://www.e-tax.nta.go.jp/hojin/gimuka/csv_jyoho2_meisai_31.htm