元帳と補助元帳 30
元帳作成については、個別問題の「元帳と補助元帳」を最初にお読み下さい
スクリプトは、「#---」で挟まれた部分です(「#」以降は、Rubyではコメントとして処理されます)
スクリプト先頭の番号(1:など)は、説明のためのもので、実際には記述しません
1.仕訳科目レベルの元帳作成
#-------------------------------------
_1:def GL_0()
_2: $GLCode=6010
_3: $fDate="20030401"
_4: $tDate="20040331"
_5: require "t1"
_6: Sel9MK1XJ2WXJ_SetV("m","J_Date",$fDate,$tDate)
_7: MkF7BgF1ZTB2ZGL($GLCode)
_8: SelWXJ2WGL($GLCode)
_9: Con12WGL_FormGL($GLCode,$GLCode,"")
10: Apd7WGL9Bal12ZGL($GLCode)
11:end
12:GL_0()
#-------------------------------------

1:ユーザ定義メッソドの開始宣言、名前はGL_0とする
2:元帳作成科目を変数$GLCodeにセットする
3:取引抽出開始日を変数$fDateにセットする、試算表開始残高の翌日を指定する
4:取引抽出終了日を変数$tDateにセットする
5:「展開一番」のスクリプトを利用するためのおまじない
6:元帳作成期間の仕訳を抽出する
7:元帳ファイルとその開始行を作成する
8:元帳作成科目を抽出する
9:抽出した仕訳データを元帳フォーマットに変換
10:元帳開始行に上記のデータを追加し、各行ごとに残高を計算する
11:ユーザ定義メソッドの終了
12:ユーザ定義メソッドGL_0の実行

上記のスクリプトは変数に値をセットするので「展開法」で書かれています
スクリプトに直接値を記述する場合は、「呼出法」により以下のように記述することになります
#---------------------------------------------
require "t1"
Sel9MK1XJ2WXJ_SetV("m","J_Date","20030401","20040331")
MkF7BgF1ZTB2ZGL(6010)
SelWXJ2WGL(6010)
Con12WGL_FormGL(6010,6010,"")
Apd7WGL9Bal12ZGL(6010)
#---------------------------------------------
2.複数科目の元帳作成
#----------------------------
_1:require "t1"
_2:MkF7BgF1ZTB2ZGL(1020001)
_3:Apd7BgF12ZGL_ZTB(1020001,1020002)
_4:Apd7BgF12ZGL_ZTB(1020001,1020003)
_5:Sel9MK1XJ2WXJ_SetV("m","J_M",1,3)
_6:Sel12WXJ("J_A",1020001,1020003)
_7:Ren12t1F("WXJ","WGL",1020)
_8:Con12WGL_FormGL(1020001,1020003,"")
_9:Apd7WGL9Bal12ZGL(1020)
#----------------------------

1:「展開一番」のスクリプトを利用するためのおまじない
2:科目1020001の試算表残高を元帳開始行とする元帳ファイルを作成する
3:科目1020002の試算表残高を2:に追加する
4:科目1020003の試算表残高を2:に追加する
5:4月〜6月の仕訳を抽出し仕訳抽出ファイルを作成する
6:仕訳抽出ファイルからさらに科目Code1020001〜1020003の仕訳を抽出する
7:WXJをWGLにリネームし科目Code(親科目となる1020)を付加
8:上記ファイルのフォーマットを元帳様式に変換する
9:4:で作成されたファイルに8:で作成されたファイルを追加し元帳各行の残高金額欄を計算する

Last Update 2022/01/20