| 広田さん転置後の難しいところだけ抜き出しました
表 &Stemp1,モード=専有,リトライ=しない, 終了状態=&Iend2
&Itb3=#IS表
if (&Iend2 <> 1 )/* 対象表が開けた時 1 */
確認 #対応文字列(\
"共有情報が使用中で表を開けません-2,他の桐で開かれています-1,開けない時 0を設定"\
,&Iend2+3)
else
var Str { &Sev[#項目数]}
条件 (#U <> #処理条件名検索(7, "総計")) 行集計条件削除 条件名="総計"
&Seval= "行集計条件登録 条件名=""総計"",並べ替え=しない,総計{["+#項目属性( 1 , 1 )+"]"" 総 計 """
クリップボード 設定,&Seval, 終了状態=&Iend3
＊ 確認 &Seval /* どういう内容かの見本の確認 一度止めないとクリップボードが確認できない */
繰り返し &Icnt=2,#項目数
&Sev[&Icnt] = #項目属性(&Icnt , 1 )
&Seval = &Seval + ",["+&Sev[&Icnt]+"]#合計"
if (#L(&Seval)>3998)
確認 #str(&Icnt) + " 番目で文字数オーバーで処理中止"
繰り返し中止
end
繰り返し終了
&Seval = &Seval + "}"
クリップボード 設定,&Seval, 終了状態=&Iend3
コマンド &Seval
行集計 条件名="総計", データ行=有効
書き出し 表,&Stemp2, 終了状態=&Iend4,*
終了 表 &Itb2
終了 表 &Itb3
表 &Stemp2,モード=専有,リトライ=しない, 終了状態=&Iend5
&Itb4=#IS表
＊ 表形式編集
レポート印刷 &Srpt,部数=1,開始ページ=1,罫線印字=する,カラー印刷=する,編集表=する\
,会話=しない,プレビュー=する,印刷ページ=両方,終了状態=&Iend6
終了 表 &Itb4 /* 注射名の種類にあわせて印刷列が変わるのでレポートを選択するか再定義する */
end /* 空白列でよければ再定義は必要なし */
|
