受注・受注残管理モジュールを作る（３）受注残タブの実装― FMEasy在庫のカスタマイズ

　本稿では受注残管理モジュールを作成します。受注レイアウトには受注品目入力用の「受注」タブと、受注残管理用の「受注残」タブを配置します。

仕上がりイメージ

受注残関連仕様

下表は上図の受注残関連オブジェクトの仕様になります。

オブジェクト	タイプ	説明
伝票区分	数値FD	レコード確定時、1:全残(納品した商品無)、2:残有（受注残の商品有）、3:過納（過剰納品した商品有）、4:完納（受注した商品を全て納品）の何れかの値がセットされる。 OnRecordCommitを使用しスクリプトを起動。尚、本フィールドを計算フィールドにすることもできるが、索引が設定できずレコードが増えるに従い検索速度が劣化してしまう。
Id	数値FD （主キー）	「受発注明細」テーブルの主キー。“出庫移行”ボタン実行時、このキーの値を移行先のテーブルである「入出明細」テーブルの［受注明細ID］に貼り付け、納品数算出用のTO（入出明細_受注#注残）の外部キーとして使用。下表及び下のリレーション図参照。
受注数	数値	＝受注タブの［数量］
納品数	計算FD(数値)	当該商品の出庫への移行数合計、下表及び下のリレーション図参照。
受注残	計算FD(数値)	受注数－納品数、本値が0以外（受注残がある）の場合、本フィールドの背面が赤くなるように条件書式を設定すと、受注残がある商品が一目で解る。
移行数	数値FD	当該商品を出庫移行する数量をユーザが指定する。
→	ボタン	上記［受注残］を［移行数］に貼りつける。
出庫移行	ボタン	各商品を［移行数］分、出庫へ移行・登録する。

FD：フィールド

EasyData15.fmp12 のテーブル定義

名称	タイプ	補足
■受注テーブ
伝票区分	数値	上表参照
■受発注明細テーブル
ID	数値(主キー)	上表参照
納品計	計算(数値)	Sum(入出明細_受注#注残::出庫数量)、上表及び下表参照
受注残	計算(数値）	上表参照
移行数	数値	上表参照
■入出明細テーブル
受注明細ID	数値(外部キー)	上表及び下表参照

EasyData15.fmp のリレーション

受発注明細テーブルに、［納品数］=Sum(入出明細_受注#注残::出庫数量)、を作成

EasyApp15.fmpの出庫移行ボタンのスクリプト

出庫移行ボタンは［移行数］で指定した数量分の商品を出庫に移行します　―　つまり、受注画面で入力されたデータの一部を出庫（出庫/入出明細テーブル）にコピーします。ポータルを含むデータを他のテーブルにコピーする場合、1.元のデータを一旦変数に格納して変数をコピー先のテーブルに貼りつける方法と、2.元のデータを格納するテーブルからコピー先のテーブルへ取り込む方法、の2つがありますが、後者の方が高速になります。

　以下は後者の方法を用いたスクリプト例です。
（当スクリプトは検証不十分です。利用は自己責任でお願いします。　m( _ _ )m）

---

#
#事前チェック
#
スクリプト実行 [ 「gブラウズ以外実行不可-IwpWD」 ]
スクリプト実行 [ 「gレコード無CK-IwpWD」 ]
スクリプト実行 [ 「gレコード確定強制-IwpWD」 ]
#
#受注ヘッダ情報をUIのグローバルフィールドにセット（後でUIを取り込み、出庫ヘッダを作成する前処理）
#
フィールド設定 [ UI::gCompId; 受注::得意先ID ]
フィールド設定 [ UI::gDeptId; 受注::請求部署ID ]
フィールド設定 [ UI::gPicId; 受注::担当ID ]
フィールド設定 [ UI::gTaxRate; 受注::消費税率 ]
フィールド設定 [ UI::gDate; Get(日付) ]
変数を設定 [ $oriWinName; 値:Get ( ウインドウ名 ) //スクリプトの最後でこのウインドウに戻る為、記憶する ]
#
#移行する受注明細を抽出
#
関連レコードへ移動 [ テーブル: 「受発注明細_受注」; 使用するレイアウト: 「受注明細#取込」 (受発注明細_受注) ] [ 関連レコードのみを表示; 新規ウインドウ ]
変数を設定 [ $orderNo; 値:受注::受注No ]
検索実行 [ 指定された検索条件: レコードの検索; 条件: 受発注明細_受注::受注No: 「$orderNo」 AND 受発注明細_受注::移行数量: 「>-9999999999」 ] [ 記憶する ]
#
#UI→出庫取込
#
関連レコードへ移動 [ テーブル: 「出庫」; 使用するレイアウト: 「出庫」 (出庫) ] [ 関連レコードのみを表示 ]
レコードのインポート [ ソース: 「file:EasyApp15_p」; ターゲット: 「出庫」; 方法: 追加; 文字セット: 「シフト JIS」; フィールドデータのインポート順: ソースフィールド 37 のインポート 出庫::得意先ID ソースフィールド 38 のインポート 出庫::請求部署ID ソースフィールド 39 のインポート 出庫::担当ID ソースフィールド 40 のインポート 出庫::消費税率 ソースフィールド 41 のインポート 出庫::出庫日 ] [ ダイアログなし ]
変数を設定 [ $shipNo; 値:出庫::出庫No ]
#
#受注明細→出庫明細を取込
#
レイアウト切り替え [ 「出庫伝票」 (入出明細_出庫) ]
レコードのインポート [ ソース: 「file:EasyApp15_p」; ターゲット: 「入出明細_出庫」; 方法: 追加; 文字セット: 「シフト JIS」; フィールドデータのインポート順: ソースフィールド 2 のインポート 入出明細_出庫::商品ID ソースフィールド 3 のインポート 入出明細_出庫::販売単価 ソースフィールド 13 のインポート 入出明細_出庫::備考 ソースフィールド 14 のインポート 入出明細_出庫::単位 ソースフィールド 15 のインポート 入出明細_出庫::受注明細ID ソースフィールド 20 のインポート 入出明細_出庫::出庫数量 ] [ ダイアログなし ]
フィールド内容の全置換 [ 入出明細_出庫::出庫No; 計算で置き換える: $shipNo ] [ ダイアログなし ]
フィールド内容の全置換 [ 入出明細_出庫::入出庫日; 計算で置き換える: Get(日付) ] [ ダイアログなし ]
関連レコードへ移動 [ テーブル: 「出庫」; 使用するレイアウト: 「出庫」 (出庫) ] [ 関連レコードのみを表示 ]
ウインドウの調整 [ 収まるようにサイズ変更 ]
ウインドウを選択 [ 名前: $oriWinName; 現在のファイル ]
フィールドへ移動 [ 受発注明細_受注::移行数量 ]
#
#移行数FDはクリアしておく
#
Loop
　　Exit Loop If [ 受発注明細_受注::Id = "" ]
　　フィールド設定 [ 受発注明細_受注::移行数量; "" ]
　　ポータル内の行へ移動 [ 次の; 最後まできたら終了 ]
End Loop
レコード/検索条件確定 [ ダイアログなし ]

---

以上

　その他の在庫関連記事を読む

（土屋）