[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
>       *        ＳＰＡ変更
>                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/
> 
>