botrun-horse 1.0.0

package/lib/writing/generators/nstc-top5.mjs

@@ -0,0 +1,554 @@
+// lib/writing/generators/nstc-top5.mjs — Top 5 高擬真多頁公文生成器
+// 每個生成器產出 3-6 頁的真實國科會公文
+
+import {
+  pick, randInt, padZero, genDocNum, genDate, genBudget,
+  SCHOOLS, PIS, DEPTS, TOPICS, VENDORS, CHIEFS, MEETING_PLACES,
+} from '../../../projects/nstc/data/fake-data.mjs';
+import {
+  drawHeader, drawAttachmentHeader, drawField, drawSection,
+  drawNumberedText, drawSubNumberedText, drawParagraph, drawSignature,
+  checkPage, drawTable, drawComparisonTable,
+} from '../layouts/nstc-layout.mjs';
+
+// =====================================================================
+// #1 — 專題研究計畫補助核定通知（函） 3~4 頁
+//      本文 + 附件：經費核定清單（含多筆計畫的表格）
+// =====================================================================
+export function generate_top5_核定通知(doc, meta) {
+  const docNum = genDocNum('函', meta.id);
+  const date = genDate();
+  const school = pick(SCHOOLS);
+  const dept = pick(DEPTS);
+
+  // ---- 第 1 頁：公文本文 ----
+  drawHeader(doc, '國家科學及技術委員會 函');
+  let y = 160;
+
+  y = drawField(doc, '受文者：', school, y);
+  y = drawField(doc, '發文日期：', date, y);
+  y = drawField(doc, '發文字號：', docNum, y);
+  y = drawField(doc, '速別：', '最速件', y);
+  y = drawField(doc, '密等及解密條件或保密期限：', '普通', y);
+  y = drawField(doc, '附件：', '如說明四（計畫經費核定清單乙份）', y);
+  y += 8;
+
+  y = drawField(doc, '主旨：', `有關貴校教師申請本會114年度專題研究計畫，業經本會審查完竣，核定補助案計${randInt(15, 45)}件，復如說明，請查照。`, y, true);
+  y += 5;
+
+  y = drawSection(doc, '說明：', y);
+  y = drawNumberedText(doc, '一、', `依據本會${dept}114年度專題研究計畫審查作業結果辦理。`, y);
+  y = drawNumberedText(doc, '二、', '旨揭計畫業經本會各學門召集人及複審委員審查完竣，核定結果詳如附件「計畫經費核定清單」。各計畫執行期限、補助經費及核定項目均載明於核定清單內，請依核定內容辦理。', y);
+  y = drawNumberedText(doc, '三、', '補助經費之核撥及支用，應依「國家科學及技術委員會補助專題研究計畫經費處理原則」辦理，重點事項如下：', y);
+  y = drawSubNumberedText(doc, '（一）', '多年期計畫每年分二期撥款，第一期款於計畫核定後撥付，第二期款於計畫主持人繳交期中進度報告經審查後撥付。', y);
+  y = drawSubNumberedText(doc, '（二）', '請款時應檢具領款收據、補助合約書及請款明細表。', y);
+  y = drawSubNumberedText(doc, '（三）', '計畫經費應於執行期間內支用，同一補助項目內支出用途得逕依機構內部程序變更。', y);
+  y = drawSubNumberedText(doc, '（四）', '國外差旅費累計流出或流入超過計畫全程該項目原核定金額百分之五十者，執行機構須敘明理由報經本會同意。', y);
+  y = drawSubNumberedText(doc, '（五）', '管理費不得自其他項目流入，不同計畫間不得互相流用。', y);
+
+  y = drawNumberedText(doc, '四、', '檢附計畫經費核定清單乙份，請轉知各計畫主持人知照，並請依規定辦理簽約及請款事宜。', y);
+  y = drawNumberedText(doc, '五、', '計畫主持人應依核定計畫內容確實執行，如需變更計畫主持人、經費用途或執行期間，應依「國家科學及技術委員會補助專題研究計畫作業要點」第十七點規定報經本會同意。', y);
+  y = drawNumberedText(doc, '六、', '計畫執行期間屆滿後三個月內，計畫主持人應繳交專題研究計畫收支明細報告表及研究成果報告，結餘經費應依規定繳回。', y);
+  y = drawNumberedText(doc, '七、', '研究成果如有涉及智慧財產權者，依「科技研究發展成果歸屬及運用辦法」相關規定辦理。', y);
+  y += 12;
+
+  y = drawField(doc, '正本：', school, y);
+  y = drawField(doc, '副本：', `${school}研究發展處、${school}主計室、${dept}`, y);
+  y += 25;
+  drawSignature(doc, y);
+
+  // ---- 第 2~4 頁：附件 — 經費核定清單表格 ----
+  doc.addPage();
+  y = drawAttachmentHeader(doc, '國家科學及技術委員會補助專題研究計畫經費核定清單');
+
+  doc.font('Song').fontSize(10);
+  doc.text(`受補助單位：${school}`, 60, y);
+  doc.text(`核定日期：${date}`, 350, y);
+  y += 18;
+  doc.text(`學年度：114年度`, 60, y);
+  doc.text(`單位：新臺幣元`, 400, y);
+  y += 20;
+
+  // 產生多筆計畫
+  const planCount = randInt(12, 25);
+  const headers = ['序號', '計畫編號', '主持人', '計畫名稱', '業務費', '設備費', '國外差旅費', '管理費', '合計'];
+  const colWidths = [28, 78, 38, 95, 52, 48, 52, 45, 52];
+  const rows = [];
+  let totalBiz = 0, totalEquip = 0, totalTravel = 0, totalMgmt = 0, totalAll = 0;
+
+  for (let i = 0; i < planCount; i++) {
+    const projCode = `NSTC ${114}-${randInt(2100, 2900)}-${pick(['E', 'H', 'M', 'B', 'I'])}-${padZero(randInt(1, 200), 3)}-${padZero(randInt(1, 99))}`;
+    const piName = pick(PIS);
+    const topicShort = pick(TOPICS).substring(0, 18);
+    const biz = randInt(200, 1500) * 1000;
+    const equip = randInt(0, 3) > 1 ? randInt(50, 500) * 1000 : 0;
+    const travel = randInt(0, 3) > 1 ? randInt(30, 200) * 1000 : 0;
+    const mgmt = Math.floor(biz * pick([0.10, 0.12, 0.15]));
+    const total = biz + equip + travel + mgmt;
+    totalBiz += biz; totalEquip += equip; totalTravel += travel; totalMgmt += mgmt; totalAll += total;
+
+    rows.push([
+      String(i + 1),
+      projCode,
+      piName,
+      topicShort,
+      biz.toLocaleString(),
+      equip ? equip.toLocaleString() : '-',
+      travel ? travel.toLocaleString() : '-',
+      mgmt.toLocaleString(),
+      total.toLocaleString(),
+    ]);
+  }
+
+  // 合計列
+  rows.push([
+    '', '', '', '合　計',
+    totalBiz.toLocaleString(),
+    totalEquip.toLocaleString(),
+    totalTravel.toLocaleString(),
+    totalMgmt.toLocaleString(),
+    totalAll.toLocaleString(),
+  ]);
+
+  y = drawTable(doc, { headers, colWidths, rows, startY: y, startX: 50, rowHeight: 20, fontSize: 7.5 });
+
+  y = checkPage(doc, y, 50);
+  doc.font('Song').fontSize(9);
+  doc.text('備註：', 60, y);
+  y += 14;
+  doc.text('1. 各計畫經費依核定清單所列金額核撥，不得超支。', 75, y);
+  y += 14;
+  doc.text('2. 業務費含研究人力費、耗材物品圖書雜項費用、國外學者來臺費用。', 75, y);
+  y += 14;
+  doc.text('3. 研究設備費係指單價在新臺幣一萬元以上，且使用年限在二年以上之設備。', 75, y);
+  y += 14;
+  doc.text('4. 管理費由執行機構統籌支用，不得自其他項目流入。', 75, y);
+  y += 14;
+  doc.text('5. 本清單如有疑義，請逕洽本會各學門承辦人。', 75, y);
+}
+
+// =====================================================================
+// #34 — 114年度專題研究計畫申請公告  4~5 頁
+//       完整申請辦法、補助項目、時程表、注意事項
+// =====================================================================
+export function generate_top5_申請公告(doc, meta) {
+  const docNum = genDocNum('公告', meta.id);
+  const date = genDate();
+
+  // ---- 第 1 頁 ----
+  drawHeader(doc, '國家科學及技術委員會 公告');
+  let y = 160;
+
+  y = drawField(doc, '發文日期：', date, y);
+  y = drawField(doc, '發文字號：', docNum, y);
+  y = drawField(doc, '附件：', '如公告事項六（申請時程表）', y);
+  y += 8;
+
+  y = drawField(doc, '主旨：', '公告受理114年度（2025年度）專題研究計畫申請案，自即日起開始受理，請查照。', y, true);
+  y += 5;
+
+  y = drawSection(doc, '依據：', y);
+  y = drawParagraph(doc, '國家科學及技術委員會補助專題研究計畫作業要點第四點規定。', y);
+  y += 3;
+
+  y = drawSection(doc, '公告事項：', y);
+
+  y = drawNumberedText(doc, '一、', '計畫類別：', y);
+  y = drawSubNumberedText(doc, '（一）', '個別型研究計畫：由單一主持人主導之研究計畫，計畫期限以一年至三年為原則。', y);
+  y = drawSubNumberedText(doc, '（二）', '整合型研究計畫：由總計畫主持人整合各子計畫，以跨領域合作方式進行之研究計畫，計畫期限以二年至四年為原則。', y);
+  y = drawSubNumberedText(doc, '（三）', '年輕學者養成計畫（含哥倫布計畫及愛因斯坦培植計畫）：提供年輕學者較為優渥之研究經費，以利其建立獨立研究能力。', y);
+
+  y = drawNumberedText(doc, '二、', '申請資格：', y);
+  y = drawSubNumberedText(doc, '（一）', '國內公私立大專校院及學術研究機構編制內之專任教學或研究人員。', y);
+  y = drawSubNumberedText(doc, '（二）', '中央研究院之研究人員。', y);
+  y = drawSubNumberedText(doc, '（三）', '具有博士學位或相當於助理教授以上之研究著作及經歷者。', y);
+  y = drawSubNumberedText(doc, '（四）', '年輕學者養成計畫之申請人須符合本會相關規定之年齡限制（取得博士學位未逾七年者）。', y);
+
+  y = drawNumberedText(doc, '三、', '補助項目及額度：', y);
+  y = drawSubNumberedText(doc, '（一）', '業務費：含研究人力費（專、兼任助理、臨時工資等）、耗材物品圖書雜項費用及國外學者來臺費用。個別型計畫每年以新臺幣一百五十萬元為上限（特殊案件得專案報准）。', y);
+  y = drawSubNumberedText(doc, '（二）', '研究設備費：係指單價在新臺幣一萬元以上且使用年限在二年以上之設備，應逐項列明名稱、規格、數量及單價。', y);
+  y = drawSubNumberedText(doc, '（三）', '國外差旅費：執行國際合作、移地研究或出席國際學術會議之費用，應逐次列明事由、目的地及預估金額。', y);
+  y = drawSubNumberedText(doc, '（四）', '管理費：由執行機構配合執行研究計畫所需之費用，按業務費及研究設備費核定金額之一定比例核給。', y);
+
+  y = drawNumberedText(doc, '四、', '申請方式及應備文件：', y);
+  y = drawSubNumberedText(doc, '（一）', '申請人應至本會學術研發服務網（https://wsts.nstc.gov.tw）線上填具申請資料，並上傳研究計畫書全文（PDF格式）。', y);
+  y = drawSubNumberedText(doc, '（二）', '申請書應包含下列內容：摘要（中英文各五百字以內）、研究目的與背景、文獻探討、研究方法與步驟、預期成果及貢獻、參考文獻、經費需求及人力配置說明。', y);
+  y = drawSubNumberedText(doc, '（三）', '個人資料表應載明近五年內之重要研究成果、發表著作及執行本會研究計畫之情形。', y);
+  y = drawSubNumberedText(doc, '（四）', '整合型研究計畫應另附各子計畫間之關聯性及整合機制說明。', y);
+  y = drawSubNumberedText(doc, '（五）', '申請機構應依申請人所送資料統一彙送，不受理個人逕送之申請案。', y);
+
+  y = drawNumberedText(doc, '五、', '審查方式：', y);
+  y = drawSubNumberedText(doc, '（一）', '初審：由本會依學門分類，邀請該領域專家學者進行書面審查。每案至少由二位以上審查委員評審。', y);
+  y = drawSubNumberedText(doc, '（二）', '複審：由學門召集人及複審委員就初審意見進行綜合評比，決定補助與否及補助額度。', y);
+  y = drawSubNumberedText(doc, '（三）', '審查重點包括：研究主題之重要性及創新性、研究方法之可行性與嚴謹度、計畫主持人之研究能力及過往執行成效、經費編列之合理性。', y);
+
+  y = drawNumberedText(doc, '六、', '申請時程表：', y);
+  y += 5;
+
+  const scheduleHeaders = ['項目', '起始日期', '截止日期', '備註'];
+  const scheduleColWidths = [160, 90, 90, 120];
+  const scheduleRows = [
+    ['線上申請開放', '114年3月1日', '114年5月31日', '逾期系統自動關閉'],
+    ['申請機構彙送', '114年3月15日', '114年6月15日', '機構統一送件'],
+    ['初審作業', '114年7月1日', '114年9月30日', '書面審查'],
+    ['複審作業', '114年10月1日', '114年11月15日', '學門會議'],
+    ['核定結果通知', '114年12月1日', '114年12月31日', '公文通知學校'],
+    ['第一期款撥付', '115年1月', '115年2月', '簽約後撥款'],
+  ];
+  y = drawTable(doc, { headers: scheduleHeaders, colWidths: scheduleColWidths, rows: scheduleRows, startY: y, fontSize: 9 });
+  y += 5;
+
+  y = drawNumberedText(doc, '七、', '注意事項：', y);
+  y = drawSubNumberedText(doc, '（一）', '同一主持人同一年度以申請一件個別型計畫為限。擔任整合型計畫總主持人者，不得同時申請個別型計畫。', y);
+  y = drawSubNumberedText(doc, '（二）', '計畫主持人應確實執行研究計畫，不得將計畫工作委由他人代理或轉包。', y);
+  y = drawSubNumberedText(doc, '（三）', '研究計畫涉及人體試驗、基因重組、動物實驗或其他需經倫理審查者，應於計畫書中敘明，並於計畫開始執行前取得相關倫理審查委員會之核准。', y);
+  y = drawSubNumberedText(doc, '（四）', '申請人應遵守本會「對研究人員學術倫理規範」，嚴禁造假、變造、抄襲等違反學術倫理之行為。違反者將依「國家科學及技術委員會學術倫理案件處理及審議要點」處理。', y);
+  y = drawSubNumberedText(doc, '（五）', '本公告如有未盡事宜，悉依「國家科學及技術委員會補助專題研究計畫作業要點」及相關規定辦理。', y);
+
+  y = drawNumberedText(doc, '八、', '聯絡方式：', y);
+  y = drawSubNumberedText(doc, '', `自然科學及永續研究發展處：(02)2737-7${randInt(100, 999)}`, y);
+  y = drawSubNumberedText(doc, '', `工程技術研究發展處：(02)2737-7${randInt(100, 999)}`, y);
+  y = drawSubNumberedText(doc, '', `人文及社會科學研究發展處：(02)2737-7${randInt(100, 999)}`, y);
+  y = drawSubNumberedText(doc, '', `生命科學研究發展處：(02)2737-7${randInt(100, 999)}`, y);
+  y = drawSubNumberedText(doc, '', `科教發展及國際合作處：(02)2737-7${randInt(100, 999)}`, y);
+
+  y += 20;
+  drawSignature(doc, y);
+}
+
+// =====================================================================
+// #41 — 委員會議開會通知  3 頁
+//       含完整議程表、出席委員名單
+// =====================================================================
+export function generate_top5_開會通知(doc, meta) {
+  const docNum = genDocNum('開會通知單', meta.id);
+  const date = genDate();
+  const meetMonth = randInt(3, 11);
+  const meetDay = randInt(1, 28);
+
+  // ---- 第 1 頁：開會通知單本文 ----
+  drawHeader(doc, '國家科學及技術委員會 開會通知單');
+  let y = 160;
+
+  y = drawField(doc, '發文日期：', date, y);
+  y = drawField(doc, '發文字號：', docNum, y);
+  y = drawField(doc, '速別：', '速件', y);
+  y = drawField(doc, '附件：', '如說明（議程、出席委員名單各乙份）', y);
+  y += 12;
+
+  y = drawField(doc, '會議名稱：', meta.title, y);
+  y = drawField(doc, '開會時間：', `中華民國114年${meetMonth}月${meetDay}日（${pick(['星期一', '星期二', '星期三', '星期四', '星期五'])}）上午9時30分`, y);
+  y = drawField(doc, '開會地點：', '本會3樓國際會議廳（臺北市大安區和平東路二段106號）', y);
+  y = drawField(doc, '主持人：', `${pick(CHIEFS)}　主任委員`, y);
+  y = drawField(doc, '聯絡人及電話：', `${pick(PIS)}（02-2737-${randInt(7000, 7999)}）`, y);
+  y = drawField(doc, '傳真號碼：', `(02)2737-${randInt(7800, 7999)}`, y);
+  y += 12;
+
+  y = drawSection(doc, '開會事由：', y);
+  y = drawParagraph(doc, '為審議本會114年度重要施政方針、科技發展策略及預算分配等事項，召開本屆第8次委員會議。', y);
+  y += 5;
+
+  y = drawSection(doc, '討論事項：', y);
+  y = drawNumberedText(doc, '一、', '確認前次（第7次）會議紀錄。', y);
+  y = drawNumberedText(doc, '二、', '報告事項：', y);
+  y = drawSubNumberedText(doc, '（一）', '114年度第一季科技預算執行情形報告。', y);
+  y = drawSubNumberedText(doc, '（二）', '國際科技合作推動情形報告。', y);
+  y = drawSubNumberedText(doc, '（三）', '前瞻基礎建設計畫執行進度報告。', y);
+  y = drawNumberedText(doc, '三、', '討論事項：', y);
+  y = drawSubNumberedText(doc, '（一）', '115年度科技發展施政計畫（草案）審議。', y);
+  y = drawSubNumberedText(doc, '（二）', '人工智慧國家戰略推動方案修正案。', y);
+  y = drawSubNumberedText(doc, '（三）', '半導體及量子科技人才培育計畫推動策略。', y);
+  y = drawSubNumberedText(doc, '（四）', '淨零碳排科技研發藍圖修訂案。', y);
+  y = drawNumberedText(doc, '四、', '臨時動議。', y);
+  y += 8;
+
+  y = drawSection(doc, '備註：', y);
+  y = drawNumberedText(doc, '一、', '請委員準時出席。如不克出席，請務必於開會前一日（含）告知聯絡人，並指派代理人出席。代理人出席時應攜帶委任書。', y);
+  y = drawNumberedText(doc, '二、', '開會當日請攜帶本通知單至1樓大廳服務台換領臨時識別證入場。', y);
+  y = drawNumberedText(doc, '三、', '會議資料將於會前三日以電子郵件傳送各委員，紙本資料於會場領取。', y);
+  y = drawNumberedText(doc, '四、', '本會地下一樓設有停車場，請委員多利用大眾運輸工具。', y);
+
+  y += 20;
+  drawSignature(doc, y);
+
+  // ---- 第 2 頁：議程表 ----
+  doc.addPage();
+  y = drawAttachmentHeader(doc, `國家科學及技術委員會第12屆第8次委員會議 議程`);
+  y += 5;
+
+  doc.font('Song').fontSize(10);
+  doc.text(`日期：中華民國114年${meetMonth}月${meetDay}日（${pick(['星期一', '星期二', '星期三', '星期四', '星期五'])}）`, 60, y);
+  y += 16;
+  doc.text('地點：本會3樓國際會議廳', 60, y);
+  y += 20;
+
+  const agendaHeaders = ['時間', '議程內容', '報告人/主持人'];
+  const agendaColWidths = [100, 240, 130];
+  const agendaRows = [
+    ['09:00-09:30', '報到及領取會議資料', '秘書處'],
+    ['09:30-09:40', '主席致詞', `${pick(CHIEFS)} 主任委員`],
+    ['09:40-09:50', '確認第7次委員會議紀錄', `${pick(CHIEFS)} 主任委員`],
+    ['09:50-10:20', '報告案一：114年度第一季科技預算執行情形', `${pick(DEPTS).substring(0, 6)}報告`],
+    ['10:20-10:50', '報告案二：國際科技合作推動情形', '科教發展及國際合作處報告'],
+    ['10:50-11:10', '茶敘', ''],
+    ['11:10-11:40', '報告案三：前瞻基礎建設計畫執行進度', '前瞻及應用科技處報告'],
+    ['11:40-12:20', '討論案一：115年度科技發展施政計畫（草案）', '企劃處提案'],
+    ['12:20-13:30', '午餐休息', ''],
+    ['13:30-14:10', '討論案二：人工智慧國家戰略推動方案修正案', '前瞻及應用科技處提案'],
+    ['14:10-14:50', '討論案三：半導體及量子科技人才培育計畫', '工程技術研究發展處提案'],
+    ['14:50-15:10', '茶敘', ''],
+    ['15:10-15:50', '討論案四：淨零碳排科技研發藍圖修訂案', '自然科學及永續研究發展處'],
+    ['15:50-16:10', '臨時動議', `${pick(CHIEFS)} 主任委員`],
+    ['16:10', '散會', ''],
+  ];
+
+  y = drawTable(doc, { headers: agendaHeaders, colWidths: agendaColWidths, rows: agendaRows, startY: y, fontSize: 9, rowHeight: 24 });
+
+  // ---- 第 3 頁：出席委員名單 ----
+  doc.addPage();
+  y = drawAttachmentHeader(doc, '出席委員名單');
+  y += 5;
+
+  const memberHeaders = ['序號', '姓名', '現職', '專長領域', '備註'];
+  const memberColWidths = [35, 55, 160, 130, 70];
+  const memberNames = ['吳政忠', '陳宗權', '林敏聰', '陳炳宇', '張天豪',
+    '王瑜', '李遠哲', '廖俊智', '孫璐茜', '張慶瑞', '陳力俊', '彭旭明',
+    '劉兆漢', '楊泮池', '周美吟'];
+  const positions = [
+    '主任委員', '副主任委員', '副主任委員', '委員（國立臺灣大學教授）',
+    '委員（國立清華大學教授）', '委員（中央研究院院士）',
+    '委員（國立陽明交通大學教授）', '委員（中央研究院院長）',
+    '委員（國立成功大學教授）', '委員（國立臺灣大學教授）',
+    '委員（國立清華大學教授）', '委員（中央研究院院士）',
+    '委員（中央研究院院士）', '委員（國立臺灣大學教授）',
+    '委員（中央研究院研究員）',
+  ];
+  const expertises = [
+    '科技政策', '資通訊科技', '材料科學', '電機工程', '機械工程',
+    '生命科學', '化學', '生物化學', '物理學', '凝態物理',
+    '材料工程', '無機化學', '大氣科學', '醫學', '天文物理',
+  ];
+  const memberRows = memberNames.map((name, i) => [
+    String(i + 1), name, positions[i] || '委員', expertises[i] || '科技政策',
+    i < 2 ? '當然委員' : '',
+  ]);
+
+  y = drawTable(doc, { headers: memberHeaders, colWidths: memberColWidths, rows: memberRows, startY: y, fontSize: 9, rowHeight: 22 });
+
+  y += 10;
+  doc.font('Song').fontSize(9);
+  doc.text('※ 依國家科學及技術委員會組織法第四條，本會置委員十五人至二十一人。', 60, y);
+  y += 14;
+  doc.text('※ 如委員不克出席，得指派代理人出席，代理人列席發言但無表決權。', 60, y);
+}
+
+// =====================================================================
+// #31 — 補助專題研究計畫作業要點修正令  4~5 頁
+//       含修正條文對照表
+// =====================================================================
+export function generate_top5_修正令(doc, meta) {
+  const docNum = genDocNum('令', meta.id);
+  const date = genDate();
+
+  // ---- 第 1 頁：令本文 ----
+  drawHeader(doc, '國家科學及技術委員會 令');
+  let y = 160;
+
+  y = drawField(doc, '發文日期：', date, y);
+  y = drawField(doc, '發文字號：', docNum, y);
+  y = drawField(doc, '附件：', '修正條文對照表乙份', y);
+  y += 10;
+
+  y = drawField(doc, '主旨：', '修正「國家科學及技術委員會補助專題研究計畫作業要點」部分規定，並自即日生效。', y, true);
+  y += 5;
+
+  y = drawSection(doc, '依據：', y);
+  y = drawParagraph(doc, '科學技術基本法第六條及國家科學及技術委員會組織法第二條規定。', y);
+  y += 3;
+
+  y = drawSection(doc, '公告事項：', y);
+  y = drawNumberedText(doc, '一、', '修正「國家科學及技術委員會補助專題研究計畫作業要點」第三點、第五點、第六點、第十二點、第十五點及第十七點條文。', y);
+  y = drawNumberedText(doc, '二、', '本次修正重點如下：', y);
+  y = drawSubNumberedText(doc, '（一）', '配合政府推動淨零轉型政策，於第三點新增永續發展相關研究之優先補助規定。', y);
+  y = drawSubNumberedText(doc, '（二）', '調整第五點計畫申請期限，將線上申請截止日延長至每年六月三十日。', y);
+  y = drawSubNumberedText(doc, '（三）', '修正第六點經費項目分類，增列「國際合作費」為獨立經費項目，以利國際學術合作之推動。', y);
+  y = drawSubNumberedText(doc, '（四）', '放寬第十二點計畫執行變更規定，允許計畫主持人於經費百分之二十範圍內自行調整業務費子項配置。', y);
+  y = drawSubNumberedText(doc, '（五）', '修正第十五點計畫成果報告繳交期限，延長為計畫期滿後四個月內。', y);
+  y = drawSubNumberedText(doc, '（六）', '增訂第十七點之一，明定計畫主持人因故無法繼續執行計畫時之處理程序。', y);
+  y = drawNumberedText(doc, '三、', '修正條文對照表如附件。', y);
+  y = drawNumberedText(doc, '四、', '本令自即日起生效。各執行機構應依修正後規定辦理，於修正前已核定之計畫得繼續依原核定條件執行。', y);
+  y += 20;
+  drawSignature(doc, y);
+
+  // ---- 第 2~4 頁：修正條文對照表 ----
+  doc.addPage();
+  y = drawAttachmentHeader(doc, '國家科學及技術委員會補助專題研究計畫作業要點修正條文對照表');
+  y += 5;
+
+  const items = [
+    {
+      article: '第三點',
+      newText: '本會補助之專題研究計畫，以具有學術價值、前瞻性或實用性之研究為原則。\n\n前項研究以下列領域為優先補助對象：\n一、基礎科學研究。\n二、應用科技研發。\n三、跨領域整合研究。\n四、永續發展及淨零轉型相關研究。\n五、人工智慧及新興科技研究。',
+      oldText: '本會補助之專題研究計畫，以具有學術價值、前瞻性或實用性之研究為原則。\n\n前項研究以下列領域為優先補助對象：\n一、基礎科學研究。\n二、應用科技研發。\n三、跨領域整合研究。',
+    },
+    {
+      article: '第五點',
+      newText: '專題研究計畫之申請，應於本會公告受理期間內，由申請機構統一彙送。\n\n前項公告受理期間，線上申請截止日為每年六月三十日，申請機構彙送截止日為每年七月十五日。\n\n申請人應於截止日前完成線上申請程序，逾期不予受理。',
+      oldText: '專題研究計畫之申請，應於本會公告受理期間內，由申請機構統一彙送。\n\n前項公告受理期間，線上申請截止日為每年五月三十一日，申請機構彙送截止日為每年六月十五日。\n\n申請人應於截止日前完成線上申請程序，逾期不予受理。',
+    },
+    {
+      article: '第六點',
+      newText: '本會補助經費分為下列四類：\n一、業務費：包括研究人力費、耗材物品圖書雜項費用及國外學者來臺費用。\n二、研究設備費：指單價在新臺幣一萬元以上且使用年限在二年以上之設備。\n三、國外差旅費：執行國際合作、移地研究或出席國際學術會議之費用。\n四、國際合作費：與國外研究機構共同執行研究所需之合作經費。',
+      oldText: '本會補助經費分為下列三類：\n一、業務費：包括研究人力費、耗材物品圖書雜項費用及國外學者來臺費用。\n二、研究設備費：指單價在新臺幣一萬元以上且使用年限在二年以上之設備。\n三、國外差旅費：執行國際合作、移地研究或出席國際學術會議之費用。',
+    },
+    {
+      article: '第十二點',
+      newText: '計畫執行期間如需變更計畫內容，除下列事項得由計畫主持人逕依機構內部程序辦理外，應報經本會同意：\n一、同一補助項目內支出用途之變更。\n二、業務費各子項間百分之二十以內之調整。\n三、增列金額在新臺幣五萬元以下之設備。',
+      oldText: '計畫執行期間如需變更計畫內容，除下列事項得由計畫主持人逕依機構內部程序辦理外，應報經本會同意：\n一、同一補助項目內支出用途之變更。\n二、增列金額在新臺幣五萬元以下之設備。',
+    },
+    {
+      article: '第十五點',
+      newText: '計畫主持人應於計畫執行期間屆滿後四個月內，繳交研究成果報告及專題研究計畫收支明細報告表。\n\n前項期限届滿未繳交者，本會得暫緩撥付該主持人其他計畫之經費，至繳交後始予撥付。',
+      oldText: '計畫主持人應於計畫執行期間屆滿後三個月內，繳交研究成果報告及專題研究計畫收支明細報告表。\n\n前項期限届滿未繳交者，本會得暫緩撥付該主持人其他計畫之經費，至繳交後始予撥付。',
+    },
+    {
+      article: '第十七點之一\n（新增）',
+      newText: '計畫主持人因辭職、退休、長期出國、重病或其他不可抗力因素無法繼續執行計畫時，執行機構應即通知本會，並依下列方式處理：\n一、計畫執行未逾二分之一者，得由執行機構推薦合適人選接任，報本會核准。\n二、計畫執行已逾二分之一者，得辦理結案，繳交期末報告及收支明細。\n三、未依前二款辦理者，本會得撤銷補助並追回已撥付經費。',
+      oldText: '（本點新增）',
+    },
+  ];
+
+  y = drawComparisonTable(doc, { items, startY: y, colWidths: [58, 205, 205] });
+}
+
+// =====================================================================
+// #51 — 經費超支核銷簽呈  3~4 頁
+//       含經費收支明細表附件
+// =====================================================================
+export function generate_top5_簽呈(doc, meta) {
+  const date = genDate();
+  const dept = pick(DEPTS);
+  const pi = pick(PIS);
+  const school = pick(SCHOOLS);
+  const topic = pick(TOPICS);
+  const projCode = `NSTC ${114}-${randInt(2100, 2900)}-${pick(['E', 'H', 'M', 'B', 'I'])}-${padZero(randInt(1, 200), 3)}-${padZero(randInt(1, 99))}`;
+  const overAmt = randInt(5, 30) * 10000;
+
+  // ---- 第 1 頁：簽呈本文 ----
+  drawHeader(doc, '簽');
+  let y = 145;
+
+  doc.font('SongBold').fontSize(12);
+  doc.text(`主管：　　　　　　　　會辦：主計室　　　　承辦單位：${dept}`, 60, y);
+  y += 35;
+
+  y = drawField(doc, '簽於：', date, y);
+  y += 8;
+
+  y = drawField(doc, '主旨：', `為${school}${pi}教授執行本會補助專題研究計畫（編號：${projCode}）業務費項目超支新臺幣${overAmt.toLocaleString()}元，擬同意由該計畫其他項目流入核銷，簽請核示。`, y, true);
+  y += 5;
+
+  y = drawSection(doc, '說明：', y);
+  y = drawNumberedText(doc, '一、', `依據${school}114年${randInt(1, 12)}月${randInt(1, 28)}日校研發字第${randInt(1140000000, 1149999999)}號函辦理。`, y);
+  y = drawNumberedText(doc, '二、', `案經查旨揭計畫「${topic}」（計畫編號：${projCode}），執行期間自114年8月1日起至115年7月31日止，核定補助經費總額新臺幣${randInt(80, 200)}萬元。`, y);
+  y = drawNumberedText(doc, '三、', '該計畫業務費項下「耗材物品圖書雜項費用」因研究需要增購實驗耗材，致超出原核定金額，經費支用情形詳如附件「經費收支明細表」。', y);
+  y = drawNumberedText(doc, '四、', `超支金額新臺幣${overAmt.toLocaleString()}元，擬由下列項目流入補足：`, y);
+  y = drawSubNumberedText(doc, '（一）', `研究設備費流入新臺幣${Math.floor(overAmt * 0.6).toLocaleString()}元（該項目尚有結餘）。`, y);
+  y = drawSubNumberedText(doc, '（二）', `國外差旅費流入新臺幣${Math.floor(overAmt * 0.4).toLocaleString()}元（原定出國行程取消）。`, y);
+  y = drawNumberedText(doc, '五、', '依「國家科學及技術委員會補助專題研究計畫經費處理原則」第三點規定，同一補助項目內支出用途得逕依機構內部程序變更。惟本案涉及跨項目流用，須報經本會同意。', y);
+  y = drawNumberedText(doc, '六、', `經查國外差旅費累計流出金額未超過該項目原核定金額百分之五十，符合前開處理原則第三點第二款規定。`, y);
+  y = drawNumberedText(doc, '七、', '本案業經本處審核，經費流用尚屬合理，計畫執行進度正常。', y);
+  y += 5;
+
+  y = drawSection(doc, '擬辦：', y);
+  y = drawNumberedText(doc, '一、', `擬同意${school}${pi}教授旨揭計畫經費跨項目流用，超支金額新臺幣${overAmt.toLocaleString()}元由研究設備費及國外差旅費流入核銷。`, y);
+  y = drawNumberedText(doc, '二、', '奉核後，函復該校據以辦理經費核銷事宜。', y);
+  y = drawNumberedText(doc, '三、', '副知本會主計室備查。', y);
+  y += 12;
+
+  doc.font('Song').fontSize(11);
+  y = drawField(doc, '承辦人：', pick(PIS), y);
+  y = drawField(doc, '科長：', '', y);
+  y = drawField(doc, '處長：', '', y);
+  y = drawField(doc, '核稿：', '', y);
+
+  // ---- 第 2~3 頁：附件 — 經費收支明細表 ----
+  doc.addPage();
+  y = drawAttachmentHeader(doc, '國家科學及技術委員會補助專題研究計畫');
+  y += 2;
+  doc.font('SongBold').fontSize(14);
+  doc.text('經費收支明細報告表', 0, y, { width: 595, align: 'center' });
+  y += 25;
+
+  doc.font('Song').fontSize(10);
+  doc.text(`計畫名稱：${topic}`, 60, y);
+  y += 16;
+  doc.text(`計畫編號：${projCode}`, 60, y);
+  doc.text(`主持人：${pi}`, 350, y);
+  y += 16;
+  doc.text(`執行機構：${school}`, 60, y);
+  y += 16;
+  doc.text(`執行期間：114年8月1日至115年7月31日`, 60, y);
+  doc.text('單位：新臺幣元', 400, y);
+  y += 22;
+
+  const origBiz = randInt(60, 120) * 10000;
+  const origEquip = randInt(20, 50) * 10000;
+  const origTravel = randInt(15, 35) * 10000;
+  const origMgmt = Math.floor(origBiz * 0.12);
+  const origTotal = origBiz + origEquip + origTravel + origMgmt;
+
+  const spentBiz = origBiz + overAmt;
+  const spentEquip = origEquip - Math.floor(overAmt * 0.6);
+  const spentTravel = origTravel - Math.floor(overAmt * 0.4);
+  const spentMgmt = origMgmt;
+  const spentTotal = spentBiz + spentEquip + spentTravel + spentMgmt;
+
+  const detailHeaders = ['經費項目', '核定金額', '流入(+)/流出(-)', '調整後金額', '已支用金額', '結餘金額'];
+  const detailColWidths = [100, 72, 72, 72, 72, 72];
+
+  const detailRows = [
+    ['一、業務費', origBiz.toLocaleString(), `+${overAmt.toLocaleString()}`, spentBiz.toLocaleString(), spentBiz.toLocaleString(), '0'],
+    ['  1.研究人力費', Math.floor(origBiz * 0.5).toLocaleString(), '-', Math.floor(origBiz * 0.5).toLocaleString(), Math.floor(origBiz * 0.5).toLocaleString(), '0'],
+    ['  2.耗材物品圖書雜項', Math.floor(origBiz * 0.45).toLocaleString(), `+${overAmt.toLocaleString()}`, (Math.floor(origBiz * 0.45) + overAmt).toLocaleString(), (Math.floor(origBiz * 0.45) + overAmt).toLocaleString(), '0'],
+    ['  3.國外學者來臺', Math.floor(origBiz * 0.05).toLocaleString(), '-', Math.floor(origBiz * 0.05).toLocaleString(), Math.floor(origBiz * 0.05).toLocaleString(), '0'],
+    ['二、研究設備費', origEquip.toLocaleString(), `-${Math.floor(overAmt * 0.6).toLocaleString()}`, spentEquip.toLocaleString(), spentEquip.toLocaleString(), '0'],
+    ['三、國外差旅費', origTravel.toLocaleString(), `-${Math.floor(overAmt * 0.4).toLocaleString()}`, spentTravel.toLocaleString(), spentTravel.toLocaleString(), '0'],
+    ['四、管理費', origMgmt.toLocaleString(), '-', origMgmt.toLocaleString(), origMgmt.toLocaleString(), '0'],
+    ['合　計', origTotal.toLocaleString(), '0', spentTotal.toLocaleString(), spentTotal.toLocaleString(), '0'],
+  ];
+
+  y = drawTable(doc, { headers: detailHeaders, colWidths: detailColWidths, rows: detailRows, startY: y, startX: 50, fontSize: 8.5, rowHeight: 22 });
+  y += 10;
+
+  // 備註
+  y = checkPage(doc, y, 120);
+  doc.font('SongBold').fontSize(10);
+  doc.text('備註說明：', 60, y);
+  y += 16;
+  doc.font('Song').fontSize(9);
+  doc.text('1. 業務費超支原因：因研究過程中發現需額外購置高純度化學試劑及精密量測耗材，導致耗材', 75, y);
+  y += 14;
+  doc.text('   物品費用超出原預算編列。', 75, y);
+  y += 14;
+  doc.text('2. 設備費流出說明：原列購置之「高效液相層析儀配件」因廠商報價低於預期，結餘經費流', 75, y);
+  y += 14;
+  doc.text('   出補足業務費超支。', 75, y);
+  y += 14;
+  doc.text('3. 國外差旅費流出說明：原訂赴日本合作研究行程因合作對象時程衝突延至下年度，經費流出。', 75, y);
+  y += 14;
+  doc.text('4. 本表經費收支均已核實列報，如有不實願負法律責任。', 75, y);
+  y += 25;
+
+  // 簽章欄
+  y = checkPage(doc, y, 70);
+  doc.font('Song').fontSize(10);
+  doc.text('計畫主持人：　　　　　　　　　　會計主管：　　　　　　　　　　機關首長：', 60, y);
+  y += 25;
+  doc.text(`　　${pi}　（簽章）`, 60, y);
+  y += 30;
+  doc.font('Song').fontSize(8);
+  doc.text('※ 本表依「國家科學及技術委員會補助專題研究計畫經費處理原則」第八點規定填具。', 60, y);
+  y += 12;
+  doc.text('※ 原始支用單據應按補助項目整理審核裝訂成冊，附計畫申請書及經費核定清單，依規定妥善存管備查。', 60, y);
+}

package/lib/writing/index.mjs

@@ -0,0 +1,5 @@
+// lib/writing/index.mjs — 公文撰寫模組入口
+// 整合 generate.mjs 與 renderer.mjs
+
+export { generateAll } from './generate.mjs';
+export { renderPdf } from './renderer.mjs';