[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[orca-dev:00271] Re: focusing when an error occured.



竹田@Naclです。
お世話になります。
下記の通り修正しました。

On Wed, 11 Dec 2002 16:45:53 +0900
Tomohiro 'Tomo-p' KATO <tomop@xxxxxxxxxxxxx> wrote:

>  こんにちは、加藤です。
> 
>   大したことではないのですが、診療行為入力で『ドクター選択エラー』が
>  発生した直後のフォーカス設定が違っているような気がしましたので一応お
>  知らせします。
> 
>   cobol/orca21/ORCGK03.CBL でフォーカスを与えるウィジェットの番号に
>  4 を指定していますが、エラーの原因となる項目へ移動するのであれば 5 に
>  なるように思います。
> 
> ------- cobol/orca21/ORCGK03.CBL: 1620 行付近 ---------------------------
>            IF      FLG-CHK               =   1
>       *        SPA変更
>                MOVE    "1"               TO  SPA-DRCD(1:1)
>                MOVE    SPA-GMN-DRCD      TO  SPA-DRCD(2:)
>            ELSE
>                MOVE    "0011"            TO  SPA-ERRCD
>                MOVE    4                     TO  SPA-GMN-CUR    <=== ここ
>            END-IF
>       *
>            .
>        440-DRCD-CHK-EXT.
>            EXIT.
> -------------------------------------------------------------------------
> 
> --  ________________________________
>   _/_/  Tomohiro "Tomo-p" KATO
>  _/_/  e-mail : tomop@xxxxxxxxxxxxx
> _/_/  http://www.teamgedoh.net/
> 
>