□投稿者/ hiro -(2020/08/11(Tue) 17:21:47)
| 2020/08/11(Tue) 17:49:49 編集(投稿者)
2020/08/11(Tue) 17:48:16 編集(投稿者)
2020/08/11(Tue) 17:46:50 編集(投稿者)
やりたい事ですが、
会計の仕訳で、借方、貸方とあるのですが、複式伝票ですと伝票の借方貸方合計は
当然あっているのですが、1行1行は金額が違います。
それを1行1行毎に仕訳を起こしたように分解したいのです。
（大きい金額の行を複写して下行の空白に複写し、借方貸方の金額を同じにしているつもりです）
桐verは１０ｓです。うんともすんとも言わないのですが何処がおかしいでしょうか？
よろしくお願い致します。
---------------------------------------------------------
変数宣言 共通，文字列{ &いつ,&伝票NO,&借方コード,&借方科目,&借方補助コード,&借方補助科目,&貸方コード,&貸方科目,&貸方補助コード,&貸方補助科目}
変数宣言 共通，数値{&借方本体金額, &貸方本体金額,&差額金額,&残額}
繰り返し
表 ”01022-3資金繰仕訳.tbx”
絞り込み [借方貸方差額]{=0} /*借方、貸方同じ額のものを選んで*/
if （＃空ファイル=0） /*それが空で無いなら*/
表 ”01022-4資金繰仕訳.tbx” /*この表に読み込み*/
読み込み条件登録 表,条件名="","01022-3資金繰仕訳.tbx",ファイル名変更=しない,編集表=する,*
読み込み 表,条件名=""
編集表 ”01022-3資金繰仕訳.tbx”
行削除 * /*読み終えたら要らないのでその分は削除*/
絞り込み解除 1 /*最初の状態へ*/
表形式編集
else if （＃空ファイル=1） /*差額０が無い空ファイル状態なら*/
絞り込み解除 1 /*解除で最初の状態へ*/
代入 &いつ＝[日付変換]
代入 &伝票NO＝[伝票No.]
代入 &差額金額＝[借方貸方差額]
検索条件登録 "日付伝票",{[日付変換]{&いつ},[伝票No.]{&伝票NO}}
絞り込み 条件名="日付伝票"
絞り込み 行数=1
ケース開始
ケース （＃空ファイル=0） /*真の空ファイルになったらここで終了*/
繰り返し中止
ケース （&差額金額＜0） /*貸方の金額が大きい時は*/
代入 &貸方コード＝[貸方勘定科目コード]
代入 &貸方科目＝[貸方勘定科目名]
代入 &貸方補助コード＝[貸方補助科目コード]
代入 &貸方補助科目＝[貸方補助科目名]
代入 &貸方本体金額＝[貸方本体金額]
絞り込み 補集合
検索 [借方本体金額]{ <>0，<>#U }
絞り込み 行数=1 /*借方の１行を呼び出し*/
代入 &借方本体金額＝[借方本体金額]
代入 &残額＝&貸方本体金額×-1-&借方本体金額
置換 [貸方勘定科目コード]=&貸方コード /*以下、空白になっている行に貸方の同じ値を複写*/
置換 [貸方勘定科目名]=&貸方科目
置換 [貸方補助科目コード]=&貸方補助コード
置換 [貸方補助科目名]=&貸方補助科目
置換 [貸方本体金額]=&借方本体金額 /*貸方が大きかったので借方の額に合わせる*/
絞り込み解除 1
絞り込み解除 1
置換 [貸方本体金額]=&残額 /*最初の大きかった額から借方分を除いた残額に*/
ケース （&差額金額>=0） /*以下は貸方と逆のパターン*/
代入 &借方コード＝[借方勘定科目コード]
代入 &借方科目＝[借方勘定科目名]
代入 &借方補助コード＝[借方補助科目コード]
代入 &借方補助科目＝[借方補助科目名]
代入 &借方本体金額＝[借方本体金額]
絞り込み 補集合
検索 [貸方本体金額]{ <>0，<>#U }
絞り込み 行数=1
代入 &貸方本体金額＝[貸方本体金額]
代入 &残額＝&借方本体金額-&貸方本体金額
置換 [借方勘定科目コード]=&借方コード
置換 [借方勘定科目名]=&借方科目
置換 [借方補助科目コード]=&借方補助コード
置換 [借方補助科目名]=&借方補助科目
置換 [借方本体金額]=&貸方本体金額
絞り込み解除 1
絞り込み解除 1
置換 [借方本体金額]=&残額
ケース （＃空ファイル=1） /*貸借が0のものは移動させてるので空になるまで繰り返し*/
ケース終了
end
繰り返し終了
表
|
|
