| 気になる点を…
まず、空行(くうぎょう:空の行)を使うようにしましょう。
格好だけの字下げ(インデント)よりも、重要だと思いますよ。
プログラムは文書と同じなので、上から下までビッシリと文字を並べた場合には非常に読みにくいです。
空行を適当に使うと読みやすくなります。
空行は、{ 繰り返し,繰り返し終了,if,else,end,ケース開始,ケース,ケース終了}の前後に挿入します。 ※なお、ケース開始の直後にはケースがくるので空行を挿入する必要はありません。
そうすることで、制御構造とそれ以外の処理のまとまり(ブロック)が際立ってきます。
長くなりますが、全文を以下に示します。
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
変数宣言 共通,文字列{ &いつ,&伝票NO,&借方コード,&借方科目,&借方補助コード,&借方補助科目,&貸方コード,&貸方科目,&貸方補助コード,&貸方補助科目} 変数宣言 共通,数値{&借方本体金額, &貸方本体金額,&差額金額,&残額}
┌繰り返し │ │ 表 ”01022-3資金繰仕訳.tbx” │ 絞り込み [借方貸方差額]{=0} /*借方、貸方同じ額のものを選んで*/ │ **絞り込み [借方貸方差額]{=0} /*借方から貸方引いて*/ │ │ ┌if (#空ファイル=0) /*それが空で無いなら*/ │ │ │ │ **if (#空ファイル=0) /*それが0なら*/ │ │ 表 ”01022-4資金繰仕訳.tbx” /*この表に読み込み*/ │ │ 読み込み条件登録 表,条件名="","01022-3資金繰仕訳.tbx",ファイル名変更=しない,編集表=する,* │ │ 読み込み 表,条件名="" │ │ 編集表 ”01022-3資金繰仕訳.tbx” │ │ 行削除 * /*読み終えたら要らないのでその分は削除*/ │ │ 絞り込み解除 1 /*最初の状態へ*/ │ │ 表形式編集 │ │ │ ├else if (#空ファイル=1) /*差額0が無い空ファイル状態なら*/ │ │ │ │ 絞り込み解除 1 /*解除で最初の状態へ*/ │ │ 代入 &いつ=[日付変換] │ │ 代入 &伝票NO=[伝票No.] │ │ 代入 &差額金額=[借方貸方差額] │ │ 検索条件登録 "日付伝票",{[日付変換]{&いつ},[伝票No.]{&伝票NO}} │ │ 絞り込み 条件名="日付伝票" │ │ 絞り込み 行数=1 │ │ │ │ ┌ケース開始 │ │ ├─ケース (#空ファイル=0) /*真の空ファイルになったらここで終了*/ │ │ │ ←─┼─┼───繰り返し中止 │ │ │ │ │ ├─ケース (&差額金額<0) /*貸方の金額が大きい時は*/ │ │ │ │ │ │ 代入 &貸方コード=[貸方勘定科目コード] │ │ │ 代入 &貸方科目=[貸方勘定科目名] │ │ │ 代入 &貸方補助コード=[貸方補助科目コード] │ │ │ 代入 &貸方補助科目=[貸方補助科目名] │ │ │ 代入 &貸方本体金額=[貸方本体金額] │ │ │ 絞り込み 補集合 │ │ │ 検索 [借方本体金額]{ <>0,<>#U } │ │ │ 絞り込み 行数=1 /*借方の1行を呼び出し*/ │ │ │ 代入 &借方本体金額=[借方本体金額] │ │ │ 代入 &残額=&貸方本体金額×-1-&借方本体金額 │ │ │ 置換 [貸方勘定科目コード]=&貸方コード /*以下、空白になっている行に貸方の同じ値を複写*/ │ │ │ 置換 [貸方勘定科目名]=&貸方科目 │ │ │ 置換 [貸方補助科目コード]=&貸方補助コード │ │ │ 置換 [貸方補助科目名]=&貸方補助科目 │ │ │ 置換 [貸方本体金額]=&借方本体金額 /*貸方が大きかったので借方の額に合わせる*/ │ │ │ 絞り込み解除 1 │ │ │ 絞り込み解除 1 │ │ │ 置換 [貸方本体金額]=&残額 /*最初の大きかった額から借方分を除いた残額に*/ │ │ │ │ │ ├─ケース (&差額金額>=0) /*以下は貸方と逆のパターン*/ │ │ │ │ │ │ 代入 &借方コード=[借方勘定科目コード] │ │ │ 代入 &借方科目=[借方勘定科目名] │ │ │ 代入 &借方補助コード=[借方補助科目コード] │ │ │ 代入 &借方補助科目=[借方補助科目名] │ │ │ 代入 &借方本体金額=[借方本体金額] │ │ │ 絞り込み 補集合 │ │ │ 検索 [貸方本体金額]{ <>0,<>#U } │ │ │ 絞り込み 行数=1 │ │ │ 代入 &貸方本体金額=[貸方本体金額] │ │ │ 代入 &残額=&借方本体金額-&貸方本体金額 │ │ │ 置換 [借方勘定科目コード]=&借方コード │ │ │ 置換 [借方勘定科目名]=&借方科目 │ │ │ 置換 [借方補助科目コード]=&借方補助コード │ │ │ 置換 [借方補助科目名]=&借方補助科目 │ │ │ 置換 [借方本体金額]=&貸方本体金額 │ │ │ 絞り込み解除 1 │ │ │ 絞り込み解除 1 │ │ │ 置換 [借方本体金額]=&残額 │ │ │ │ │ ├─ケース (#空ファイル=1) /*貸借が0のものは移動させてるので空になるまで繰り返し*/ │ │ │ │ │ └ケース終了 │ │ │ └end │ └繰り返し終了
表
|