23.1.2 ユーザスクリプトのサンプル

HTMLモードで提供するスクリプト連携機能について説明します。

●入力アシスト機能

入力アシストはユーザスクリプト機能と連携して、エミュレータのホスト画面上にユーザがあらかじめ用意した入力項目を設定し、ホスト画面への入力操作を補助することができます。

ポイント

入力アシストを利用するホスト画面や画面項目の条件指定、また、入力する文字列候補を絞り込むための条件などは、スクリプトによる記述が必要です。

入力アシストは次の3つの使い方があります。

■リストボックスの表示

ホスト画面の入力項目にプルダウン形式の選択リストを表示します。オペレーターはリストから入力する文字列をマウスにより選択できるためキーボード操作を行うことなく入力が可能です。また、あらかじめ用意された文字列から選択できるため入力間違い低減や、入力すべき項目のヒントとしても有効です。

使い方

リストボックスを表示させるホスト画面と入力フィールドを選びます。
対象とする画面と入力フィールドを判定するための条件を選定します。
例えば、画面の一致条件は"INPUT010"という画面IDが存在する画面、フィールドの一致条件は"担当者名："という文字列が含まれるフィールドの、次のフィールドを判定の条件とします。

判定条件によりスクリプト処理を「UserScript.js」に記述します。以下は処理の抜粋です。

var dspemu = new WsmgrDspemu();
dspemu.event.SetOnDspemuScreenPreUpdate(OnDspemuPreUpdate);	// 画面更新時のイベント登録

function OnDspemuPreUpdate() {
    // 画面ID"INPUT010"の検索
    if (dspemu.screen.FindField("INPUT010") != null) {

        // "担当者名："を含むフィールドの検索
        var TagName = dspemu.screen.FindField("担当者名：");

        if (TagName != null) {

            // "担当者名："フィールドの次のフィールドを検索
            Charge = TagName.Next();
            if (Charge != null) {
                 // フィールドに"担当"を含む名前のリストボックスを設定
                 Charge.SetAssist(getChargeName, 2, "担当");
            }
        }
    }
 }

function getChargeName(param)
{
    // リスト用のデータ
    var data = ["担当者1", "責任者1", "担当者2", "担当者3", "責任者2", "担当者4", "責任者3"];
    var array = new Array();

    for(var i = 0; i < data.length; i++) {

        // リスト用のデータから"担当"が付くものをリストアップ
        if( data[i].toString().indexOf(param) != -1) {
            array.push(data[i].toString());
        }
    }
    return array;
}

エミュレータ画面を遷移し、目的の画面が表示されると入力フィールドにリストボックスが表示されます。
リストボックスの[▼]をマウスでクリックすると一覧がリストに表示され、マウス選択により入力する対象を選択することができます。

■入力候補の表示

ホスト画面の入力項目に入力中の文字にマッチした入力候補を表示します。入力候補はキーボードから入力中の文字によりリアルタイムに絞り込まれるため、少ないキー操作で文字列を入力することが可能です。

使い方

入力候補を表示させるホスト画面と入力フィールドを選びます。
対象となる画面と入力フィールドを判定するための条件を選定します。
例えば、画面の一致条件は"INPUT010"という画面IDが存在する画面、フィールドの一致条件は"顧客名："という文字列が含まれるフィールドの、次のフィールドを判定の条件とします。

判定条件によりスクリプト処理を「UserScript.js」に記述します。以下は処理の抜粋です。

var dspemu = new WsmgrDspemu();
dspemu.event.SetOnDspemuScreenPreUpdate(OnDspemuPreUpdate); // 画面更新時のイベント登録

function OnDspemuPreUpdate() {
    // 画面ID"INPUT010"の検索
    if (dspemu.screen.FindField("INPUT010") != null) {

        // "顧客名："を含むフィールドの検索
        var TagName = dspemu.screen.FindField("顧客名：");

        if (TagName != null) {

              // "顧客名："フィールドの次のフィールドを検索
              TagName = TagName.Next();

            if (TagName != null) {
                //  フィールドに選択リスト表示を設定
                TagName.SetAssist(getCustomerName, 1, "");
            }
        }
    }
}
function getCustomerName(param)
{
    // 入力候補用のデータ
    var data = ["東京物流センター", "東大阪物流センター", "東京営業所", "東京本社", "京都支社"];
    var array = new Array();

    for(var i = 0; i < data.length; i++) {
        if(param != "") {
            // 入力候補用のデータから入力された文字が付くものをリストアップ
            if( data[i].toString().indexOf(param) == 0) {
                array.push(data[i].toString());
            }
        }
    }
    return array;
}

エミュレータ画面を遷移し、目的の画面が表示されると入力フィールドに入力候補の属性が設定されます。
顧客名の次のフィールドに文字列「東京」を入力すると、文字列「東京」に前方一致する一覧が入力候補に表示され、カーソル選択により入力する対象を選択することができます。

分割された表のテーブル表示

ホスト上で複数画面に分割して表示される表を1つの画面にまとめてテーブル表示する機能です。これによりホスト上での検索結果など、複数の画面を切り替えて表示する必要があった情報を、1つの画面で確認することが可能になります。また、テーブルより表形式のまま結果をコピーして他のアプリケーションに貼りつけることもできます。

ポイント

まとめ表示の処理、および、まとめ表示を行うホスト画面の条件や表範囲の条件はスクリプトによる記述が必要です。

使い方

分割して表示されるホスト画面（複数）を選びます。ここでは在庫照会結果の3画面を対象とします。
- 1ページ目
- 2ページ目
- 3ページ目
対象となる画面、およびテーブルとして表示するフィールドを判定するための条件を選定します。例えば、画面の一致条件を下記の判定条件とします。
・1画面目："OUTPUT010"という画面IDが存在する画面
・2画面目："OUTPUT020"という画面IDが存在する画面
・3画面目："OUTPUT030"という画面IDが存在する画面
フィールドの条件は、画面上の行位置と桁位置の組み合わせにより矩形範囲の開始位置と終了位置を指定します。

判定条件によりスクリプト処理を「UserScript.js」に記述します。以下は処理の抜粋です。

var dspemu = new WsmgrDspemu();
dspemu.event.SetOnDspemuScreenUpdated(OnDspemuUpdate);  // 画面更新時のイベント登録

function OnDspemuUpdate(update)
{
    if(update) {
        // 画面チェック
        if (dspemu.screen.FindField("OUTPUT10") != null) {

            // テーブルの初期化
            dspemu.view.ClearTable();

            // ページング処理
            dspemu.view.AddTable(dspemu.screen.ToTable(dspemu.Addr(7, 11), dspemu.Addr(19, 71)));

            // 次画面へページ遷移
            dspemu.macro.Type("[PF7]");
            return;

        } else if (dspemu.screen.FindField("OUTPUT20") != null) {

            // ページング処理
            dspemu.view.AddTable(dspemu.screen.ToTable(dspemu.Addr(8, 11), dspemu.Addr(19, 71)));

            // 次画面へページ遷移
            dspemu.macro.Type("[PF7]");
            return;

        } else if (dspemu.screen.FindField("OUTPUT30") != null) {

            // ページング処理
            dspemu.view.AddTable(dspemu.screen.ToTable(dspemu.Addr(8, 11), dspemu.Addr(19, 71)));

            // テーブルの表示
            dspemu.view.ShowTableData(7, 10, 19, 72, true);
            return;
        }
    }
}

エミュレータ画面で在庫照会を行うと、結果表示画面の遷移を自動的に行い、在庫照会結果のテーブルが表示されます。

その他
テーブルは配色の変更など、CSSファイルの指定により表示をカスタマイズできます。
あらかじめ編集したCCSファイルを、管理ツールのリソースの関連付けにて登録してください。
すでにCCSファイルが登録済みの場合は、WSMGR for Webサーバの下記フォルダにあるCSSファイルを編集してください。
- 共通のリソースを使用する場合
  <WSMGR for Webインストール先>\config\common\resource\ccs
- グループのリソースを使用する場合
  <WSMGR for Webインストール先>\config\group\<グループ名>\resource\ccs
- ユーザのリソースを使用する場合
  <WSMGR for Webインストール先>\config\users\<ユーザ名>\resource\ccs

指定方法

カスタマイズしたいテーブル部分のクラスをCCSファイルに定義し、各プロパティの値を変更することでカスタマイズが可能です。

クラス名	説明
navigation-table	テーブルの要素すべてに指定されるクラスです。
navigation-table-header-row	テーブルの1行目をヘッダ行とした場合に、ヘッダ行に指定されるクラスです。
navigation-table-header-cell	テーブルの1行目をヘッダ行とした場合に、ヘッダ行の各項目（セル）に指定されるクラスです。
navigation-table-data-line	データ行に指定されるクラスです。
navigation-table-even-row	データ行の偶数行に指定されるクラスです。
navigation-table-odd-row	データ行の奇数行に指定されるクラスです。
navigation-table-data-cell	データ行の各項目（セル）に指定されるクラスです。

●Webスタイルの画面表示

Webスタイルの画面表示では、ActiveXモードで利用可能なGUIライク機能をHTMLモードとして進化させた機能です。プロファイルによる設定や、スクリプトによるカスタマイズで、エミュレータ画面でWeb表示に最適な画面を利用することができます。
ホスト画面の背景にお好みの画像の表示、特定のホスト画面でユーザ作成の任意のHTML画面を表示することも可能です。

背景画像の変更：

エミュレータ画面の背景に画像を表示する機能です。画像はプロファイル設定のデザインでWebスタイルを選択し、背景画像の変更設定で指定します。設定した背景画像はプロファイル設定ごとに変更することができます。

画像の変更例

■ユーザHTML画面の表示：

ユーザスクリプトを記述して、特定のホスト画面の表示時に、あらかじめ用意したユーザ作成のHTML画面を表示する機能です。画面上の入力項目をカスタマイズした画面と切り替えて必要な項目のみを表示するなどの使い方が可能です。

使い方

ここでは、ホストの1画面（業務を選択するメニュー画面）をユーザ作成のHTML画面に差し替えて、画面入力の簡易化を行うパターンを例として説明します。

ユーザHTML画面に切り替え表示を行うホスト画面（業務メニューの画面）を選びます。
ホスト画面を判定するための条件の選定と、画面のカスタマイズを検討します。
例えば、画面の一致条件として"＊＊＊業務メニュー＊＊＊"という文字列が存在する画面を判定の条件とします。
画面のカスタマイズは、各業務番号の入力からENTERキーの操作、およびメニュー画面を終了するためのPF12キーの操作を、HTML画面上のボタンクリックで行えるように設計します。

切り替えるユーザHTML画面を作成します。

手順2で検討した画面カスタマイズの設計に合わせ、HTML画面を作成します。以下はHTMLファイルの記述例です。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" 
http://www.w3.org/TR/html4/loose.dtd">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>業務メニュー</title>
<style type="text/css">
<!--
body {
        background: #666666;
        margin: 0;
        padding: 0;
        text-align: center;
        color: #000000;
        font-size: 0.7em;
}
#container {
        width: 80%;
        background: #FFFFFF;
        margin: 0 auto;
        border: 1px solid #000000;
        text-align: left;
}
#header {
        background: #DDDDDD;
        padding: 0 10px 0 20px;
}
#header h1 {
        width:280px;
        margin: 0;
        padding: 10px 0;
}
#header input {
        margin: 10px;
        padding: 10px;
}
#modoru {
        text-align:right;
}
#mainContent {
        padding: 0 20px;
        background: #FFFFFF;
}
.btn        {
        width:180px;
        height:180px;
        margin:30px;
}
#footer {
        padding: 0 10px;
        background:#DDDDDD;
        text-align:right;
}
#footer input {
        margin: 10px;
        padding: 10px;
}
-->
</style>
</head>

<script type="text/javascript">
    var emu = parent.window.dspemu;

    // 業務ボタンクリック時の処理
    function ProductResistration_onclick(num) {
        var number = emu.screen.FindField("業務番号：").Next();
        if(number != null) {
            if(number.IsNumeric() != true) {
                emu.macro.MsgBox("数字フィールドではない");
                return;
            }
            if(num == 1) {
                emu.macro.Type("1[ENTER]", 
                    emu.Row(number.GetStartPos()), emu.Col(number.GetStartPos()));
            } else if(num == 2) {
                emu.macro.Type("2[ENTER]", 
                     emu.Row(number.GetStartPos()), emu.Col(number.GetStartPos()));
            }
        }
    }
    // 戻るボタンクリック時の処理
    function EndMenuScreen_onclick() {
        parent.window.dspemu.macro.Type("[PF12]");
    }
    function EndScreen_onclick(){
        emu.view.CloseUserScreen();
    }
</script>
<body class="oneColLiqCtrHdr">
<div id="container">
        <div id="header">
                <h1>〔 業務メニュー 〕</h1>
                <div id="modoru">
                        <td align="right">
                          <a href="javascript:EndMenuScreen_onclick();">ログオン画面に戻る</a>
                        </td>
                </div>
        </div>
        <div id="mainContent">
                <h2> ボタンをクリックして業務を選択してください </h2>
                <div style="text-align:center">
                        <input type="button" value="1. 商品登録"
                onClick="ProductResistration_onclick(1);" class="btn" onkeypress="">
                        <input type="button" value=" 2.在庫照会"
                onclick="ProductResistration_onclick(2);" class="btn" onkeypress="">
                </div>
                <br>
                <br>
        </div>
        <div id="footer">
                <a href="javascript:EndScreen_onclick();">この画面を閉じる</a>
        </div>
</div>
</body>
</html>

手順2で選定したホスト画面の判定条件により、スクリプト処理をユーザスクリプトファイル「UserScript.js」に記述します。以下はスクリプトファイルの記述例です。

var dspemu = new WsmgrDspemu();

// エミュレータ画面の更新イベントの登録
dspemu.event.SetOnDspemuScreenPreUpdate(OnDspemuUpdate);

function OnDspemuUpdate() {
// 画面の検索
if (dspemu.screen.FindField("＊＊＊  業務メニュー  ＊＊＊") != null) {

     // エミュレータ画面から切り替えるユーザHTML画面を指定
     dspemu.view.OpenUserScreen("http://exsample.com/wsmgrweb/user_menu.htm");
} else {
     // ユーザHTML画面を閉じる
     dspemu.view.CloseUserScreen();
}

エミュレータ画面を遷移し、該当のホスト画面が表示されるタイミングで、ユーザHTML画面に切り替わります。