| とりあえず、タイマーイベントとレコード移動イベントを使い一定時間
行の移動がない場合一括に戻るようにイベントを設定してみました。
proc ﾌｫｰﾑ::ﾀｲﾏｰ2()
if (#分(#日時値-&Tnow1)>0) /* ここを10位にします */
object ﾊﾝﾄﾞﾙ=&hwindow @c終了{\
機能名1 = "表示" , 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ1 = "確定する"\
,機能名2 = "解除" , 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ2 = "＊"\
,機能名3 = "上書き保存" , 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ3 = ""\
,機能名4 = "一括処理へ戻る" , 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ4 = ""\
,一括起動時有効 = "1"}
object @c終了{機能名1 = "表示" , 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ1 = "確定する"\
,機能名2 = "解除" , 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ2 = "＊"\
,機能名3 = "ｸﾞﾙｰﾌﾟ解除" , 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ3 = ""\
,機能名4 = "上書き保存", 機能ﾊﾟﾗﾒｰﾀﾘｽﾄ4 = "",一括起動時有効 = "1"}
method @c終了.実行()
method ﾊﾝﾄﾞﾙ=&hwindow @c終了.実行()
end
end
proc ﾌｫｰﾑ::ﾚｺｰﾄﾞ移動(long &行番号，long &総件数，long &明細番号)
&Tnow1=#日時値
end
|
