正規表現を使用すると、日本語チェックが簡単に定義できます。
以下、ルールとして定義します。
error("漢字は入力できません。")
if KanjiName.IsMatch(".*[\u4E00-\u9FFF]+.*");
error("半角カナは入力できません。")
if KanaName.IsMatch(".*[。-゚]+.*");
ツールが全ての問題を解決してくれるわけではない。 でも、ツールは本来人がやらなくても良い作業を効率的に行ってくれる。 そして、人は人にしかできない事により注力すべき。 つまり、それがクリエイティビティ(創造性)。 システム開発におけるクリエイティビティを高めるお手伝いをしています。
error("漢字は入力できません。")
if KanjiName.IsMatch(".*[\u4E00-\u9FFF]+.*");
error("半角カナは入力できません。")
if KanaName.IsMatch(".*[。-゚]+.*");
Event 'DoInsert'
//&WinがWindow型変数
&Win.Object = Customer.Create(TrnMode.Insert, nullvalue(CustomerNo))
&Win.Open()
EndEvent
Event 'DoInsert'
&Win.Object = Customer.Create(TrnMode.Insert, nullvalue(CustomerNo))
&Win.Open()
Grid.Refresh()
//これはOpen()の前に実行されウェブパネルのRefreshコマンドであればOpenされた画面が閉じられてから実行されます。
EndEvent
Event 'DoInsert'
&Win.Object = Customer.Create(TrnMode.Insert, nullvalue(CustomerNo))
&Win.Open()
Procedure.Call()
//トランザクションとウェブパネルのCALL以外はOpenの前に 実行されます。
EndEvent