2. 見積・製品単価

お客様への見積書発行（Excel/VBA）から、AS/400の製品単価マスタPRMPへの登録（SSBS04/05）、そして受注・出荷・請求が単価をどう解決するか（PBTANKR）までを追います。

1. 見積の位置づけ — 2つの別システム

「見積書を作る」ことと「単価をシステムに登録する」ことは、別の作業・別のシステムです。見積フェーズは AS/400 の管理対象外で、Excel/VBA だけで完結しています。両者をつなぐのは人手です。

単価には常に 見積（確定前の参考値） と 決定（確定した契約単価） の2種類が併存します。見積書の 「※決定単価」欄、PRMPのPRKTAN（決定）/PRMTAN（見積）列、単価参照ロジック PBTANKR の 「決定があれば決定優先、なければ見積で代用」という3か所で一貫して現れる設計思想です。

2. 登場人物

3. 見積書発行の標準フロー Excel/VBA

根拠: source/estimate/ 配下のExcelブックのシート構成・共有文字列・VBAモジュール名の断片から業務フローを再構成しています（マクロ本体はバイナリのため、計算式そのものは未解読＝一部推測）。

得意先ごとにテンプレートが個別ファイルとして存在します: 見積書様式（アイシン精機）、（アイシン精機ホンダ向け）、（アイシン藤岡工場）、（アイシン第２試作＝試作専用）、（富士電機）、（略式＝得意先を問わない簡易版）など。すべて共通のVBA基盤モジュール（modBase）を内包し、共有設定ファイルをネットワークパス経由で読みに行きます (出典: 見積書様式（略式）.xlsm VBAバイナリ strings抽出)。

1. テンプレート選択 Excel/VBA
   得意先ごとに用意された .xlsm テンプレートを開く。試作品なら専用の「アイシン第２試作」様式を使う。
   担当: 営業課
2. 入力フォームへ数値・条件を入力 Excel/VBA
   品番・品名・数量・材質・規格・寸法・重量・得意先コード・納期・試作№・伝票№などを「入力フォーム」シートに入力する。 (出典: 見積書様式（略式）.xlsm sharedStrings.xml)
   担当: 営業課
3. 加工比率マスタを参照して自動計算 Excel/VBA 推測
   「入力フォーム」の値を元に、加工比率マスタ.xlsx（材料・設計・Ｗ／Ｃ・Ｍ／Ｃ・仕上げ・研磨・組付・トライ等の 工程別加工レート表）を参照して製品加工費・型費が算出され、「見積書」シートへ転記されると推測される （VBA計算式本体は本調査では読めていない）。
   担当: Excelマクロが自動計算
4. 見積書を印刷・得意先へ提出 Excel/VBA
   「見積書」シート（お客様提出用）を発行。品番／品名／納期／数量・重量／単価／金額の明細、「見積金額」合計、 「※御社査定」欄、「※決定単価」「決定金額」「決定日」欄、税抜き表示の注記、有効期限を印字する。
   担当: 営業課
5. 得意先が査定・決定単価を記入
   お客様側が「※御社査定」欄で金額を確認・修正し、承認後に「※決定単価」「決定金額」「決定日」欄へ記入する。 この欄が埋まった時点＝見積が確定し、AS/400へ登録すべき決定単価が確定する。
   担当: 得意先担当者
6. 見積書番号の採番・保管 Excel/VBA
   見積書管理マスタ.xlsx（年・月・連番の3列台帳）から次の連番を払い出し、見積書№を構成する。 過去の見積書は 見積書復元.xlsm で再表示できる （実VBAで解明: データベース参照ではなく、Application.GetOpenFilenameで 過去の見積書xlsxファイルをファイル選択ダイアログから人間が選び、アイシン精機用/略式のテンプレート選択を経て、 得意先コード・品番・品名・数量・納期・試作№・伝票№・明細行をセル単位で最新様式へ転記するだけの単純な 「過去ファイル再利用マクロ」であることを確認。復元元データの実体（作成済見積書フォルダ）は 本リポジトリには含まれず、サーバー共有フォルダ側にのみ存在すると推測される。出典: 見積書復元.xlsm modMain_606.bas）。
   担当: 営業課

Excel → AS/400 の橋渡し（手作業ギャップ） 【実VBAで解明】

4. 製品単価登録（SSBS04/05, PRMP）

見積がお客様に承認され「決定単価」が確定したら、この値をAS/400の製品単価マスタ PRMP に登録します。 ここからは対話型メニュー MENUS1（出荷管理サブシステム）配下の操作です (出典: source/as400-admin/transport-tooling/ITLIBS/MENUS1.txt L40-83)。

PRMPのキー構造

SSBS04 製品単価入力（ITUR01R） — 新規登録

1. キー入力画面 AS/400
   適用日・品番・仕様・得意先を入力する。
   担当: 単価入力オペレーター
2. 明細画面 AS/400
   現在登録済みの最新単価（参考値、下段表示）を見ながら、決定金額・見積金額・決定型費・見積型費・ コスト内訳を入力する。
   担当: 単価入力オペレーター
3. 確認画面でEnter → PRMPに新規追加（INSERT） AS/400
   同じキーが既に存在する場合は登録できない（エラー「このデータは既に登録されています。」）。 SSBS04は新しい適用日での価格改定の追加専用で、既存行の書き換えはできない。
   担当: 単価入力オペレーター

SSBS05 製品単価訂正（ITUR04R） — 既存行の修正

SSBS04と同じキー4項目で既存行を検索し、その場で上書き（UPDATE）します AS/400。 適用日は変更できません（新しい適用日での改定はSSBS04で別行を追加）(出典: pilot/spec/itur04r.md L220-223)。 SSBS04と排他制御を共有（ALCOBJ PRMP *EXCLRD）しており、SSBS04とSSBS05は同時に実行できません （どちらかが実行中はもう一方が「PRMPファイルのロックができません。」で弾かれる）(出典: itur01r.md L13-16, itur04r.md L13-16)。

単価の読み側解決（PBTANKR）

PBTANKRには3つのモードがあります: モード1＝決定単価のみ使用／モード2＝決定単価優先・なければ見積単価で代用（「見積含む」）／ モード3＝得意先・仕様を無視して最新行を返す。決定単価(PRKTAN)は常に見積単価(PRMTAN)より優先されます (出典: pbtankr.md L120-128)。この参照は請求書作成（ITS001R等）、受注概算表（ITUR41R〜46R等）、単価未入力抽出（ITUR45R） など多数の下流プログラムから共通で呼ばれています。

5. 伝票別単価・請求月繰越（SSBS12, ITUR05R）

PRMPは「品番×得意先×仕様×日付」単位のマスタ単価ですが、個別の受注（伝票）1件だけ特別な単価にしたい／ 請求のタイミングをずらしたい、というケースに対応するのがSSBS12です AS/400 (出典: pilot/spec/itur05r.md)。

操作: 受注№を1件指定 → その受注データJUDPが持つ3フィールドだけを直接書き換える。

JHMPの並行単価フィールド

さらに、社内向け作業指示書（受注票）に印字される単価は、JHMPの見積単価JHMTAN／見積型費JHMKAT であり、決定単価JHKTANではないことがITJM75R（受注票発行データ作成）のソースコメントで明言されています (出典: itjm75r.md L162-164, 原文「単価/型費は見積値」)。つまり社内の作業指示書には常に見積段階の単価が 印字されるという運用です（決定単価は顧客向け契約情報としてPRMPに保存し、社内スリップには出さない切り分けの 可能性 推測）。

6. 単価改定・訂正のケース

• 通常の価格改定（新しい適用日での値上げ・値下げ）: SSBS04で新しい適用日の行を追加登録。過去の行は 残ったまま、PBTANKRが「適用日≦しきい値の中で最新の行」を自動選択するため、システムとしては過去の全履歴が PRMPに蓄積されていく設計です（削除・更新ではなく追加が基本）。実データでは5,884品番のうち347品番（5.9%）が複数の適用日世代を持ち、最大で1品番あたり45世代が積み上がっているケースもあり、この「追加が基本」という設計が実際に長期運用されてきたことを裏付けています。
• 入力ミスの訂正: SSBS05で既存行をその場で上書き（§4-3参照）。
• 遡及改定: 明確な仕組みは確認できません。過去日付で新しい行を追加すれば理屈上は過去分の再計算に 影響しますが、既に確定・請求済みの伝票を自動的に再計算する仕組みはソースから見当たりません（未解明事項5）。
• 単価未登録品番の検知: SSBS45「単価未入力品番抽出」（ITUR45R、MENUS2 opt45）が バッチで前月以降の受注のうち受注数×単価＋型費がゼロ（＝PBTANKRで単価が引けなかった）品番を抽出し、 Excel（BAT0345.XLSM／JUDPS5ステージング）に出力します。「見積は終わったのにAS/400への 単価登録を忘れている」品番を営業事務が定期的に見つけるための仕組みと解釈できます。初出の品番には NEW区分が付き、履歴ファイルJUDPS5Aで重複検知します (出典: pilot/spec/itur45r.md L39-58)。 実データでもPRMPのT行8,929件のうち1,913件（21.4%）は決定単価がゼロで登録されており、SSBS45のようなチェック機構が実運用上も必要とされる規模感がうかがえます。

7. 特殊ケース

7-1. 試作品の単価 vs 号口の単価

見積書テンプレートに「見積書様式（アイシン第２試作）.xlsm」という試作専用の様式があり、入力欄にも 「試作№」という専用フィールドがあります。AS/400側ではJHMPのJHKUGO（号口区分）フィールドで 9=「号口」/1=「試作」を区別します (出典: itjm75r.md L132)。

7-2. 金型費の扱い

見積・単価マスタの両方で「型費」は単価とは別建ての金額として一貫して扱われます（見積書の「型費」欄、 PRMPのK行、JUDPのJUKATH、JHMPのJHKKAT/JHMKAT/JHDKATなど）。 見積書テンプレートの「(機械・治具・型・試作品・設備)」という注記から、型費に類する費用項目として機械・治具・設備も 見積の内訳に含まれる可能性がありますが、これらがPRMPのどのフィールドに対応するかは確認できていません（未解明事項7）。

7-3. 無償支給材の扱い

PRMPのコスト内訳にPRHYSK（支給品費）・PRHYJK（自給品費）というフィールドがあります。 支給＝客先支給、自給＝自社調達という対比と推測されますが、無償支給材がゼロ計上か評価額計上かの運用ルールは ソースから確認できません（未解明事項8）推測。

実データスナップショット

本リポジトリのPostgreSQLには7年分のAS/400実データが取り込まれています。PRMP（製品単価マスタ）は12,100行と件数こそJUDPより小さいものの、PRDYTY（適用日）の実際の範囲は1990年〜2026年と、受注データ（judp、主要期間2018〜2026年）よりはるかに古い価格履歴を保持していました — 「過去の全履歴が蓄積されていく設計」（第6章）が数十年単位で実際に機能していたことになります。以下はprmp・jhmpを実際に集計した結果です（2018〜2026年の実データインポート時点、ただしPRMPの適用日履歴は1990年まで遡ります）。

決定単価（T行、prktan）の分布

JHMPとPRMPの重複度（未解明事項6への実データからの手がかり）

詳細は上記「JHMPの並行単価フィールド」の項も参照してください。

-- PRMP基本統計
SELECT prkuta, count(*) FROM prmp GROUP BY prkuta ORDER BY 2 DESC;
SELECT count(*) AS total, count(DISTINCT prcdtk) AS distinct_customers,
       count(DISTINCT prbnhn) AS distinct_bnhn
FROM prmp;
SELECT count(*) FROM tkmp;
SELECT count(*) FROM (SELECT DISTINCT prcdtk FROM prmp) p
  LEFT JOIN tkmp t ON t.tkcdtk = p.prcdtk WHERE t.tkcdtk IS NULL;

-- 適用日の範囲
SELECT min(prdyty) FILTER (WHERE prdyty > 0), max(prdyty),
       count(*) FILTER (WHERE prdyty = 0) AS zero_muki
FROM prmp;

-- 決定単価の分布
SELECT
  count(*) AS n_t_rows,
  count(*) FILTER (WHERE prktan = 0) AS zero_prktan,
  min(prktan) FILTER (WHERE prktan > 0) AS min_pos,
  percentile_cont(0.5) WITHIN GROUP (ORDER BY prktan) FILTER (WHERE prktan > 0) AS median_pos,
  max(prktan) AS max_prktan,
  avg(prktan) FILTER (WHERE prktan > 0) AS avg_pos
FROM prmp WHERE prkuta = ' T';
SELECT prcdtk, prbnhn, prkusy, prdyty, prktan, prmtan
FROM prmp WHERE prkuta = ' T' ORDER BY prktan DESC LIMIT 5;

-- 複数世代を持つ品番
SELECT gen_count, count(*) AS n_bnhn FROM (
  SELECT prbnhn, count(DISTINCT prdyty) AS gen_count
  FROM prmp WHERE prkuta = ' T' GROUP BY prbnhn
) sub GROUP BY gen_count ORDER BY gen_count;

-- JHMPとPRMPの重複度
SELECT
  count(*) AS total_jhmp,
  count(*) FILTER (WHERE jhktan IS NOT NULL AND jhktan <> 0) AS jhktan_nonzero,
  count(*) FILTER (WHERE jhmtan IS NOT NULL AND jhmtan <> 0) AS jhmtan_nonzero,
  count(*) FILTER (WHERE jhdtan IS NOT NULL AND jhdtan <> 0) AS jhdtan_nonzero
FROM jhmp;
SELECT count(*) AS overlap
FROM (SELECT DISTINCT jhbnhn FROM jhmp) a
JOIN (SELECT DISTINCT prbnhn FROM prmp) b ON a.jhbnhn = b.prbnhn;

8. 関連マスタ・帳票一覧

マスタ

主なプログラム／帳票

9. 用語集

見積単価（みつもりたんか）

契約成立前の参考単価。PRMPではPRMTAN、JHMPではJHMTAN

決定単価（けっていたんか）

お客様が承認した確定契約単価。PRMPではPRKTAN、JHMPではJHKTAN

型費（かたひ）

金型に関する費用。単価とは別建てでPRMPにK行として登録される

号試単価（ごうしたんか）

号口移行前の試作ロット向け単価（JHMPのJHDTAN、推測含む） 推測含む

単価区分（たんかくぶん）

PRMPのキー項目PRKUTA。' T'=単価行、' K'=型費行

適用日（てきようび）

単価がいつから有効かを示す日付。PRMPのキーの一部で、履歴として複数行を積める

伝票別単価（でんぴょうべつたんか）

マスタ単価とは別に、個別の受注1件だけに設定する特例単価（SSBS12）

繰越（くりこし）

納品が遅れた場合に請求対象年月をずらす処理（SSBS12のJUSEHI更新）

自給品費（じきゅうひんひ）

自社側で材料を調達する場合の費用 推測

支給品費（しきゅうひんひ）

お客様から材料が無償支給される場合の費用 推測

素材費（そざいひ）

材料そのものの費用。素材重量×素材単価−廃材重量×廃材建値で検算される

廃材建値（はいざいたてね）

スクラップ材の単価（PRTKSK）。廃材は買い取り価格として控除計算に使われる

単価未入力（たんかみにゅうりょく）

受注はあるのにPRMP/JUDPどちらにも単価が登録されていない状態。SSBS45で検出

見積含む（みつもりふくむ）

PBTANKRのモード2。決定単価がなければ見積単価で代用するモード

依頼区分（いらいくぶん）

受注の種類コード。PBTANKRでは' A'が型費を抑制する特殊値として扱われる

PBTANKR（製品単価参照）

単価マスタPRMPを検索して単価・型費を返す共通サブルーチン。画面はない

ITSQ01R（実行許可確認）

どの端末・どのユーザーがそのプログラムを実行してよいか判定する共通ゲート処理

10. 他業務との接続点

上流（見積の前段階）

図面・技術情報からの見積算出は、加工比率マスタ.xlsxのレート表を使ってExcel側で行われます。 図面そのものの管理（図面整理業務、source/engineering/）との接続は今回未調査です（未解明事項9）。

下流（見積・単価確定後）

• 受注入力（MENUJ1系、itjm系プログラム）: 受注データJUDP作成時、単価が入っていなければ PBTANKR経由でPRMPを自動参照。JHMPの見積単価は受注票（社内作業指示）に印字される。
• 出荷・請求（本ページと同じMENUS1サブシステム内）: ITS001R請求書作成等が単価を 「見積/決定」ラベル付きで転記。SSBS12の伝票別単価上書きがあればそちらが優先。
• 受注概算表（ITUR41R〜ITUR46R）: PBTANKRを使って未確定受注の概算金額を算出。 単価未確定案件はゼロ円として現れ、SSBS45の抽出対象になる。

未解明事項 — 現場担当者への質問リスト