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

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

　こんにちは、加藤です。

　　大したことではないのですが、診療行為入力で『ドクター選択エラー』が
　発生した直後のフォーカス設定が違っているような気がしましたので一応お
　知らせします。

　　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/