Google Apps Script Web Library List

1.cCryptoGS - 暗号化

https://script.google.com/d/1IEkpeS8hsMSVLRdCMprij996zG6ek9UvGwcCJao_hlDMlgbWWvJpONrs/edit?usp=sharing

2.SSheetDB - スプレッドシートをデータベースに見立ててSQL風に操作(SSheetDB / JsonDB 説明書)

https://script.google.com/d/1m-mnNjwCIxUCgoZxTeHpvICFyntLCs52IjSxfHGA-6MbBiym441opQ21/edit?usp=sharing

3.ImgApp - Google Apps イメージ・ツール(getSize,doResize,updateThumbnail,editImageの4つ)

https://script.google.com/d/1T03nYHRho6XMWYcaumClcWr6ble65mAT8OLJqRFJ5lukPVogAN2NDl-y/edit?usp=sharing

4.Easy4Anyone - Google Apps Scriptをだれでも簡単に操作できるようにする筆者特製ライブラリ(町内会GAS)

https://script.google.com/d/1rHV3cTkX0Q9C3tetF1vnLRnbgFc-WE6OPscTqLHiClGivHM1wwXVSUfC/edit?usp=sharing

中村州男　著
町内会や自治会などのGoogleAppsScriptWebシステム開発を無料で簡単に

「HTMLひな型」

<!DOCTYPE html>
<html>
  <head>
    <base target="_top">
    <meta name="viewport" content="width=device-width, initial-scale=1.0, minimum-scale=1.0, maximum-scale=10.0">
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
    <meta http-equiv="expires" content="0">
    <meta name="Keywords" content="">
    <meta name="Description" content="">
    <?!= HtmlService.createHtmlOutputFromFile(StyleName).getContent() ?>    
    <?!= HtmlService.createHtmlOutputFromFile(JavaScriptName).getContent() ?>    
    <?!= HtmlService.createHtmlOutputFromFile(StyleName2).getContent() ?>    
 <style>
  .design{
    position: relative;
    padding-bottom: 60px;
    box-sizing: border-box;
    min-height: 100vh;
  }
  footer {
   position: absolute;
   bottom: 0;
   width: 100%;
   text-align: center;
   background-color: #dedede; 
  }
  .footer-text {
   color: #fff
  }
 </style>
 <style>
@charset "UTF-8";
/*
https://qiita.com/cognitom/items/d39d5f19054c8c8fd592
*/
/* プレビュー用のスタイル */
@media screen {
    body {
        background: #eee;
    }
    .page {
        background: white; /* 背景を白く */
        box-shadow: 0 .5mm 2mm rgba(0,0,0,.3); /* ドロップシャドウ */
        margin: 5mm;
    }
}
@page {
    size: <?!=用紙横サイズ?> <?!=用紙縦サイズ?>; /* A4縦なら「210mm 297mm」A4横なら「297mm 210mm」
    margin: 0mm;
}
*{
    margin: 0mm;
    padding: 0mm;
}
body {
    width: <?!=用紙横サイズ?>; /* for Chrome */
    -webkit-print-color-adjust: exact;
    color-adjust: exact;
    line-height: 1.5em;
}
.page {
    height: <?!=用紙縦サイズ?>;
    width: <?!=用紙横サイズ?>;
    page-break-after: always;

    box-sizing: border-box;
    padding: 0mm 0mm; /* 一覧表などでは 7mm 10mm (上下余白7mm 左右余白10mm)のように余白を指定するとよい*/
    font-size: 11pt;
}
/* ==================Libre Office Calc html Style部分=Start========================= */
		body,div,table,thead,tbody,tfoot,tr,th,td,p { font-family:"源柔ゴシック Regular"; font-size:x-small }
		a.comment-indicator:hover + comment { background:#ffd; position:absolute; display:block; border:1px solid black; padding:0.5em;  } 
		a.comment-indicator { background:red; display:inline-block; border:1px solid black; width:0.5em; height:0.5em;  } 
		comment { display:none;  } 
/* ==================Libre Office Calc html Style部分=End========================= */
</style>
<script type="text/javascript">
<!--

 function showDB() {
   var cloneOrg=document.getElementById('page')
   var clone=cloneOrg.cloneNode(true)
   var 記憶頁=''
   var tableEle =null
   //連想配列の配列
   var arr = <?!=データ?>
//   var arr = [{"頁":"1","勘定科目":"現金","No":"","日付":"","相手勘定科目":"","摘要":"前期繰越高","借方":"","貸方":"","残高":"10000"},{"頁":"1","勘定科目":"現金","No":"123","日付":"11/1","相手勘定科目":"旅費交通費","摘要":"高知市内行き","借方":"10000","貸方":"10000","残高":"10000"},{"頁":"2","勘定科目":"預金","No":"234","日付":"12/28","相手勘定科目":"接待交際費","摘要":"監査役お礼","借方":"10000","貸方":"10000","残高":"10000"}]
//
   for (key in arr){
     if (key.indexOf('頁')==key.length-1){
       if (記憶頁!='' && 記憶頁!=key){document.getElementById('allPages').appendChild(clone)}
       記憶頁=key
       document.getElementById('allPages').innerHTML=document.getElementById('allPages').innerHTML.replaceAll('＠頁＠',arr[key])
     } else {
       document.getElementById('allPages').innerHTML=document.getElementById('allPages').innerHTML.replaceAll('＠'+key.replace(記憶頁,'')+'＠',arr[key])
     }  
   }
 }

 function printComponent(cmpName) {
        var docHead = document.head.outerHTML;
        var printContents = document.getElementById(cmpName).outerHTML;
        var winAttr = "location=yes, statusbar=no, menubar=no, titlebar=no, toolbar=no,dependent=no, width=865, height=600, resizable=yes, screenX=200, screenY=200, personalbar=no, scrollbars=yes";
    
        var newWin = window.open("", "_blank", winAttr);
        var writeDoc = newWin.document;
        writeDoc.open();
        writeDoc.write('<!doctype html><html> <style>@page {size: <?!=用紙横サイズ?> <?!=用紙縦サイズ?>;margin: 0mm;} .fc-header-toolbar{display :none !important;} .fc-scroller.fc-scroller-liquid{overflow:visible !important;} .fc-view-harness.fc-view-harness-active{height:auto !important;}</style>' + docHead + '<body onLoad="window.print()">' + printContents + '</body></html>');
        writeDoc.close();
        newWin.focus();
 }
-->
</script>
</head>
<body onload="showDB()">
    <div class="design">
<?!=メニュー?>
<br>
<button onclick="printComponent('allPages')" style="position:absolute;top:15mm;left:10mm;width:25mm;height:15mm;">印刷</button>
<div id='allPages'>
<div id='page' class="page">
<!-- ==================Libre Office Calc html Body部分= Start <table>〜========================= -->

<!-- ==================Libre Office Calc html Body部分= End 〜</table>========================= -->
</div>
</div>
<?!=著作権表示()?>
    </div>    
  </body>
</html>

第3章で使用するスクリプト

3-2.「はがき印刷」を例に，差込印刷の操作(基本編)

3-2-3.スクリプトを作る

function doGet(e) {
  return はがき1枚画面表示()
}

function はがき1枚画面表示() {
  let はがき={}
  let 郵便='7800424'
  let 宛先='中村州男'+'様'
  let 住所1='高知市高知西町8−27'
  let 住所2='沢田マンション506号室'

  for (let i = 1; i <= 7; i++){
           はがき['〒'+i]=郵便[i-1]
  }
  はがき['宛先']=CopyofEasy4Anyone.縦書き変換(宛先)
  はがき['住所1']=CopyofEasy4Anyone.縦書き変換(住所1)
  はがき['住所2']=CopyofEasy4Anyone.縦書き変換(住所2)
  let ページ = CopyofEasy4Anyone.HTML名('はがき')
  ページ.メニュー = ''
  ページ.用紙横サイズ = '100mm'
  ページ.用紙縦サイズ = '148mm'
  ページ.データ = JSON.stringify(はがき)
  return ページ.evaluate().setTitle('はがき')
}

3-3.「はがき印刷」を例に，差込印刷の操作(応用編)

3-3-1.データベースを作り，はがき印刷に対応する(スクリプトの変更)

var データベース = CopyofEasy4Anyone.useDB('データベース')
var 住所録 = データベース.table('住所録')

function doGet(e) {
  if (住所録 == null) {住所録作成()}
//  return はがき1枚画面表示()
  return 住所録はがき画面表示()
}

function はがき1枚画面表示() {
  let はがき={}
  let 郵便='7800424'
  let 宛先='中村州男'+'様'
  let 住所1='高知市高知西町8−27'
  let 住所2='沢田マンション506号室'

  for (let i = 1; i <= 7; i++){
           はがき['〒'+i]=郵便[i-1]
  }
  はがき['宛先']=CopyofEasy4Anyone.縦書き変換(宛先)
  はがき['住所1']=CopyofEasy4Anyone.縦書き変換(住所1)
  はがき['住所2']=CopyofEasy4Anyone.縦書き変換(住所2)
  let ページ = CopyofEasy4Anyone.HTML名('はがき')
  ページ.メニュー = ''
  ページ.用紙横サイズ = '100mm'
  ページ.用紙縦サイズ = '148mm'
  ページ.データ = JSON.stringify(はがき)
  return ページ.evaluate().setTitle('はがき')
}

function 住所録作成() {
    データベース.createTable('住所録',{'宛先':'@','郵便番号':'@','住所1':'@','住所2':'@'})
    住所録 = データベース.table('住所録')
    住所録.insert([{'宛先':'中村州男様','郵便番号':'7800424','住所1':'高知市高知西町8−27','住所2':'沢田マンション506号室'}])
    住所録.insert([{'宛先':'情報化ユートピア御中','郵便番号':'7800014','住所1':'高知市梅ノ辻8−27','住所2':''}])
    住所録.insert([{'宛先':'特定非営利活動法人情報化ユートピア御中','郵便番号':'7800014','住所1':'高知市梅ノ辻8−27','住所2':''}])
    住所録.refresh() 
}

function 住所録はがき画面表示() {
  let はがき={}

  CopyofEasy4Anyone.Addrow=true
  let 住所録一覧 = 住所録.select(['*']).result()
  if (住所録一覧.length>0){
    住所録一覧.forEach(function(一件){
      はがき[一件['row']+'頁']=一件['row']
      for (let i = 1; i <= 7; i++){
           はがき[一件['row']+'頁'+'〒'+i]=一件['郵便番号'][i-1]
      }
      はがき[一件['row']+'頁'+'宛先']=CopyofEasy4Anyone.縦書き変換(一件['宛先'])
      はがき[一件['row']+'頁'+'住所1']=CopyofEasy4Anyone.縦書き変換(一件['住所1'])
      はがき[一件['row']+'頁'+'住所2']=CopyofEasy4Anyone.縦書き変換(一件['住所2'])
    })
  }    
  let ページ = CopyofEasy4Anyone.HTML名('はがき')
  ページ.メニュー = ''
  ページ.用紙横サイズ = '100mm'
  ページ.用紙縦サイズ = '148mm'
  ページ.データ = JSON.stringify(はがき)
  return ページ.evaluate().setTitle('はがき')
}

3-3-2.フォントサイズを自動調整して，長い宛名に対応する(HTMLの変更)

function showDB() {〜}の部分を変更

 function showDB() {
   var cloneOrg=document.getElementById('page')
   var clone=cloneOrg.cloneNode(true)
   var 記憶頁=''
/////////////////長い宛名に対応するため，ページ番号を記憶する配列宣言///////////////////
   var 頁=[]
/////////////////////////////////////////////////////////////////////////////
   var tableEle =null
   //連想配列の配列
   var arr = <?!=データ?>
//   var arr = [{"頁":"1","勘定科目":"現金","No":"","日付":"","相手勘定科目":"","摘要":"前期繰越高","借方":"","貸方":"","残高":"10000"},{"頁":"1","勘定科目":"現金","No":"123","日付":"11/1","相手勘定科目":"旅費交通費","摘要":"高知市内行き","借方":"10000","貸方":"10000","残高":"10000"},{"頁":"2","勘定科目":"預金","No":"234","日付":"12/28","相手勘定科目":"接待交際費","摘要":"監査役お礼","借方":"10000","貸方":"10000","残高":"10000"}]
//
   for (key in arr){
     if (key.indexOf('頁')==key.length-1){
       if (記憶頁!='' && 記憶頁!=key){document.getElementById('allPages').appendChild(clone)}
       記憶頁=key
/////////////////長い宛名に対応するため，ページ番号を記憶する配列にページ番号のみをセット///
       頁.push(key.replace('頁',''))
/////////////////////////////////////////////////////////////////////////////
       document.getElementById('allPages').innerHTML=document.getElementById('allPages').innerHTML.replaceAll('＠頁＠',arr[key])
     } else {
       document.getElementById('allPages').innerHTML=document.getElementById('allPages').innerHTML.replaceAll('＠'+key.replace(記憶頁,'')+'＠',arr[key])
     }  
   }
/////////////////長い宛名に対応するため，はがき1枚と複数枚別にフォントサイズ調整処理//////
   if (記憶頁==''){
     let textElem = document.getElementById('宛先＠頁＠');
     for (
      let size = 4;
      textElem.getBoundingClientRect().height < 400 && size<56; //.heightを.widthにすると高さ調整を幅調整に変更できる
      size += 1
     ) {
      textElem.setAttribute("style", `font-size: ${size}px;line-height:1`);
console.log(textElem.getBoundingClientRect().height ,size); //.heightを.widthにすると高さ調整を幅調整に変更できる
     }
   } else {
   for (const key of 頁){
       let textElem = document.getElementById('宛先'+key);
     for (
      let size = 4;
      textElem.getBoundingClientRect().height < 400 && size<56; //.heightを.widthにすると高さ調整を幅調整に変更できる
      size += 1
     ) {
      textElem.setAttribute("style", `font-size: ${size}px;line-height:1`);
console.log(textElem.getBoundingClientRect().height ,key,size); //.heightを.widthにすると高さ調整を幅調整に変更できる
     }
    }
   }
/////////////////////////////////////////////////////////////////////////////
 }

宛先行の<font face="ＤＦＧ太楷書体" SIZE=7>＠宛先＠</font>の部分を変更

<font face="ＤＦＧ太楷書体"><span id="宛先＠頁＠">＠宛先＠</span></font>

第4章で使用するスクリプト

町内会会計システム

const URL = ScriptApp.getService().getUrl()
var 会計データベース = null
if (CopyofEasy4Anyone.get設定('会社')!=null){会計データベース = CopyofEasy4Anyone.useDB(CopyofEasy4Anyone.get設定('会社'))}
var 勘定科目情報 = null
var 仕訳情報 = null
if (会計データベース!=null) {
  if (CopyofEasy4Anyone.get設定('会計期間')!=null){
    勘定科目情報 = 会計データベース.table(CopyofEasy4Anyone.get設定('会計期間')+'勘定科目・残高')
    仕訳情報 = 会計データベース.table(CopyofEasy4Anyone.get設定('会計期間')+'仕訳')
  }  
}
CopyofEasy4Anyone.著作権 = 'Copyright © 2022-2025 中村州男 All Rights Reserved.' //自由に変更してください
CopyofEasy4Anyone.排他制御 = '会計排他制御.lock'
CopyofEasy4Anyone.StyleName2='メニュー型'
var 資産行数=13,負債行数=8,資本行数=4,収益行数=16,費用行数=70,元帳一頁行数=25,試算表一頁行数=40
var 収支決算書行数=25,収支決算書1頁目行数=15,収支一覧表行数=27,収支一覧表1頁目行数=17,支出項目内訳簿行数=18,自社財源収支一覧表行数=33,収支予算書行数=25,収支予算書1頁目行数=15,備品管理台帳行数=10

/**************************************************
  準備用ローカル処理
**************************************************/

/**************************************************
  テスト用ローカル処理
**************************************************/
function テスト(){
    let 元帳明細一覧=[]
      CopyofEasy4Anyone.Addrow=true
        元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},{col:'貸方科目区分',alias:'相手科目区分'},{col:'金額',alias:'借方'},{col:'金額',alias:'貸方'},'数量','単位','部数','部単位','単価']).where({'貸方科目区分':['like','%収益%']}).result()
Logger.log(JSON.stringify(元帳明細一覧))   

}
/**************************************************
  Webアプリ【画面遷移】用ローカル処理
**************************************************/
function doGet(e) {
  let 画面 = CopyofEasy4Anyone.QUERY値(e,'画面')
  const 行 = CopyofEasy4Anyone.QUERY値(e,'行')
  if (画面 == '会社選択'){
    if (CopyofEasy4Anyone.QUERY値(e,'会社')!=null){
      CopyofEasy4Anyone.set設定('会社',CopyofEasy4Anyone.QUERY値(e,'会社'))
      CopyofEasy4Anyone.設定削除('会計期間')
      会計データベース = CopyofEasy4Anyone.useDB(CopyofEasy4Anyone.QUERY値(e,'会社'))
      画面 = '会計期間'
    }
    else {画面 = ''}
  }
  if (画面 == '会計期間選択'){
    if (CopyofEasy4Anyone.QUERY値(e,'会計期間')!=null){
      CopyofEasy4Anyone.set設定('会計期間',CopyofEasy4Anyone.QUERY値(e,'会計期間'))
      勘定科目情報 = 会計データベース.table(CopyofEasy4Anyone.QUERY値(e,'会計期間')+'勘定科目・残高')
      仕訳情報 = 会計データベース.table(CopyofEasy4Anyone.QUERY値(e,'会計期間')+'仕訳')
    }
    画面 = ''
  }
  if (CopyofEasy4Anyone.get設定('会社')==null){if (画面!='会社新規'){画面='会社'}}
  else if (CopyofEasy4Anyone.get設定('会計期間')==null){
             if (画面.indexOf('会計期間')<0 && 画面.indexOf('会社')<0){画面='会計期間'}}
  if (画面 == ''){
    if (会計データベース==null){画面 = '会社'}
     else if (勘定科目情報==null){画面 = '会計期間'}
     else if (仕訳情報==null){画面 = '勘定科目'}
     else {画面 = '元帳'}
  }  
  if (画面 == '会計期間'){
    if (会計データベース==null){画面 = '会社'}
  }
  if (画面 == '会社'){return 会社一覧表示()} 
  if (画面 == '会計期間'){return 会計期間一覧表示()} 
  if (画面 == '会社新規'){return 会社新規修正画面表示('')} 
  if (画面 == '会社修正'){return 会社新規修正画面表示(行)} 
  if (画面 == '会社削除'){return 会社削除画面表示(行)} 
  if (画面 == '会計期間新規'){return 会計期間新規修正画面表示('')} 
  if (画面 == '会計期間修正'){return 会計期間新規修正画面表示(行)} 
  if (画面 == '会計期間削除'){return 会計期間削除画面表示(行)} 
  if (画面 == '勘定科目'){return 勘定科目と期首残高画面表示()} 
  if (画面 == '元帳'){return 元帳入力画面表示(CopyofEasy4Anyone.FORM値(e,'勘定科目'))} 
  if (画面 == 'BSPL表示印刷'){return 貸借対照表損益計算書表示印刷()} 
  if (画面 == '元帳表示印刷'){return 元帳表示印刷()} 
  if (画面 == '次年度繰越'){return 次年度繰越画面表示()} 
  if (画面 == '試算表期間入力'){return 試算表期間入力()} 
  if (画面 == '収支決算書'){return 収支決算書()} 
  if (画面 == '収支一覧表'){return 収支一覧表()} 
  if (画面 == '支出項目内訳簿'){return 支出項目内訳簿()} 
  if (画面 == '自主財源収支一覧表'){return 自主財源収支一覧表()} 
  if (画面 == '収支予算書'){return 収支予算書()} 
  if (画面 == '備品管理台帳'){return 備品管理台帳()} 
  if (画面 == '町内会決算書'){return 町内会決算書()} 
  if (画面 == '町内会予算案'){return 町内会予算案()} 
  if (画面 == '新町内会決算書'){return 新町内会決算書()} 
  if (画面 == '新町内会予算案'){return 新町内会予算案()} 
}

function doPost(e) {
  let 画面 = CopyofEasy4Anyone.FORM値(e,'画面')
  if (画面 == '会社登録修正' && CopyofEasy4Anyone.FORM値(e,'登録更新') != '登録更新'){画面 = '会社'} 
  if (画面 == '会社登録修正'){return 会社登録修正と会社一覧表示(e)} 
  if (画面 == '会社削除' && CopyofEasy4Anyone.FORM値(e,'削除') != '削除'){画面 = '会社'} 
  if (画面 == '会社削除'){return 会社削除と会社一覧表示(e)} 
  if (画面 == '会社'){return 会社一覧表示()} 
  if (画面 == '会計期間登録修正' && CopyofEasy4Anyone.FORM値(e,'登録更新') != '登録更新'){画面 = '会計期間'} 
  if (画面 == '会計期間登録修正'){return 会計期間登録修正と会計期間一覧表示(e)} 
  if (画面 == '会計期間削除' && CopyofEasy4Anyone.FORM値(e,'削除') != '削除'){画面 = '会計期間'} 
  if (画面 == '会計期間削除'){return 会計期間削除と会計期間一覧表示(e)} 
  if (画面 == '会計期間'){return 会計期間一覧表示()} 
  if (画面 == '勘定科目登録修正'){return 勘定科目と期首残高登録修正と画面表示(e)} 
  if (画面 == '元帳登録修正'){return 元帳登録修正と画面表示(e)} 
  if (画面 == '次年度繰越実行' && CopyofEasy4Anyone.FORM値(e,'次年度繰越実行') != '次年度繰越実行'){画面 = ''} 
  if (画面 == '次年度繰越実行'){return 次年度繰越実行と画面表示(e)} 
  if (画面 == '試算表表示印刷'){return 試算表表示印刷(e)} 
  return doGet()
}

/**************************************************
  Webアプリ【画面表示】用ローカル処理
**************************************************/
function 会社一覧表示() {
  let タグ = メニュー作成()
  const 会社情報検索結果 = 会社情報検索()
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し横型',会社情報検索結果,'会社一覧')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('会社一覧画面')
}

function 会社新規修正画面表示(ファイル名) {
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','会社登録修正')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('変更前の会社名',ファイル名)
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('会社名','TEXT',ファイル名,15,'')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('メニューに戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('登録更新','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,'会社新規修正画面',ボタン)
  return ページ.evaluate().setTitle('会社新規修正画面')
}

function 会社登録修正と会社一覧表示(e) {
  const 変更前の会社名 = CopyofEasy4Anyone.FORM値(e,'変更前の会社名')
  const 会社名 = CopyofEasy4Anyone.FORM値(e,'会社名')
  if (変更前の会社名!=会社名 && 会社名!=''){
    let ファイルId = CopyofEasy4Anyone.getFileId(変更前の会社名)
    if (ファイルId != '') {
      const ファイル = DriveApp.getFileById(ファイルId)
      ファイル.setName(会社名)
    } else {
      会計データベース = CopyofEasy4Anyone.useDB(会社名)
      CopyofEasy4Anyone.設定削除('会計期間')
    }
  }
  CopyofEasy4Anyone.set設定('会社',会社名)
  return 会社一覧表示()
}

function 会社削除画面表示(ファイル名) {
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','会社削除')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('会社名',ファイル名)
  let 会社一覧 = [['会社名']]
  会社一覧.push([ファイル名])
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し縦型',会社一覧,'会社削除画面')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('メニューに戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('削除','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,'',ボタン,'本当に削除してもよいですか？')
  return ページ.evaluate().setTitle('会社削除画面')
}

function 会社削除と会社一覧表示(e) {
  const 会社名 = CopyofEasy4Anyone.FORM値(e,'会社名')
  if (会社名!=''){
    let ファイルId = CopyofEasy4Anyone.getFileId(会社名)
    if (ファイルId != '') {
      const ファイル = DriveApp.getFileById(ファイルId)
      ファイル.setTrashed(true)
    }
  }
  CopyofEasy4Anyone.設定削除('会社')
  CopyofEasy4Anyone.設定削除('会計期間')
  return 会社一覧表示()
}

function 会計期間一覧表示() {
  let タグ = メニュー作成()
  const 会計期間情報検索結果 = 会計期間情報検索()
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し横型',会計期間情報検索結果,CopyofEasy4Anyone.get設定('会社')+'　会計期間一覧')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('会計期間一覧画面')
}

function 会計期間新規修正画面表示(会計期間) {
  const 第何期 = 会計期間.substring(1,会計期間.indexOf('期'))
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～')) 
  const 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','会計期間登録修正')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('変更前の会計期間',会計期間)
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('第何期','number',第何期,15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('期首年月日','date',期首年月日,15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('期末年月日','date',期末年月日,15,'')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('メニューに戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('登録更新','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,CopyofEasy4Anyone.get設定('会社')+'<br>会計期間新規修正画面',ボタン)
  return ページ.evaluate().setTitle('会計期間新規修正画面')
}

function 会計期間登録修正と会計期間一覧表示(e) {
  const 変更前の会計期間 = CopyofEasy4Anyone.FORM値(e,'変更前の会計期間')
  const 第何期 = CopyofEasy4Anyone.FORM値(e,'第何期')
  const 期首年月日 = CopyofEasy4Anyone.FORM値(e,'期首年月日')
  const 期末年月日 = CopyofEasy4Anyone.FORM値(e,'期末年月日')
  const 会計期間 = (`第${第何期}期 ${期首年月日}～${期末年月日}`)
  if (変更前の会計期間!=会計期間 && 会計期間!=''){
    勘定科目情報 = 会計データベース.table(変更前の会計期間+'勘定科目・残高')
    if (勘定科目情報!=null){会計データベース.renameTable(変更前の会計期間+'勘定科目・残高',会計期間+'勘定科目・残高')}
    else { 会計データベース.createTable(会計期間+'勘定科目・残高',{'科目区分':'@','勘定科目名':'@','期首残高':'@'})}
    勘定科目情報 = 会計データベース.table(会計期間+'勘定科目・残高')
    仕訳情報 = 会計データベース.table(変更前の会計期間+'仕訳')
    if (仕訳情報!=null){
      会計データベース.renameTable(変更前の会計期間+'仕訳',会計期間+'仕訳')
      仕訳情報 = 会計データベース.table(会計期間+'仕訳')
    }
  }
  会計データベース = CopyofEasy4Anyone.useDB(CopyofEasy4Anyone.get設定('会社'))
  CopyofEasy4Anyone.set設定('会計期間',会計期間)
  return 会計期間一覧表示()
}

function 会計期間削除画面表示(会計期間) {
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','会計期間削除')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('会計期間',会計期間)
  let 会計期間一覧 = [['会計期間名']]
  会計期間一覧.push([会計期間])
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し縦型',会計期間一覧,CopyofEasy4Anyone.get設定('会社')+'<br>会計期間削除画面')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('メニューに戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('削除','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,'',ボタン,'本当に削除してもよいですか？')
  return ページ.evaluate().setTitle('会計期間削除画面')
}

function 会計期間削除と会計期間一覧表示(e) {
  const 会計期間 = CopyofEasy4Anyone.FORM値(e,'会計期間')
  if (会計期間!=''){
    勘定科目情報 = 会計データベース.table(会計期間+'勘定科目・残高')
    if (勘定科目情報!=null){
      会計データベース.removeTable(会計期間+'勘定科目・残高')
      会計データベース = CopyofEasy4Anyone.useDB(CopyofEasy4Anyone.get設定('会社'))
    }
    仕訳情報 = 会計データベース.table(会計期間+'仕訳')
    if (仕訳情報!=null){
      会計データベース.removeTable(会計期間+'仕訳')
      会計データベース = CopyofEasy4Anyone.useDB(CopyofEasy4Anyone.get設定('会社'))
    }
  }
  CopyofEasy4Anyone.設定削除('会計期間')
  return 会計期間一覧表示()
}

function 勘定科目と期首残高画面表示() {
  let ページ = CopyofEasy4Anyone.HTML名('コミュニティ勘定科目と残高')
  ページ.メニュー = メニュー作成()
  ページ.URL=URL
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  ページ.会計期間=CopyofEasy4Anyone.get設定('会計期間')
  for (let i = 1; i <= 資産行数; i++){eval('ページ.資産科目'+i+'=""');eval('ページ.資産金額'+i+'=""');}
  for (let i = 1; i <= 負債行数; i++){eval('ページ.負債科目'+i+'=""');eval('ページ.負債金額'+i+'=""');}
  for (let i = 1; i <= 資本行数; i++){eval('ページ.資本科目'+i+'=""');eval('ページ.資本金額'+i+'=""');}
  for (let i = 1; i <= 収益行数; i++){eval('ページ.収益科目'+i+'=""');eval('ページ.収益金額'+i+'=""');eval('ページ.予定金額'+i+'=""');}
  for (let i = 1; i <= 費用行数; i++){eval('ページ.費用科目'+i+'=""');eval('ページ.費用金額'+i+'=""');eval('ページ.予算金額'+i+'=""');}
  if (勘定科目情報!=null){
    const 勘定科目 = 勘定科目情報.select(['*']).result()
    勘定科目.forEach(function(一件){
      let 科目名 = 一件['科目区分'].substring(0,2)+'科目'+ 一件['科目区分'].substring(2)
      eval('ページ.'+科目名+'='+'一件["勘定科目名"]')
      let 残高 = 一件['科目区分'].substring(0,2)+'金額'+ 一件['科目区分'].substring(2)
      if (一件['科目区分'].substring(0,2) == '費用'){残高 = '予算金額'+ 一件['科目区分'].substring(2)}
      if (一件['科目区分'].substring(0,2) == '収益'){残高 = '予定金額'+ 一件['科目区分'].substring(2)}
      eval('ページ.'+残高+'='+'一件["期首残高"]')
    })
  }
  return ページ.evaluate().setTitle('勘定科目と残高画面')
}

function 勘定科目と期首残高登録修正と画面表示(e) {
  if (勘定科目情報!=null){
    勘定科目情報.deleteRow({'科目区分':['!=','']})
    勘定科目情報.refresh()
    for (let i = 1; i <= 資産行数; i++){
      勘定科目情報.insert([{'科目区分':'資産'+i,'勘定科目名':CopyofEasy4Anyone.FORM値(e,'資産科目'+i),'期首残高':CopyofEasy4Anyone.FORM値(e,'資産金額'+i).replace(/,/g,'')}])
    }
    for (let i = 1; i <= 負債行数; i++){
      勘定科目情報.insert([{'科目区分':'負債'+i,'勘定科目名':CopyofEasy4Anyone.FORM値(e,'負債科目'+i),'期首残高':CopyofEasy4Anyone.FORM値(e,'負債金額'+i).replace(/,/g,'')}])
    }
    for (let i = 1; i <= 資本行数; i++){
      勘定科目情報.insert([{'科目区分':'資本'+i,'勘定科目名':CopyofEasy4Anyone.FORM値(e,'資本科目'+i),'期首残高':CopyofEasy4Anyone.FORM値(e,'資本金額'+i).replace(/,/g,'')}])
    }
    for (let i = 1; i <= 収益行数; i++){
      勘定科目情報.insert([{'科目区分':'収益'+i,'勘定科目名':CopyofEasy4Anyone.FORM値(e,'収益科目'+i),'期首残高':CopyofEasy4Anyone.FORM値(e,'予定金額'+i).replace(/,/g,'')}])
    }
    for (let i = 1; i <= 費用行数; i++){
      勘定科目情報.insert([{'科目区分':'費用'+i,'勘定科目名':CopyofEasy4Anyone.FORM値(e,'費用科目'+i),'期首残高':CopyofEasy4Anyone.FORM値(e,'予算金額'+i).replace(/,/g,'')}])
    }
    勘定科目情報.refresh()
    仕訳情報 = 会計データベース.table(CopyofEasy4Anyone.get設定('会計期間')+'仕訳')
    if (仕訳情報==null){会計データベース.createTable(CopyofEasy4Anyone.get設定('会計期間')+'仕訳',{'日付':'@','借方科目区分':'@','摘要':'@','貸方科目区分':'@','金額':'@','数量':'@','単位':'@','部数':'@','部単位':'@','単価':'@'})}
  }
  return 勘定科目と期首残高画面表示()
}

function 元帳入力画面表示(選択科目) {
  let ページ = CopyofEasy4Anyone.HTML名('元帳入力')
  ページ.メニュー = メニュー作成()
  ページ.URL=URL
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  ページ.会計期間=CopyofEasy4Anyone.get設定('会計期間')
  let 勘定科目一覧 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select([{col:'科目区分',alias:'val'},{col:'勘定科目名',alias:'txt'},'期首残高']).where({'勘定科目名':['!=',''],'科目区分':['!=','資本'+資本行数]}).result()
//Logger.log(JSON.stringify(勘定科目一覧))   
  }
  let selectedIndex = 0
  let 期首残高=0
  let 貸借=-1
  if (選択科目==null){選択科目=勘定科目一覧[0]['val']}
  let 行=-1
  let 区分科目対応表={}
  勘定科目一覧.forEach(function(一件){
    行=行+1
    if (一件['val']==選択科目){selectedIndex=行;期首残高=一件['期首残高']}
    区分科目対応表[一件['val']]=一件['txt']
  })
  if (選択科目.indexOf('資産')>=0 || 選択科目.indexOf('費用')>=0){貸借=1}  
  ページ.選択科目=selectedIndex
  ページ.貸借=貸借
  ページ.期首残高=期首残高
  if (選択科目.indexOf('費用')>=0){ページ.期首残高=0}  
  if (選択科目.indexOf('収益')>=0){ページ.期首残高=0}  
  勘定科目一覧.push({'val':'','txt':''})
  ページ.勘定科目一覧=JSON.stringify(勘定科目一覧)

  let 元帳明細一覧 = []
  CopyofEasy4Anyone.Addrow=true
  if (仕訳情報!=null){
    元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'相手勘定科目'},{col:'貸方科目区分',alias:'相手科目区分'},{col:'金額',alias:'借方'},{col:'金額',alias:'貸方'},'数量','単位','部数','部単位','単価']).where({'借方科目区分':['==',選択科目]}).result()
    元帳明細一覧.forEach(function(一件){
      一件['相手勘定科目']=区分科目対応表[一件['相手科目区分']]
      一件['貸方']=''
    })
    let 元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'相手科目区分'},{col:'貸方科目区分',alias:'相手勘定科目'},{col:'金額',alias:'借方'},{col:'金額',alias:'貸方'},'数量','単位','部数','部単位','単価']).where({'貸方科目区分':['==',選択科目]}).result()
    元帳明細一覧2.forEach(function(一件){
      一件['相手勘定科目']=区分科目対応表[一件['相手科目区分']]
      一件['借方']=''
    })
    Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
    元帳明細一覧.sort(function(a,b){return parseInt(a['日付'].replace(/-/g,''))-parseInt(b['日付'].replace(/-/g,''))})
  }
  for(let i=1;i<=10;i++){
    元帳明細一覧.push({"row":"","日付":"","摘要":"","相手科目区分":"","相手勘定科目":"","借方":"","貸方":"",'数量':"",'単位':"",'部数':"",'部単位':"",'単価':""})
  }
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～')) 
  const 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  ページ.日付下限=期首年月日
  ページ.日付上限=期末年月日
  ページ.元帳明細一覧=JSON.stringify(元帳明細一覧)
  return ページ.evaluate().setTitle('元帳入力画面')
}

function 元帳登録修正と画面表示(e) {
  const 選択科目 = CopyofEasy4Anyone.FORM値(e,'勘定科目')
  const 送信行数 = CopyofEasy4Anyone.FORM値(e,'送信行数')
  if (送信行数>0){
    let 処理件数=0
    for(let i=1;i<=10000;i++){
      const 行番号 = CopyofEasy4Anyone.FORM値(e,'row'+i)
      const 日付 = CopyofEasy4Anyone.FORM値(e,'日付'+i)
      const 相手科目 = CopyofEasy4Anyone.FORM値(e,'相手勘定科目'+i)
      const 摘要 = CopyofEasy4Anyone.FORM値(e,'摘要'+i)
      const 数量 = CopyofEasy4Anyone.FORM値(e,'数量'+i)
      const 単位 = CopyofEasy4Anyone.FORM値(e,'単位'+i)
      const 部数 = CopyofEasy4Anyone.FORM値(e,'部数'+i)
      const 部単位 = CopyofEasy4Anyone.FORM値(e,'部単位'+i)
      const 単価 = CopyofEasy4Anyone.FORM値(e,'単価'+i)
      let 借方 = CopyofEasy4Anyone.FORM値(e,'借方'+i)
      let 貸方 = CopyofEasy4Anyone.FORM値(e,'貸方'+i)
      if (借方=='') {借方=-1} else { 借方=parseInt(借方)}
      if (貸方=='') {貸方=-1} else { 貸方=parseInt(貸方)}
      if (日付!='' && 相手科目!='' && (借方>=0 || 貸方>=0)){
        if (行番号==''){
          if (借方>=0){仕訳情報.insert([{'日付':日付,'借方科目区分':選択科目,'摘要':摘要,'貸方科目区分':相手科目,'金額':借方,'数量':数量,'単位':単位,'部数':部数,'部単位':部単位,'単価':単価}])}
          else {仕訳情報.insert([{'日付':日付,'借方科目区分':相手科目,'摘要':摘要,'貸方科目区分':選択科目,'金額':貸方,'数量':数量,'単位':単位,'部数':部数,'部単位':部単位,'単価':単価}])}
        }
        else {
          if (借方>=0){仕訳情報.update({'日付':日付,'借方科目区分':選択科目,'摘要':摘要,'貸方科目区分':相手科目,'金額':借方,'数量':数量,'単位':単位,'部数':部数,'部単位':部単位,'単価':単価},{'row' : ['==',行番号]})}
          else {仕訳情報.update({'日付':日付,'借方科目区分':相手科目,'摘要':摘要,'貸方科目区分':選択科目,'金額':貸方,'数量':数量,'単位':単位,'部数':部数,'部単位':部単位,'単価':単価},{'row' : ['==',行番号]})}
        }
        仕訳情報.refresh()
        処理件数=処理件数+1
      }
Logger.log(選択科目+'/'+送信行数+'/'+行番号+'/'+日付+'/'+相手科目+'/'+摘要+'/'+借方+'/'+貸方)      
      if (送信行数<=処理件数){break}
    }
  }
  return 元帳入力画面表示(選択科目)
}

function 貸借対照表損益計算書表示印刷(){
  let 勘定科目一覧 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名',{col:'期首残高',alias:'金額'}]).where({'勘定科目名':['!=','']}).result()
  }
  勘定科目一覧.push({'科目区分':'うち当期利益','勘定科目名':'うち当期利益','金額':0})  
  勘定科目一覧.push({'科目区分':'資産合計','勘定科目名':'資産合計','金額':0})  
  勘定科目一覧.push({'科目区分':'負債資本合計','勘定科目名':'負債資本合計','金額':0})  
  勘定科目一覧.push({'科目区分':'収益合計','勘定科目名':'収益合計','金額':0})  
  勘定科目一覧.push({'科目区分':'費用合計','勘定科目名':'費用合計','金額':0})  
  勘定科目一覧.push({'科目区分':'前期繰越利益','勘定科目名':'前期繰越利益','金額':0})  
  勘定科目一覧.push({'科目区分':'当期利益','勘定科目名':'当期利益','金額':0})  
  勘定科目一覧.push({'科目区分':'次期繰越利益','勘定科目名':'次期繰越利益','金額':0})  
  let 集計表={}
  勘定科目一覧.forEach(function(一件){
    集計表[一件['科目区分']]=一件['金額']
    if (一件['科目区分'].indexOf('費用')>=0){集計表[一件['科目区分']]=0}  
    if (一件['科目区分'].indexOf('収益')>=0){集計表[一件['科目区分']]=0}  
  })
  let 元帳明細一覧 = []
  if (仕訳情報!=null){
    元帳明細一覧 = 仕訳情報.select(['借方科目区分','貸方科目区分','金額']).result()
    元帳明細一覧.forEach(function(一件){
      let 貸借=-1
      if (一件['借方科目区分'].indexOf('資産')>=0 || 一件['借方科目区分'].indexOf('費用')>=0){貸借=1}  
      集計表[一件['借方科目区分']]=parseInt(集計表[一件['借方科目区分']])+(貸借)*一件['金額']
      貸借=1
      if (一件['貸方科目区分'].indexOf('資産')>=0 || 一件['貸方科目区分'].indexOf('費用')>=0){貸借=-1}  
      集計表[一件['貸方科目区分']]=parseInt(集計表[一件['貸方科目区分']])+(貸借)*一件['金額']
    })
  }  
  for(let 科目 in 集計表){
    const 金額 = parseInt(集計表[科目])
    if (科目.indexOf('資産')==0 && 科目.indexOf('合計')<0){集計表['資産合計']=parseInt(集計表['資産合計'])+金額}
    if (科目.indexOf('負債')==0 && 科目.indexOf('合計')<0){集計表['負債資本合計']=parseInt(集計表['負債資本合計'])+金額}
    if (科目.indexOf('資本')==0 && 科目.indexOf('合計')<0){集計表['負債資本合計']=parseInt(集計表['負債資本合計'])+金額}
    if (科目.indexOf('収益')==0 && 科目.indexOf('合計')<0){集計表['収益合計']=parseInt(集計表['収益合計'])+金額}
    if (科目.indexOf('費用')==0 && 科目.indexOf('合計')<0){集計表['費用合計']=parseInt(集計表['費用合計'])+金額}
  }
  集計表['うち当期利益']=parseInt(集計表['資産合計'])-集計表['負債資本合計']
  集計表['前期繰越利益']=parseInt(集計表['資本'+資本行数])
  集計表['資本'+資本行数]=parseInt(集計表['資本'+資本行数])+集計表['うち当期利益']
  集計表['負債資本合計']=parseInt(集計表['負債資本合計'])+集計表['うち当期利益']
  集計表['当期利益']=集計表['収益合計']-集計表['費用合計']
  集計表['次期繰越利益']=集計表['前期繰越利益']+集計表['当期利益']

  勘定科目一覧.forEach(function(一件){
    if (集計表[一件['科目区分']]==null){一件['金額']=''}
      else {一件['金額']=集計表[一件['科目区分']].toString()}
    if (一件['金額']=='0' && 一件['科目区分'].indexOf('合計')<0 && 一件['科目区分'].indexOf('利益')<0 && 一件['科目区分']!='資本'+資本行数){一件['金額']=''}
  })
  
  let ページ = CopyofEasy4Anyone.HTML名('貸借対照表損益計算書')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期末=期末年月日
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.勘定科目一覧=JSON.stringify(勘定科目一覧)
  return ページ.evaluate().setTitle('貸借対照表・損益計算書')
}

function 元帳表示印刷(){
  let 頁=0
  let 勘定科目一覧 = []
  let 元帳 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'科目区分':['!=','資本'+資本行数],'勘定科目名':['!=','']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  勘定科目一覧.forEach(function(一件){
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    期首残高表[一件['勘定科目名']]=一件['期首残高']
    if (一件['科目区分'].indexOf('費用')>=0){期首残高表[一件['勘定科目名']]=0}  
    if (一件['科目区分'].indexOf('収益')>=0){期首残高表[一件['勘定科目名']]=0}  
  })

  for(let 科目 in 科目区分表){
    let 勘定科目 = 科目区分表[科目]
    let 貸借=1
    let 前期繰越=true
    if (科目.indexOf('資産')==0){貸借=1}
    if (科目.indexOf('負債')==0){貸借=-1}
    if (科目.indexOf('資本')==0){貸借=-1}
    if (科目.indexOf('収益')==0){貸借=-1;前期繰越=false;}
    if (科目.indexOf('費用')==0){貸借=1;前期繰越=false;}

    let 元帳明細一覧=[]
    let 元帳明細一覧2=[]
    if (仕訳情報!=null){
      CopyofEasy4Anyone.Addrow=true
      if (貸借==1){
        元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},{col:'貸方科目区分',alias:'相手科目区分'},{col:'金額',alias:'借方'},{col:'金額',alias:'貸方'},'数量','単位','部数','部単位','単価']).where({'借方科目区分':['==',科目]}).result()
        元帳明細一覧.forEach(function(一件){一件['貸方']=''})
        元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'相手科目区分'},{col:'貸方科目区分',alias:'科目区分'},{col:'金額',alias:'借方'},{col:'金額',alias:'貸方'},'数量','単位','部数','部単位','単価']).where({'貸方科目区分':['==',科目]}).result()
        元帳明細一覧2.forEach(function(一件){一件['借方']=''})
    } else {
        元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'相手科目区分'},{col:'貸方科目区分',alias:'科目区分'},{col:'金額',alias:'借方'},{col:'金額',alias:'貸方'},'数量','単位','部数','部単位','単価']).where({'貸方科目区分':['==',科目]}).result()
        元帳明細一覧.forEach(function(一件){一件['借方']=''})
        元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},{col:'貸方科目区分',alias:'相手科目区分'},{col:'金額',alias:'借方'},{col:'金額',alias:'貸方'},'数量','単位','部数','部単位','単価']).where({'借方科目区分':['==',科目]}).result()
        元帳明細一覧2.forEach(function(一件){一件['貸方']=''})
    }
    Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
    元帳明細一覧.sort(function(a,b){return parseInt(a['日付'].replace(/-/g,''))-parseInt(b['日付'].replace(/-/g,''))})
    }
    let 残高=0
    let 行数=0
    if (前期繰越==true){
      頁=頁+1
      残高=parseInt(期首残高表[勘定科目])
      行数=行数+1
      元帳.push({"頁":頁.toString(),"勘定科目":勘定科目,"No":"","日付":"","相手勘定科目":"","摘要":"前期繰越高","借方":"","貸方":"","残高":期首残高表[勘定科目].toString()})
    } else {
      if (元帳明細一覧.length>0){頁=頁+1}
    }
    元帳明細一覧.forEach(function(一件){
      if (一件['日付']!=null && 一件['日付']!=''){
        行数=行数+1
        if (行数>元帳一頁行数){
          頁=頁+1
          行数=1 
          元帳.push({"頁":頁.toString(),"勘定科目":勘定科目,"No":"","日付":"","相手勘定科目":"","摘要":"前頁繰越高","借方":"","貸方":"","残高":残高.toString()})
        }
        if (一件['借方']!=''){残高=残高+(貸借)*一件['借方']}
        if (一件['貸方']!=''){残高=残高-(貸借)*一件['貸方']}

        if (一件['数量']!='' || 一件['部数']!='' || 一件['単価']!=''){
          if (一件['摘要']!=''){一件['摘要']=一件['摘要']+'　'}
          if (一件['数量']!=''){一件['摘要']=一件['摘要']+一件['数量'].toString()+一件['単位'].toString()}
          if (一件['数量']!='' && 一件['部数']!=''){一件['摘要']=一件['摘要']+'×'}
          if (一件['部数']!=''){一件['摘要']=一件['摘要']+一件['部数'].toString()+一件['部単位'].toString()}
          if ((一件['数量']!='' || 一件['部数']!='') && 一件['単価']!=''){一件['摘要']=一件['摘要']+'×'}
          if (一件['単価']!=''){一件['摘要']=一件['摘要']+'@'+一件['単価'].toString()}
        }

        if (勘定科目.indexOf(':')>=0){
          let 部分配列=勘定科目.split(':')
          勘定科目=部分配列[0].toString()+':'+部分配列[1].toString()
        }  
        let 相手勘定科目=科目区分表[一件['相手科目区分']]
        if (相手勘定科目.indexOf(':')>=0){
          let 部分配列=相手勘定科目.split(':')
          相手勘定科目=部分配列[0].toString()+':'+部分配列[1].toString()
        }
        元帳.push({"頁":頁.toString(),"勘定科目":勘定科目,"No":一件['row'].toString(),"日付":一件['日付'].substring(5).replace('-','/'),"相手勘定科目":相手勘定科目,"摘要":一件['摘要'],"借方":一件['借方'].toString(),"貸方":一件['貸方'].toString(),"残高":残高.toString()})
      }
    })
  }

  let ページ = CopyofEasy4Anyone.HTML名('元帳')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.元帳=JSON.stringify(元帳) //数はtoString()要
  return ページ.evaluate().setTitle('総勘定元帳')
}

function 次年度繰越画面表示(){
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  const 第何期 = parseInt(会計期間.substring(1,会計期間.indexOf('期')))+1
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  期首年月日 = Utilities.formatDate(CopyofEasy4Anyone.経過日時(new Date(期首年月日),1,0,0,0,0,0),'JST','yyyy-MM-dd')
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(CopyofEasy4Anyone.経過日時(new Date(期末年月日),1,0,0,0,0,0),'JST','yyyy-MM-dd')
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','次年度繰越実行')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('第何期','number',第何期,15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('期首年月日','date',期首年月日,15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('期末年月日','date',期末年月日,15,'')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('メニューに戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('次年度繰越実行','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,CopyofEasy4Anyone.get設定('会社')+'<br>'+CopyofEasy4Anyone.get設定('会計期間')+'<br>　↓↓↓　<br>下記の次年度に残高を繰越します。変更があれば修正してください。<br>また，既に次年度データが存在する場合は，期首残高だけを更新します。',ボタン)
  return ページ.evaluate().setTitle('次年度繰越実行')
}

function 次年度繰越実行と画面表示(e){
  let 勘定科目一覧 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).result()
  }
  let 集計表={}
  let 科目区分表={}
  勘定科目一覧.forEach(function(一件){
    集計表[一件['科目区分']]=一件['期首残高']
    科目区分表[一件['科目区分']]=一件['勘定科目名']
  })
  let 元帳明細一覧 = []
  if (仕訳情報!=null){
    元帳明細一覧 = 仕訳情報.select(['借方科目区分','貸方科目区分','金額']).result()
    元帳明細一覧.forEach(function(一件){
      let 貸借=0
      if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}  
      if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}  
      if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
      if (貸借!=0)  
        {集計表[一件['借方科目区分']]=parseInt(集計表[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])}
      貸借=0
      if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}  
      if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}  
      if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
      if (貸借!=0)  
        {集計表[一件['貸方科目区分']]=parseInt(集計表[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])}
    })
  }
  let 損益=0  
  for(let 科目 in 集計表){
    if (集計表[科目]!=''){
      if (科目.indexOf('資産')==0){損益=損益+集計表[科目]}
      if (科目.indexOf('負債')==0){損益=損益-集計表[科目]}
      if (科目.indexOf('資本')==0){損益=損益-集計表[科目]}
    }  
  }
  集計表['資本'+資本行数]=集計表['資本'+資本行数]+損益 

  const 第何期 = CopyofEasy4Anyone.FORM値(e,'第何期')
  const 期首年月日 = CopyofEasy4Anyone.FORM値(e,'期首年月日')
  const 期末年月日 = CopyofEasy4Anyone.FORM値(e,'期末年月日')
  const 会計期間 = (`第${第何期}期 ${期首年月日}～${期末年月日}`)
  勘定科目情報 = 会計データベース.table(会計期間+'勘定科目・残高')
  CopyofEasy4Anyone.set設定('会計期間',会計期間)
  if (勘定科目情報==null){
    会計データベース.createTable(会計期間+'勘定科目・残高',{'科目区分':'@','勘定科目名':'@','期首残高':'@'})
    勘定科目情報 = 会計データベース.table(CopyofEasy4Anyone.get設定('会計期間')+'勘定科目・残高')
    仕訳情報 = null
  }

  for(let 科目 in 集計表){
    let 有無 = 勘定科目情報.select(['科目区分']).where({'科目区分':['==',科目]}).result()
    if (有無.length==0){
      勘定科目情報.insert([{'科目区分':科目,'勘定科目名':科目区分表[科目],'期首残高':集計表[科目]}])
    } else {
      if (科目.indexOf('費用')!=0 && 科目.indexOf('収益')!=0){勘定科目情報.update({'期首残高':集計表[科目]},{'科目区分':['==',科目]})}
    }
  }
  勘定科目情報.refresh()
  return 勘定科目と期首残高画面表示()
}

function 試算表期間入力() {
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  const 第何期 = 会計期間.substring(0,会計期間.indexOf('期')+1)
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','試算表表示印刷')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('期間開始年月日','date',期首年月日,15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('期間終了年月日','date',期末年月日,15,'')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('メニューに戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('試算表表示印刷','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,CopyofEasy4Anyone.get設定('会社')+第何期+'<br>試算表表示印刷',ボタン)
  return ページ.evaluate().setTitle('試算表表示印刷')
}

function 試算表表示印刷(e){
  const 期間開始年月日 = CopyofEasy4Anyone.FORM値(e,'期間開始年月日')
  const 期間終了年月日 = CopyofEasy4Anyone.FORM値(e,'期間終了年月日')
  let 頁=0
  let 勘定科目一覧 = []
  let 試算表 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'科目区分':['!=','資本'+資本行数],'勘定科目名':['!=','']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  let 借方集計表={}
  let 貸方集計表={}
  let 期末残高表={}
  勘定科目一覧.forEach(function(一件){
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    期首残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    借方集計表[一件['科目区分']]=0
    貸方集計表[一件['科目区分']]=0
    期末残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    if (一件['科目区分'].indexOf('費用')>=0){期首残高表[一件['科目区分']]=0;期末残高表[一件['科目区分']]=0;}  
    if (一件['科目区分'].indexOf('収益')>=0){期首残高表[一件['科目区分']]=0;期末残高表[一件['科目区分']]=0;}  
  })

  let 元帳明細一覧=[]
  if (仕訳情報!=null){
        元帳明細一覧 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'日付':['<=',期間終了年月日]}).result()
  }
  元帳明細一覧.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}
        if (一件['日付']<期間開始年月日) {期首残高表[一件['借方科目区分']]=parseInt(期首残高表[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])}
        else {借方集計表[一件['借方科目区分']]=parseInt(借方集計表[一件['借方科目区分']])+parseInt(一件['金額'])}
        期末残高表[一件['借方科目区分']]=parseInt(期末残高表[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        if (一件['日付']<期間開始年月日) {期首残高表[一件['貸方科目区分']]=parseInt(期首残高表[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])}
        else {貸方集計表[一件['貸方科目区分']]=parseInt(貸方集計表[一件['貸方科目区分']])+parseInt(一件['金額'])}
        期末残高表[一件['貸方科目区分']]=parseInt(期末残高表[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })

  let 行数=9999
  for(let 科目 in 科目区分表){
    const 勘定科目 = 科目区分表[科目]

    if (期首残高表[科目]>0 || 借方集計表[科目]>0 || 貸方集計表[科目]>0 || 期末残高表[科目]>0){
      行数=行数+1
      if (行数>試算表一頁行数){
        頁=頁+1
        行数=1 
        試算表.push({"頁":頁.toString(),"勘定科目":"勘定科目","期間開始残高":"期間開始残高","借方":"借方","貸方":"貸方","期間終了残高":"期間終了残高"})
      }
      試算表.push({"頁":頁.toString(),"勘定科目":勘定科目,"期間開始残高":期首残高表[科目].toString(),"借方":借方集計表[科目].toString(),"貸方":貸方集計表[科目].toString(),"期間終了残高":期末残高表[科目].toString()})
    }
  }
//Logger.log(試算表)
  let ページ = CopyofEasy4Anyone.HTML名('試算表')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = Utilities.formatDate(new Date(期間開始年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = Utilities.formatDate(new Date(期間終了年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.試算表=JSON.stringify(試算表) //数はtoString()要
  return ページ.evaluate().setTitle('試算表')
}

function 収支予算書(){
  let 頁=1
  let 勘定科目一覧 = []
  let 集計表={}
  let 収支予算書 = []
  let 事業明細行数={}
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分',{col:'勘定科目名',alias:'事業名'},{col:'勘定科目名',alias:'項目名'},{col:'期首残高',alias:'予算額'},{col:'勘定科目名',alias:'内訳'}]).where({'期首残高':['>=',0],'勘定科目名':['NOTin','','【活動費】','【運営費】'],'科目区分':['NOTin','資本1','資本'+資本行数,'資産1','資産2','資産3','資産4','資産5','資産6','資産7','資産8','資産9','資産10','資産11','資産12','資産13','負債1','負債2','負債3','負債4','負債5','収益11','収益12','収益13','収益14','収益15','収益16']}).result()
  }

  let 科目順序表={}
  let 科目区分表={}
  let 事業区分表={}
  let 科目事業区分表={}
  勘定科目一覧.forEach(function(一件){
    if (一件['科目区分'].indexOf('費用')==0 && 一件['事業名'].indexOf(':')>=0){
      let 部分配列=一件['事業名'].split(':')
      科目区分表[部分配列[0].toString()]=部分配列[0].toString()
      事業区分表[部分配列[1].toString()]=部分配列[1].toString()
      科目事業区分表[部分配列[0].toString()+':'+部分配列[1].toString()]=一件['科目区分']
    }  
  })
  for(let i=1;i<=10;i++){
    科目順序表['収益'+i.toString()]=i
  }
  let 順序=11
  for(let 事業 in 事業区分表){
  for(let 勘定 in 科目区分表){
   if (科目事業区分表[勘定+':'+事業]!=null){
    let 科目=科目事業区分表[勘定+':'+事業]
    科目順序表[科目]=順序
    順序=順序+1
  }}} 

  let 自己資金=0
  勘定科目一覧.forEach(function(一件){
    一件['順序']=科目順序表[一件['科目区分']]
    let 配列=一件['事業名'].split(':')
    一件['予算額']=parseInt(一件['予算額'])
    if (一件['予算額']>=0 || 配列.length==5){
      if (一件['科目区分'].indexOf('収益')==0){自己資金=自己資金+(-1)*parseInt(一件['予算額'])}
      if (一件['科目区分'].indexOf('費用')==0){自己資金=自己資金+parseInt(一件['予算額'])}
      if (一件['事業名'].indexOf(':')>=0){
        let 部分配列=一件['事業名'].split(':')
        if (部分配列.length==2){
          一件['事業名']=部分配列[1].toString()
          一件['項目名']=部分配列[0].toString()
          一件['内訳']=''
        } else if (部分配列.length>=3){
          一件['事業名']=部分配列[1].toString()
          一件['項目名']=部分配列[0].toString()
          一件['内訳']=部分配列[2].toString()
          if (部分配列.length>=4){
            let 予算配列=部分配列[3].split('/')
            if (予算配列.length==0){ 一件['内訳']=一件['内訳'].replace('[数量]',予算配列)
              let 分割=予算配列.split('.')
              if (分割.length>=2){一件['内訳']=一件['内訳'].replace('[数量1]',分割[0])
                                 一件['内訳']=一件['内訳'].replace('[数量2]',分割[1]);}
            }
            if (予算配列.length>=1){ 一件['内訳']=一件['内訳'].replace('[数量]',予算配列[0])
              let 分割=予算配列[0].split('.')
              if (分割.length>=2){一件['内訳']=一件['内訳'].replace('[数量1]',分割[0])
                                 一件['内訳']=一件['内訳'].replace('[数量2]',分割[1]);}
            }
            if (予算配列.length>=2){ 一件['内訳']=一件['内訳'].replace('[部数]',予算配列[1])}
            if (予算配列.length>=3){ 一件['内訳']=一件['内訳'].replace('[単価]',予算配列[2])
              let 分割=予算配列[2].split('.')
              if (分割.length>=2){一件['内訳']=一件['内訳'].replace('[単価1]',分割[0])
                                 一件['内訳']=一件['内訳'].replace('[単価2]',分割[1]);}
            }
            if (予算配列.length>=4){ 一件['内訳']=一件['内訳'].replace('[回数]',予算配列[3])}
          }  
          if (一件['科目区分'].indexOf('収益')==0){//(部分配列.length==5){
//            一件['項目名']=一件['事業名']+一件['項目名']
            一件['事業名']='収入の部'
            //一件['予算額']=部分配列[4].toString()
//            自己資金=自己資金+(-1)*parseInt(一件['予算額'])
          }  
        } else {
          一件['事業名']=''
          一件['項目名']=''
          一件['内訳']=''
        }
      } else {
//        一件['項目名']=一件['事業名']+一件['項目名']
        一件['事業名']='収入の部'
        一件['内訳']=''
//        自己資金=自己資金+(-1)*parseInt(一件['予算額'])
      }
    }  
  })
  勘定科目一覧[2]['予算額']=自己資金
  勘定科目一覧.sort(function(a,b){return parseInt(a['順序'])-parseInt(b['順序'])})

  勘定科目一覧.forEach(function(一件){
    一件['内訳']=一件['内訳'].replace('|','<br>')
    if ((一件['科目区分'].indexOf('収益')==0 || 一件['科目区分'].indexOf('費用')==0) && 一件['事業名']!='' && parseInt(一件['予算額'])>0){
      if (集計表[一件['事業名']]==null){集計表[一件['事業名']]=0}
      集計表[一件['事業名']]=parseInt(集計表[一件['事業名']])+parseInt(一件['予算額'])
      if (事業明細行数[一件['事業名']]==null){事業明細行数[一件['事業名']]=1}
      事業明細行数[一件['事業名']]=parseInt(事業明細行数[一件['事業名']])+1
      
    }  
  })

//Logger.log(勘定科目一覧)


  let 行数チェック=収支予算書1頁目行数
  let 事業名=''
  let 行数=0
  let 頁合計=0
  let 総合計=0
  let 総合計内訳=''
  let 小計='合計'
  収支予算書.push({'頁':'1','明細行数':'','事業名':'【収入の部】','項目名':'','予算額':'','内訳':'(単位:円)'})
  収支予算書.push({'頁':'1','明細行数':'','事業名':'収入の部','項目名':'項目','予算額':'予算額','内訳':'内訳'})
  勘定科目一覧.forEach(function(一件){
    if (parseInt(一件['予算額'])>0){
      if (事業名!=一件['事業名']){
        if (事業名!=''){
          収支予算書.push({'頁':頁.toString(),'明細行数':事業明細行数[事業名].toString(),'事業名':事業名,'項目名':小計,'予算額':集計表[事業名].toString(),'内訳':''})
          小計='小計'
          if (事業名!='収入の部'){
            行数=行数+事業明細行数[事業名]
            頁合計=頁合計+集計表[事業名]
            総合計=総合計+集計表[事業名]
            if (行数チェック<行数+事業明細行数[一件['事業名']]){
              収支予算書.push({'頁':頁.toString(),'明細行数':'','事業名':'合計 ('+頁.toString()+')','項目名':'','予算額':頁合計.toString(),'内訳':''})
              総合計内訳=総合計内訳+'+'+'('+頁.toString()+')'
              頁=頁+1
              頁合計=0
              行数=0
              行数チェック=収支予算書行数
              収支予算書.push({'頁':頁.toString(),'明細行数':'','事業名':'【支出の部】'+'(その '+頁.toString()+')','項目名':'','予算額':'','内訳':'(単位:円)'})
              収支予算書.push({'頁':頁.toString(),'明細行数':'','事業名':'事業名','項目名':'項目','予算額':'予算額','内訳':'内訳'})
            }
          } else {
              収支予算書.push({'頁':'1','明細行数':'','事業名':'【支出の部】'+'(その 1)','項目名':'','予算額':'','内訳':'(単位:円)'})
              収支予算書.push({'頁':'1','明細行数':'','事業名':'事業名','項目名':'項目','予算額':'予算額','内訳':'内訳'})
          }
        }  
        事業名=一件['事業名']
      }
      収支予算書.push({'頁':頁.toString(),'明細行数':事業明細行数[事業名].toString(),'事業名':一件['事業名'],'項目名':一件['項目名'],'予算額':一件['予算額'].toString(),'内訳':一件['内訳']})
    }  
  })
  if (事業名!=''){
    収支予算書.push({'頁':頁.toString(),'明細行数':事業明細行数[事業名].toString(),'事業名':事業名,'項目名':'小計','予算額':集計表[事業名].toString(),'内訳':''})
    総合計内訳=総合計内訳+'+'+'('+頁.toString()+')'
    頁合計=頁合計+集計表[事業名]
    総合計=総合計+集計表[事業名]
    収支予算書.push({'頁':頁.toString(),'明細行数':'','事業名':'合計 ('+頁.toString()+')','項目名':'','予算額':頁合計.toString(),'内訳':''})
    収支予算書.push({'頁':頁.toString(),'明細行数':'','事業名':'総合計 '+総合計内訳.slice(1),'項目名':'','予算額':総合計.toString(),'内訳':''})
  }
Logger.log(勘定科目一覧)
Logger.log(収支予算書)
//Logger.log(集計表)
//Logger.log(事業明細行数)
  let ページ = CopyofEasy4Anyone.HTML名('高知市収支予算書')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.収支予算書=JSON.stringify(収支予算書) //数はtoString()要
  return ページ.evaluate().setTitle('収支予算書')
}

function 収支決算書(){
  let 頁=1
  let 勘定科目一覧 = []
  let 集計表={}
  let 決算集計表={}
  let 収支決算書 = []
  let 事業明細行数={}
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名',{col:'勘定科目名',alias:'事業名'},{col:'勘定科目名',alias:'項目名'},{col:'期首残高',alias:'予算額'},{col:'期首残高',alias:'決算額'},{col:'期首残高',alias:'増減'},{col:'勘定科目名',alias:'内訳'}]).where({'期首残高':['>=',0],'勘定科目名':['NOTin','','【活動費】','【運営費】'],'科目区分':['NOTin','資本1','資本'+資本行数,'資産1','資産2','資産3','資産4','資産5','資産6','資産7','資産8','資産9','資産10','資産11','資産12','資産13','負債1','負債2','負債3','負債4','負債5','収益11','収益12','収益13','収益14','収益15','収益16']}).result()
  }
  
  let 科目順序表={}
  let 科目区分表={}
  let 事業区分表={}
  let 科目事業区分表={}
  勘定科目一覧.forEach(function(一件){
    if (一件['科目区分'].indexOf('費用')==0 && 一件['事業名'].indexOf(':')>=0){
      let 部分配列=一件['事業名'].split(':')
      科目区分表[部分配列[0].toString()]=部分配列[0].toString()
      事業区分表[部分配列[1].toString()]=部分配列[1].toString()
      科目事業区分表[部分配列[0].toString()+':'+部分配列[1].toString()]=一件['科目区分']
    }  
  })
  for(let i=1;i<=10;i++){
    科目順序表['収益'+i.toString()]=i
  }
  let 順序=11
  for(let 事業 in 事業区分表){
  for(let 勘定 in 科目区分表){
   if (科目事業区分表[勘定+':'+事業]!=null){
    let 科目=科目事業区分表[勘定+':'+事業]
    科目順序表[科目]=順序
    順序=順序+1
  }}} 

  let 自己資金=0
  勘定科目一覧.forEach(function(一件){
    一件['順序']=科目順序表[一件['科目区分']]
    一件['予算額']=parseInt(一件['予算額'])
    一件['決算額']=0
    一件['増減']=parseInt(一件['増減'])
    let 配列=一件['事業名'].split(':')
    if (一件['予算額']>=0 || 配列.length==5){
      if (一件['科目区分'].indexOf('収益1')==0){自己資金=自己資金+(-1)*parseInt(一件['予算額'])}
      if (一件['科目区分'].indexOf('費用')==0){自己資金=自己資金+parseInt(一件['予算額'])}
      if (一件['事業名'].indexOf(':')>=0){
        let 部分配列=一件['事業名'].split(':')
        if (部分配列.length==2){
          一件['事業名']=部分配列[1].toString()
          一件['項目名']=部分配列[0].toString()
          一件['内訳']=''
        } else if (部分配列.length>=3){
          一件['事業名']=部分配列[1].toString()
          一件['項目名']=部分配列[0].toString()
          一件['内訳']=部分配列[2].toString()
/*          
          if (部分配列.length==4){
            let 予算配列=部分配列[3].split('/')
            if (予算配列.length==0){ 一件['内訳']=一件['内訳'].replace('[数量]',予算配列)}
            if (予算配列.length>=1){ 一件['内訳']=一件['内訳'].replace('[数量]',予算配列[0])}
            if (予算配列.length>=2){ 一件['内訳']=一件['内訳'].replace('[部数]',予算配列[1])}
            if (予算配列.length>=3){ 一件['内訳']=一件['内訳'].replace('[単価]',予算配列[2])}
            if (予算配列.length>=4){ 一件['内訳']=一件['内訳'].replace('[回数]',予算配列[3])}
          }  
*/
          if (一件['科目区分'].indexOf('収益')==0){//(部分配列.length==5){
            一件['項目名']=一件['事業名']+一件['項目名']
            一件['事業名']='収入の部'
            //一件['予算額']=部分配列[4].toString()
            自己資金=自己資金+(-1)*parseInt(一件['予算額'])
          }  
        } else {
          一件['事業名']=''
          一件['項目名']=''
          一件['内訳']=''
        }
      } else {
        一件['事業名']='収入の部'
        一件['内訳']=''
      }
    }  
  })
  勘定科目一覧[2]['予算額']=自己資金
  勘定科目一覧.sort(function(a,b){return parseInt(a['順序'])-parseInt(b['順序'])})

  勘定科目一覧.forEach(function(一件){
    一件['内訳']=一件['内訳'].replace('|','<br>')
    if ((一件['科目区分'].indexOf('収益')==0 || 一件['科目区分'].indexOf('費用')==0) && 一件['事業名']!=''){
      if (集計表[一件['事業名']]==null){集計表[一件['事業名']]=0}
      集計表[一件['事業名']]=parseInt(集計表[一件['事業名']])+parseInt(一件['予算額'])
//      if (事業明細行数[一件['事業名']]==null){事業明細行数[一件['事業名']]=1}
//      事業明細行数[一件['事業名']]=parseInt(事業明細行数[一件['事業名']])+1
      
    }  
  })


//  決算集計表=集計表
  科目区分表={}
  let 期末残高={}
  let 数量={}
  let 単価={}
  let 数量1={}
  let 単価1={}
  let 数量2={}
  let 単価2={}
  let 回数={}
  勘定科目一覧.forEach(function(一件){
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    決算集計表[一件['事業名']]=0
    期末残高[一件['勘定科目名']]=0
    数量[一件['勘定科目名']]=0
    単価[一件['勘定科目名']]=0
    数量1[一件['勘定科目名']]=0
    単価1[一件['勘定科目名']]=0
    数量2[一件['勘定科目名']]=0
    単価2[一件['勘定科目名']]=0
    回数[一件['勘定科目名']]=0
  })

  let 元帳明細一覧=[]
  if (仕訳情報!=null){
        元帳明細一覧 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額','数量','部数','単価']).result()
  }
  元帳明細一覧.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}
        期末残高[科目区分表[一件['借方科目区分']]]=parseInt(期末残高[科目区分表[一件['借方科目区分']]])+(貸借)*parseInt(一件['金額'])
        回数[科目区分表[一件['借方科目区分']]]=parseInt(回数[科目区分表[一件['借方科目区分']]])+(貸借)*1
        if (一件['単価']!=''){
          if (単価[科目区分表[一件['借方科目区分']]]==0) {単価[科目区分表[一件['借方科目区分']]]=parseInt(一件['単価'])}
          let 分割=一件['単価'].split('.')
          if (分割.length>=2){
            if (単価1[科目区分表[一件['借方科目区分']]]==0) {単価1[科目区分表[一件['借方科目区分']]]=parseInt(分割[0])}
            if (単価2[科目区分表[一件['借方科目区分']]]==0) {単価2[科目区分表[一件['借方科目区分']]]=parseInt(分割[1])}
          } else {
            if (単価1[科目区分表[一件['借方科目区分']]]==0) {単価1[科目区分表[一件['借方科目区分']]]=一件['単価']}
            if (単価1[科目区分表[一件['借方科目区分']]]!=一件['単価'] && 単価2[科目区分表[一件['借方科目区分']]]==0) {
              単価2[科目区分表[一件['借方科目区分']]]=一件['単価']
            }           
          }
        }  
        let 計算=0
        if (一件['数量']!=''){
          let 分割=一件['数量'].split('.')
          if (分割.length>=2){
            数量1[科目区分表[一件['借方科目区分']]]=parseInt(数量1[科目区分表[一件['借方科目区分']]])+(貸借)*parseInt(分割[0])
            数量2[科目区分表[一件['借方科目区分']]]=parseInt(数量2[科目区分表[一件['借方科目区分']]])+(貸借)*parseInt(分割[1])
          } else {
            if (単価1[科目区分表[一件['借方科目区分']]]!=0 && 単価1[科目区分表[一件['借方科目区分']]]==一件['単価']){
              数量1[科目区分表[一件['借方科目区分']]]=parseInt(数量1[科目区分表[一件['借方科目区分']]])+(貸借)*一件['数量']
            }
            if (単価2[科目区分表[一件['借方科目区分']]]!=0 && 単価2[科目区分表[一件['借方科目区分']]]==一件['単価']){
              数量2[科目区分表[一件['借方科目区分']]]=parseInt(数量2[科目区分表[一件['借方科目区分']]])+(貸借)*一件['数量']
            }
          }
          if (一件['部数']!=''){計算=parseInt(一件['数量'])*parseInt(一件['部数'])} else {計算=parseInt(一件['数量'])}
        } else if (一件['部数']!=''){計算=parseInt(一件['部数'])}
        数量[科目区分表[一件['借方科目区分']]]=parseInt(数量[科目区分表[一件['借方科目区分']]])+(貸借)*計算

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        期末残高[科目区分表[一件['貸方科目区分']]]=parseInt(期末残高[科目区分表[一件['貸方科目区分']]])+(貸借)*parseInt(一件['金額'])
        回数[科目区分表[一件['貸方科目区分']]]=parseInt(回数[科目区分表[一件['貸方科目区分']]])+(貸借)*1
        if (一件['単価']!=''){
          if (単価[科目区分表[一件['貸方科目区分']]]==0) {単価[科目区分表[一件['貸方科目区分']]]=parseInt(一件['単価'])}
          let 分割=一件['単価'].split('.')
          if (分割.length>=2){
            if (単価1[科目区分表[一件['貸方科目区分']]]==0) {単価1[科目区分表[一件['貸方科目区分']]]=parseInt(分割[0])}
            if (単価2[科目区分表[一件['貸方科目区分']]]==0) {単価2[科目区分表[一件['貸方科目区分']]]=parseInt(分割[1])}
          }
        }  
        計算=0
        if (一件['数量']!=''){
          let 分割=一件['数量'].split('.')
          if (分割.length>=2){
            数量1[科目区分表[一件['貸方科目区分']]]=parseInt(数量1[科目区分表[一件['貸方科目区分']]])+(貸借)*parseInt(分割[0])
            数量2[科目区分表[一件['貸方科目区分']]]=parseInt(数量2[科目区分表[一件['貸方科目区分']]])+(貸借)*parseInt(分割[1])
          }
          if (一件['部数']!=''){計算=parseInt(一件['数量'])*parseInt(一件['部数'])} else {計算=parseInt(一件['数量'])}
        } else if (一件['部数']!=''){計算=parseInt(一件['部数'])}
        数量[科目区分表[一件['貸方科目区分']]]=parseInt(数量[科目区分表[一件['貸方科目区分']]])+(貸借)*計算
      }
    }    
  })
  let 補助金利用額=0
  勘定科目一覧.forEach(function(一件){
    一件['決算額']=期末残高[一件['勘定科目名']]
    決算集計表[一件['事業名']]=parseInt(決算集計表[一件['事業名']])+parseInt(一件['決算額'])
    一件['内訳']=一件['内訳'].replace('[数量]',数量[一件['勘定科目名']])    
    一件['内訳']=一件['内訳'].replace('[単価]',単価[一件['勘定科目名']])    
    一件['内訳']=一件['内訳'].replace('[数量1]',数量1[一件['勘定科目名']])    
    一件['内訳']=一件['内訳'].replace('[単価1]',単価1[一件['勘定科目名']])    
    一件['内訳']=一件['内訳'].replace('[数量2]',数量2[一件['勘定科目名']])    
    一件['内訳']=一件['内訳'].replace('[単価2]',単価2[一件['勘定科目名']])    
    一件['内訳']=一件['内訳'].replace('[回数]',回数[一件['勘定科目名']])    
    if ((parseInt(一件['予算額'])>0 || parseInt(一件['決算額'])>0) && (一件['科目区分'].indexOf('収益')==0 || 一件['科目区分'].indexOf('費用')==0) && 一件['事業名']!=''){
      if (事業明細行数[一件['事業名']]==null){事業明細行数[一件['事業名']]=1}
      事業明細行数[一件['事業名']]=parseInt(事業明細行数[一件['事業名']])+1
    }
    if (一件['科目区分'].indexOf('費用')==0) {補助金利用額=補助金利用額+parseInt(一件['決算額'])}  
  })
  勘定科目一覧[0]['決算額']=補助金利用額-勘定科目一覧[1]['決算額']
  勘定科目一覧[2]['決算額']=0
  if ( 勘定科目一覧[0]['決算額']>勘定科目一覧[0]['予算額']){
    勘定科目一覧[2]['決算額']=勘定科目一覧[0]['決算額']-勘定科目一覧[0]['予算額']
    勘定科目一覧[0]['決算額']=勘定科目一覧[0]['予算額']
  }
  決算集計表['収入の部']=0
  勘定科目一覧.forEach(function(一件){
    if (一件['科目区分'].indexOf('収益')==0) { 決算集計表['収入の部']=決算集計表['収入の部']+一件['決算額']}
  })
Logger.log(勘定科目一覧)
//Logger.log(集計表)
//Logger.log(期末残高)

  let 行数チェック=収支決算書1頁目行数
  let 事業名=''
  let 行数=0
  let 頁合計=0
  let 総合計=0
  let 決算頁合計=0
  let 決算総合計=0
  let 総合計内訳=''
  let 小計='合計'
  let 増減=0
  収支決算書.push({'頁':'1','明細行数':'','事業名':'【収入の部】','項目名':'','予算額':'','決算額':'','増減':'','内訳':'(単位:円)'})
  収支決算書.push({'頁':'1','明細行数':'','事業名':'収入の部','項目名':'項目','予算額':'予算額','決算額':'決算額','増減':'増減','内訳':'内訳'})
  勘定科目一覧.forEach(function(一件){
    if (parseInt(一件['予算額'])>0 || parseInt(一件['決算額'])>0){
      if (事業名!=一件['事業名']){
        if (事業名!=''){
          増減=決算集計表[事業名]-集計表[事業名]
          let 変更等承認申請要=''
          if (増減 / 決算集計表[事業名] > 0.2){変更等承認申請要='<font color=red>※変更等承認申請要</font>'}
          収支決算書.push({'頁':頁.toString(),'明細行数':事業明細行数[事業名].toString(),'事業名':事業名,'項目名':小計,'予算額':集計表[事業名].toString(),'決算額':決算集計表[事業名].toString(),'増減':増減.toString(),'内訳':変更等承認申請要})
          小計='小計'
          if (事業名!='収入の部'){
            行数=行数+事業明細行数[事業名]
            頁合計=頁合計+集計表[事業名]
            総合計=総合計+集計表[事業名]
            決算頁合計=決算頁合計+決算集計表[事業名]
            決算総合計=決算総合計+決算集計表[事業名]
            if (行数チェック<行数+事業明細行数[一件['事業名']]){
              増減=決算頁合計-頁合計
              収支決算書.push({'頁':頁.toString(),'明細行数':'','事業名':'合計 ('+頁.toString()+')','項目名':'','予算額':頁合計.toString(),'決算額':決算頁合計.toString(),'増減':増減.toString(),'内訳':''})
              総合計内訳=総合計内訳+'+'+'('+頁.toString()+')'
              頁=頁+1
              頁合計=0
              決算頁合計=0
              行数=0
              行数チェック=収支決算書行数
              収支決算書.push({'頁':頁.toString(),'明細行数':'','事業名':'【支出の部】'+'(その '+頁.toString()+')','項目名':'','予算額':'','決算額':'','増減':'','内訳':'(単位:円)'})
              収支決算書.push({'頁':頁.toString(),'明細行数':'','事業名':'事業名','項目名':'項目','予算額':'予算額','決算額':'決算額','増減':'増減','内訳':'内訳'})
            }
          } else {
              収支決算書.push({'頁':'1','明細行数':'','事業名':'【支出の部】'+'(その 1)','項目名':'','予算額':'','決算額':'','増減':'','内訳':'(単位:円)'})
              収支決算書.push({'頁':'1','明細行数':'','事業名':'事業名','項目名':'項目','予算額':'予算額','決算額':'決算額','増減':'増減','内訳':'内訳'})
          }
        }  
        事業名=一件['事業名']
      }
      増減=一件['決算額']-一件['予算額']
      収支決算書.push({'頁':頁.toString(),'明細行数':事業明細行数[事業名].toString(),'事業名':一件['事業名'],'項目名':一件['項目名'],'予算額':一件['予算額'].toString(),'決算額':一件['決算額'].toString(),'増減':増減.toString(),'内訳':一件['内訳']})
    }
  })
  if (事業名!=''){
    増減=決算集計表[事業名]-集計表[事業名]
    収支決算書.push({'頁':頁.toString(),'明細行数':事業明細行数[事業名].toString(),'事業名':事業名,'項目名':'小計','予算額':集計表[事業名].toString(),'決算額':決算集計表[事業名].toString(),'増減':増減.toString(),'内訳':''})
    総合計内訳=総合計内訳+'+'+'('+頁.toString()+')'
    頁合計=頁合計+集計表[事業名]
    総合計=総合計+集計表[事業名]
    決算頁合計=決算頁合計+決算集計表[事業名]
    決算総合計=決算総合計+決算集計表[事業名]
    増減=決算頁合計-頁合計
    収支決算書.push({'頁':頁.toString(),'明細行数':'','事業名':'合計 ('+頁.toString()+')','項目名':'','予算額':頁合計.toString(),'決算額':決算頁合計.toString(),'増減':増減.toString(),'内訳':''})
    増減=決算総合計-総合計
    収支決算書.push({'頁':頁.toString(),'明細行数':'','事業名':'総合計 '+総合計内訳.slice(1),'項目名':'','予算額':総合計.toString(),'決算額':決算総合計.toString(),'増減':増減.toString(),'内訳':''})
  }
//Logger.log(勘定科目一覧)
//Logger.log(収支決算書)
//Logger.log(集計表)
//Logger.log(事業明細行数)
  let ページ = CopyofEasy4Anyone.HTML名('高知市収支決算書')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.収支決算書=JSON.stringify(収支決算書) //数はtoString()要
  return ページ.evaluate().setTitle('収支決算書')
}

function 収支一覧表(){
  let 頁=1
  let 勘定科目一覧 = []
  let 元帳 = []
  let 収支一覧表 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'勘定科目名':['NOTin','','【活動費】','【運営費】'],'科目区分':['NOTin','資本1','資本'+資本行数,'資産1','資産2','資産3','資産4','資産5','資産6','資産7','資産8','資産9','資産10','資産11','資産12','資産13','負債1','負債2','負債3','負債4','負債5','収益11','収益12','収益13','収益14','収益15','収益16']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  let 事業区分表={}
  let 科目のみ区分表={}
  let 科目事業区分表={}
  let 予算表={}
  勘定科目一覧.forEach(function(一件){
      科目区分表[一件['科目区分']]=一件['勘定科目名']
      予算表[一件['科目区分']]=一件['期首残高']
      期首残高表[一件['勘定科目名']]=0
      if (一件['科目区分'].indexOf('費用')==0 && 一件['勘定科目名'].indexOf(':')>=0){
        let 部分配列=一件['勘定科目名'].split(':')
        科目のみ区分表[部分配列[0].toString()]=部分配列[0].toString()
        事業区分表[部分配列[1].toString()]=部分配列[1].toString()
        科目事業区分表[部分配列[0].toString()+':'+部分配列[1].toString()]=一件['科目区分']
      }  
  })

  let 科目順序表={}
  for(let i=1;i<=10;i++){
    科目順序表['収益'+i.toString()]=1000+i
  }
  let 順序=1000+11
  for(let 事業 in 事業区分表){
  for(let 勘定 in 科目のみ区分表){
   if (科目事業区分表[勘定+':'+事業]!=null){
    let 科目=科目事業区分表[勘定+':'+事業]
    科目順序表[科目]=順序
    順序=順序+1
  }}} 

//    let 勘定科目 = 科目区分表[科目]
    let 貸借=1
    let 前期繰越=true

    if (仕訳情報!=null){
      CopyofEasy4Anyone.Addrow=true
    let 元帳明細一覧=[]
    let 元帳明細一覧2=[]
        元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'貸方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'貸方科目区分':['in','収益1','収益2','収益3','収益4','収益5','収益6','収益7','収益8','収益9','収益10']}).result()
        元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'借方科目区分':['in','収益1','収益2','収益3','収益4','収益5','収益6','収益7','収益8','収益9','収益10']}).result()
        元帳明細一覧2.forEach(function(一件){一件['金額']=parseInt(一件['金額'])*(-1)})
    Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
    元帳明細一覧.sort(function(a,b){return parseInt(a['日付'].replace(/-/g,''))-parseInt(b['日付'].replace(/-/g,''))})
    Array.prototype.push.apply(元帳,元帳明細一覧)
    元帳明細一覧=[]
    元帳明細一覧2=[]
        元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'借方科目区分':['like','%費用%']}).result()
        元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'貸方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'貸方科目区分':['like','%費用%']}).result()
        元帳明細一覧2.forEach(function(一件){一件['金額']=parseInt(一件['金額'])*(-1)})
    Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
    元帳明細一覧.sort(function(a,b){return parseInt(a['日付'].replace(/-/g,''))-parseInt(b['日付'].replace(/-/g,''))})
//    Array.prototype.push.apply(元帳,元帳明細一覧)
    元帳明細一覧.forEach(function(一件){
      if (科目区分表[一件['科目区分']]!=null){
        元帳.push(一件)
      }
    })
    }
Logger.log(元帳)

  元帳.forEach(function(一件){
      一件['順序']=科目順序表[一件['科目区分']].toString()+一件['日付'].replace(/-/g,'').toString()
      一件['日付']= Utilities.formatDate(new Date(一件['日付']),'JST','M月d日')
      一件['予算']=0
      一件['事業名']=科目区分表[一件['科目区分']]
      if (一件['事業名'].indexOf(':')>=0){
        let 部分配列=一件['事業名'].split(':')
        if (部分配列.length==2){
          一件['事業名']=部分配列[1].toString()
          一件['項目名']=部分配列[0].toString()
        } else if (部分配列.length>=3){
          一件['事業名']=部分配列[1].toString()
          一件['項目名']=部分配列[0].toString()
          if (一件['科目区分'].indexOf('収益')==0){//(部分配列.length==5){
            一件['項目名']=一件['事業名']//+一件['項目名']
            一件['事業名']='収入の部'
            一件['予算']=予算表[一件['科目区分']]
//            一件['予算']=部分配列[4].toString()
          }  
        } else {
          一件['事業名']=''
          一件['項目名']=''
        }
      } else {
        一件['項目名']=一件['事業名']//+一件['項目名']
        一件['事業名']='収入の部'
        一件['予算']=予算表[一件['科目区分']]
        一件['内訳']=''
      }
        let 数量単価2=''
        if (一件['数量']!='' || 一件['部数']!='' || 一件['単価']!=''){
          if (一件['摘要']!=''){一件['摘要']=一件['摘要']+'　'}
          if (一件['数量']!=''){
            let 分割=一件['数量'].split('.')
            if (分割.length>=2){
              一件['摘要']=一件['摘要']+分割[0].toString()+一件['単位'].toString()
              数量単価2=数量単価2+分割[1].toString()+一件['単位'].toString()
            } else {一件['摘要']=一件['摘要']+一件['数量'].toString()+一件['単位'].toString()}
          }
          if (一件['数量']!='' && 一件['部数']!=''){一件['摘要']=一件['摘要']+'×'}
          if (一件['部数']!=''){一件['摘要']=一件['摘要']+一件['部数'].toString()+一件['部単位'].toString()}
          if ((一件['数量']!='' || 一件['部数']!='') && 一件['単価']!=''){一件['摘要']=一件['摘要']+'×'}
          if (一件['単価']!=''){
            let 分割=一件['単価'].split('.')
            if (分割.length>=2){
              一件['摘要']=一件['摘要']+'@'+分割[0].toString()
              数量単価2=数量単価2+'@'+分割[1].toString()
            } else {一件['摘要']=一件['摘要']+'@'+一件['単価'].toString()}
          }
          if (数量単価2!=''){一件['摘要']=一件['摘要']+','+数量単価2}
        }
  })

  元帳.sort(function(a,b){return parseInt(a['順序'].replace(/-/g,''))-parseInt(b['順序'].replace(/-/g,''))})

Logger.log(元帳)
//Logger.log(集計表)
//Logger.log(期末残高)

  let 行数チェック=収支一覧表1頁目行数
  let 事業名=''
  let 行数=0
  let 頁合計=0
  let 総合計=0
  let 総合計内訳=''
  let 集計=0
  let 小計='合　　　計'
  収支一覧表.push({'頁':'1','領収書':'','日付':'','内訳':'','事業名':'【収入の部】','項目名':'','金額':'(単位:円)'})
  収支一覧表.push({'頁':'1','領収書':'','日付':'','内訳':'項　目','事業名':'','項目名':'予算額','金額':'入金額'})
  元帳.forEach(function(一件){
    let 収益=(一件['科目区分'].indexOf('収益')==0)
    let 範囲=parseInt(一件['科目区分'].replace('収益','').replace('費用',''))
    if (parseInt(一件['金額'])!=0 && ((収益==true && 範囲>=1 && 範囲<=9)||(収益==false && 範囲>=1 && 範囲<=100))){
      if (事業名!=一件['事業名']){
        if (事業名!=''){
          if (小計=='合　　　計'){収支一覧表.push({'頁':頁.toString(),'領収書':'','日付':'','内訳':'','事業名':事業名,'項目名':小計,'金額':集計.toString()})}
          小計='小　　　計'
          if (事業名!='収入の部'){
            頁合計=頁合計+集計
            総合計=総合計+集計
            if (行数チェック<行数+1){
              収支一覧表.push({'頁':頁.toString(),'領収書':'','日付':'','内訳':'','事業名':'合計 ('+頁.toString()+')','項目名':'','金額':頁合計.toString()})
              総合計内訳=総合計内訳+'+'+'('+頁.toString()+')'
              頁=頁+1
              頁合計=0
              行数=0
              行数チェック=収支一覧表行数
              収支一覧表.push({'頁':頁.toString(),'領収書':'','日付':'','内訳':'','事業名':'【支出の部】'+'(その '+頁.toString()+')','項目名':'','金額':'(単位:円)'})
              収支一覧表.push({'頁':頁.toString(),'領収書':'領収書№','日付':'日　付','内訳':'内　訳','事業名':'事　業','項目名':'項　目','金額':'支出額'})
            }
          } else {
              収支一覧表.push({'頁':'1','領収書':'','日付':'','内訳':'','事業名':'【支出の部】'+'(その 1)','項目名':'','金額':'(単位:円)'})
              収支一覧表.push({'頁':'1','領収書':'領収書№','日付':'日　付','内訳':'内　訳','事業名':'事　業','項目名':'項　目','金額':'支出額'})
          }
        }  
        事業名=一件['事業名']
        集計=0
      }
      集計=集計+一件['金額']
      行数=行数+1
      収支一覧表.push({'頁':頁.toString(),'領収書':一件['row'].toString(),'日付':一件['日付'],'内訳':一件['摘要'],'事業名':一件['事業名'],'項目名':一件['項目名'],'金額':一件['金額'].toString(),'予算':一件['予算'].toString()})
    }
  })
  if (事業名!=''){
    if (小計=='合計'){収支一覧表.push({'頁':頁.toString(),'領収書':'','日付':'','内訳':'','事業名':事業名,'項目名':小計,'金額':集計.toString()})}
    総合計内訳=総合計内訳+'+'+'('+頁.toString()+')'
    頁合計=頁合計+集計
    総合計=総合計+集計
    収支一覧表.push({'頁':頁.toString(),'領収書':'','日付':'','内訳':'','事業名':'','項目名':'合　　　計 ('+頁.toString()+')','金額':頁合計.toString()})
    if (頁>1){
    収支一覧表.push({'頁':頁.toString(),'領収書':'','日付':'','内訳':'','事業名':'','項目名':'総　合　計 '+総合計内訳.slice(1),'金額':総合計.toString()})
    }
  }
//Logger.log(勘定科目一覧)
Logger.log(収支一覧表)
//Logger.log(集計表)
//Logger.log(事業明細行数)
  let ページ = CopyofEasy4Anyone.HTML名('高知市収支一覧表')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.収支一覧表=JSON.stringify(収支一覧表) //数はtoString()要
  return ページ.evaluate().setTitle('収支一覧表')
}

function 支出項目内訳簿(){
  let 頁=0
  let 勘定科目一覧 = []
  let 元帳 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'勘定科目名':['NOTin','','【活動費】','【運営費】'],'科目区分':['NOTin','資本1','資本'+資本行数,'資産1','資産2','資産3','資産4','資産5','資産6','資産7','資産8','資産9','資産10','資産11','資産12','資産13','負債1','負債2','負債3','負債4','負債5','収益1','収益2','収益3','収益4','収益5','収益6','収益7','収益8','収益9','収益10','収益11','収益12','収益13','収益14','収益15','収益16']}).result()
  }
  let 科目区分表={}
  let 事業区分表={}
  let 科目事業区分表={}
  勘定科目一覧.forEach(function(一件){
    if (一件['勘定科目名'].indexOf(':')>=0){
      let 部分配列=一件['勘定科目名'].split(':')
      科目区分表[部分配列[0].toString()]=部分配列[0].toString()
      事業区分表[部分配列[1].toString()]=部分配列[1].toString()
      科目事業区分表[部分配列[0].toString()+':'+部分配列[1].toString()]=一件['科目区分']
    }  
  })

  let 記憶事業名=''
  for(let 勘定 in 科目区分表){
  let 元帳一覧=[]
  let 残高=0
  for(let 事業 in 事業区分表){
   if (科目事業区分表[勘定+':'+事業]!=null){
    let 科目=科目事業区分表[勘定+':'+事業]
//Logger.log(科目)
    let 勘定科目 = 勘定
    let 事業名 = 事業
    let 元帳明細一覧=[]
    let 元帳明細一覧2=[]
    if (仕訳情報!=null){
      CopyofEasy4Anyone.Addrow=true
      元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'借方科目区分':['==',科目]}).result()
      元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'貸方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'貸方科目区分':['==',科目]}).result()
      元帳明細一覧2.forEach(function(一件){一件['金額']=parseInt(一件['金額'])*(-1)})
      Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
      元帳明細一覧.sort(function(a,b){return parseInt(a['日付'].replace(/-/g,''))-parseInt(b['日付'].replace(/-/g,''))})
      元帳明細一覧.forEach(function(一件){一件['勘定科目']=勘定科目;一件['事業名']=事業名;})
      Array.prototype.push.apply(元帳一覧,元帳明細一覧)
    }
   }}  
    let 小計=0
    let 行数=999
    元帳一覧.forEach(function(一件){
      if (一件['日付']!=null && 一件['日付']!='' && parseInt(一件['金額'])!=0){
        一件['日付']= Utilities.formatDate(new Date(一件['日付']),'JST','M月d日')
        if (行数==999){記憶事業名=一件['事業名']}
        行数=行数+1
        if (記憶事業名!=一件['事業名']){
          行数=行数+1
          元帳.push({"頁":頁.toString(),"勘定科目":一件['勘定科目'],"領収書":"小計","日付":"","事業名":記憶事業名,"金額":小計.toString(),"摘要":""})
          小計=0
          記憶事業名=一件['事業名']
        }
        小計=小計+parseInt(一件['金額'])
        if (行数>元帳一頁行数){
          頁=頁+1
          行数=1 
          元帳.push({"頁":頁.toString(),"勘定科目":一件['勘定科目'],"領収書":"領収書№","日付":"日付","事業名":"事業名","金額":"金額(円)","摘要":"内訳"})
        }
        残高=残高+一件['金額']

        if (一件['数量']!='' || 一件['部数']!='' || 一件['単価']!=''){
          if (一件['摘要']!=''){一件['摘要']=一件['摘要']+'　'}
          if (一件['数量']!=''){一件['摘要']=一件['摘要']+一件['数量'].toString()+一件['単位'].toString()}
          if (一件['数量']!='' && 一件['部数']!=''){一件['摘要']=一件['摘要']+'×'}
          if (一件['部数']!=''){一件['摘要']=一件['摘要']+一件['部数'].toString()+一件['部単位'].toString()}
          if ((一件['数量']!='' || 一件['部数']!='') && 一件['単価']!=''){一件['摘要']=一件['摘要']+'×'}
          if (一件['単価']!=''){一件['摘要']=一件['摘要']+'@'+一件['単価'].toString()}
        }

        元帳.push({"頁":頁.toString(),"勘定科目":一件['勘定科目'],"領収書":一件['row'].toString(),"日付":一件['日付'],"事業名":一件['事業名'],"金額":一件['金額'].toString(),"摘要":一件['摘要']})
      }
    })
    if (元帳一覧.length>0){
      元帳.push({"頁":頁.toString(),"勘定科目":勘定,"領収書":"小計","日付":"","事業名":記憶事業名,"金額":小計.toString(),"摘要":""})
      元帳.push({"頁":頁.toString(),"勘定科目":勘定,"領収書":"合計","日付":"","事業名":"","金額":残高.toString(),"摘要":""})
    }  
  }
Logger.log(元帳)
  let ページ = CopyofEasy4Anyone.HTML名('高知市支出項目内訳簿')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.元帳=JSON.stringify(元帳) //数はtoString()要
  return ページ.evaluate().setTitle('支出項目内訳簿')
}

function 自主財源収支一覧表(){
  let 勘定科目一覧 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'科目区分':['!=','資本'+資本行数],'勘定科目名':['!=','']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  let 借方集計表={}
  let 貸方集計表={}
  let 期末残高表={}
  let 勘定科目表={}
  勘定科目一覧.forEach(function(一件){
    勘定科目表[一件['勘定科目名']]=一件['科目区分']
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    期首残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    借方集計表[一件['科目区分']]=0
    貸方集計表[一件['科目区分']]=0
    期末残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    if (一件['科目区分'].indexOf('費用')>=0){期首残高表[一件['科目区分']]=0;期末残高表[一件['科目区分']]=0;}  
  })

  let 元帳明細一覧=[]
  if (仕訳情報!=null){
        元帳明細一覧 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).result()
  }
  元帳明細一覧.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}
        借方集計表[一件['借方科目区分']]=parseInt(借方集計表[一件['借方科目区分']])+parseInt(一件['金額'])
        期末残高表[一件['借方科目区分']]=parseInt(期末残高表[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        貸方集計表[一件['貸方科目区分']]=parseInt(貸方集計表[一件['貸方科目区分']])+parseInt(一件['金額'])
        期末残高表[一件['貸方科目区分']]=parseInt(期末残高表[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })

  let 収入の部 = []
  let 支出の部 = []
  let 収支一覧 = []
  let 合計=0
  let 金額=0
  収入の部.push({'項目名':'【収入の部】','金額':'','内訳':'(単位:円)'})
  収入の部.push({'項目名':'項目','金額':'金額','内訳':'内訳'})
  金額=期首残高表['資産1']-期首残高表['負債1']
  合計=合計+金額
  収入の部.push({'項目名':'前年度繰越金','金額':金額.toString(),'内訳':''})
  for(let i=11;i<=16;i++){
    if (期末残高表['収益'+i]>0){
      収入の部.push({'項目名':科目区分表['収益'+i],'金額':期末残高表['収益'+i].toString(),'内訳':''})
      合計=合計+期末残高表['収益'+i]
    }
  }  
  収入の部.push({'項目名':'合計','金額':合計.toString(),'内訳':''})

Logger.log(収入の部)

  合計=0
  支出の部.push({'事業名':'【支出の部】','明細数':'','内容':'','金額':'','内訳':'(単位:円)'})
  支出の部.push({'事業名':'事業名','明細数':'','内容':'内容','金額':'金額','内訳':'内訳'})

  if (仕訳情報!=null){
    let 自主財源科目=['【活動費】','【運営費】']
    自主財源科目.forEach(function(科目){
      let 科目区分=勘定科目表[科目]
//Logger.log(科目区分+' '+科目)      
      let 元帳明細一覧=[]
      let 元帳明細一覧2=[]
      let 小計=0
      let 金額配列=[]
      let 内訳配列=[]
      let 回数配列=[]
      CopyofEasy4Anyone.Addrow=true
      元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'借方科目区分':['==',科目区分]}).result()
      元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'貸方科目区分',alias:'科目区分'},'金額','数量','単位','部数','部単位','単価']).where({'貸方科目区分':['==',科目区分]}).result()
      元帳明細一覧2.forEach(function(一件){一件['金額']=parseInt(一件['金額'])*(-1)})
      Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
      元帳明細一覧.sort(function(a,b){return parseInt(a['日付'].replace(/-/g,''))-parseInt(b['日付'].replace(/-/g,''))})
//Logger.log(元帳明細一覧)
      元帳明細一覧.forEach(function(一件){
        if (一件['金額']!=0){
          let 内訳='',内容='',一件金額=0
          if (一件['摘要'].indexOf(':')>=0){
            let 部分配列=一件['摘要'].split(':')
            内容=部分配列[0].toString()
            内訳=部分配列[1].toString()
          } else {内容=一件['摘要'];内訳='';}
          一件金額=一件['金額']
          if (内容==''){内容='ナシ'}
          if (金額配列[内容]==null){金額配列[内容]=一件金額}else{金額配列[内容]=金額配列[内容]+一件金額}
          if (回数配列[内容]==null){回数配列[内容]=1}else{回数配列[内容]=回数配列[内容]+1}
          if (内訳配列[内容]==null || 内訳配列[内容]==''){内訳配列[内容]=内訳}
        }
      })  
      let 明細数=Object.keys(金額配列).length + 1
      for(var 内容 in 金額配列){
        let 書込内容=内容
        if (書込内容=='ナシ'){書込内容=''}
        let 他回数=''
        if (回数配列[内容]>1) {他回数=' 他'+(回数配列[内容]-1).toString()+'件'}
        支出の部.push({'事業名':科目,'明細数':明細数.toString(),'内容':書込内容,'金額':金額配列[内容].toString(),'内訳':内訳配列[内容]+他回数})
        小計=小計+金額配列[内容]
      }  
      支出の部.push({'事業名':科目,'明細数':明細数.toString(),'内容':'小計','金額':小計.toString(),'内訳':''})
      合計=合計+小計
    })  
  } 
  支出の部.push({'事業名':'合計','明細数':'','内容':'','金額':合計.toString(),'内訳':''})
   
Logger.log(支出の部)

  収入合計=0
  支出合計=0
  収支一覧.push({'日付':'【収支一覧】','項目':'','収入金額':'','支出金額':'','内訳':'(単位:円)'})
  収支一覧.push({'日付':'日付','項目':'項目','収入金額':'収入金額','支出金額':'支出金額','内訳':'内訳'})
  金額=期首残高表['資産1']-期首残高表['負債1']
  収支一覧.push({'日付':'','項目':'前年度繰越金','収入金額':金額.toString(),'支出金額':'','内訳':''})
  収入合計=金額

    let 元帳=[]
    if (仕訳情報!=null){
    let 自主財源科目=['【活動費】','【運営費】']
    自主財源科目.forEach(function(科目){
      let 科目区分=勘定科目表[科目]
//Logger.log(科目区分+' '+科目)      
      let 元帳明細一覧=[]
      let 元帳明細一覧2=[]
      CopyofEasy4Anyone.Addrow=true
      元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},{col:'金額',alias:'支出金額'},'数量','単位','部数','部単位','単価']).where({'借方科目区分':['==',科目区分]}).result()
      元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'貸方科目区分',alias:'科目区分'},{col:'金額',alias:'支出金額'},'数量','単位','部数','部単位','単価']).where({'貸方科目区分':['==',科目区分]}).result()
      元帳明細一覧2.forEach(function(一件){一件['支出金額']=parseInt(一件['支出金額'])*(-1)})
      Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
      元帳明細一覧.forEach(function(一件){一件['収入金額']=0})
      Array.prototype.push.apply(元帳,元帳明細一覧)
    })

      let 元帳明細一覧=[]
      let 元帳明細一覧2=[]
      CopyofEasy4Anyone.Addrow=true
      元帳明細一覧 = 仕訳情報.select(['row','日付','摘要',{col:'貸方科目区分',alias:'科目区分'},{col:'金額',alias:'収入金額'},'数量','単位','部数','部単位','単価']).where({'貸方科目区分':['in','収益11','収益12','収益13','収益14','収益15','収益16']}).result()
      元帳明細一覧2 = 仕訳情報.select(['row','日付','摘要',{col:'借方科目区分',alias:'科目区分'},{col:'金額',alias:'収入金額'},'数量','単位','部数','部単位','単価']).where({'借方科目区分':['in','収益11','収益12','収益13','収益14','収益15','収益16']}).result()
      元帳明細一覧2.forEach(function(一件){一件['収入金額']=parseInt(一件['収入金額'])*(-1)})
      Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
      元帳明細一覧.forEach(function(一件){一件['支出金額']=0})
      Array.prototype.push.apply(元帳,元帳明細一覧)


    元帳.sort(function(a,b){return parseInt(a['日付'].replace(/-/g,''))-parseInt(b['日付'].replace(/-/g,''))})
    元帳.forEach(function(一件){
      if (一件['日付']!=null && 一件['日付']!='' && parseInt(一件['収入金額'])+parseInt(一件['支出金額'])!=0){
        収支一覧.push({'日付':Utilities.formatDate(new Date(一件['日付']),'JST','M月d日'),'項目':科目区分表[一件['科目区分']],'収入金額':一件['収入金額'].toString(),'支出金額':一件['支出金額'].toString(),'内訳':一件['摘要']})
        収入合計=収入合計+一件['収入金額']
        支出合計=支出合計+一件['支出金額']
      }  
    })  
  } 
  収支一覧.push({'日付':'合計','項目':'','収入金額':収入合計.toString(),'支出金額':支出合計.toString(),'内訳':(収入合計-支出合計).toString()})

Logger.log(収支一覧)


  let ページ = CopyofEasy4Anyone.HTML名('高知市自主財源収支一覧表')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.収入の部=JSON.stringify(収入の部) //数はtoString()要
  ページ.支出の部=JSON.stringify(支出の部) //数はtoString()要
  ページ.収支一覧=JSON.stringify(収支一覧) //数はtoString()要
  ページ.総ページ数 = 1
  return ページ.evaluate().setTitle('自主財源収支一覧表')
  
}

function 備品管理台帳(){
  let 頁=1
  let 勘定科目一覧 = []
  let 備品配列 = []
  let 備品管理台帳 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名']).where({'科目区分':['in','資産13']}).result()
  }

  勘定科目一覧.forEach(function(一件){
    備品配列=一件['勘定科目名'].replace('備品-','').split('/')
  })

Logger.log(備品配列)


  let 行数チェック=備品管理台帳行数
  let 行数=0
  備品管理台帳.push({'頁':'1','備品番号':'備品№','購入年月日':'購入年月日','備品名':'備品名(メーカー名/型番号等)','金額':'金額（円）','保管場所':'保管場所','廃棄年月日':'廃棄年月日'})
  備品配列.forEach(function(一件){
    let 部分配列=一件.split(',')
    if (部分配列[0]!='' && 部分配列[0]!=null){
      行数=行数+1
      if (行数チェック<行数){
        頁=頁+1
        行数=0
        備品管理台帳.push({'頁':頁.toString(),'備品番号':'備品№','購入年月日':'購入年月日','備品名':'備品名（メーカー名/型番号等）','金額':'金額（円）','保管場所':'保管場所','廃棄年月日':'廃棄年月日'})
      }
      let 廃棄年月日=''
      if (部分配列[5]!='' && 部分配列[5]!=null){廃棄年月日=和暦(new Date(部分配列[5].toString()))}
      備品管理台帳.push({'頁':頁.toString(),'備品番号':部分配列[0].toString(),'購入年月日':和暦(new Date(部分配列[1].toString())),'備品名':部分配列[2].toString(),'金額':部分配列[3].toString(),'保管場所':部分配列[4].toString(),'廃棄年月日':廃棄年月日})
    }  
  })
//Logger.log(勘定科目一覧)
Logger.log(備品管理台帳)
  let ページ = CopyofEasy4Anyone.HTML名('高知市備品管理台帳')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.備品管理台帳=JSON.stringify(備品管理台帳) //数はtoString()要
  return ページ.evaluate().setTitle('備品管理台帳')
}

function 町内会決算書(){
  let 頁=1
  let 勘定科目一覧 = []
  let 一般会計決算書 = []
  let 特別会計決算書 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'科目区分':['!=','資本'+資本行数],'勘定科目名':['!=','']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  let 予算表={}
  let 期末残高表={},期末残高表1={},期末残高表2={},期末残高表3={},期末残高表4={},期末残高表5={}
  let 一般会計科目=''
  let 特別会計科目=[]
  let 特別会計科目検索=['in']

  勘定科目一覧.forEach(function(一件){
    if (一般会計科目=='') {if (一件['勘定科目名'].indexOf('一般会計')>=0){一般会計科目=一件['科目区分']}}
    if (一件['勘定科目名'].indexOf('特別会計')>=0){特別会計科目.push(一件['科目区分']);特別会計科目検索.push(一件['科目区分'])}
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    期首残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    予算表[一件['科目区分']]=0
    期末残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    if (一件['科目区分'].indexOf('費用')>=0){期首残高表[一件['科目区分']]=0;期末残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
    if (一件['科目区分'].indexOf('収益')>=0){期首残高表[一件['科目区分']]=0;期末残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
  })
  期末残高表1=JSON.parse(JSON.stringify(期末残高表))
  期末残高表2=JSON.parse(JSON.stringify(期末残高表))
  期末残高表3=JSON.parse(JSON.stringify(期末残高表))
  期末残高表4=JSON.parse(JSON.stringify(期末残高表))
  期末残高表5=JSON.parse(JSON.stringify(期末残高表))
  for(let i=特別会計科目.length;i<=5;i++){
    特別会計科目.push(''); 科目区分表['']=''; 期首残高表['']=''; 期末残高表1['']=''; 期末残高表2['']=''; 期末残高表3['']=''; 期末残高表4['']=''; 期末残高表5['']='';
  }

  let 元帳明細一覧=[]
  let 元帳明細一覧2=[]
  if (仕訳情報!=null){
    元帳明細一覧 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'借方科目区分':['==',一般会計科目]}).result()
    元帳明細一覧2 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'貸方科目区分':['==',一般会計科目]}).result()
    Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
  }
  元帳明細一覧.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}
        期末残高表[一件['借方科目区分']]=parseInt(期末残高表[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        期末残高表[一件['貸方科目区分']]=parseInt(期末残高表[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })

  CopyofEasy4Anyone.set設定('前年度実績',JSON.stringify(期末残高表))

  let 収入予算合計=0,収入決算合計=0,支出予算合計=0,支出決算合計=0
  let 収入一覧=[],支出一覧=[]
  収入一覧.push(一般会計科目)
  for(let 科目 in 期末残高表){
    if (予算表[科目]>0 || 期末残高表[科目]>0){
      if (科目.indexOf('収益')==0){収入一覧.push(科目);収入予算合計=収入予算合計+予算表[科目];収入決算合計=収入決算合計+期末残高表[科目]}
      if (科目.indexOf('費用')==0){支出一覧.push(科目);支出予算合計=支出予算合計+予算表[科目];支出決算合計=支出決算合計+期末残高表[科目]}
    }
  }

  let 行数=Math.max(収入一覧.length,支出一覧.length)
  let 前期繰越=期首残高表[一般会計科目],次期繰越=期末残高表[一般会計科目]
  一般会計決算書.push({"頁":頁.toString(),"収入科目":"収入の部","収入予算額":"","収入決算額":"","収入増減":"","支出科目":"支出の部","支出予算額":"","支出決算額":"","支出増減":""})
  一般会計決算書.push({"頁":頁.toString(),"収入科目":"科目","収入予算額":"予算額","収入決算額":"決算額","収入増減":"増減","支出科目":"科目","支出予算額":"予算額","支出決算額":"決算額","支出増減":"増減"})

  for(let i=0;i<行数;i++){
    let 収入科目='',収入予算額='',収入決算額='',収入増減='',支出科目='',支出予算額='',支出決算額='',支出増減=''
    if (i<収入一覧.length){
      収入科目 = 科目区分表[収入一覧[i]]
      if (収入科目.indexOf(':')>=0){
        let 部分配列=収入科目.split(':')
        収入科目=部分配列[0].toString()
      }
      if (i==0){
        収入科目='前期繰越'
        収入予算額=前期繰越
        収入決算額=前期繰越
        収入増減=''
      } else {
        収入予算額=予算表[収入一覧[i]].toString()
        収入決算額=期末残高表[収入一覧[i]].toString()
        収入増減=(期末残高表[収入一覧[i]]-予算表[収入一覧[i]]).toString()
      } 
    }
    if (i<支出一覧.length){
      支出科目 = 科目区分表[支出一覧[i]]
      if (支出科目.indexOf(':')>=0){
        let 部分配列=支出科目.split(':')
        支出科目=部分配列[0].toString()
      }  
      支出予算額=予算表[支出一覧[i]].toString()
      支出決算額=期末残高表[支出一覧[i]].toString()
      支出増減=(期末残高表[支出一覧[i]]-予算表[支出一覧[i]]).toString()
    }
    一般会計決算書.push({"頁":頁.toString(),"収入科目":収入科目,"収入予算額":収入予算額,"収入決算額":収入決算額,"収入増減":収入増減,"支出科目":支出科目,"支出予算額":支出予算額,"支出決算額":支出決算額,"支出増減":支出増減})
  }

  一般会計決算書.push({"頁":頁.toString(),"収入科目":"","収入予算額":"","収入決算額":"","収入増減":"","支出科目":"支出","支出予算額":支出予算合計.toString(),"支出決算額":支出決算合計.toString(),"支出増減":(支出決算合計-支出予算合計).toString()})
  一般会計決算書.push({"頁":頁.toString(),"収入科目":"収入","収入予算額":収入予算合計.toString(),"収入決算額":収入決算合計.toString(),"収入増減":(収入決算合計-収入予算合計).toString(),"支出科目":"次期繰越","支出予算額":(前期繰越+収入予算合計-支出予算合計).toString(),"支出決算額":次期繰越.toString(),"支出増減":(支出予算合計+次期繰越-前期繰越-収入予算合計).toString()})
  一般会計決算書.push({"頁":頁.toString(),"収入科目":"収入合計","収入予算額":(前期繰越+収入予算合計).toString(),"収入決算額":(前期繰越+収入決算合計).toString(),"収入増減":"","支出科目":"支出合計","支出予算額":(前期繰越+収入予算合計).toString(),"支出決算額":(支出決算合計+次期繰越).toString(),"支出増減":""})

//Logger.log(一般会計決算書)

  
  元帳明細一覧=[]
  元帳明細一覧2=[]
  if (仕訳情報!=null){
    元帳明細一覧 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'借方科目区分':特別会計科目検索}).result()
    元帳明細一覧2 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'貸方科目区分':特別会計科目検索}).result()
  }
  元帳明細一覧.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}
        let 番号=特別会計科目検索.indexOf(一件['借方科目区分'])
        eval('期末残高表'+番号)[一件['借方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        eval('期末残高表'+番号)[一件['貸方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })
  元帳明細一覧2.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}

        let 番号=特別会計科目検索.indexOf(一件['貸方科目区分'])
        eval('期末残高表'+番号)[一件['借方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        eval('期末残高表'+番号)[一件['貸方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })

  Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
//Logger.log(元帳明細一覧)
//Logger.log(期末残高表1)
//Logger.log(期末残高表2)
//Logger.log(期末残高表3)
//Logger.log(期末残高表4)
//Logger.log(期末残高表5)

  収入決算合計=[0,0,0,0,0],支出決算合計=[0,0,0,0,0]
  収入一覧=[],支出一覧=[]
  収入一覧.push('預金')
  for(let 科目 in 期末残高表){
    if (期末残高表1[科目]>0 || 期末残高表2[科目]>0 || 期末残高表3[科目]>0 || 期末残高表4[科目]>0 || 期末残高表5[科目]>0){
      if (科目.indexOf('収益')==0){
        収入一覧.push(科目)
        収入決算合計[0]=収入決算合計[0]+期末残高表1[科目]
        収入決算合計[1]=収入決算合計[1]+期末残高表2[科目]
        収入決算合計[2]=収入決算合計[2]+期末残高表3[科目]
        収入決算合計[3]=収入決算合計[3]+期末残高表4[科目]
        収入決算合計[4]=収入決算合計[4]+期末残高表5[科目]
      }
      if (科目.indexOf('費用')==0){
        支出一覧.push(科目)
        支出決算合計[0]=支出決算合計[0]+期末残高表1[科目]
        支出決算合計[1]=支出決算合計[1]+期末残高表2[科目]
        支出決算合計[2]=支出決算合計[2]+期末残高表3[科目]
        支出決算合計[3]=支出決算合計[3]+期末残高表4[科目]
        支出決算合計[4]=支出決算合計[4]+期末残高表5[科目]
      }
    }
  }

  行数=Math.max(収入一覧.length,支出一覧.length)
  前期繰越=[期首残高表[特別会計科目[0]],期首残高表[特別会計科目[1]],期首残高表[特別会計科目[2]],期首残高表[特別会計科目[3]],期首残高表[特別会計科目[4]]]
  次期繰越=[期末残高表1[特別会計科目[0]],期末残高表2[特別会計科目[1]],期末残高表3[特別会計科目[2]],期末残高表4[特別会計科目[3]],期末残高表5[特別会計科目[4]]]
  特別会計決算書.push({"頁":頁.toString(),"収入科目":"収入の部","収入決算額1":"","収入決算額2":"","収入決算額3":"","収入決算額4":"","収入決算額5":"","支出科目":"支出の部","支出決算額1":"","支出決算額2":"","支出決算額3":"","支出決算額4":"","支出決算額5":""})
  特別会計決算書.push({"頁":頁.toString(),"収入科目":"科目","収入決算額1":科目区分表[特別会計科目[0]].slice(0,科目区分表[特別会計科目[0]].indexOf(':')),"収入決算額2":科目区分表[特別会計科目[1]].slice(0,科目区分表[特別会計科目[1]].indexOf(':')),"収入決算額3":科目区分表[特別会計科目[2]].slice(0,科目区分表[特別会計科目[2]].indexOf(':')),"収入決算額4":科目区分表[特別会計科目[3]].slice(0,科目区分表[特別会計科目[3]].indexOf(':')),"収入決算額5":科目区分表[特別会計科目[4]].slice(0,科目区分表[特別会計科目[4]].indexOf(':')),"支出科目":"科目","支出決算額1":科目区分表[特別会計科目[0]].slice(0,科目区分表[特別会計科目[0]].indexOf(':')),"支出決算額2":科目区分表[特別会計科目[1]].slice(0,科目区分表[特別会計科目[1]].indexOf(':')),"支出決算額3":科目区分表[特別会計科目[2]].slice(0,科目区分表[特別会計科目[2]].indexOf(':')),"支出決算額4":科目区分表[特別会計科目[3]].slice(0,科目区分表[特別会計科目[3]].indexOf(':')),"支出決算額5":科目区分表[特別会計科目[4]].slice(0,科目区分表[特別会計科目[4]].indexOf(':'))})

  for(let i=0;i<行数;i++){
    let 収入科目='',収入決算額=['','','','',''],支出科目='',支出決算額=['','','','','']
    if (i<収入一覧.length){
      if (i==0){
        収入科目='前期繰越'
        収入決算額=[前期繰越[0].toString(),前期繰越[1].toString(),前期繰越[2].toString(),前期繰越[3].toString(),前期繰越[4].toString()]
      } else {
        収入科目 = 科目区分表[収入一覧[i]]
        if (収入科目.indexOf(':')>=0){
          let 部分配列=収入科目.split(':')
          収入科目=部分配列[0].toString()
        }
        収入決算額=[期末残高表1[収入一覧[i]].toString(),期末残高表2[収入一覧[i]].toString(),期末残高表3[収入一覧[i]].toString(),期末残高表4[収入一覧[i]].toString(),期末残高表5[収入一覧[i]].toString()]
      } 
    }
    if (i<支出一覧.length){
      支出科目 = 科目区分表[支出一覧[i]]
      if (支出科目.indexOf(':')>=0){
        let 部分配列=支出科目.split(':')
        支出科目=部分配列[0].toString()
      }  
      支出決算額=[期末残高表1[支出一覧[i]].toString(),期末残高表2[支出一覧[i]].toString(),期末残高表3[支出一覧[i]].toString(),期末残高表4[支出一覧[i]].toString(),期末残高表5[支出一覧[i]].toString()]
    }
    特別会計決算書.push({"頁":頁.toString(),"収入科目":収入科目,"収入決算額1":収入決算額[0],"収入決算額2":収入決算額[1],"収入決算額3":収入決算額[2],"収入決算額4":収入決算額[3],"収入決算額5":収入決算額[4],"支出科目":支出科目,"支出決算額1":支出決算額[0],"支出決算額2":支出決算額[1],"支出決算額3":支出決算額[2],"支出決算額4":支出決算額[3],"支出決算額5":支出決算額[4]})
  }

  特別会計決算書.push({"頁":頁.toString(),"収入科目":"","収入決算額1":"","収入決算額2":"","収入決算額3":"","収入決算額4":"","収入決算額5":"","支出科目":"支出","支出決算額1":支出決算合計[0].toString(),"支出決算額2":支出決算合計[1].toString(),"支出決算額3":支出決算合計[2].toString(),"支出決算額4":支出決算合計[3].toString(),"支出決算額5":支出決算合計[4].toString()})
  特別会計決算書.push({"頁":頁.toString(),"収入科目":"収入","収入決算額1":収入決算合計[0].toString(),"収入決算額2":収入決算合計[1].toString(),"収入決算額3":収入決算合計[2].toString(),"収入決算額4":収入決算合計[3].toString(),"収入決算額5":収入決算合計[4].toString(),"支出科目":"次期繰越","支出決算額1":次期繰越[0].toString(),"支出決算額2":次期繰越[1].toString(),"支出決算額3":次期繰越[2].toString(),"支出決算額4":次期繰越[3].toString(),"支出決算額5":次期繰越[4].toString()})
  特別会計決算書.push({"頁":頁.toString(),"収入科目":"収入合計","収入決算額1":(前期繰越[0]+収入決算合計[0]).toString(),"収入決算額2":(前期繰越[1]+収入決算合計[1]).toString(),"収入決算額3":(前期繰越[2]+収入決算合計[2]).toString(),"収入決算額4":(前期繰越[3]+収入決算合計[3]).toString(),"収入決算額5":(前期繰越[4]+収入決算合計[4]).toString(),"支出科目":"支出合計","支出決算額1":(支出決算合計[0]+次期繰越[0]).toString(),"支出決算額2":(支出決算合計[1]+次期繰越[1]).toString(),"支出決算額3":(支出決算合計[2]+次期繰越[2]).toString(),"支出決算額4":(支出決算合計[3]+次期繰越[3]).toString(),"支出決算額5":(支出決算合計[4]+次期繰越[4]).toString()})

//Logger.log(特別会計決算書)

  let ページ = CopyofEasy4Anyone.HTML名('町内会決算書')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.一般会計決算書=JSON.stringify(一般会計決算書) //数はtoString()要
  ページ.特別会計決算書=JSON.stringify(特別会計決算書) //数はtoString()要
  return ページ.evaluate().setTitle('町内会決算書')
}

function 町内会予算案(){
  let 期末残高表={}
  期末残高表=JSON.parse(CopyofEasy4Anyone.get設定('前年度実績'))
//Logger.log(期末残高表)
  let 頁=1
  let 勘定科目一覧 = []
  let 財務科目 = []
  let 財務状況 = []
  let 一般会計予算案 = []
  let 一般会計予算案内訳 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'科目区分':['!=','資本'+資本行数],'勘定科目名':['!=','']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  let 予算表={}
//  let 期末残高表={}
  let 一般会計科目=''

  勘定科目一覧.forEach(function(一件){
    if (一般会計科目=='') {if (一件['勘定科目名'].indexOf('一般会計')>=0){一般会計科目=一件['科目区分']}}
    if (一件['勘定科目名'].indexOf('一般会計')>=0 || 一件['勘定科目名'].indexOf('特別会計')>=0){財務科目.push(一件['科目区分'])}
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    期首残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    予算表[一件['科目区分']]=0
    if (一件['科目区分'].indexOf('費用')>=0){期首残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
    if (一件['科目区分'].indexOf('収益')>=0){期首残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
  })

  財務状況.push({"頁":頁.toString(),"勘定科目":"科目","銀行支店":"相手先","預金種別":"預金種別","摘要":"摘要","表示箇所":"表示箇所","前期繰越額":"金額"})
  財務科目.forEach(function(科目){
      if ((科目区分表[科目]+' ').indexOf(':')>=0){
        let 部分配列=科目区分表[科目].split(':')
        財務状況.push({"頁":頁.toString(),"勘定科目":部分配列[0].toString(),"銀行支店":部分配列[1].toString(),"預金種別":部分配列[2].toString(),"摘要":部分配列[3].toString(),"表示箇所":"決算書"+部分配列[3].toString()+"次期繰越","前期繰越額":期首残高表[科目].toString()})
      }
  })
Logger.log(財務状況)

  let 収入予算合計=0,収入決算合計=0,支出予算合計=0,支出決算合計=0
  let 収入一覧=[],支出一覧=[]
  収入一覧.push(一般会計科目)
  for(let 科目 in 期末残高表){
    if (予算表[科目]>0 || 期末残高表[科目]>0){
      if (科目.indexOf('収益')==0){収入一覧.push(科目);収入予算合計=収入予算合計+予算表[科目];収入決算合計=収入決算合計+期末残高表[科目]}
      if (科目.indexOf('費用')==0){支出一覧.push(科目);支出予算合計=支出予算合計+予算表[科目];支出決算合計=支出決算合計+期末残高表[科目]}
    }
  }

  let 行数=Math.max(収入一覧.length,支出一覧.length)
  let 前期繰越=期首残高表[一般会計科目],次期繰越=期末残高表[一般会計科目]
  一般会計予算案.push({"頁":頁.toString(),"収入科目":"収入の部","収入予算額":"","収入決算額":"","収入増減":"","支出科目":"支出の部","支出予算額":"","支出決算額":"","支出増減":""})
  一般会計予算案.push({"頁":頁.toString(),"収入科目":"科目","収入予算額":"予算額","収入決算額":"決算額","収入増減":"増減","支出科目":"科目","支出予算額":"予算額","支出決算額":"決算額","支出増減":"増減"})
  一般会計予算案内訳.push({"頁":頁.toString(),"収入科目":"収入の部","収入予算額":"","収入内訳":"","支出科目":"支出の部","支出予算額":"","支出内訳":""})
  一般会計予算案内訳.push({"頁":頁.toString(),"収入科目":"科目","収入予算額":"予算額","収入内訳":"内訳","支出科目":"科目","支出予算額":"予算額","支出内訳":"内訳"})

  for(let i=0;i<行数;i++){
    let 収入科目='',収入予算額='',収入決算額='',収入増減='',支出科目='',支出予算額='',支出決算額='',支出増減='',収入内訳='',支出内訳=''
    if (i<収入一覧.length){
      収入科目 = 科目区分表[収入一覧[i]]
      if ((収入科目+' ').indexOf(':')>=0){
        let 部分配列=収入科目.split(':')
        収入科目=部分配列[0].toString()
        収入内訳=部分配列[1].toString()
      }
      if (i==0){
        収入科目='前期繰越'
        収入予算額=前期繰越
        収入決算額=支出決算合計+次期繰越-収入決算合計//前期繰越
        収入増減=''
      } else {
        収入予算額=予算表[収入一覧[i]].toString()
        収入決算額=期末残高表[収入一覧[i]].toString()
        収入増減=(parseInt(予算表[収入一覧[i]])-parseInt(期末残高表[収入一覧[i]])).toString()
      } 
    }
    if (i<支出一覧.length){
      支出科目 = 科目区分表[支出一覧[i]]
      if ((支出科目+' ').indexOf(':')>=0){
        let 部分配列=支出科目.split(':')
        支出科目=部分配列[0].toString()
        支出内訳=部分配列[1].toString()
      }  
      支出予算額=予算表[支出一覧[i]].toString()
      支出決算額=期末残高表[支出一覧[i]].toString()
      支出増減=(parseInt(予算表[支出一覧[i]])-parseInt(期末残高表[支出一覧[i]])).toString()
    }
    一般会計予算案.push({"頁":頁.toString(),"収入科目":収入科目,"収入予算額":収入予算額,"収入決算額":収入決算額,"収入増減":収入増減,"支出科目":支出科目,"支出予算額":支出予算額,"支出決算額":支出決算額,"支出増減":支出増減})
    一般会計予算案内訳.push({"頁":頁.toString(),"収入科目":収入科目,"収入予算額":収入予算額,"収入内訳":収入内訳,"支出科目":支出科目,"支出予算額":支出予算額,"支出内訳":支出内訳})
  }

  一般会計予算案.push({"頁":頁.toString(),"収入科目":"","収入予算額":"","収入決算額":"","収入増減":"","支出科目":"支出","支出予算額":支出予算合計.toString(),"支出決算額":支出決算合計.toString(),"支出増減":(支出予算合計-支出決算合計).toString()})
  一般会計予算案.push({"頁":頁.toString(),"収入科目":"収入","収入予算額":収入予算合計.toString(),"収入決算額":収入決算合計.toString(),"収入増減":(収入予算合計-収入決算合計).toString(),"支出科目":"次期繰越","支出予算額":(前期繰越+収入予算合計-支出予算合計).toString(),"支出決算額":次期繰越.toString(),"支出増減":(前期繰越+収入予算合計-次期繰越-支出予算合計).toString()})
  一般会計予算案.push({"頁":頁.toString(),"収入科目":"収入合計","収入予算額":(前期繰越+収入予算合計).toString(),"収入決算額":(支出決算合計+次期繰越).toString(),"収入増減":"","支出科目":"支出合計","支出予算額":(前期繰越+収入予算合計).toString(),"支出決算額":(支出決算合計+次期繰越).toString(),"支出増減":""})
  一般会計予算案内訳.push({"頁":頁.toString(),"収入科目":"","収入予算額":"","収入内訳":"","支出科目":"支出","支出予算額":支出予算合計.toString(),"支出内訳":""})
  一般会計予算案内訳.push({"頁":頁.toString(),"収入科目":"収入","収入予算額":収入予算合計.toString(),"収入内訳":"","支出科目":"次期繰越","支出予算額":(前期繰越+収入予算合計-支出予算合計).toString(),"支出内訳":""})
  一般会計予算案内訳.push({"頁":頁.toString(),"収入科目":"収入合計","収入予算額":(前期繰越+収入予算合計).toString(),"収入内訳":"","支出科目":"支出合計","支出予算額":(前期繰越+収入予算合計).toString(),"支出内訳":""})

//Logger.log(一般会計予算案)

  let ページ = CopyofEasy4Anyone.HTML名('町内会予算案')
  ページ.メニュー = メニュー作成()
  ページ.会社=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  ページ.年度=和暦(new Date(期首年月日),true)
  ページ.前年=和暦(new Date(CopyofEasy4Anyone.経過日時(new Date(期首年月日),-1,0,0,0,0,0)),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  ページ.第何期=会計期間.substring(0,会計期間.indexOf('期')+1)
  ページ.会計期間='自'+期首年月日+' 至'+期末年月日
  ページ.総ページ数=頁
  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.財務状況=JSON.stringify(財務状況) //数はtoString()要
  ページ.一般会計予算案=JSON.stringify(一般会計予算案) //数はtoString()要
  ページ.一般会計予算案内訳=JSON.stringify(一般会計予算案内訳) //数はtoString()要
  return ページ.evaluate().setTitle('町内会予算案')
}

function 新町内会決算書(){
  let 決算書 = {}
  let 勘定科目一覧 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'科目区分':['!=','資本'+資本行数],'勘定科目名':['!=','']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  let 予算表={}
  let 期末残高表={},期末残高表1={},期末残高表2={},期末残高表3={},期末残高表4={},期末残高表5={}
  let 一般会計科目=''
  let 特別会計科目=[]
  let 特別会計科目検索=['in']

  勘定科目一覧.forEach(function(一件){
    if (一般会計科目=='') {if (一件['勘定科目名'].indexOf('一般会計')>=0){一般会計科目=一件['科目区分']}}
    if (一件['勘定科目名'].indexOf('特別会計')>=0){特別会計科目.push(一件['科目区分']);特別会計科目検索.push(一件['科目区分'])}
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    期首残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    予算表[一件['科目区分']]=0
    期末残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    if (一件['科目区分'].indexOf('費用')>=0){期首残高表[一件['科目区分']]=0;期末残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
    if (一件['科目区分'].indexOf('収益')>=0){期首残高表[一件['科目区分']]=0;期末残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
  })
  期末残高表1=JSON.parse(JSON.stringify(期末残高表))
  期末残高表2=JSON.parse(JSON.stringify(期末残高表))
  期末残高表3=JSON.parse(JSON.stringify(期末残高表))
  期末残高表4=JSON.parse(JSON.stringify(期末残高表))
  期末残高表5=JSON.parse(JSON.stringify(期末残高表))
  
  let 元帳明細一覧=[]
  let 元帳明細一覧2=[]
  if (仕訳情報!=null){
    元帳明細一覧 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'借方科目区分':['==',一般会計科目]}).result()
    元帳明細一覧2 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'貸方科目区分':['==',一般会計科目]}).result()
    Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
  }
  元帳明細一覧.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}
        期末残高表[一件['借方科目区分']]=parseInt(期末残高表[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        期末残高表[一件['貸方科目区分']]=parseInt(期末残高表[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })

  CopyofEasy4Anyone.set設定('前年度実績',JSON.stringify(期末残高表))

  let 収入予算合計=0,収入決算合計=0,支出予算合計=0,支出決算合計=0
  let 収入一覧=[],支出一覧=[]
  収入一覧.push(一般会計科目)
  for(let 科目 in 期末残高表){
    if (予算表[科目]>0 || 期末残高表[科目]>0){
      if (科目.indexOf('収益')==0){収入一覧.push(科目);収入予算合計=収入予算合計+予算表[科目];収入決算合計=収入決算合計+期末残高表[科目]}
      if (科目.indexOf('費用')==0){支出一覧.push(科目);支出予算合計=支出予算合計+予算表[科目];支出決算合計=支出決算合計+期末残高表[科目]}
    }
  }

  let 行数=Math.max(収入一覧.length,支出一覧.length)
  let 前期繰越=期首残高表[一般会計科目],次期繰越=期末残高表[一般会計科目]

  for(let i=0;i<行数;i++){
    let 収入科目='',収入予算額='',収入決算額='',収入増減='',支出科目='',支出予算額='',支出決算額='',支出増減='',収入内訳='',支出内訳=''
    if (i<収入一覧.length){
      収入科目 = 科目区分表[収入一覧[i]]
      if (収入科目.indexOf(':')>=0){
        let 部分配列=収入科目.split(':')
        収入科目=部分配列[0].toString()
        収入内訳=部分配列[1].toString()
      }
      if (i==0){
        収入科目='前期繰越'
        収入予算額=前期繰越
        収入決算額=前期繰越
        収入増減=''
      } else {
        収入予算額=予算表[収入一覧[i]].toString()
        収入決算額=期末残高表[収入一覧[i]].toString()
        収入増減=(期末残高表[収入一覧[i]]-予算表[収入一覧[i]]).toString()
      } 
    }
    if (i<支出一覧.length){
      支出科目 = 科目区分表[支出一覧[i]]
      if (支出科目.indexOf(':')>=0){
        let 部分配列=支出科目.split(':')
        支出科目=部分配列[0].toString()
        支出内訳=部分配列[1].toString()
      }  
      支出予算額=予算表[支出一覧[i]].toString()
      支出決算額=期末残高表[支出一覧[i]].toString()
      支出増減=(期末残高表[支出一覧[i]]-予算表[支出一覧[i]]).toString()
    }
    決算書["収入"+(i+1)]=収入科目
    決算書["収入予算"+(i+1)]=収入予算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["収入決算"+(i+1)]=収入決算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["収入増減"+(i+1)]=収入増減.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["支出"+(i+1)]=支出科目
    決算書["支出予算"+(i+1)]=支出予算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["支出決算"+(i+1)]=支出決算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["支出増減"+(i+1)]=支出増減.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["収入内訳"+(i+1)]=収入内訳
    決算書["支出内訳"+(i+1)]=支出内訳
  }
  for(let i=行数+1;i<=費用行数;i++){
    if (i<=収益行数){決算書['収入'+i]='';決算書['収入予算1'+i]='';決算書['収入決算'+i]='';決算書['収入増減'+i]='';決算書['収入内訳'+i]='';}
    決算書['支出'+i]='';決算書['支出予算1'+i]='';決算書['支出決算'+i]='';決算書['支出増減'+i]='';決算書['支出内訳'+i]='';
  }
  
  決算書["支出予算計"]=支出予算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["支出決算計"]=支出決算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["支出増減計"]=(支出決算合計-支出予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["収入予算計"]=収入予算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["収入決算計"]=収入決算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["収入増減計"]=(収入決算合計-収入予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["次期繰越予算"]=(前期繰越+収入予算合計-支出予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["次期繰越決算"]=次期繰越.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["次期繰越増減"]=(支出予算合計+次期繰越-前期繰越-収入予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["収入予算合計"]=(前期繰越+収入予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["収入決算合計"]=(前期繰越+収入決算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["収入増減合計"]=""
  決算書["支出予算合計"]=(前期繰越+収入予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["支出決算合計"]=(支出決算合計+次期繰越).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  決算書["支出増減合計"]=""

//Logger.log(一般会計決算書)

  
  元帳明細一覧=[]
  元帳明細一覧2=[]
  if (仕訳情報!=null){
    元帳明細一覧 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'借方科目区分':特別会計科目検索}).result()
    元帳明細一覧2 = 仕訳情報.select(['日付','借方科目区分','貸方科目区分','金額']).where({'貸方科目区分':特別会計科目検索}).result()
  }
  元帳明細一覧.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}
        let 番号=特別会計科目検索.indexOf(一件['借方科目区分'])
        eval('期末残高表'+番号)[一件['借方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        eval('期末残高表'+番号)[一件['貸方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })
  元帳明細一覧2.forEach(function(一件){
    if (一件['日付']!=null && 一件['日付']!=''){
      if (一件['金額']!=''){
        let 貸借=1
        if (一件['借方科目区分'].indexOf('資産')==0){貸借=1}
        if (一件['借方科目区分'].indexOf('負債')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('資本')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('収益')==0){貸借=-1}
        if (一件['借方科目区分'].indexOf('費用')==0){貸借=1}

        let 番号=特別会計科目検索.indexOf(一件['貸方科目区分'])
        eval('期末残高表'+番号)[一件['借方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['借方科目区分']])+(貸借)*parseInt(一件['金額'])

        貸借=1
        if (一件['貸方科目区分'].indexOf('資産')==0){貸借=-1}
        if (一件['貸方科目区分'].indexOf('負債')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('資本')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('収益')==0){貸借=1}
        if (一件['貸方科目区分'].indexOf('費用')==0){貸借=-1}
        eval('期末残高表'+番号)[一件['貸方科目区分']]=parseInt(eval('期末残高表'+番号)[一件['貸方科目区分']])+(貸借)*parseInt(一件['金額'])
      }
    }    
  })

  Array.prototype.push.apply(元帳明細一覧,元帳明細一覧2)
//Logger.log(元帳明細一覧)
//Logger.log(期末残高表1)
//Logger.log(期末残高表2)
//Logger.log(期末残高表3)
//Logger.log(期末残高表4)
//Logger.log(期末残高表5)

  収入決算合計=[0,0,0,0,0],支出決算合計=[0,0,0,0,0]
  収入一覧=[],支出一覧=[]
  収入一覧.push('預金')
  for(let 科目 in 期末残高表){
    if (期末残高表1[科目]>0 || 期末残高表2[科目]>0 || 期末残高表3[科目]>0 || 期末残高表4[科目]>0 || 期末残高表5[科目]>0){
      if (科目.indexOf('収益')==0){
        収入一覧.push(科目)
        収入決算合計[0]=収入決算合計[0]+期末残高表1[科目]
        収入決算合計[1]=収入決算合計[1]+期末残高表2[科目]
        収入決算合計[2]=収入決算合計[2]+期末残高表3[科目]
        収入決算合計[3]=収入決算合計[3]+期末残高表4[科目]
        収入決算合計[4]=収入決算合計[4]+期末残高表5[科目]
      }
      if (科目.indexOf('費用')==0){
        支出一覧.push(科目)
        支出決算合計[0]=支出決算合計[0]+期末残高表1[科目]
        支出決算合計[1]=支出決算合計[1]+期末残高表2[科目]
        支出決算合計[2]=支出決算合計[2]+期末残高表3[科目]
        支出決算合計[3]=支出決算合計[3]+期末残高表4[科目]
        支出決算合計[4]=支出決算合計[4]+期末残高表5[科目]
      }
    }
  }

  行数=Math.max(収入一覧.length,支出一覧.length)
  前期繰越=[期首残高表[特別会計科目[0]]?.toString() ?? "",期首残高表[特別会計科目[1]]?.toString() ?? "",期首残高表[特別会計科目[2]]?.toString() ?? "",期首残高表[特別会計科目[3]]?.toString() ?? "",期首残高表[特別会計科目[4]]?.toString() ?? ""]
  次期繰越=[期末残高表1[特別会計科目[0]]?.toString() ?? "",期末残高表2[特別会計科目[1]]?.toString() ?? "",期末残高表3[特別会計科目[2]]?.toString() ?? "",期末残高表4[特別会計科目[3]]?.toString() ?? "",期末残高表5[特別会計科目[4]]?.toString() ?? ""]

  if (特別会計科目.length>0){
  for(let i=0;i<特別会計科目.length;i++){
        let 部分配列=科目区分表[特別会計科目[i]].split(':')
        決算書["特別会計科目"+(i+1)]=部分配列[0].toString()
        決算書["特別会計科目"+(i+1)+'銀行支店']=部分配列[1].toString()
        決算書["特別会計科目"+(i+1)+'預金種別']=部分配列[2].toString()
        決算書["特別会計科目"+(i+1)+'会計区分']=部分配列[3].toString()
  }}
  for(let i=特別会計科目.length+1;i<=5;i++){
    決算書["特別会計科目"+i]=''; 決算書["特別会計科目"+i+'銀行支店']=''; 決算書["特別会計科目"+i+'預金種別']='';  決算書["特別会計科目"+i+'会計区分']='';  
  }

  for(let i=0;i<行数;i++){
    let 収入科目='',収入決算額=['','','','',''],支出科目='',支出決算額=['','','','','']
    if (i<収入一覧.length){
      if (i==0){
        収入科目='前期繰越'
        収入決算額=[前期繰越[0].toString(),前期繰越[1].toString(),前期繰越[2].toString(),前期繰越[3].toString(),前期繰越[4].toString()]
      } else {
        収入科目 = 科目区分表[収入一覧[i]]
        if (収入科目.indexOf(':')>=0){
          let 部分配列=収入科目.split(':')
          収入科目=部分配列[0].toString()
        }
        収入決算額=[期末残高表1[収入一覧[i]].toString(),期末残高表2[収入一覧[i]].toString(),期末残高表3[収入一覧[i]].toString(),期末残高表4[収入一覧[i]].toString(),期末残高表5[収入一覧[i]].toString()]
      } 
    }
    if (i<支出一覧.length){
      支出科目 = 科目区分表[支出一覧[i]]
      if (支出科目.indexOf(':')>=0){
        let 部分配列=支出科目.split(':')
        支出科目=部分配列[0].toString()
      }  
      支出決算額=[期末残高表1[支出一覧[i]].toString(),期末残高表2[支出一覧[i]].toString(),期末残高表3[支出一覧[i]].toString(),期末残高表4[支出一覧[i]].toString(),期末残高表5[支出一覧[i]].toString()]
    }
    決算書["特別収入"+(i+1)]=収入科目
    決算書["特別収入1"+(i+1)]=収入決算額[0].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別収入2"+(i+1)]=収入決算額[1].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別収入3"+(i+1)]=収入決算額[2].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別収入4"+(i+1)]=収入決算額[3].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別収入5"+(i+1)]=収入決算額[4].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別支出"+(i+1)]=支出科目
    決算書["特別支出1"+(i+1)]=支出決算額[0].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別支出2"+(i+1)]=支出決算額[1].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別支出3"+(i+1)]=支出決算額[2].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別支出4"+(i+1)]=支出決算額[3].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    決算書["特別支出5"+(i+1)]=支出決算額[4].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  }
  for(let i=行数+1;i<=10;i++){
    決算書['特別収入'+i]='';決算書['特別収入1'+i]='';決算書['特別収入2'+i]='';決算書['特別収入3'+i]='';決算書['特別収入4'+i]='';決算書['特別収入5'+i]='';
    決算書['特別支出'+i]='';決算書['特別支出1'+i]='';決算書['特別支出2'+i]='';決算書['特別支出3'+i]='';決算書['特別支出4'+i]='';決算書['特別支出5'+i]='';
  }

  for(let i=1;i<=5;i++){
   決算書["特別支出計"+i]=支出決算合計[i-1].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
   決算書["特別収入計"+i]=収入決算合計[i-1].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
   決算書["次期繰越"+i]=次期繰越[i-1].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
   決算書["特別収入合計"+i]=(Number(前期繰越[i-1])+収入決算合計[i-1]).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
   決算書["特別支出合計"+i]=(支出決算合計[i-1]+Number(次期繰越[i-1])).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
   決算書["前期繰越"+i]=前期繰越[i-1].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
   決算書["収支増減"+i]=(収入決算合計[i-1]-支出決算合計[i-1]).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
   if (決算書["次期繰越"+i]=='' && 決算書["収支増減"+i]=='0'){決算書["収支増減"+i]=''}
  }

//Logger.log(特別会計決算書)

  let ページ = CopyofEasy4Anyone.HTML名('新町内会決算書')
  ページ.メニュー = メニュー作成()
  ページ.用紙横サイズ = '210mm'
  ページ.用紙縦サイズ = '297mm'
  決算書['町内会名']=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  決算書['年度']=和暦(new Date(期首年月日),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  決算書['期']=会計期間.substring(0,会計期間.indexOf('期')+1)
  決算書['会計期間']=ページ.会計期間='自'+期首年月日+' 至'+期末年月日
//  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.データ=JSON.stringify(決算書) //数はtoString()要
  return ページ.evaluate().setTitle('新町内会決算書')
}

function 新町内会予算案(){
  let 予算案 = {}
  let 期末残高表={}
  期末残高表=JSON.parse(CopyofEasy4Anyone.get設定('前年度実績'))
//Logger.log(期末残高表)
  let 勘定科目一覧 = []
  let 財務科目 = []
  if (勘定科目情報!=null){
    勘定科目一覧 = 勘定科目情報.select(['科目区分','勘定科目名','期首残高']).where({'科目区分':['!=','資本'+資本行数],'勘定科目名':['!=','']}).result()
  }

  let 科目区分表={}
  let 期首残高表={}
  let 予算表={}
//  let 期末残高表={}
  let 一般会計科目=''

  勘定科目一覧.forEach(function(一件){
    if (一般会計科目=='') {if (一件['勘定科目名'].indexOf('一般会計')>=0){一般会計科目=一件['科目区分']}}
    if (一件['勘定科目名'].indexOf('一般会計')>=0 || 一件['勘定科目名'].indexOf('特別会計')>=0){財務科目.push(一件['科目区分'])}
    科目区分表[一件['科目区分']]=一件['勘定科目名']
    期首残高表[一件['科目区分']]=parseInt(一件['期首残高'])
    予算表[一件['科目区分']]=0
    if (一件['科目区分'].indexOf('費用')>=0){期首残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
    if (一件['科目区分'].indexOf('収益')>=0){期首残高表[一件['科目区分']]=0;予算表[一件['科目区分']]=parseInt(一件['期首残高'])}  
  })
  let 行=0
  財務科目.forEach(function(科目){
      if ((科目区分表[科目]+' ').indexOf(':')>=0){
        let 部分配列=科目区分表[科目].split(':')
        行=行+1
        予算案['科目'+行]=部分配列[0].toString()
        予算案['銀行支店'+行]=部分配列[1].toString()
        予算案['預金種別'+行]=部分配列[2].toString()
        予算案['会計区分'+行]=部分配列[3].toString()
        予算案['前期繰越'+行]=期首残高表[科目].toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
      }
  })
  for(let i=行+1;i<=資産行数;i++){
    予算案['科目'+i]='';予算案['銀行支店'+i]='';予算案['預金種別'+i]='';予算案['会計区分'+i]='';予算案['前期繰越'+i]='';
  }
//Logger.log(財務状況)

  let 収入予算合計=0,収入決算合計=0,支出予算合計=0,支出決算合計=0
  let 収入一覧=[],支出一覧=[]
  収入一覧.push(一般会計科目)
  for(let 科目 in 期末残高表){
    if (予算表[科目]>0 || 期末残高表[科目]>0){
      if (科目.indexOf('収益')==0){収入一覧.push(科目);収入予算合計=収入予算合計+予算表[科目];収入決算合計=収入決算合計+期末残高表[科目]}
      if (科目.indexOf('費用')==0){支出一覧.push(科目);支出予算合計=支出予算合計+予算表[科目];支出決算合計=支出決算合計+期末残高表[科目]}
    }
  }

  let 行数=Math.max(収入一覧.length,支出一覧.length)
  let 前期繰越=期首残高表[一般会計科目],次期繰越=期末残高表[一般会計科目]

  for(let i=0;i<行数;i++){
    let 収入科目='',収入予算額='',収入決算額='',収入増減='',支出科目='',支出予算額='',支出決算額='',支出増減='',収入内訳='',支出内訳=''
    if (i<収入一覧.length){
      収入科目 = 科目区分表[収入一覧[i]]
      if ((収入科目+' ').indexOf(':')>=0){
        let 部分配列=収入科目.split(':')
        収入科目=部分配列[0].toString()
        収入内訳=部分配列[1].toString()
      }
      if (i==0){
        収入科目='前期繰越'
        収入予算額=前期繰越
        収入決算額=支出決算合計+次期繰越-収入決算合計//前期繰越
        収入増減=''
      } else {
        収入予算額=予算表[収入一覧[i]].toString()
        収入決算額=期末残高表[収入一覧[i]].toString()
        収入増減=(parseInt(予算表[収入一覧[i]])-parseInt(期末残高表[収入一覧[i]])).toString()
      } 
    }
    if (i<支出一覧.length){
      支出科目 = 科目区分表[支出一覧[i]]
      if ((支出科目+' ').indexOf(':')>=0){
        let 部分配列=支出科目.split(':')
        支出科目=部分配列[0].toString()
        支出内訳=部分配列[1].toString()
      }  
      支出予算額=予算表[支出一覧[i]].toString()
      支出決算額=期末残高表[支出一覧[i]].toString()
      支出増減=(parseInt(予算表[支出一覧[i]])-parseInt(期末残高表[支出一覧[i]])).toString()
    }
    予算案['収入'+(i+1)]=収入科目
    予算案['前年収入'+(i+1)]=収入決算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    予算案['収入予算'+(i+1)]=収入予算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    予算案['収入増減'+(i+1)]=収入増減.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    予算案['支出'+(i+1)]=支出科目
    予算案['前年支出'+(i+1)]=支出決算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    予算案['支出予算'+(i+1)]=支出予算額.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    予算案['支出増減'+(i+1)]=支出増減.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
    予算案['収入予算内訳'+(i+1)]=収入内訳
    予算案['支出予算内訳'+(i+1)]=支出内訳
  }
  for(let i=行数+1;i<=費用行数;i++){
    if (i<=収益行数){予算案['収入'+i]='';予算案['前年収入'+i]='';予算案['収入予算'+i]='';予算案['収入増減'+i]='';予算案['収入予算内訳'+i]='';}
    予算案['支出'+i]='';予算案['前年支出'+i]='';予算案['支出予算'+i]='';予算案['支出増減'+i]='';
    予算案['支出予算内訳'+i]='';
  }

  予算案['前年支出計']=支出決算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['支出予算計']=支出予算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['支出増減計']=(支出予算合計-支出決算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['前年収入計']=収入決算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['収入予算計']=収入予算合計.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['収入増減計']=(収入予算合計-収入決算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['前年次期繰越']=次期繰越.toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['次期繰越予算']=(前期繰越+収入予算合計-支出予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['次期繰越増減']=(前期繰越+収入予算合計-次期繰越-支出予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['前年収入合計']=(支出決算合計+次期繰越).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['収入予算合計']=(前期繰越+収入予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['前年支出合計']=(支出決算合計+次期繰越).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')
  予算案['支出予算合計']=(前期繰越+収入予算合計).toString().replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,').replace('-','▲')

//Logger.log(一般会計予算案)

  let ページ = CopyofEasy4Anyone.HTML名('新町内会予算案')
  ページ.メニュー = メニュー作成()
  ページ.用紙横サイズ = '210mm'
  ページ.用紙縦サイズ = '297mm'
  予算案['町内会名']=CopyofEasy4Anyone.get設定('会社')
  let 会計期間 = CopyofEasy4Anyone.get設定('会計期間')
  let 期首年月日 = 会計期間.substring(会計期間.indexOf('期')+2)
  期首年月日 = 期首年月日.substring(0,期首年月日.indexOf('～'))
  予算案['年度']=和暦(new Date(期首年月日),true)
  予算案['前年度']=和暦(new Date(CopyofEasy4Anyone.経過日時(new Date(期首年月日),-1,0,0,0,0,0)),true)
  期首年月日 = Utilities.formatDate(new Date(期首年月日),'JST','yyyy年M月d日') 
  let 期末年月日 = 会計期間.substring(会計期間.indexOf('～')+1)
  期末年月日 = Utilities.formatDate(new Date(期末年月日),'JST','yyyy年M月d日') 
  予算案['期']=会計期間.substring(0,会計期間.indexOf('期')+1)
  予算案['会計期間']='自'+期首年月日+' 至'+期末年月日
//  ページ.出力日時=Utilities.formatDate(new Date(),'JST','yyyy年M月d日 H:m') 
  ページ.データ=JSON.stringify(予算案) //数はtoString()要
  return ページ.evaluate().setTitle('新町内会予算案')
}

/**************************************************
  Webアプリ【チェック】用ローカル処理
**************************************************/

/**************************************************
  Webアプリ【共通処理】用ローカル処理
**************************************************/
function メニュー作成(){
  let 親タグ = '',子タグ = '';
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('会社選択',URL+'?画面=会社')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('会計期間選択',URL+'?画面=会計期間')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('次年度繰越処理',URL+'?画面=次年度繰越')
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('会社･会計期間設定･次年度繰越','',子タグ)
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('勘定科目・期首残高登録',URL+'?画面=勘定科目')
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('元帳入力(仕訳入力)',URL+'?画面=元帳')
  子タグ = ''
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('試算表',URL+'?画面=試算表期間入力')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('貸借対照表･損益計算書',URL+'?画面=BSPL表示印刷')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('元帳 表示／印刷',URL+'?画面=元帳表示印刷')
//  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('収支決算書 表示／印刷',URL+'?画面=収支決算書')
//  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('収支一覧表 表示／印刷',URL+'?画面=収支一覧表')
//  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('支出項目内訳簿 表示／印刷',URL+'?画面=支出項目内訳簿')
//  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('自主財源収支一覧表 表示／印刷',URL+'?画面=自主財源収支一覧表')
//  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('収支予算書 表示／印刷',URL+'?画面=収支予算書')
//  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('備品管理台帳 表示／印刷',URL+'?画面=備品管理台帳')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('町内会決算書 表示／印刷',URL+'?画面=町内会決算書')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('町内会予算案 表示／印刷',URL+'?画面=町内会予算案')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('新町内会決算書 表示／印刷',URL+'?画面=新町内会決算書')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('新町内会予算案 表示／印刷',URL+'?画面=新町内会予算案')
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('決算報告･予算案 表示印刷','',子タグ)
  return CopyofEasy4Anyone.メニュー作成('',親タグ)
}

function 会社情報検索() {
  let 会社一覧 = [[CopyofEasy4Anyone.ボタン(URL+'?画面=会社新規','新規入力'),'会社名のボタンをクリックして会社を選択してください']]
  const スクリプトId = ScriptApp.getScriptId()
  const フォルダ一覧 = DriveApp.getFileById(スクリプトId).getParents()
  const フォルダId = フォルダ一覧.next().getId()
  const フォルダ = DriveApp.getFolderById(フォルダId)
  const ファイル一覧 = フォルダ.getFilesByType(MimeType.GOOGLE_SHEETS)
  while (ファイル一覧.hasNext()) {
    ファイル名 = ファイル一覧.next().getName()
    const ボタン = CopyofEasy4Anyone.ボタン(URL+'?画面=会社修正&行='+ファイル名,'修正')+'<br>'
              + CopyofEasy4Anyone.ボタン(URL+'?画面=会社削除&行='+ファイル名,'削除')
    会社一覧.push([ボタン,CopyofEasy4Anyone.ボタン(URL+'?画面=会社選択&会社='+ファイル名,ファイル名)])
  }
  return 会社一覧
}

function 会計期間情報検索() {
  let 会計期間一覧 = [[CopyofEasy4Anyone.ボタン(URL+'?画面=会計期間新規','新規入力'),'会計期間のボタンをクリックして会計期間を選択してください']]
  const テーブル一覧 = 会計データベース.getAllTableName()
  if (テーブル一覧!=null){
    テーブル一覧.sort(function(a,b){return a[0].substring(a[0].indexOf('期'))-b[0].substring(b[0].indexOf('期'))})
    テーブル一覧.forEach(function(テーブル名){
      if (テーブル名.indexOf('勘定科目')>0){
        const 会計期間=テーブル名.substring(0,テーブル名.indexOf('勘定科目'))
        const ボタン = CopyofEasy4Anyone.ボタン(URL+'?画面=会計期間修正&行='+会計期間,'修正')+'<br>'
                + CopyofEasy4Anyone.ボタン(URL+'?画面=会計期間削除&行='+会計期間,'削除')
       会計期間一覧.push([ボタン,CopyofEasy4Anyone.ボタン(URL+'?画面=会計期間選択&会計期間='+会計期間,会計期間)])
      }
    })
  }  
  return 会計期間一覧
}

function 和暦(inputDate,年度) {
  if (!(inputDate instanceof Date)) {
    return "日付を入力してください";
  }

  const eras = [
    { name: "令和", start: new Date(2019, 4, 1), base: 2018 },
    { name: "平成", start: new Date(1989, 0, 8), base: 1988 },
    { name: "昭和", start: new Date(1926, 11, 25), base: 1925 },
    { name: "大正", start: new Date(1912, 6, 30), base: 1911 },
    { name: "明治", start: new Date(1868, 0, 25), base: 1867 }
  ];

  for (let i = 0; i < eras.length; i++) {
    if (inputDate >= eras[i].start) {
      const year = inputDate.getFullYear() - eras[i].base;
      const month = inputDate.getMonth() + 1;
      const day = inputDate.getDate();
      if (年度==true) {return `${eras[i].name}${year}年度`;}
      return `${eras[i].name}${year}年${month}月${day}日`;
    }
  }

  return "対応外の日付です";
}

第5章で使用するスクリプト

回覧板のLINE化「役員向けWebアプリ」(町内会資料追加版)

const 町内会名='ご自身の所属する町内会名を入力' //町内会組織図画面表示()で使用 ＠町内会名＠で差込
const 市外局番='088-' //ご自身の町内の市外局番に変更
const 班最大人数=34 //町内会回覧板画面表示()，町内会回覧板QRコード付き画面表示()で使用
const 町内輪番表掲載人数=60 //町内会清掃当番表画面表示()で使用
const 班内班長順掲載人数=10 //町内会班別担当表画面表示()で使用
const 班内月番順掲載人数=20 //町内会班別担当表画面表示()で使用
const 班順='ABCDEFGHIJKLMNOPQRSTUVWXYZいろはにほへとちりぬるをわかよたれそつねならむA級B級1組B級2組C級1組C級2組'
const 呼称='班' //班でなく，組の場合は'組'，不要な場合や班欄に「1組」「2組」〜と呼称を含む場合は'' //町内会組織図画面表示()，町内会清掃当番表画面表示()で使用
const コミュニティ管理者行='1' //利用者情報の何行目(見出しを除く) //LINEで連絡する場合に使用
const 利用者向けURL = 'https://script.google.com/macros/s/〜/exec' //メールを利用しない場合は利用者向けWebアプリのURL指定不要
const URL = ScriptApp.getService().getUrl()
var データベース = CopyofEasy4Anyone.useDB('データベース')
var 行事情報 = データベース.table('行事情報')
CopyofEasy4Anyone.著作権 = 'Copyright © 2023-2025 NPO情報化ユートピア All Rights Reserved.' //自由に変更してください
CopyofEasy4Anyone.アップロード場所='行事用フォルダ'
CopyofEasy4Anyone.排他制御 = '排他制御.lock'
var 利用者情報 = データベース.table('利用者情報')
var 組織情報 = データベース.table('組織情報')
CopyofEasy4Anyone.StyleName2='メニュー型'
var LINE情報 = データベース.table('LINE情報')
var 町内会情報 = データベース.table('町内会情報')

/**************************************************
  準備用ローカル処理
**************************************************/
function 第5章第1節() {
  if (行事情報 != null) {
    データベース.alterTable('行事情報',{'行事名':'@','行事内容':'@','行事開始日時':'yyyy/MM/dd HH:mm:ss','行事終了日時':'yyyy/MM/dd HH:mm:ss','回答開始日時':'yyyy/MM/dd HH:mm:ss','回答終了日時':'yyyy/MM/dd HH:mm:ss','回答欄1':'@','回答欄2':'@','回答欄3':'@','場所':'@','住所':'@','問合先':'@','電話番号':'@','ファイルID':'@'})
    行事情報 = データベース.table('行事情報')
  }  
}

function 第6章第1節() {
  if (行事情報 != null) {
    データベース.alterTable('行事情報',{'行事名':'@','行事内容':'@','行事開始日時':'yyyy/MM/dd HH:mm:ss','行事終了日時':'yyyy/MM/dd HH:mm:ss','回答開始日時':'yyyy/MM/dd HH:mm:ss','回答終了日時':'yyyy/MM/dd HH:mm:ss','回答欄1':'@','回答欄2':'@','回答欄3':'@','場所':'@','住所':'@','問合先':'@','電話番号':'@','ファイルID':'@','原本ファイルID':'@'})
    行事情報 = データベース.table('行事情報')
  }  
}

function 第6章第3節() {
  if (行事情報 /*!=*/== null) {
    データベース./*alterTable*/createTable('行事情報',{'行事名':'@','行事内容':'@','行事開始日時':'yyyy/MM/dd HH:mm:ss','行事終了日時':'yyyy/MM/dd HH:mm:ss','回答開始日時':'yyyy/MM/dd HH:mm:ss','回答終了日時':'yyyy/MM/dd HH:mm:ss','回答欄1':'@','回答欄2':'@','回答欄3':'@','場所':'@','住所':'@','問合先':'@','電話番号':'@','ファイルID':'@','原本ファイルID':'@','メール':'@','メール1':'@','メール2':'@','メール3':'@'})
    行事情報 = データベース.table('行事情報')
  }  
}

function 第9章第2節() {
  if (組織情報 == null) {
    データベース.createTable('組織情報',{'組織名':'@','組織内容':'@','役職一覧':'@'})
    組織情報 = データベース.table('組織情報')
  }  
  if (利用者情報 /*!=*/== null) {
    データベース./*alterTable*/createTable('利用者情報',{'ログイン利用者ID':'@','パスワード':'@','連続エラー回数':'#0','最終ログイン日時':'yyyy/MM/dd HH:mm:ss','お名前':'@','メールアドレス':'@','LINEuserId':'@','認証コード':'@','最終メール送信日時':'yyyy/MM/dd HH:mm:ss','絞込条件':'@','役職':'@','自己紹介ファイルID':'@'})
    データベース = CopyofEasy4Anyone.useDB('データベース')
    利用者情報 = データベース.table('利用者情報')
  }
}

function 第11章第3節() {
  if (行事情報 /*!=*/== null) {
    データベース./*alterTable*/createTable('行事情報',{'行事名':'@','行事内容':'@','行事開始日時':'yyyy/MM/dd HH:mm:ss','行事終了日時':'yyyy/MM/dd HH:mm:ss','回答開始日時':'yyyy/MM/dd HH:mm:ss','回答終了日時':'yyyy/MM/dd HH:mm:ss','回答欄1':'@','回答欄2':'@','回答欄3':'@','場所':'@','住所':'@','問合先':'@','電話番号':'@','ファイルID':'@','原本ファイルID':'@','メール':'@','メール1':'@','メール2':'@','メール3':'@','月':'@','週':'@','曜日':'@','日':'@','祝日':'@','追加日':'@','除外日':'@'})
    行事情報 = データベース.table('行事情報')
//   行事情報.refresh() 
//    行事情報.update({'月':''})
//   行事情報.refresh() 
  }  
}

function 回覧板LINE化() {
  if (行事情報 == null) {
    データベース.createTable('行事情報',{'行事名':'@','行事内容':'@','行事開始日時':'yyyy/MM/dd HH:mm:ss','行事終了日時':'yyyy/MM/dd HH:mm:ss','回答開始日時':'yyyy/MM/dd HH:mm:ss','回答終了日時':'yyyy/MM/dd HH:mm:ss','回答欄1':'@','回答欄2':'@','回答欄3':'@','場所':'@','住所':'@','問合先':'@','電話番号':'@','ファイルID':'@','原本ファイルID':'@','メール':'@','メール1':'@','メール2':'@','メール3':'@','月':'@','週':'@','曜日':'@','日':'@','祝日':'@','追加日':'@','除外日':'@'})
    行事情報 = データベース.table('行事情報')
  }  
  if (利用者情報 == null) {
    データベース.createTable('利用者情報',{'班':'@','ログイン利用者ID':'@','パスワード':'@','連続エラー回数':'#0','最終ログイン日時':'yyyy/MM/dd HH:mm:ss','お名前':'@','メールアドレス':'@','LINE名前':'@','LINEuserId':'@','認証コード':'@','最終メール送信日時':'yyyy/MM/dd HH:mm:ss','絞込条件':'@','役職':'@','自己紹介ファイルID':'@','※自動応答':'@'})
    データベース = CopyofEasy4Anyone.useDB('データベース')
    利用者情報 = データベース.table('利用者情報')
  }
  if (組織情報 == null) {
    データベース.createTable('組織情報',{'組織名':'@','組織内容':'@','役職一覧':'@'})
    組織情報 = データベース.table('組織情報')
  }  
  if (LINE情報 == null) {
    データベース.createTable('LINE情報',{'班':'@','アクセストークン':'@'})
    データベース = CopyofEasy4Anyone.useDB('データベース')
    LINE情報 = データベース.table('LINE情報')
  }  
}

function 町内会対応() {
  if (町内会情報 == null) {
    データベース.createTable('町内会情報',{'年度':'@','班':'@','副会長':'@','班長':'@','班長後期':'@','月番':'@','環境美化1':'@','環境美化2':'@','体育1':'@','体育2':'@','レクレーション1':'@','レクレーション2':'@','福祉1':'@','福祉2':'@','防災1':'@','防災2':'@','防災3':'@','防災4':'@'})
    データベース = CopyofEasy4Anyone.useDB('データベース')
    町内会情報 = データベース.table('町内会情報')
  }
  if (利用者情報 != null) {
    let 住民一覧 = 利用者情報.select(['*']).where({'row':['==',1]}).result(true)
    if (住民一覧[0].length<=15){
      データベース.alterTable('利用者情報',{'班':'@','ログイン利用者ID':'@','パスワード':'@','連続エラー回数':'#0','最終ログイン日時':'yyyy/MM/dd HH:mm:ss','班':'@','番号':'@','お名前':'@','電話番号':'@','班長順':'@','月番順':'@','スクリーン順':'@','回覧順':'@','回覧不要':'@','部会順':'@','メールアドレス':'@','LINE名前':'@','LINEuserId':'@','認証コード':'@','最終メール送信日時':'yyyy/MM/dd HH:mm:ss','絞込条件':'@','役職':'@','自己紹介ファイルID':'@','※自動応答':'@'})
      データベース = CopyofEasy4Anyone.useDB('データベース')
      利用者情報 = データベース.table('利用者情報')
    }
    利用者情報.refresh() 
  }
  if (LINE情報 != null) {
    let LINE情報一覧 = LINE情報.select(['*']).where({'row':['==',1]}).result(true)
    if (LINE情報一覧[0].length<3){
      データベース.alterTable('LINE情報',{'班':'@','アクセストークン':'@','QRコード':'@'})
      データベース = CopyofEasy4Anyone.useDB('データベース')
      LINE情報 = データベース.table('LINE情報')
    }
    LINE情報.refresh() 
  }  
}

/**************************************************
  テスト用ローカル処理
**************************************************/
function 第何曜日は何日テスト(){
 Logger.log(第何曜日は何日(1,0,2025,4))

}

function LINE緊急連絡テスト(){
  const メッセージ='天候不良により，本日の運動会は「中止」になりました。'
  CopyofEasy4Anyone.LINE一斉送信(メッセージ)
}
function LINE個別送信テスト(){
//  const メッセージ='回覧板です'
//  CopyofEasy4Anyone.LINE個別送信('U40f9c5de27dd780d7afde97d7fd4dd55',メッセージ,'','','','確認しました')
  const メッセージ='総会議案です'
//  CopyofEasy4Anyone.LINE個別送信('U40f9c5de27dd780d7afde97d7fd4dd55',メッセージ,'','','','第1号議案:承認する','第1号議案:承認しない')
//  CopyofEasy4Anyone.LINE個別送信('U40f9c5de27dd780d7afde97d7fd4dd55',メッセージ,'','','','総会に出席','欠席だが表決する','欠席で表決もしない')
  CopyofEasy4Anyone.LINE個別送信('Ua9564120277094d326cb8b84d48eefd5',メッセージ,'','','','総会に出席','欠席だが表決する','欠席で表決もしない')
}

/**************************************************
  Webアプリ【画面遷移】用ローカル処理
**************************************************/
function doGet(e) {
  回覧板LINE化()
  町内会対応()
  const 画面 = CopyofEasy4Anyone.QUERY値(e,'画面')
  const 検索語 = CopyofEasy4Anyone.QUERY値(e,'検索語')
  const 行 = CopyofEasy4Anyone.QUERY値(e,'行')
  const ID行 = CopyofEasy4Anyone.QUERY値(e,'ID行')
  const ファイルID = CopyofEasy4Anyone.QUERY値(e,'ファイルID')
  const ファイル名 = CopyofEasy4Anyone.QUERY値(e,'ファイル名')
  const Mail行 = CopyofEasy4Anyone.QUERY値(e,'Mail行')
  const 行事名 = CopyofEasy4Anyone.QUERY値(e,'行事名')
  if (画面 == ''){return 行事一覧表示(検索語)} 
  if (画面 == '新規'){return 新規修正画面表示(0,検索語)} 
  if (画面 == '修正'){return 新規修正画面表示(行,検索語)} 
  if (画面 == '削除'){return 削除画面表示(行,検索語)} 
  if (画面 == 'PDF化'){return PDF化と一覧表示(行,検索語)} 
  if (画面 == '文書検索'){return 文書ファイル一覧表示(行,ID行,'',検索語)} 
  if (画面 == '文書選択'){return 文書選択と一覧表示(行,ID行,ファイルID,ファイル名,検索語)} 
  if (画面 == 'Mail'){return メール画面(行,Mail行,検索語)} 
  if (画面 == '回答状況'){return 回答状況表示(行,行事名,検索語)}
  if (画面 == '組織一覧'){return 組織一覧表示()} 
  if (画面 == '組織新規'){return 組織新規修正画面表示(0)} 
  if (画面 == '組織修正'){return 組織新規修正画面表示(行)} 
  if (画面 == '組織削除'){return 組織削除画面表示(行)} 
  if (画面 == '住民一覧'){return 住民一覧表示()} 
  if (画面 == '住民修正'){return 住民修正画面表示(行)} 
  if (画面 == '複製'){return 複製と一覧表示(行,検索語)} 
  if (画面 == '組織図'){return 町内会組織図画面表示()}
  if (画面 == '清掃当番表'){return 町内会清掃当番表画面表示()}
  if (画面 == '班別担当表'){return 町内会班別担当表画面表示()}
  if (画面 == '回覧板'){return 町内会回覧板画面表示()}
  if (画面 == '回覧板QR'){return 町内会回覧板QRコード付き画面表示()}
}

function doPost(e) {
  let 画面 = CopyofEasy4Anyone.FORM値(e,'画面')
  const 検索語 = CopyofEasy4Anyone.FORM値(e,'検索語')
  const 行事番号 = CopyofEasy4Anyone.FORM値(e,'行事番号')
  const ID行 = CopyofEasy4Anyone.FORM値(e,'ID行')
  const ファイル名一部 = CopyofEasy4Anyone.FORM値(e,'ファイル名一部')
  const Mail行 = CopyofEasy4Anyone.FORM値(e,'Mail行')
  const 連絡事項 = CopyofEasy4Anyone.FORM値(e,'連絡事項')
  if (画面 == '行事削除' && CopyofEasy4Anyone.FORM値(e,'削除') != '削除'){画面 = ''} 
  if (画面 == 'Mail送信' && CopyofEasy4Anyone.FORM値(e,'発信者宛てテストLINE') == '' && CopyofEasy4Anyone.FORM値(e,'LINE送信') == ''){画面 = ''}
  if (画面 == '組織登録' && CopyofEasy4Anyone.FORM値(e,'登録更新') != '登録更新'){画面 = '組織一覧'} 
  if (画面 == '組織削除' && CopyofEasy4Anyone.FORM値(e,'削除') != '削除'){画面 = '組織一覧'} 
  if (画面 == ''){return 行事一覧表示(検索語)}
  if (画面 == '行事検索'){return 行事一覧表示(検索語)} 
  if (画面 == '行事登録'){return 行事登録と画面表示(e,行事番号)} 
  if (画面 == '行事削除'){return 行事削除と一覧表示(行事番号,検索語)} 
  if (画面 == '文書検索'){return 文書ファイル一覧表示(行事番号,ID行,ファイル名一部,検索語)} 
  if (画面 == 'Mail送信'){return メール送信と一覧表示(e,行事番号,Mail行,検索語)} 
  if (画面 == '緊急連絡'){return メールとLINEで緊急連絡と一覧表示(連絡事項,検索語)} 
  if (画面 == '組織登録'){return 組織登録と画面表示(e,行事番号)} 
  if (画面 == '組織削除'){return 組織削除と一覧表示(行事番号)}
  if (画面 == '組織一覧'){return 組織一覧表示()} 
  if (画面 == '住民修正'){return 住民修正と画面表示(e,行事番号)} 
}

/**************************************************
  Webアプリ【画面表示】用ローカル処理
**************************************************/
function 行事一覧表示(検索語) {
  let タグ = メニュー作成()
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','行事検索')
  タグ = タグ + CopyofEasy4Anyone.INPUTタグ('検索語','TEXT',検索語,50,'行事名・行事内容に含まれる文字を指定してください','','改行無')
  タグ = タグ + CopyofEasy4Anyone.SUBMITタグ('検索','改行無')
  タグ = CopyofEasy4Anyone.FORMタグ(URL,タグ)
  const 行事情報検索結果 = 行事情報検索(検索語)
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し横型',行事情報検索結果,'行事一覧')
  if (行事情報検索結果.length==1) {
    let 緊急タグ = ''
    緊急タグ = 緊急タグ + CopyofEasy4Anyone.HIDDENタグ('画面','緊急連絡')
    緊急タグ = 緊急タグ + CopyofEasy4Anyone.HIDDENタグ('検索語',検索語)
    緊急タグ = 緊急タグ + CopyofEasy4Anyone.INPUTタグ('連絡事項','TEXT','',50,'緊急に連絡したいことを書いてください','required','改行無')
    緊急タグ = 緊急タグ + ' ' + CopyofEasy4Anyone.SUBMITタグ('【LINEで全員に緊急連絡】','改行無')
    タグ = タグ + '<br><br>'+ CopyofEasy4Anyone.FORMタグ(URL,緊急タグ,'LINEで全員に緊急連絡してよろしいですか？')
  }
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('行事検索画面')
}

function 新規修正画面表示(行事番号,検索語) {
  let メッセージ = []
  let 行事 = 行事情報.select(['*']).where({'row':['==',行事番号]}).result()
  if (行事.length == 0){行事 = [{'行事名':'','行事内容':'','行事開始日時':'','行事終了日時':'','回答開始日時':'','回答終了日時':'','回答欄1':'','回答欄2':'','回答欄3':'','場所':'','住所':'','問合先':'','電話番号':'','ファイルID':'\n\n\n','月':'','週':'','曜日':'','日':'','祝日':'','追加日':'','除外日':''}]}
  else{
    行事[0]['行事開始日時']=Utilities.formatDate(行事[0]['行事開始日時'],'JST','yyyy-MM-dd HH:mm:ss').replace(' ','T')
//    Logger.log(行事[0]['行事開始日時'])
    行事[0]['行事終了日時']=Utilities.formatDate(行事[0]['行事終了日時'],'JST','yyyy-MM-dd HH:mm:ss').replace(' ','T')
    try { 行事[0]['回答開始日時']=Utilities.formatDate(行事[0]['回答開始日時'],'JST','yyyy-MM-dd HH:mm:ss').replace(' ','T')}catch{}
    try { 行事[0]['回答終了日時']=Utilities.formatDate(行事[0]['回答終了日時'],'JST','yyyy-MM-dd HH:mm:ss').replace(' ','T')}catch{}
    const ファイル = 行事[0]['ファイルID'].split(/\n/)
    ファイル.forEach(function(ファイルID){
      if (ファイルID!=''){
        try {
          const IDとファイル名 =ファイルID.split(':')
          メッセージ.push(行事URLリンク(IDとファイル名[0],IDとファイル名[1])+'<br>')
        }  catch {メッセージ.push(ファイルID +'は存在しません')}
      } else {メッセージ.push('')}
    })
  }
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','行事登録')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('検索語',検索語)
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('行事番号',行事番号)
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('変更前の行事名',行事[0]['行事名'])
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('行事名','TEXT',行事[0]['行事名'],15,'')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ任意('行事内容',行事[0]['行事内容'],80,10,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('行事開始日時','datetime-local',行事[0]['行事開始日時'],15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('行事終了日時','datetime-local',行事[0]['行事終了日時'],15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('回答開始日時','datetime-local',行事[0]['回答開始日時'],15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('回答終了日時','datetime-local',行事[0]['回答終了日時'],15,'')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ任意('回答欄1',行事[0]['回答欄1'],20,4,'')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ任意('回答欄2',行事[0]['回答欄2'],20,4,'')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ任意('回答欄3',行事[0]['回答欄3'],20,4,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('場所','TEXT',行事[0]['場所'],15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('住所','TEXT',行事[0]['住所'],30,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('問合先','TEXT',行事[0]['問合先'],15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('電話番号','TEXT',行事[0]['電話番号'],30,'')
  タグ = タグ + CopyofEasy4Anyone.FILE表タグ任意('ファイル1',1,メッセージ[0])
  タグ = タグ + CopyofEasy4Anyone.FILE表タグ任意('ファイル2',2,メッセージ[1])
  タグ = タグ + CopyofEasy4Anyone.FILE表タグ任意('ファイル3',3,メッセージ[2])
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('月','TEXT',行事[0]['月'],30,'半角で対象月を「,」区切り。「毎月」と入力可。')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('週','TEXT',行事[0]['週'],30,'半角で対象週を「,」区切り。「毎週」「最終」と入力可')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('日','TEXT',行事[0]['日'],30,'半角で対象日を入力')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('曜日','TEXT',行事[0]['曜日'],30,'半角で対象曜日をカンマで区切る')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ任意('祝日','TEXT',行事[0]['祝日'],30,'除外する場合は「除外」と入力')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ任意('追加日',行事[0]['追加日'],80,10,'追加する日を8桁で1件ずつ改行して入力')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ任意('除外日',行事[0]['除外日'],80,10,'除外する日を8桁で1件ずつ改行して入力')

  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('登録更新','必須')
  タグ = CopyofEasy4Anyone.ボタン(URL+'?画面=&検索語='+検索語,'一覧表示に戻る')
       + CopyofEasy4Anyone.UploadFORM表タグ(タグ,'行事登録更新画面',ボタン,true)
  let ページ = CopyofEasy4Anyone.HTML名('アップロード')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('行事登録更新画面')
}

function 削除画面表示(行事番号,検索語) {
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','行事削除')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('検索語',検索語)
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('行事番号',行事番号)
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し縦型',行事削除検索(行事番号),'行事削除画面')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('一覧表示に戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('削除','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,'',ボタン,'本当に削除してもよいですか？')
  return ページ.evaluate().setTitle('行事削除画面')
}

function 行事登録と画面表示(e,行事番号) {
  const 変更前の行事名 = CopyofEasy4Anyone.FORM値(e,'変更前の行事名')
  const 行事名 = CopyofEasy4Anyone.FORM値(e,'行事名')
  const 行事内容 = CopyofEasy4Anyone.FORM値(e,'行事内容').replace(/\r/g,'')
  let 行事開始日時 = CopyofEasy4Anyone.FORM値(e,'行事開始日時')
  let 行事終了日時 = CopyofEasy4Anyone.FORM値(e,'行事終了日時')
  let 回答開始日時 = CopyofEasy4Anyone.FORM値(e,'回答開始日時')
  let 回答終了日時 = CopyofEasy4Anyone.FORM値(e,'回答終了日時')
  const 回答欄1 = CopyofEasy4Anyone.FORM値(e,'回答欄1').replace(/\r/g,'')
  const 回答欄2 = CopyofEasy4Anyone.FORM値(e,'回答欄2').replace(/\r/g,'')
  const 回答欄3 = CopyofEasy4Anyone.FORM値(e,'回答欄3').replace(/\r/g,'')
  const 場所 = CopyofEasy4Anyone.FORM値(e,'場所')
  const 住所 = CopyofEasy4Anyone.FORM値(e,'住所')
  const 問合先 = CopyofEasy4Anyone.FORM値(e,'問合先')
  const 電話番号 = CopyofEasy4Anyone.FORM値(e,'電話番号')
  const 月 = CopyofEasy4Anyone.FORM値(e,'月')
  const 週 = CopyofEasy4Anyone.FORM値(e,'週')
  const 日 = CopyofEasy4Anyone.FORM値(e,'日')
  const 曜日 = CopyofEasy4Anyone.FORM値(e,'曜日')
  const 祝日 = CopyofEasy4Anyone.FORM値(e,'祝日')
  const 追加日 = CopyofEasy4Anyone.FORM値(e,'追加日').replace(/\r/g,'')
  const 除外日 = CopyofEasy4Anyone.FORM値(e,'除外日').replace(/\r/g,'')
  let ファイルID = ''
  let 原本ファイルID = ''
  const 現在日時 = new Date()
  let メッセージ=[Utilities.formatDate(現在日時, 'JST', 'H時m分に更新しました')]
  for (let i = 1; i <= 3; i++){
    const {fileId,ファイル名,入力fileId,原本fileId,原本ファイル名} = CopyofEasy4Anyone.FORM値(e,'ファイル'+i,'ファイル')
    if (入力fileId==''){
      ファイルID=ファイルID+'\n'
      原本ファイルID=原本ファイルID+'\n'
    } else{
      ファイルID=ファイルID+入力fileId+':'+ファイル名+'\n'
      if (原本fileId!='' && 原本fileId!=null)
       {原本ファイルID=原本ファイルID+原本fileId+':'+原本ファイル名+'\n'}
      else {原本ファイルID=原本ファイルID+'\n'}
    }
    if (ファイル名 != '') { メッセージ.push(行事URLリンク(fileId,ファイル名)+'を行事に追加しました。')}
     else {メッセージ.push('')}
  }   
  const 旧ファイルID = 行事情報.select(['ファイルID','原本ファイルID']).where({'row':['==',行事番号]}).result()
  if (旧ファイルID == '') {
    行事情報.insert([{'行事名':行事名,'行事内容':行事内容,'行事開始日時':行事開始日時,'行事終了日時':行事終了日時,'回答開始日時':回答開始日時,'回答終了日時':回答終了日時,'回答欄1':回答欄1,'回答欄2':回答欄2,'回答欄3':回答欄3,'場所':場所,'住所':住所,'問合先':問合先,'電話番号':電話番号,'ファイルID':ファイルID,'原本ファイルID':原本ファイルID,'月':月,'週':週,'曜日':曜日,'日':日,'祝日':祝日,'追加日':追加日,'除外日':除外日}])
  } else {
    const {新ファイルID,編集済メッセージ,原本新ファイルID}=新旧ファイル交換(ファイルID,旧ファイルID[0]['ファイルID'],メッセージ,原本ファイルID,旧ファイルID[0]['原本ファイルID'])
    行事情報.update({'行事名':行事名,'行事内容':行事内容,'行事開始日時':行事開始日時,'行事終了日時':行事終了日時,'回答開始日時':回答開始日時,'回答終了日時':回答終了日時,'回答欄1':回答欄1,'回答欄2':回答欄2,'回答欄3':回答欄3,'場所':場所,'住所':住所,'問合先':問合先,'電話番号':電話番号,'ファイルID':新ファイルID,'原本ファイルID':原本新ファイルID,'月':月,'週':週,'曜日':曜日,'日':日,'祝日':祝日,'追加日':追加日,'除外日':除外日},{'row' : ['==',行事番号]})
    メッセージ = 編集済メッセージ
  }
  if (回答開始日時 != '' && 回答終了日時 != '' && 回答欄1+回答欄2+回答欄3 != ''){
    if (変更前の行事名 != 行事名) {
      回答情報 = データベース.table(変更前の行事名)
      if (回答情報 != null) {
        データベース.renameTable(変更前の行事名,行事名)
      }  
    }
    回答情報 = データベース.table(行事名)
    if (回答情報 == null) {
      データベース.createTable(行事名,{'ログイン利用者ID':'@','班':'@','お名前':'@','回答日時':'yyyy/MM/dd HH:mm:ss','回答欄1':'@','回答欄2':'@','回答欄3':'@'})
      回答情報 = データベース.table(行事名)
    }
    const 回答欄1名称 = 回答欄1.split(/\n/)[0]
    const 回答欄2名称 = 回答欄2.split(/\n/)[0]
    const 回答欄3名称 = 回答欄3.split(/\n/)[0]
    if (回答情報.select(['*']).where({'row':['==',1]}).result().length==0)
      {回答情報.insert([{'ログイン利用者ID':行事名,'班':'','お名前':'','回答日時':回答終了日時,'回答欄1':回答欄1名称,'回答欄2':回答欄2名称,'回答欄3':回答欄3名称}])} else
      {回答情報.update({'回答日時':回答終了日時,'回答欄1':回答欄1名称,'回答欄2':回答欄2名称,'回答欄3':回答欄3名称},{'row':['==',1]})}      
  }
  return メッセージ
}

function 行事削除と一覧表示(行事番号,検索語) {
  CopyofEasy4Anyone.Addrow=true
  let 行事一覧 = 行事情報.select(['ファイルID','原本ファイルID']).where({'row':['==',行事番号]}).result()
  if (行事一覧.length==1){
    if (行事一覧[0]['ファイルID'] != ''){
      let ファイル = 行事一覧[0]['ファイルID'].split(/\n/)
      ファイル.forEach(function(ファイルID){const IDとファイル名 =ファイルID.split(':')
        if (IDとファイル名[0]!=''){ try{ DriveApp.getFolderById(IDとファイル名[0]).setTrashed(true) } catch{}}
      })
    }
    if (行事一覧[0]['原本ファイルID'] != ''){
      let ファイル = 行事一覧[0]['原本ファイルID'].split(/\n/)
      ファイル.forEach(function(ファイルID){const IDとファイル名 =ファイルID.split(':')
        if (IDとファイル名[0]!=''){ try{ DriveApp.getFolderById(IDとファイル名[0]).setTrashed(true) } catch{}}
      })
    }
    行事情報.deleteRow({'row':['==',行事番号]})
  }
  return 行事一覧表示(検索語)
}

function PDF化と一覧表示(行事番号,検索語) {
  CopyofEasy4Anyone.Addrow=true
  let 行事一覧 = 行事情報.select(['ファイルID','原本ファイルID']).where({'row':['==',行事番号]}).result()
  if (行事一覧.length==1){
    let 新ファイルID = ''
    let 新原本ファイルID = ''
    const ファイルID = (行事一覧[0]['ファイルID']+'\n\n\n').split('\n')
    const 原本ファイルID = (行事一覧[0]['原本ファイルID']+'\n\n\n').split('\n')
    for (let i = 0; i < 3; i++){
      const IDとファイル名 =原本ファイルID[i].split(':')
      if (IDとファイル名[0]==''){
        新ファイルID = 新ファイルID + ファイルID[i]+'\n'
        新原本ファイルID = 新原本ファイルID + 原本ファイルID[i]+'\n'
      } else {
        const Orgfile = DriveApp.getFileById(IDとファイル名[0])
        const PDFfile = CopyofEasy4Anyone.PDF変換(Orgfile)
        if (PDFfile!=null){
          新ファイルID = 新ファイルID + PDFfile.getId()+':'+PDFfile.getName()+'\n'
          新原本ファイルID = 新原本ファイルID + Orgfile.getId()+':'+Orgfile.getName()+'\n'
          const IDとファイル名 =ファイルID[i].split(':')
          if (IDとファイル名[0]!=''){ try{ DriveApp.getFolderById(IDとファイル名[0]).setTrashed(true) } catch{}}
        }
      }
    }
    if (行事一覧[0]['ファイルID']!=新ファイルID){
      行事情報.update({'ファイルID':新ファイルID,'原本ファイルID':新原本ファイルID},{'row' : ['==',行事番号]})
    }
  }     
  return 行事一覧表示(検索語)
}

function 文書ファイル一覧表示(行事番号,ID行,ファイル名一部,検索語) {
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','文書検索')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('検索語',検索語)
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('行事番号',行事番号)
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('ID行',ID行)
  タグ=タグ+ CopyofEasy4Anyone.INPUTタグ('ファイル名一部','TEXT',ファイル名一部,50,'文書ファイル名に含まれる文字を指定してください','','改行無')
  タグ = タグ + CopyofEasy4Anyone.SUBMITタグ('検索','改行無')
  タグ = CopyofEasy4Anyone.FORMタグ(URL,タグ)
  タグ = CopyofEasy4Anyone.ボタン(URL+'?画面=&検索語='+検索語,'行事一覧に戻る')+'<br>'+タグ  
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し横型',文書検索(行事番号,ID行,ファイル名一部,検索語),'文書ファイル一覧')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('文書ファイル一覧')
}

function 文書選択と一覧表示(行事番号,ID行,ファイルID,ファイル名,検索語){
  let 行事一覧 = 行事情報.select(['原本ファイルID']).where({'row':['==',行事番号]}).result()
  if (行事一覧.length==1){
    let 新原本ファイルID = ''
    const 原本ファイルID = (行事一覧[0]['原本ファイルID']+'\n\n\n').split('\n')
    for (let i = 0; i < 3; i++){
      if (i != ID行){ 新原本ファイルID = 新原本ファイルID + 原本ファイルID[i]+'\n'}
      else {
        CopyofEasy4Anyone.イベントフォルダ設定()
        const コピー元 = DriveApp.getFileById(ファイルID)
        const ファイル = コピー元.makeCopy(コピー元.getName(),CopyofEasy4Anyone.EventFolder)
        新原本ファイルID = 新原本ファイルID + ファイル.getId()+':'+ファイル名+'\n'
      }
    }
    if (行事一覧[0]['原本ファイルID']!=新原本ファイルID){
      行事情報.update({'原本ファイルID':新原本ファイルID},{'row' : ['==',行事番号]})
    }
  }     
  return 行事一覧表示(検索語)
}

function メール画面(行事番号,Mail行,検索語) {
  let 発信者名 = CopyofEasy4Anyone.get設定('発信者名')
  if (発信者名==null){発信者名 = ''}
  let 発信者Mail = CopyofEasy4Anyone.get設定('発信者Mail')
  if (発信者Mail==null){発信者Mail = ''}
  let 発信者署名 = CopyofEasy4Anyone.get設定('発信者署名')
  if (発信者署名==null){発信者署名 = ''}
  let 発信者LINEID = CopyofEasy4Anyone.get設定('発信者LINEID')
  if (発信者LINEID==null){発信者LINEID = ''}
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','Mail送信')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('検索語',検索語)
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('行事番号',行事番号)
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('Mail行',Mail行)
  タグ = タグ + CopyofEasy4Anyone.ボタン(URL+'?画面=Mail&Mail行=0&行='+行事番号+'&検索語='+検索語,'行事内容型メール')
             + CopyofEasy4Anyone.ボタン(URL+'?画面=Mail&Mail行=1&行='+行事番号+'&検索語='+検索語,'ファイル1型メール')
             + CopyofEasy4Anyone.ボタン(URL+'?画面=Mail&Mail行=2&行='+行事番号+'&検索語='+検索語,'ファイル2型メール')
             + CopyofEasy4Anyone.ボタン(URL+'?画面=Mail&Mail行=3&行='+行事番号+'&検索語='+検索語,'ファイル3型メール')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ('発信者名','TEXT',発信者名,15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ('発信者Mail','TEXT',発信者Mail,15,'')
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ('発信者LINEID','TEXT',発信者LINEID,15,'')
  const 行事一覧 = 行事情報.select(['行事名','行事内容','メール','メール1','メール2','メール3','原本ファイルID','ファイルID']).where({'row':['==',行事番号]}).result()
  if (行事一覧.length==1){
    let ファイルID = 行事一覧[0]['ファイルID'].split(/\n/)[0]
    if (ファイルID!='' && ファイルID.indexOf(':')>0){
      タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('ファイルID',ファイルID.split(':')[0])
    } else {タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('ファイルID','')}

    let 件名 = ''
    let 本文 = ''
    if (Mail行 == 0){
      const メール = 行事一覧[0]['メール']
      if (メール!=''){
        件名 = メール.substr(0,メール.indexOf('\n'))
        本文 = メール.substr(メール.indexOf('\n'))
      } else {
        件名 = 行事一覧[0]['行事名']
        本文 = 行事一覧[0]['行事内容']
      }
    } else {
      const メール = 行事一覧[0]['メール'+Mail行]
      if (メール!=''){
        件名 = メール.substr(0,メール.indexOf('\n'))
        本文 = メール.substr(メール.indexOf('\n'))
      } else { if (行事一覧[0]['原本ファイルID']!=null && 行事一覧[0]['原本ファイルID']!='')
       {
        let ファイルID = 行事一覧[0]['原本ファイルID'].split(/\n/)[Mail行-1]
        if (ファイルID!='' && ファイルID.indexOf(':')>0){
              const IDとファイル名 =ファイルID.split(':')
              件名 = IDとファイル名[1].substr(0,IDとファイル名[1].lastIndexOf('.'))
              try{
                const docFile = DriveApp.getFileById(IDとファイル名[0])
                本文 = CopyofEasy4Anyone.TEXT変換(docFile)
              }catch{}
        }
       } 
      } 
    }
    タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('件名','TEXT',件名,15,'','','件名・本文の先頭には「(利用者名)様へ」が挿入されます。')
    タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ('本文',本文,160,20,'')
    タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ('発信者署名',発信者署名,80,5,'')
    let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('一覧表示に戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('発信者宛てテストLINE','必須')
             + CopyofEasy4Anyone.SUBMIT表タグ('LINE送信','必須')
    let ページ = CopyofEasy4Anyone.HTML名('自由')
    ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,'',ボタン,'本当にLINE配信してもよいですか？')
    return ページ.evaluate().setTitle('メール送信画面')
  } else {行事一覧表示(検索語)}   
}

function メール送信と一覧表示(e,行事番号,Mail行,検索語) {
  let トークン=''
  let 班=''
  let 発信者名 = CopyofEasy4Anyone.FORM値(e,'発信者名')
  let 発信者Mail = CopyofEasy4Anyone.FORM値(e,'発信者Mail')
  const 発信者署名 = CopyofEasy4Anyone.FORM値(e,'発信者署名').replace(/\r/g,'')
  let 発信者LINEID = CopyofEasy4Anyone.FORM値(e,'発信者LINEID').trim()
  let ファイルID = CopyofEasy4Anyone.FORM値(e,'ファイルID')
  ファイルID='https://drive.google.com/file/d/'+ファイルID+'/view'
  const 件名 = CopyofEasy4Anyone.FORM値(e,'件名')
  const 本文 = CopyofEasy4Anyone.FORM値(e,'本文').replace(/\r/g,'')
  const 全員 = CopyofEasy4Anyone.FORM値(e,'LINE送信')
  CopyofEasy4Anyone.set設定('発信者名',発信者名)
  CopyofEasy4Anyone.set設定('発信者Mail',発信者Mail)
  CopyofEasy4Anyone.set設定('発信者署名',発信者署名)
  CopyofEasy4Anyone.set設定('発信者LINEID',発信者LINEID)
  let 件名と本文 = ''
  if (件名.trim()!='' || 本文.trim()!=''){件名と本文 = 件名+'\n'+本文}
  if (Mail行==0){行事情報.update({'メール':件名と本文},{'row' : ['==',行事番号]})}
  if (Mail行==1){行事情報.update({'メール1':件名と本文},{'row' : ['==',行事番号]})}
  if (Mail行==2){行事情報.update({'メール2':件名と本文},{'row' : ['==',行事番号]})}
  if (Mail行==3){行事情報.update({'メール3':件名と本文},{'row' : ['==',行事番号]})}
  if (全員!='LINE送信'){
    const コミュニティ管理者 = 利用者情報.select(['*']).where({
        'row'      :  ['==',コミュニティ管理者行]
      }).result()
    if (コミュニティ管理者.length==1){
      発信者Mail=コミュニティ管理者[0]['メールアドレス']
      発信者名=コミュニティ管理者[0]['お名前']
      発信者LINEID=コミュニティ管理者[0]['LINEuserId']
      班=コミュニティ管理者[0]['班']
      CopyofEasy4Anyone.set設定('発信者名',発信者名)
      CopyofEasy4Anyone.set設定('発信者Mail',発信者Mail)
      CopyofEasy4Anyone.set設定('発信者LINEID',発信者LINEID)
    }
    const 送信件名 = (`発信者様へ【${件名}】のテスト`)
    let 送信本文 = (`発信者様へ
${本文}

${発信者署名}`)
    if (本文.trim()=='' && ファイルID!=''){
        送信本文=ファイルID
     }

    if(発信者Mail!='' && 発信者Mail!=null){GmailApp.sendEmail(発信者Mail, 送信件名, 送信本文,{name:発信者名,from:発信者Mail})}

    if (発信者LINEID!=''){
      CopyofEasy4Anyone.Addrow=true
      const 行事一覧 = 行事情報.select(['row','行事名','回答欄1']).where({'row':['==',行事番号]}).result()
      let 行事名='',選択肢1='',選択肢2='',選択肢3=''
      if (行事一覧.length==1){
        行事名=行事一覧[0]['行事名']
        let 配列=行事一覧[0]['回答欄1'].split(/\n/)
        if (配列.length>1){選択肢1=配列[0]+':'+配列[1]}
        if (配列.length>2){選択肢2=配列[0]+':'+配列[2]}
        if (配列.length>3){選択肢3=配列[0]+':'+配列[3]}
      }
      let 差込済み本文 = 本文.replace('${表決専用URL}','')
      差込済み本文 = 差込済み本文.replace('${回答専用URL}','')
      差込済み本文 = 差込済み本文.replace('表決専用URL','下記のボタンの中から選択して表決願います。')
      const LINE送信本文 = (`発信者様へ
${差込済み本文}
${ファイルID}
${発信者署名}`)
      let メッセージ=LINE送信本文
      if (本文.trim()==''){
        メッセージ=送信件名
        if (ファイルID!=''){メッセージ=メッセージ+'\n'+ファイルID}
      }
      if (発信者LINEID!=''){
        let LINEトークン = LINE情報.select(['班','アクセストークン']).where({ 
          '班' : ['==',班]
        }).result()
      if (LINEトークン.length==1) {トークン=LINEトークン[0]['アクセストークン']}
      let タイプ=''
      let URL=''      
      CopyofEasy4Anyone.LINE個別送信(発信者LINEID,メッセージ,タイプ,URL,URL,行事名,選択肢1,選択肢2,選択肢3,トークン)
    }}

  } else {
      const 全利用者 = 利用者情報.select(['*']).where({
//        'メールアドレス' : ['!=',''],
        'パスワード'      :  ['!=','']
      }).result()
      
      全利用者.forEach(function(利用者){

    const 送信件名 = (`${利用者['お名前']}様へ【${件名}】`)
    if (利用者['メールアドレス']!=''){
        const 送信先 = 利用者['メールアドレス']
        const 暗号 = CopyofEasy4Anyone.暗号化(利用者['ログイン利用者ID'],利用者['パスワード'],行事番号)
        const 表決専用URL = 利用者向けURL+'?EVENT='+encodeURIComponent(暗号)
        let 差込済み本文 = 本文.replace('${表決専用URL}',表決専用URL)
        差込済み本文 = 差込済み本文.replace('${回答専用URL}',表決専用URL)
        let 送信本文 = (`${利用者['お名前']}様へ

${差込済み本文}

${発信者署名}`)
    if (本文.trim()=='' && ファイルID!=''){
        送信本文=ファイルID
     }
    GmailApp.sendEmail(送信先, 送信件名, 送信本文,{name:発信者名,from:発信者Mail})
    }
    if (利用者['LINEuserId']!=''){
      let LINEトークン = LINE情報.select(['班','アクセストークン']).where({ 
          '班' : ['==',利用者['班']]
        }).result()
      if (LINEトークン.length==1) {トークン=LINEトークン[0]['アクセストークン']}
      CopyofEasy4Anyone.Addrow=true
      const 行事一覧 = 行事情報.select(['row','行事名','回答欄1']).where({'row':['==',行事番号]}).result()
      let 行事名='',選択肢1='',選択肢2='',選択肢3=''
      if (行事一覧.length==1){
        行事名=行事一覧[0]['行事名']
        let 配列=行事一覧[0]['回答欄1'].split(/\n/)
        if (配列.length>1){選択肢1=配列[0]+':'+配列[1]}
        if (配列.length>2){選択肢2=配列[0]+':'+配列[2]}
        if (配列.length>3){選択肢3=配列[0]+':'+配列[3]}
      }
      差込済み本文 = 本文.replace('${表決専用URL}','')
      差込済み本文 = 差込済み本文.replace('${回答専用URL}','')
      差込済み本文 = 差込済み本文.replace('表決専用URL','下記のボタンの中から選択して表決願います。')
      const LINE送信本文 = (`${利用者['お名前']}様へ

${差込済み本文}
${ファイルID}
${発信者署名}`)
      let メッセージ=LINE送信本文
      if (本文.trim()==''){
        メッセージ=送信件名
        if (ファイルID!=''){メッセージ=メッセージ+'\n'+ファイルID}
      }
      let タイプ=''
      let URL=''      
      CopyofEasy4Anyone.LINE個別送信(利用者['LINEuserId'],メッセージ,タイプ,URL,URL,行事名,選択肢1,選択肢2,選択肢3,トークン)
    }
      })
  }
  return 行事一覧表示(検索語)
}

function メールとLINEで緊急連絡と一覧表示(連絡事項,検索語){
  const 発信者名 = CopyofEasy4Anyone.get設定('発信者名')
  const 発信者Mail = CopyofEasy4Anyone.get設定('発信者Mail')
  let 全利用者 = 利用者情報.select(['メールアドレス']).where({
        'メールアドレス' : ['!=',''],
        'パスワード'      :  ['!=','']
      }).result(true)
  if (全利用者.length>1){
    全利用者.shift()   
    const 全メールアドレス = 全利用者.join(',') 
    GmailApp.sendEmail(発信者Mail, 'コミュニティより緊急連絡', 連絡事項,{name:発信者名,from:発信者Mail,bcc:全メールアドレス})
  }     
  全利用者 = 利用者情報.select(['班','LINEuserId']).where({
        'LINEuserId' : ['!=','']
      }).result()
  if (全利用者.length>1){
    let 行事名='',選択肢1='',選択肢2='',選択肢3='',タイプ='',URL=''
    全利用者.forEach(function(利用者){
    let LINEトークン = LINE情報.select(['アクセストークン']).where({
          '班' : ['==',利用者['班']]
        }).result()
    if (LINEトークン[0]['アクセストークン']!=''){
      CopyofEasy4Anyone.LINE個別送信(利用者['LINEuserId'],連絡事項,タイプ,URL,URL,行事名,選択肢1,選択肢2,選択肢3,LINEトークン[0]['アクセストークン'])
    }
//  let LINEトークン = LINE情報.select(['アクセストークン']).result()
//  LINEトークン.forEach(function(トークン){
//    if (トークン['アクセストークン']!=''){ CopyofEasy4Anyone.LINE一斉送信(連絡事項,トークン['アクセストークン'])}
    })
  }
  return 行事一覧表示(検索語)
}

function 回答状況表示(行,行事名,検索語) {
  let タグ = ''
  タグ = CopyofEasy4Anyone.ボタン(URL+'?画面=&検索語='+検索語,'一覧表示に戻る')
  const 回答情報検索結果 = 回答情報検索(行,行事名)
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し横型',回答情報検索結果,行事名+'【回答状況】')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('回答状況一覧')
}

function 組織一覧表示() {
  let タグ = メニュー作成()
  const 組織情報検索結果 = 組織情報検索()
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し横型',組織情報検索結果,'組織一覧')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('組織一覧')
}

function 組織新規修正画面表示(行事番号) {
  let 組織 = 組織情報.select(['*']).where({'row':['==',行事番号]}).result()
  if (組織.length == 0){組織 = [{'組織名':'','組織内容':'','役職一覧':''}]}
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','組織登録')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('行事番号',行事番号)
  タグ = タグ + CopyofEasy4Anyone.INPUT表タグ必須('組織名','TEXT',組織[0]['組織名'],15,'')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ必須('組織内容',組織[0]['組織内容'],80,10,'')
  タグ = タグ + CopyofEasy4Anyone.TEXTAREA表タグ必須('役職一覧',組織[0]['役職一覧'],80,10,'')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('組織一覧表示に戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('登録更新','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,'組織登録更新画面',ボタン)
  return ページ.evaluate().setTitle('組織登録更新画面')
}

function 組織削除画面表示(行事番号) {
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','組織削除')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('行事番号',行事番号)
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し縦型',組織削除検索(行事番号),'組織削除画面')
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('組織一覧表示に戻る','任意')
             + CopyofEasy4Anyone.SUBMIT表タグ('削除','必須')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = CopyofEasy4Anyone.FORM表タグ(URL,タグ,'',ボタン,'本当に削除してもよいですか？')
  return ページ.evaluate().setTitle('組織削除画面')
}

function 組織登録と画面表示(e,行事番号) {
  const 組織名 = CopyofEasy4Anyone.FORM値(e,'組織名')
  const 組織内容 = CopyofEasy4Anyone.FORM値(e,'組織内容').replace(/\r/g,'')
  const 役職一覧 = CopyofEasy4Anyone.FORM値(e,'役職一覧').replace(/\r/g,'')
  let 組織 = 組織情報.select(['組織名']).where({'row':['==',行事番号]}).result()
  if (組織.length == 0){
    組織情報.insert([{'組織名':組織名,'組織内容':組織内容,'役職一覧':役職一覧}])
  } else {
    組織情報.update({'組織名':組織名,'組織内容': 組織内容,'役職一覧':役職一覧},{'row':['==',行事番号]})
  }
  組織情報.refresh()      
  return 組織一覧表示()
}

function 組織削除と一覧表示(行事番号) {
  CopyofEasy4Anyone.Addrow=true
  let 組織一覧 = 組織情報.select(['*']).where({'row':['==',行事番号]}).result()
  if (組織一覧.length==1){
    組織情報.deleteRow({'row':['==',行事番号]})
  }
  組織情報.refresh()      
  return 組織一覧表示()
}

function 住民一覧表示() {
  let タグ = メニュー作成()
  const 住民情報検索結果 = 住民情報検索()
  タグ = タグ + CopyofEasy4Anyone.HTML表作成('表見出し横型',住民情報検索結果,'住民一覧')
  let ページ = CopyofEasy4Anyone.HTML名('自由')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('住民一覧')
}

function 住民修正画面表示(行事番号) {
  let メッセージ = []
  let 住民 = 利用者情報.select(['ログイン利用者ID','お名前','役職','自己紹介ファイルID']).where({'row':['==',行事番号]}).result()
  if (住民.length == 0){住民 = [{'ログイン利用者ID':'','お名前':'','役職':'','自己紹介ファイルID':'\n\n'}]}
  else{
    const ファイル = 住民[0]['自己紹介ファイルID'].split(/\n/)
    ファイル.forEach(function(ファイルID){
      if (ファイルID!=''){
        try {
          const IDとファイル名 =ファイルID.split(':')
          メッセージ.push(行事URLリンク(IDとファイル名[0],IDとファイル名[1])+'<br>')
        }  catch {メッセージ.push(ファイルID +'は存在しません')}
      } else {メッセージ.push('')}
    })
  }
  let 組織役職一覧=組織役職検索()
  let タグ = ''
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('画面','住民修正')
  タグ = タグ + CopyofEasy4Anyone.HIDDENタグ('行事番号',行事番号)
  タグ = タグ + CopyofEasy4Anyone.LABEL表タグ('ログイン利用者ID',住民[0]['ログイン利用者ID'])
  タグ = タグ + CopyofEasy4Anyone.LABEL表タグ('お名前',住民[0]['お名前'])
  タグ = タグ + CopyofEasy4Anyone.SELECT表タグ(組織役職一覧,住民[0]['役職'],'複数')
  タグ = タグ + CopyofEasy4Anyone.FILE表タグ任意('顔写真',1,メッセージ[0])
  タグ = タグ + CopyofEasy4Anyone.FILE表タグ任意('動画や音声',2,メッセージ[1])
  let ボタン = CopyofEasy4Anyone.SUBMIT表タグ('登録更新','必須')
  タグ = CopyofEasy4Anyone.ボタン(URL+'?画面=住民一覧','住民一覧表示に戻る')
       + CopyofEasy4Anyone.UploadFORM表タグ(タグ,'住民修正画面',ボタン,true)
  let ページ = CopyofEasy4Anyone.HTML名('アップロード')
  ページ.自由 = タグ
  return ページ.evaluate().setTitle('住民修正画面')
}

function 住民修正と画面表示(e,行事番号) {
  let 役職=CopyofEasy4Anyone.FORM値(e,'組織役職')
  if (役職!=null){役職=役職.toString().replace(/,/g,'\n')}
  let ファイルID = ''
  const 現在日時 = new Date()
  let メッセージ=[Utilities.formatDate(現在日時, 'JST', 'H時m分に更新しました')]
  var {fileId,ファイル名,入力fileId} = CopyofEasy4Anyone.FORM値(e,'顔写真','ファイル')
  if (入力fileId==''){
    ファイルID=ファイルID+'\n'
  } else{
    ファイルID=ファイルID+入力fileId+':'+ファイル名+'\n'
  }
  if (ファイル名 != '') { メッセージ.push(行事URLリンク(fileId,ファイル名)+'を住民に追加しました。')}
    else {メッセージ.push('')}
  var {fileId,ファイル名,入力fileId} = CopyofEasy4Anyone.FORM値(e,'動画や音声','ファイル')
  if (入力fileId==''){
    ファイルID=ファイルID+'\n'
  } else{
    ファイルID=ファイルID+入力fileId+':'+ファイル名+'\n'
  }
  if (ファイル名 != '') { メッセージ.push(行事URLリンク(fileId,ファイル名)+'を住民に追加しました。')}
    else {メッセージ.push('')}
  const 旧ファイルID = 利用者情報.select(['自己紹介ファイルID']).where({'row':['==',行事番号]}).result()
  if (旧ファイルID != '') {
    const {新ファイルID,編集済メッセージ}=自己紹介新旧ファイル交換(ファイルID,旧ファイルID[0]['自己紹介ファイルID'],メッセージ)
    メッセージ = 編集済メッセージ
    ファイルID = 新ファイルID
  }
  利用者情報.update({'役職':役職,'自己紹介ファイルID':ファイルID},{'row' : ['==',行事番号]})
  return メッセージ
}

function 複製と一覧表示(行事番号,検索語) {
  CopyofEasy4Anyone.Addrow=true
  let 行事一覧 = 行事情報.select(['*']).where({'row':['==',行事番号]}).result()
  if (行事一覧.length==1){
    const 新ファイルID=ファイル複製(行事一覧[0]['ファイルID'],3)
    const 新原本ファイルID=ファイル複製(行事一覧[0]['原本ファイルID'],3)
    const 今日の日付=Utilities.formatDate(new Date(),'JST','yyyy/MM/dd ')
    行事一覧[0]['行事開始日時']=new Date(今日の日付+Utilities.formatDate(行事一覧[0]['行事開始日時'],'JST','HH:mm:ss'))
    行事一覧[0]['行事終了日時']=new Date(今日の日付+Utilities.formatDate(行事一覧[0]['行事終了日時'],'JST','HH:mm:ss'))
    行事情報.insert([{'行事名':行事一覧[0]['行事名'],'行事内容':行事一覧[0]['行事内容'],'行事開始日時':行事一覧[0]['行事開始日時'],'行事終了日時':行事一覧[0]['行事終了日時'],'回答開始日時':行事一覧[0]['回答開始日時'],'回答終了日時':行事一覧[0]['回答終了日時'],'回答欄1':行事一覧[0]['回答欄1'],'回答欄2':行事一覧[0]['回答欄2'],'回答欄3':行事一覧[0]['回答欄3'],'場所':行事一覧[0]['場所'],'住所':行事一覧[0]['住所'],'問合先':行事一覧[0]['問合先'],'電話番号':行事一覧[0]['電話番号'],'ファイルID':新ファイルID,'原本ファイルID':新原本ファイルID,'月':'','週':'','曜日':'','日':'','祝日':'','追加日':'','除外日':''}])
    行事情報.refresh()
  }
  return 行事一覧表示(検索語)
}
function 町内会組織図画面表示() {
  let 班番号 = {}
  let 名前 = {}
  let 電話番号 = {}
  let 住民一覧 = 利用者情報.select(['ログイン利用者ID','班','お名前','電話番号']).result()
  if (住民一覧.length>0){
    住民一覧.forEach(function(住民){
      班番号[住民['ログイン利用者ID']]=住民['班']
      名前[住民['ログイン利用者ID']]=住民['お名前']
      電話番号[住民['ログイン利用者ID']]=住民['電話番号']
    })
  }
  const 現在日時 = new Date()
  let 組織図 = {}
  組織図['町内会名']=町内会名
  組織図['年度']=現在日時.getFullYear()+' 年度'
  let 町内会一覧 = 町内会情報.select(['*']).where({'年度':['==',現在日時.getFullYear()]}).result()
  if (町内会一覧.length==0){
    町内会年度更新(現在日時.getFullYear()-1)
    町内会一覧 = 町内会情報.select(['*']).where({'年度':['==',現在日時.getFullYear()]}).result()
  }
  if (町内会一覧.length>0){
    町内会一覧.forEach(function(班){
      let 班名=''
      for (key in 班){
        if (key == '班'){班名=班[key]}
        else{
          if (班[key]!=''){
            if (班名=='全体'){組織図[班名 + ':' + key]='('+班番号[班[key]]+呼称+')'+名前[班[key]]}
            else{組織図[班名 + ':' + key]=名前[班[key]]}
            let TEL=電話番号[班[key]]
            if (TEL=='' || TEL==null){組織図[班名 + ':' + key + ':TEL']=''}
            else{
             TEL=TEL.toString()
             if (TEL.indexOf(市外局番)==0){TEL=TEL.substring(4)}
             組織図[班名 + ':' + key + ':TEL']=TEL
            } 
          }else{
            組織図[班名 + ':' + key]=''
            組織図[班名 + ':' + key + ':TEL']=''
          }
        }
      }
    })
  }
//Logger.log(組織図)
  let ページ = CopyofEasy4Anyone.HTML名('町内会組織図')
  ページ.メニュー = メニュー作成()
  ページ.用紙横サイズ = '297mm'
  ページ.用紙縦サイズ = '210mm'
  ページ.データ = JSON.stringify(組織図)
  return ページ.evaluate().setTitle('町内会組織図')
}
function 町内会清掃当番表画面表示() {
  const 現在日時 = new Date()
  let 日付=new Date(現在日時.getFullYear(),4-1,第何曜日は何日(1,0,現在日時.getFullYear(),4))
  let 当番表={}
  let 起点ID=''
  let 町内会一覧 = 町内会情報.select(['月番']).where({'班':['==','全体'],'年度':['==',現在日時.getFullYear()]}).result()
  if (町内会一覧.length==0){
    町内会年度更新(現在日時.getFullYear()-1)
    町内会一覧 = 町内会情報.select(['月番']).where({'班':['==','全体'],'年度':['==',現在日時.getFullYear()]}).result()
  }
  if (町内会一覧.length>0){
    起点ID=町内会一覧[0]['月番']
  }
  let 住民一覧 = 利用者情報.select(['ログイン利用者ID','班','お名前','スクリーン順']).where({'スクリーン順':['!=','']}).result()
  if (住民一覧.length>0){
    住民一覧.forEach(function(住民){
      if (isNaN(住民['班'])==false){住民['スクリーン順']=住民['班']*1000+parseInt(住民['スクリーン順'])}else{住民['スクリーン順']=班順.indexOf(住民['班'])*1000+parseInt(住民['スクリーン順'])}
      住民['お名前']='('+住民['班']+呼称+')'+住民['お名前']
    })
    住民一覧.sort(function(a,b){return a['スクリーン順']-b['スクリーン順']})
    let 順番=-1
    住民一覧.forEach(function(住民){
      if (順番<0){if (住民['ログイン利用者ID']==起点ID){順番=0}}
      if (順番>=0 && 順番<町内輪番表掲載人数){順番=順番+1;当番表['担当'+順番]=住民['お名前']}
    })
    if (順番<町内輪番表掲載人数){
      住民一覧.forEach(function(住民){
        if (順番>=0 && 順番<町内輪番表掲載人数){順番=順番+1;当番表['担当'+順番]=住民['お名前']}
      })
    }
  }

  for (let i = 1; i <= 町内輪番表掲載人数; i++){
    当番表['日'+i]=Utilities.formatDate(日付,'JST','yyyy年MM月dd日(日)')
    日付.setDate(日付.getDate()+7)
  }  
  let ページ = CopyofEasy4Anyone.HTML名('町内会清掃当番表')
  ページ.メニュー = メニュー作成()
  ページ.用紙横サイズ = '210mm'
  ページ.用紙縦サイズ = '297mm'
  ページ.データ = JSON.stringify(当番表)
  return ページ.evaluate().setTitle('町内会清掃当番表')
}
function 町内会班別担当表画面表示() {
  let 担当表={}
  const 現在日時 = new Date()
  let 町内会一覧 = 町内会情報.select(['*']).where({'年度':['==',現在日時.getFullYear()],'班':['!=','全体']}).result()
  if (町内会一覧.length==0){
    町内会年度更新(現在日時.getFullYear()-1)
    町内会一覧 = 町内会情報.select(['*']).where({'年度':['==',現在日時.getFullYear()]}).result()
  }
  if (町内会一覧.length>0){
    町内会一覧.forEach(function(班){
      let 任期='６か月'
      if (班['班長後期']==''){任期='１年'}
      担当表[班['班']+'頁']=班['班']
      担当表[班['班']+'頁'+'任期']=任期
      for (let 部会 of ['環境美化1','環境美化2','体育1','体育2','レクレーション1','レクレーション2','福祉1','福祉2','防災1','防災2','防災3','防災4']){
        if (班[部会]==''){担当表[班['班']+'頁'+部会]='';担当表[班['班']+'頁'+部会+':TEL']='' } 
        else {
          let 住民一覧 = 利用者情報.select(['ログイン利用者ID','班','お名前','電話番号']).where({'ログイン利用者ID':['==',班[部会]]}).result()
          if (住民一覧.length==1){
            担当表[班['班']+'頁'+部会]=住民一覧[0]['お名前']
            担当表[班['班']+'頁'+部会+':TEL']=住民一覧[0]['電話番号'].replace('088-','') 
          }
        }
      }
      let 人数=-1
      const 現在日時 = new Date()
      let 日付=new Date(現在日時.getFullYear(),4-1,1)
      let 住民一覧 = 利用者情報.select(['ログイン利用者ID','班','お名前',{col:'班長順:%+0',alias:'班長順'}]).sort([{'班長順':true}]).where({'班':['==',班['班']],'班長順':['>',0]}).result()
      if (住民一覧.length>0){
        住民一覧.forEach(function(住民){
          if (人数<0){if (住民['ログイン利用者ID']==班['班長']){人数=0}}
          if (人数>=0){
            人数=人数+1
            担当表[班['班']+'頁'+'班長'+人数]=住民['お名前']
            担当表[班['班']+'頁'+'班長開始日'+人数]=Utilities.formatDate(日付,'JST','yyyy年MM月dd日')
            if (任期=='１年'){日付=CopyofEasy4Anyone.経過日時(日付,1,0,0,0,0,0)}else{日付=CopyofEasy4Anyone.経過日時(日付,0,6,0,0,0,0)}
          }
        })
        if (住民一覧.length>1 && 人数<班内班長順掲載人数){
          住民一覧.forEach(function(住民){
            人数=人数+1
            担当表[班['班']+'頁'+'班長'+人数]=住民['お名前']
            担当表[班['班']+'頁'+'班長開始日'+人数]=Utilities.formatDate(日付,'JST','yyyy年MM月dd日')
            if (任期=='１年'){日付=CopyofEasy4Anyone.経過日時(日付,1,0,0,0,0,0)}else{日付=CopyofEasy4Anyone.経過日時(日付,0,6,0,0,0,0)}
          })
        }
        if (人数<班内班長順掲載人数){
          for (let i = 人数+1; i <= 班内班長順掲載人数; i++){
            担当表[班['班']+'頁'+'班長'+i]=''
            担当表[班['班']+'頁'+'班長開始日'+i]=''
          }  
        }  
      }
      人数=-1
      日付=new Date(現在日時.getFullYear(),4-1,1)
      住民一覧 = 利用者情報.select(['ログイン利用者ID','班','お名前',{col:'月番順:%+0',alias:'月番順'}]).sort([{'月番順':true}]).where({'班':['==',班['班']],'月番順':['>',0]}).result()
      if (住民一覧.length>0){
        住民一覧.forEach(function(住民){
          if (人数<0){if (住民['ログイン利用者ID']==班['月番']){人数=0}}
          if (人数>=0){
            人数=人数+1
            担当表[班['班']+'頁'+'月番'+人数]=住民['お名前']
            担当表[班['班']+'頁'+'月番開始日'+人数]=Utilities.formatDate(日付,'JST','yyyy年MM月dd日')
            日付=CopyofEasy4Anyone.経過日時(日付,0,1,0,0,0,0)
          }
        })
        if (住民一覧.length>1 && 人数<班内月番順掲載人数){
          住民一覧.forEach(function(住民){
            人数=人数+1
            担当表[班['班']+'頁'+'月番'+人数]=住民['お名前']
            担当表[班['班']+'頁'+'月番開始日'+人数]=Utilities.formatDate(日付,'JST','yyyy年MM月dd日')
            日付=CopyofEasy4Anyone.経過日時(日付,0,1,0,0,0,0)
          })
        }
        if (人数<班内月番順掲載人数){
          for (let i = 人数+1; i <= 班内月番順掲載人数; i++){
            担当表[班['班']+'頁'+'月番'+i]=''
            担当表[班['班']+'頁'+'月番開始日'+i]=''
          }  
        }  
      } else{
          for (let i = 1; i <= 班内月番順掲載人数; i++){
            担当表[班['班']+'頁'+'月番'+i]=''
            担当表[班['班']+'頁'+'月番開始日'+i]=''
          }  
      }
    })  
  }
  let ページ = CopyofEasy4Anyone.HTML名('町内会班別担当表')
  ページ.メニュー = メニュー作成()
  ページ.用紙横サイズ = '297mm'
  ページ.用紙縦サイズ = '210mm'
  ページ.データ = JSON.stringify(担当表)
  return ページ.evaluate().setTitle('町内会班別担当表')
}
function 町内会回覧板画面表示() {
  let 回覧板={}
  let 記憶班=''
  let 班人数=班最大人数
  let 住民一覧 = 利用者情報.select(['班','お名前',{col:'回覧順:%+0',alias:'回覧順'},'回覧不要']).where({'回覧順':['>',0]}).result()
  if (住民一覧.length>0){
    住民一覧.forEach(function(住民){
      if (isNaN(住民['班'])==false){住民['回覧順']=住民['班']*1000+parseInt(住民['回覧順'])}else{住民['回覧順']=班順.indexOf(住民['班'])*1000+parseInt(住民['回覧順'])}
    })
    住民一覧.sort(function(a,b){return a['回覧順']-b['回覧順']})
    住民一覧.forEach(function(住民){
      if (記憶班!=住民['班']){
        if (班人数<班最大人数){
         for (let i = 班人数+1; i <= 班最大人数; i++){
           回覧板[記憶班+'頁'+'名前'+i]=''
           回覧板[記憶班+'頁'+'確認'+i]=''
           回覧板[記憶班+'頁'+'斜線'+i]=''
         }  
        }
        回覧板[住民['班']+'頁']=住民['班']
        記憶班=住民['班']
        班人数=0
      }
      班人数=班人数+1
      回覧板[記憶班+'頁'+'名前'+班人数]=住民['お名前']
      回覧板[記憶班+'頁'+'確認'+班人数]='／'
      if (住民['回覧不要']=='不要'){回覧板[記憶班+'頁'+'斜線'+班人数]='class="斜線"'}else{回覧板[記憶班+'頁'+'斜線'+班人数]=''}
    })
        if (班人数<班最大人数){
         for (let i = 班人数+1; i <= 班最大人数; i++){
           回覧板[記憶班+'頁'+'名前'+i]=''
           回覧板[記憶班+'頁'+'確認'+i]=''
           回覧板[記憶班+'頁'+'斜線'+i]=''
         }  
        }
  }  
  let ページ = CopyofEasy4Anyone.HTML名('町内会回覧板')
  ページ.メニュー = メニュー作成()
  ページ.用紙横サイズ = '210mm'
  ページ.用紙縦サイズ = '297mm'
  ページ.データ = JSON.stringify(回覧板)
  return ページ.evaluate().setTitle('町内会回覧板')
}
function 町内会回覧板QRコード付き画面表示() {
  let 回覧板={}
  let 記憶班=''
  let 班人数=班最大人数
  let 住民一覧 = 利用者情報.select(['班','お名前',{col:'回覧順:%+0',alias:'回覧順'},'回覧不要']).where({'回覧順':['>',0]}).result()
  if (住民一覧.length>0){
    住民一覧.forEach(function(住民){
      if (isNaN(住民['班'])==false){住民['回覧順']=住民['班']*1000+parseInt(住民['回覧順'])}else{住民['回覧順']=班順.indexOf(住民['班'])*1000+parseInt(住民['回覧順'])}
    })
    住民一覧.sort(function(a,b){return a['回覧順']-b['回覧順']})
    住民一覧.forEach(function(住民){
      if (記憶班!=住民['班']){
        if (班人数<班最大人数){
         for (let i = 班人数+1; i <= 班最大人数; i++){
           回覧板[記憶班+'頁'+'名前'+i]=''
           回覧板[記憶班+'頁'+'確認'+i]=''
           回覧板[記憶班+'頁'+'斜線'+i]=''
         }  
        }
        回覧板[住民['班']+'頁']=住民['班']
        記憶班=住民['班']
        班人数=0
        let QR = LINE情報.select(['QRコード']).where({'班':['==',住民['班']]}).result()
        if (QR.length>0){回覧板[住民['班']+'頁'+'QRコード']=QR[0]['QRコード']} else {回覧板[住民['班']+'頁'+'QRコード']=''}
      }
      班人数=班人数+1
      回覧板[記憶班+'頁'+'名前'+班人数]=住民['お名前']
      回覧板[記憶班+'頁'+'確認'+班人数]='／'
      if (住民['回覧不要']=='不要'){回覧板[記憶班+'頁'+'斜線'+班人数]='class="斜線"'}else{回覧板[記憶班+'頁'+'斜線'+班人数]=''}
    })
        if (班人数<班最大人数){
         for (let i = 班人数+1; i <= 班最大人数; i++){
           回覧板[記憶班+'頁'+'名前'+i]=''
           回覧板[記憶班+'頁'+'確認'+i]=''
           回覧板[記憶班+'頁'+'斜線'+i]=''
         }  
        }
  }  
  let ページ = CopyofEasy4Anyone.HTML名('町内会回覧板QRコード付き')
  ページ.メニュー = メニュー作成()
  ページ.用紙横サイズ = '210mm'
  ページ.用紙縦サイズ = '297mm'
  ページ.データ = JSON.stringify(回覧板)
  return ページ.evaluate().setTitle('町内会回覧板QRコード付き')
}
/**************************************************
  Webアプリ【チェック】用ローカル処理
**************************************************/

/**************************************************
  Webアプリ【共通処理】用ローカル処理
**************************************************/
function メニュー作成() {
  let 親タグ = ''
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('行事一覧',URL+'?画面=')
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('組織一覧',URL+'?画面=組織一覧')
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('住民一覧',URL+'?画面=住民一覧')
  let 子タグ = ''
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('町内会組織図',URL+'?画面=組織図')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('町内会清掃当番表',URL+'?画面=清掃当番表')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('町内会班別担当表',URL+'?画面=班別担当表')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('町内会回覧板',URL+'?画面=回覧板')
  子タグ = 子タグ + CopyofEasy4Anyone.メニュー子階層('町内会回覧板QR付',URL+'?画面=回覧板QR')
  親タグ = 親タグ + CopyofEasy4Anyone.メニュー親階層('町内会','',子タグ)
  return CopyofEasy4Anyone.メニュー作成('',親タグ)
}

function 第何曜日は何日(第何, 曜日, 年, 月) {
  let 年月 = new Date(年,月,0)
  return ((7 * (第何 - 1) + 1) + (曜日 - new Date(年月.getFullYear(), 年月.getMonth(), 1).getDay()) + (-(Math.sign(Math.sign(曜日 - new Date(年月.getFullYear(), 年月.getMonth(), 1).getDay()) + 1) - 1) * 7)) * Math.sign(Math.sign(new Date(年月.getFullYear(), 年月.getMonth() + 1, 0).getDate() - ((7 * (第何 - 1) + 1) + (曜日 - new Date(年月.getFullYear(), 年月.getMonth(), 1).getDay()) + (-(Math.sign(Math.sign(曜日 - new Date(年月.getFullYear(), 年月.getMonth(), 1).getDay()) + 1) - 1) * 7))) + 1)
}

function 町内会年度更新(前年) {
  let 町内会一覧 = 町内会情報.select(['*']).where({'年度':['==',前年]}).result()
  if (町内会一覧.length>0){
    町内会一覧.forEach(function(班){
      if (班['班']=='全体'){
        let 起点ID=班['月番']
        let 住民一覧 = 利用者情報.select(['ログイン利用者ID','班','スクリーン順']).where({'スクリーン順':['!=','']}).result()
        if (住民一覧.length>0){
          住民一覧.forEach(function(住民){
            住民['スクリーン順']=parseInt(住民['班'])*100+parseInt(住民['スクリーン順'])
          })
          住民一覧.sort(function(a,b){return a['スクリーン順']-b['スクリーン順']})
          let 順番=-1
          住民一覧.forEach(function(住民){
            if (順番>=0 && 順番<52){順番=順番+1;if (順番==52){班['月番']=住民['ログイン利用者ID']}}
            if (順番<0){if (住民['ログイン利用者ID']==起点ID){順番=0}}
          })
          if (順番<52){
            住民一覧.forEach(function(住民){
              if (順番>=0 && 順番<52){順番=順番+1;if (順番==52){班['月番']=住民['ログイン利用者ID']}}
            })
          }
        }  
      } else {
        let 除外=[班['班長'].toString(),班['班長後期'].toString(),班['環境美化1'].toString(),班['環境美化2'].toString(),班['体育1'].toString(),班['体育2'].toString(),班['レクレーション1'].toString(), 班['レクレーション2'].toString(),班['福祉1'].toString(),班['福祉2'].toString(),班['防災1'].toString(),班['防災2'].toString(),班['防災3'].toString(),班['防災4'].toString()]
        let 起点ID=班['月番']
        let 住民一覧 = 利用者情報.select(['ログイン利用者ID','班',{col:'月番順:%+0',alias:'月番順'}]).sort([{'月番順':true}]).where({'班':['==',班['班']],'月番順':['>','0']}).result()
        if (住民一覧.length>0){
          let 順番=-1
          住民一覧.forEach(function(住民){
            if (順番>=0 && 順番<12){順番=順番+1;if (順番==12){班['月番']=住民['ログイン利用者ID']}}
            if (順番<0){if (住民['ログイン利用者ID']==起点ID){順番=0}}
          })
          if (順番<12){
            住民一覧.forEach(function(住民){
              if (順番>=0 && 順番<12){順番=順番+1;if (順番==12){班['月番']=住民['ログイン利用者ID']}}
            })
          }
        }
        起点ID=班['班長後期']
        if (起点ID==''){起点ID=班['班長']}
        住民一覧 = 利用者情報.select(['ログイン利用者ID','班',{col:'班長順:%+0',alias:'班長順'}]).sort([{'班長順':true}]).where({'班':['==',班['班']],'班長順':['>','0']}).result()
        if (住民一覧.length>0){
          let 順番=-1
          住民一覧.forEach(function(住民){
            if (順番>=0 && 順番<2){順番=順番+1;if (順番==1){班['班長']=住民['ログイン利用者ID'];};if (順番==2 && 班['班長後期']!=''){班['班長後期']=住民['ログイン利用者ID']}}
            if (順番<0){if (住民['ログイン利用者ID']==起点ID){順番=0}}
          })
          if (順番<2){
            住民一覧.forEach(function(住民){
              if (順番>=0 && 順番<2){順番=順番+1;if (順番==1){班['班長']=住民['ログイン利用者ID']};if (順番==2 && 班['班長後期']!=''){班['班長後期']=住民['ログイン利用者ID']}}
            })
          }
        }
        除外.push(班['班長'].toString())  
        除外.push(班['班長後期'].toString())  
        for (let 部会 of ['環境美化1','環境美化2','体育1','体育2','レクレーション1','レクレーション2','福祉1','福祉2','防災1','防災2','防災3','防災4']){
          if (班[部会]!=''){
            let 輪番住民 = 利用者情報.select(['ログイン利用者ID','班','部会順']).where({'ログイン利用者ID':['==',班[部会]],'部会順':['!=','']}).result()
            if (輪番住民.length==1){
              起点ID=班[部会]
              let 住民一覧 = 利用者情報.select(['ログイン利用者ID','班',{col:'部会順:%+0',alias:'部会順'}]).sort([{'部会順':true}]).where({'班':['==',輪番住民[0]['班']],'部会順':['>','0']}).result()
              if (住民一覧.length>0){
                let 順番=-1
                住民一覧.forEach(function(住民){
                  if (!(除外.includes(住民['ログイン利用者ID'].toString()))){
                    if (順番>=0 && 順番<1){順番=順番+1;if (順番==1){班[部会]=住民['ログイン利用者ID']}}
                  }  
                  if (順番<0){if (住民['ログイン利用者ID']==起点ID){順番=0}}
                })
                if (順番<1){
                  住民一覧.forEach(function(住民){
                    if (!(除外.includes(住民['ログイン利用者ID'].toString()))){
                      if (順番>=0 && 順番<1){順番=順番+1;if (順番==1){班[部会]=住民['ログイン利用者ID']}}
                    }  
                    if (順番<0){if (住民['ログイン利用者ID']==起点ID){順番=0}}
                  })
                }
                除外.push(班[部会].toString())  
              }
            }
          }
        }  
      }
      町内会情報.insert([{'年度':前年+1,'班':班['班'],'副会長':班['副会長'],'班長':班['班長'],'班長後期':班['班長後期'],'月番':班['月番'],   '環境美化1':班['環境美化1'],'環境美化2':班['環境美化2'],'体育1':班['体育1'],'体育2':班['体育2'],'レクレーション1':班['レクレーション1'], 'レクレーション2':班['レクレーション2'],'福祉1':班['福祉1'],'福祉2	':班['福祉2'],'防災1':班['防災1'],'防災2':班['防災2'],'防災3':班['防災3'],'防災4':班['防災4']}])
    })
    町内会情報.refresh()
  }  
}

function 行事情報検索(検索語) {
  const 検索語含む='%'+検索語+'%'
  CopyofEasy4Anyone.Addrow=true
  const 連想行事一覧 = 行事情報.select(['row','行事名',{col:'行事内容',alias:'行事内容一部'},{col:'行事開始日時:%年月日時分',alias:'行事日時'},{col:'行事終了日時:%年月日時分',alias:'行事終了日'},{col:'回答開始日時:%年月日時分',alias:'回答期間'},{col:'回答終了日時:%年月日時分',alias:'回答2'},'場所','住所','問合先','電話番号',{col:'ファイルID',alias:'行事ファイル'},'行事開始日時',{col:'原本ファイルID',alias:'原本ファイル'},'月','週','曜日','日','祝日','追加日','除外日']).where({'全項目':['like',検索語含む]}).sort([{'行事開始日時':false}]).result()
  let 行事一覧 = CopyofEasy4Anyone.連想2二次元配列(連想行事一覧)
  if (行事一覧.length>0){
    行事一覧=行事ファイル一覧(行事一覧,0,11,'',true,3,5,8,10,13,検索語)
    行事一覧.forEach(function(行事){
      if (行事[0] == 'row'){行事[0] = CopyofEasy4Anyone.ボタン(URL+'?画面=新規&検索語='+検索語,'新規入力')}
      else {
        if (行事[5]!=''){ 行事[5]=行事[5]+'<br>'+CopyofEasy4Anyone.ボタン(URL+'?画面=回答状況&行='+行事[0]+'&行事名='+行事[1]+'&検索語='+検索語,'回答状況の表示')}
        行事[0] = CopyofEasy4Anyone.ボタン(URL+'?画面=修正&行='+行事[0]+'&検索語='+検索語,'修正')+'<br>'
              + CopyofEasy4Anyone.ボタン(URL+'?画面=削除&行='+行事[0]+'&検索語='+検索語,'削除')+'<br>'
              + CopyofEasy4Anyone.ボタン(URL+'?画面=Mail&Mail行=0&行='+行事[0]+'&検索語='+検索語,'LINE')+'<br>'
              + CopyofEasy4Anyone.ボタン(URL+'?画面=複製&行='+行事[0]+'&検索語='+検索語,'複製')
        let a =行事[2]
        行事[2]=a.replace(/　/gi,'').substr(0,100)
      }  
    })
    行事一覧.map(function(x){ return x.splice(4,1)})
    行事一覧.map(function(x){ return x.splice(5,1)})
    行事一覧.map(function(x){ return x.splice(6,1)})
    行事一覧.map(function(x){ return x.splice(7,1)})
    行事一覧.map(function(x){ return x.splice(8,1)})
  } else {行事一覧.push([CopyofEasy4Anyone.ボタン(URL+'?画面=新規&検索語='+検索語,'新規入力'),'行事名','行事内容一部','行事日時','回答期間','場所','問合先','行事ファイル','原本ファイル'])}
  return  行事一覧
}

function 行事ファイル一覧(行事一覧,行事番号位置,行事ファイル位置,付加メッセージ,行事編集有無,行事開始日時位置,回答開始日時位置,住所位置,電話番号位置,原本ファイル位置,検索語){
  if (行事一覧.length>0){
    行事一覧.forEach(function(行事){
      if (行事[行事番号位置] != 'row'){
        if (行事編集有無) {行事 = 行事編集(行事,行事開始日時位置,回答開始日時位置,住所位置,電話番号位置)} 
        if (行事[行事ファイル位置] != ''){
          let リンク = ''
          let ファイル = 行事[行事ファイル位置].split(/\n/)
          let ID行 = 0
          ファイル.some(function(ファイルID){
            if (ファイルID!='' && ファイルID.indexOf(':')>0){
              const IDとファイル名 =ファイルID.split(':')
              リンク = リンク + 行事URLリンク(IDとファイル名[0],IDとファイル名[1])+付加メッセージ+'<br>'
            } else リンク = リンク + '－<br>'
            ID行++;if(ID行>=3){return true}
          })
          行事[行事ファイル位置]=リンク
        }
        let リンク = ''
        if (行事[原本ファイル位置] != '' && 行事[原本ファイル位置] != null){
          let ファイル = 行事[原本ファイル位置].split(/\n/)
          let ID行 = 0
          let 文書有無 = false
          ファイル.some(function(ファイルID){
            if (ファイルID!='' && ファイルID.indexOf(':')>0){
              const IDとファイル名 =ファイルID.split(':')
              リンク = リンク + 行事URLリンク(IDとファイル名[0],IDとファイル名[1],'編集可')+'<br>'
              文書有無 = true
            } else {
              if (ファイルID=='' || ファイルID==null){
                  リンク = リンク + CopyofEasy4Anyone.ボタン(URL+'?画面=文書検索&行='+行事[行事番号位置]+'&ID行='+ID行+'&検索語='+検索語,'文書検索')+'<br>'            
              }
            }
            ID行++;if(ID行>=3){return true}
          })
          if (文書有無){
            リンク = リンク + CopyofEasy4Anyone.ボタン(URL+'?画面=PDF化&行='+行事[行事番号位置]+'&検索語='+検索語,'PDF化')            
          } 
        } else {
            for (let i=0;i<3;i++){
                  リンク = リンク + CopyofEasy4Anyone.ボタン(URL+'?画面=文書検索&行='+行事[行事番号位置]+'&ID行='+i+'&検索語='+検索語,'文書検索')+'<br>'            
            }
          }
        行事[原本ファイル位置]=リンク
      }
    })
  }
  return 行事一覧
}

function 行事編集(行事,行事開始日時位置,回答開始日時位置,住所位置,電話番号位置) {
  if (行事[行事開始日時位置].substr(0,行事[行事開始日時位置].indexOf('日'))==行事[行事開始日時位置+1].substr(0,行事[行事開始日時位置+1].indexOf('日'))){
    if (行事[行事開始日時位置].substr(5)=='0時0分'){行事[行事開始日時位置+1]='終日'}else{行事[行事開始日時位置+1]=行事[行事開始日時位置+1].substr(行事[行事開始日時位置+1].indexOf('日')+1)}
  } else if (行事[行事開始日時位置].substr(0,5)==行事[行事開始日時位置+1].substr(0,5)){行事[行事開始日時位置+1]=行事[行事開始日時位置+1].substr(5)}
  行事[行事開始日時位置]=行事[行事開始日時位置]+'～'+行事[行事開始日時位置+1]
  行事[行事開始日時位置]=行事[行事開始日時位置].replace(/時0分/g,'時')
  if (行事[回答開始日時位置] != ''){
    if (行事[回答開始日時位置].substr(0,5)==行事[回答開始日時位置+1].substr(0,5)){行事[回答開始日時位置+1]=行事[回答開始日時位置+1].substr(5)}
    行事[回答開始日時位置]=行事[回答開始日時位置]+'～'+行事[回答開始日時位置+1]
    行事[回答開始日時位置]=行事[回答開始日時位置].replace(/時0分/g,'時')
  }
  if (行事[住所位置] != ''){
    行事[住所位置-1]=行事[住所位置-1]+'<br>'+GoogleMapURLリンク(行事[住所位置],行事[住所位置])
  }
  if (行事[電話番号位置] != ''){
    行事[電話番号位置-1]=行事[電話番号位置-1]+'<br><a href="tel:'+行事[電話番号位置]+'">'+行事[電話番号位置]+'</a>'
  }
  return 行事
}

function 行事URLリンク(ファイルID,ファイル名,編集可){
  if (編集可 == null || 編集可 == ''){
    return (`<a href="https://drive.google.com/file/d/${ファイルID}/view?usp=sharing" target="_blank">${ファイル名}</a>`)
  } else if (ファイル名.match(/.docx$|.doc$|.gdoc$|.odt$/i) != null){
    ファイル名 = ファイル名.replace(/.gdoc$/,'')
    return (`<a href="https://docs.google.com/document/d/${ファイルID}/edit?usp=sharing" target="_blank">${ファイル名}</a>`)
  } else if (ファイル名.match(/.xlsx$|.xls$|.gsheet$|.ods$/i) != null){
    ファイル名 = ファイル名.replace(/.gsheet$/,'')
    return (`<a href="https://docs.google.com/spreadsheets/d/${ファイルID}/edit?usp=sharing" target="_blank">${ファイル名}</a>`)
  } else if (ファイル名.match(/.pptx$|.ppt$|.gslides$|.odp$/i) != null){
    ファイル名 = ファイル名.replace(/.gslides$/,'')
    return (`<a href="https://docs.google.com/presentation/d/${ファイルID}/edit?usp=sharing" target="_blank">${ファイル名}</a>`)
  } else { 
    return (`<a href="https://drive.google.com/file/d/${ファイルID}/edit?usp=sharing" target="_blank">${ファイル名}</a>`)
  }  
}

function GoogleMapURLリンク(住所,場所名){
  return (`<a href="https://maps.google.co.jp/maps?q=${住所}" target="_blank">${場所名}</a>`)
}

function 行事削除検索(行事番号) {
  CopyofEasy4Anyone.Addrow=true
  let 行事一覧 = 行事情報.select(['row','行事名','行事内容',{col:'行事開始日時:%年月日時分',alias:'行事日時'},{col:'行事終了日時:%年月日時分',alias:'行事終了日'},{col:'回答開始日時:%年月日時分',alias:'回答期間'},{col:'回答終了日時:%年月日時分',alias:'回答2'},'場所','住所','問合先','電話番号','回答欄1','回答欄2','回答欄3',{col:'ファイルID',alias:'行事ファイル'},'月','週','曜日','日','祝日','追加日','除外日']).where({'row':['==',行事番号]}).result(true)
  行事一覧=行事ファイル一覧(行事一覧,0,14,'のファイルも削除されます。',true,3,5,8,10)
  行事一覧.map(function(x){ return x.splice(4,1)})
  行事一覧.map(function(x){ return x.splice(5,1)})
  行事一覧.map(function(x){ return x.splice(6,1)})
  行事一覧.map(function(x){ return x.splice(7,1)})
  行事一覧.map(function(x){ return x.splice(0,1)})
  return  行事一覧
}

function 新旧ファイル交換(ファイルIDデータ,旧ファイルIDデータ,メッセージ,原本ファイルIDデータ,原本旧ファイルIDデータ){
  let 編集済メッセージ = [メッセージ[0]]
  let 新ファイルID=''
  let 原本新ファイルID=''
  const ファイルID = (ファイルIDデータ+'\n\n\n').split('\n')
  const 旧ファイルID = (旧ファイルIDデータ+'\n\n\n').split('\n')
  const 原本ファイルID = (原本ファイルIDデータ+'\n\n\n').split('\n')
  const 原本旧ファイルID = (原本旧ファイルIDデータ+'\n\n\n').split('\n')
  for (let i = 0; i < 3; i++){
    const IDとファイル名 =旧ファイルID[i].split(':')
    const 原本IDとファイル名 =原本旧ファイルID[i].split(':')
    if (ファイルID[i].length == 0){
      新ファイルID = 新ファイルID + 旧ファイルID[i]+'\n'
      原本新ファイルID = 原本新ファイルID + 原本旧ファイルID[i]+'\n'
      if (IDとファイル名[0] != ''){編集済メッセージ.push('上記ファイルは行事用として引き続き利用できます。')}
      else {編集済メッセージ.push('')}      
    }
    else if (ファイルID[i].substring(0,4)=='削除要求') { 
             新ファイルID= 新ファイルID + '\n'
             編集済メッセージ.push('上記ファイルは行事から削除され，当分の間，ゴミ箱上にあります。')
             if (IDとファイル名[0].length>0) {
               try{ DriveApp.getFolderById(IDとファイル名[0]).setTrashed(true) } catch{}
             }
             原本新ファイルID= 原本新ファイルID + '\n'
             if (原本IDとファイル名[0].length>0) {
               try{ DriveApp.getFolderById(原本IDとファイル名[0]).setTrashed(true) } catch{}
             }
    }
    else {
      新ファイルID= 新ファイルID + ファイルID[i]+'\n'
      if (IDとファイル名[0].length>0){
        編集済メッセージ.push('上記ファイルは行事から削除され，替わりに'+メッセージ[i+1])
        try{ DriveApp.getFolderById(IDとファイル名[0]).setTrashed(true) } catch{}
      } else {編集済メッセージ.push(メッセージ[i+1])}
      原本新ファイルID= 原本新ファイルID + 原本ファイルID[i]+'\n'
      if (原本IDとファイル名[0].length>0){
        try{ DriveApp.getFolderById(原本IDとファイル名[0]).setTrashed(true) } catch{}
      }
    }
  }
  return {新ファイルID,編集済メッセージ,原本新ファイルID}
}

function 文書検索(行事番号,ID行,ファイル名一部,検索語) {
  let 検索結果 = [['選択','ファイル名','ファイル種類','最終更新日']]
  const ファイル一覧 = DriveApp.searchFiles(`title contains '${ファイル名一部}'`)
  while (ファイル一覧.hasNext()){
    const ファイル = ファイル一覧.next()
    let ファイル種類 = ''
    let 付加拡張子 = ''
    if (ファイル.getMimeType() == MimeType.GOOGLE_SHEETS) {ファイル種類='Googleスプレッドシート';付加拡張子 = '.gsheet'}
    if (ファイル.getMimeType() == MimeType.GOOGLE_DOCS) {ファイル種類='Googleドキュメント';付加拡張子 = '.gdoc'}
    if (ファイル.getMimeType() == MimeType.GOOGLE_SLIDES) {ファイル種類='Googleスライド';付加拡張子 = '.gslides'}
    if (ファイル.getMimeType() == MimeType.MICROSOFT_EXCEL) {ファイル種類='Excel(.xlsx)'}
    if (ファイル.getMimeType() == MimeType.MICROSOFT_EXCEL_LEGACY) {ファイル種類='Excel(.xls)'}
    if (ファイル.getMimeType() == MimeType.MICROSOFT_WORD) {ファイル種類='Word(.docx)'}
    if (ファイル.getMimeType() == MimeType.MICROSOFT_WORD_LEGACY) {ファイル種類='Word(.doc)'}
    if (ファイル.getMimeType() == MimeType.MICROSOFT_POWERPOINT) {ファイル種類='PowerPoint(.pptx)'}
    if (ファイル.getMimeType() == MimeType.MICROSOFT_POWERPOINT_LEGACY) {ファイル種類='PowerPoint(.ppt)'}
    if (ファイル.getMimeType() == MimeType.OPENDOCUMENT_SPREADSHEET) {ファイル種類='OpenOfficeスプレッド(.ods)'}
    if (ファイル.getMimeType() == MimeType.OPENDOCUMENT_TEXT) {ファイル種類='OpenOffice文書(.odt)'}
    if (ファイル.getMimeType() == MimeType.OPENDOCUMENT_PRESENTATION) {ファイル種類='OpenOfficeプレゼン(.odp)'}
    const 選択欄 = CopyofEasy4Anyone.ボタン(URL+'?画面=文書選択&行='+行事番号+'&ID行='+ID行+'&ファイルID='+ファイル.getId()+'&ファイル名='+ファイル.getName()+付加拡張子+'&検索語='+検索語,'選択')
    const ファイル名欄 = 行事URLリンク(ファイル.getId(),ファイル.getName()+付加拡張子,'編集可')
    const 最終更新日欄 = Utilities.formatDate(ファイル.getLastUpdated(),'JST','yyyy-MM-dd')
    if (ファイル種類!=''){検索結果.push([選択欄,ファイル名欄,ファイル種類,最終更新日欄])}
  }
  return 検索結果
}

function 回答情報検索(行,行事名) {
  let 回答一覧 =''
  CopyofEasy4Anyone.Addrow=true
  const 行事一覧 = 行事情報.select(['row','行事名',{col:'行事内容',alias:'行事内容一部'},{col:'行事開始日時:%年月日時分',alias:'行事日時'},{col:'行事終了日時:%年月日時分',alias:'行事終了日'},{col:'回答開始日時:%年月日時分',alias:'回答期間'},{col:'回答終了日時:%年月日時分',alias:'回答2'},'回答欄1','回答欄2','回答欄3']).where({'row':['==',行]}).result(true)
  if (行事一覧.length>0){
    let 回答欄1 = {}
    let 選択肢 = 行事一覧[1][7].split(/\n/)
    選択肢.shift()
    選択肢.forEach(function(選択){回答欄1[選択]=0})
    let 回答欄2 = {}
    選択肢 = 行事一覧[1][8].split(/\n/)
    選択肢.shift()
    選択肢.forEach(function(選択){回答欄2[選択]=0})
    let 回答欄3 = {}
    選択肢 = 行事一覧[1][9].split(/\n/)
    選択肢.shift()
    選択肢.forEach(function(選択){回答欄3[選択]=0})
    let 回答情報 = データベース.table(行事名)
    if (回答情報 != null) {
      CopyofEasy4Anyone.Addrow=false
      回答一覧 = 回答情報.select(['班','お名前','回答欄1','回答欄2','回答欄3',{col:'回答日時:%年月日時分',alias:'回答日時'}]).where({'row':['==',1]}).result(true)
      回答情報.refresh()
      回答一覧.shift()
      let 回答結果連想 = 利用者情報.join(回答情報.select(['ログイン利用者ID','班','お名前','回答欄1','回答欄2','回答欄3',{col:'回答日時:%年月日時分',alias:'回答日時'}]),['ログイン利用者ID']).select(['班','お名前','回答欄1','回答欄2','回答欄3','回答日時','ログイン利用者ID','LINE名前']).sort([{'班':true}]).where({'LINE名前':['!=','']}).result()
      let 回答結果 = CopyofEasy4Anyone.連想2二次元配列(回答結果連想)
      回答結果.shift()
      let 回答数 = 0
      回答結果.forEach(function(回答){ 
        if (回答[2]!=null) {回答欄1[回答[2]]=回答欄1[回答[2]]+1} else {回答[2]=''}
        if (回答[3]!=null) {回答欄2[回答[3]]=回答欄2[回答[3]]+1} else {回答[3]=''}
        if (回答[4]!=null) {回答欄3[回答[4]]=回答欄3[回答[4]]+1} else {回答[4]=''}
        if (回答[5]!=null) {回答数++} else {回答[5]='未回答'}
      })
      Array.prototype.push.apply(回答一覧,回答結果)
      回答一覧[0][0]='班'
      回答一覧[0][1]='[回答依頼]<br>'+(回答一覧.length-1)+'名<br>[回答者数]<br>'+回答数+'名'
      回答一覧[0][5]='[回答期限]<br>'+回答一覧[0][5]
      let 回答欄1集計 = '',回答欄2集計 = '',回答欄3集計 = ''
      for (let key in 回答欄1){ 回答欄1集計 = 回答欄1集計 + key +':'+ 回答欄1[key]+'名<br>'}  
      for (let key in 回答欄2){ 回答欄2集計 = 回答欄2集計 + key +':'+ 回答欄2[key]+'名<br>'}  
      for (let key in 回答欄3){ 回答欄3集計 = 回答欄3集計 + key +':'+ 回答欄3[key]+'名<br>'}  
      回答一覧.map(function(x){ return x.splice(6,3)})
      if(回答一覧[0][4]!=''){回答一覧[0][4]=回答一覧[0][4]+'<br>'+回答欄3集計} else{回答一覧.map(function(x){ return x.splice(4,1)})}
      if(回答一覧[0][3]!=''){回答一覧[0][3]=回答一覧[0][3]+'<br>'+回答欄2集計} else{回答一覧.map(function(x){ return x.splice(3,1)})}
      if(回答一覧[0][2]!=''){回答一覧[0][2]=回答一覧[0][2]+'<br>'+回答欄1集計} else{回答一覧.map(function(x){ return x.splice(2,1)})}
    }  
  }
  return 回答一覧
}

function 組織情報検索() {
  CopyofEasy4Anyone.Addrow=true
  const 組織一覧 = 組織情報.select(['row','組織名',{col:'組織内容',alias:'組織内容一部'},'役職一覧']).result(true)
  if (組織一覧.length>0){
    組織一覧.forEach(function(組織){
      if (組織[0] == 'row'){組織[0] = CopyofEasy4Anyone.ボタン(URL+'?画面=組織新規','組織新規入力')}
      else {
        組織[0] = CopyofEasy4Anyone.ボタン(URL+'?画面=組織修正&行='+組織[0],'組織修正')+'<br>'
              + CopyofEasy4Anyone.ボタン(URL+'?画面=組織削除&行='+組織[0],'組織削除')+'<br>'
        let a =組織[2]
        組織[2]=a.replace(/　/gi,'').substr(0,100).replace(/\n/gi,'<br>')
        組織[3]=組織[3].replace(/\n/gi,'<br>')
      }  
    })
  } else {組織一覧.push([CopyofEasy4Anyone.ボタン(URL+'?画面=組織新規','組織新規入力'),'組織名','組織内容一部','役職一覧'])}
  return  組織一覧
}

function 組織削除検索(行事番号) {
//  CopyofEasy4Anyone.Addrow=true
  let 組織一覧 = 組織情報.select(['組織名','組織内容','役職一覧']).where({'row':['==',行事番号]}).result(true)
  return  組織一覧
}

function 住民情報検索() {
  CopyofEasy4Anyone.Addrow=true
  let 有効住民一覧 = 利用者情報.select(['row']).where({'メールアドレス':['!=',''],'パスワード':['!=','']}).result()
  利用者情報.refresh()
  let 住民一覧 = 利用者情報.select(['row','ログイン利用者ID','お名前','役職',{col:'自己紹介ファイルID',alias:'自己紹介ファイル'},'パスワード','メールアドレス']).result(true)
  if (住民一覧.length>1){
    住民一覧=住民ファイル一覧(住民一覧,0,4)
    住民一覧.forEach(function(住民){
      if (住民[0] == 'row'){住民[0]='登録数:'+(住民一覧.length-1)+'名<br>利用者数:'+(有効住民一覧.length)+'名'}
      else{
        住民[0] = CopyofEasy4Anyone.ボタン(URL+'?画面=住民修正&行='+住民[0],'修正')
        住民[3]=住民[3].replace(/\n/g,'<br>')
        if (住民[5]=='' || 住民[6]==''){住民[2]='('+住民[2]+')'}
      }  
    })
  } else {住民一覧.push(['','ログイン利用者ID','お名前','役職','自己紹介ファイル'])}
  住民一覧.map(function(x){ return x.splice(5,2)})
  return  住民一覧
}

function 住民ファイル一覧(住民一覧,番号位置,ファイル位置){
  if (住民一覧.length>0){
    住民一覧.forEach(function(住民){
      if (住民[番号位置] != 'row'){
        if (住民[ファイル位置] != ''){
          let リンク = ''
          let ファイル = 住民[ファイル位置].split(/\n/)
          let ID行 = 0
          ファイル.some(function(ファイルID){
            if (ファイルID!='' && ファイルID.indexOf(':')>0){
              const IDとファイル名 =ファイルID.split(':')
              リンク = リンク + 行事URLリンク(IDとファイル名[0],IDとファイル名[1])+'<br>'
            } else リンク = リンク + '－<br>'
            ID行++;if(ID行>=2){return true}
          })
          住民[ファイル位置]=リンク
        }
      }
    })
  }
  return 住民一覧
}

function 組織役職検索(){
  let 組織役職一覧 = '組織役職'+'\n'
  const 組織一覧 = 組織情報.select(['組織名','役職一覧']).result()
  if (組織一覧.length>0) {
    組織一覧.forEach(function(組織){
      const 役職一覧 = 組織['役職一覧'].split(/\n/)
      役職一覧.forEach(function(役職){
      if (役職!=''){組織役職一覧 = 組織役職一覧 + 組織['組織名'] + '/' + 役職 + '\n'}
      })
    })
  }
  return 組織役職一覧
}

function 自己紹介新旧ファイル交換(ファイルIDデータ,旧ファイルIDデータ,メッセージ){
  let 編集済メッセージ = [メッセージ[0]]
  let 新ファイルID=''
  const ファイルID = (ファイルIDデータ+'\n\n').split('\n')
  const 旧ファイルID = (旧ファイルIDデータ+'\n\n').split('\n')
  for (let i = 0; i < 2; i++){
    const IDとファイル名 =旧ファイルID[i].split(':')
    if (ファイルID[i].length == 0){
      新ファイルID = 新ファイルID + 旧ファイルID[i]+'\n'
      if (IDとファイル名[0] != ''){編集済メッセージ.push('上記ファイルは自己紹介用として引き続き利用できます。')}
      else {編集済メッセージ.push('')}      
    }
    else if (ファイルID[i].substring(0,4)=='削除要求') { 
             新ファイルID= 新ファイルID + '\n'
             編集済メッセージ.push('上記ファイルは自己紹介から削除され，当分の間，ゴミ箱上にあります。')
             if (IDとファイル名[0].length>0) {
               try{ DriveApp.getFolderById(IDとファイル名[0]).setTrashed(true) } catch{}
             }
    }
    else {
      新ファイルID= 新ファイルID + ファイルID[i]+'\n'
      if (IDとファイル名[0].length>0){
        編集済メッセージ.push('上記ファイルは自己紹介から削除され，替わりに'+メッセージ[i+1])
        try{ DriveApp.getFolderById(IDとファイル名[0]).setTrashed(true) } catch{}
      } else {編集済メッセージ.push(メッセージ[i+1])}
    }
  }
  return {新ファイルID,編集済メッセージ}
}

function ファイル複製(ファイルID,ファイル数){
  let 新ファイルID = ''
  const 旧ファイルID = (ファイルID+'\n\n\n').split('\n')
  CopyofEasy4Anyone.イベントフォルダ設定()
  for (let i = 0; i < ファイル数; i++){
    const IDとファイル名 =旧ファイルID[i].split(':')
    if (IDとファイル名[0].length > 0){
      try{
        const コピー元 = DriveApp.getFileById(IDとファイル名[0])
        const ファイル = コピー元.makeCopy(コピー元.getName(),CopyofEasy4Anyone.EventFolder)
        新ファイルID = 新ファイルID + ファイル.getId()+':'+IDとファイル名[1]+'\n'
      }catch{}  
    }  
  }
  return 新ファイルID
}

ライブラリ「町内会回覧板.html」「町内会回覧板QR付.html」で使用する斜線クラス

.斜線{
    background-image: linear-gradient(to left top, transparent calc(50% - 1.5px), #000 50%, #000 calc(50% + 1.5px), transparent calc(50% + 3px));
}

ライブラリ「町内会回覧板QR付.html」で使用するimgタグのsrcで使用するURL

https://lh3.googleusercontent.com/d/＠QRコード＠

付録で使用するスクリプト

付録1-2.Google Apps Scriptで使う主要な文字･数値･日付･配列変換･連想配列⇔二次元配列⇔JSONデータ

const 文字1 = '123321 ',文字2 = '　121ABCcba　',文字3 = ' 123,321 ',配列用文字='1清掃  2公園    3総会'
const 数値1 = 123321 , 数値2 = 123.321
const 現在日時=new Date,日付文字='2022/06/16',日時文字='2022/06/16 05:16',年=2022,月=6,日=1,時=5,分=52,秒=5,日付文字2='2023/05/10'

function 文字から文字へ() {
  Logger.log(文字1 + 文字2  + 文字3 + '/' + 文字1.trim() + 文字2.trim()  + 文字3.trim())
  Logger.log(文字1.slice(3) + ' ' + 文字1.slice(2,4) + ' ' + 文字1.slice(2,-2))
  Logger.log(文字1.substring(3) + ' ' + 文字1.substring(2,4) + ' ' + 文字1.substring(2,-2))
  Logger.log(文字1.slice(文字1.indexOf('2')+1,文字1.lastIndexOf('2')))
  Logger.log(文字2.replace('c','■')+文字2.replace(/c/g,'■')+文字2.replace(/c/i,'■')+文字2.replace(/c/gi,'■'))
  Logger.log(文字2.replace('c','')+文字2.replace(/c/g,'')+文字2.replace(/c/i,'')+文字2.replace(/c/gi,''))
  if (文字2.match('ABC')) {Logger.log(文字2.match('ABC')[0])}
  if (文字2.match(/[0-9]/)) {Logger.log(文字2.match(/[0-9]/)[0])}
  if (文字2.match(/[0-9]{3}/)) {Logger.log(文字2.match(/[0-9]{3}/)[0])}
  if (文字2.match(/([0-9]{3})([a-z]{3})/i)) {Logger.log(文字2.match(/([0-9]{3})([a-z]{3})/i)[1])}
  Logger.log(Utilities.formatString('%10sと%sと%3s',文字1,文字2,文字3))
}

function 文字から数値へ() {
  Logger.log(文字1 * 1)
  Logger.log('文字1='+Number(文字1)+' , 文字2='+Number(文字2)+' , 文字3='+Number(文字3.replace(/,/g,'')))
  Logger.log('文字1='+parseInt(文字1)+' , 文字2='+parseInt(文字2)+' , 文字3='+parseInt(文字3.replace(/,/g,'')))
  Logger.log(文字1.indexOf('2') + ' ' + 文字1.lastIndexOf('2'))  
}

function 数値から数値へ() {
  Logger.log(Math.trunc(数値2) + ' ' + (数値1 % 1000) + ' ' + CopyofEasy4Anyone.乱数(1000,9999))  
}

function 数値から文字へ() {
  Logger.log(数値1+'は文字')
  Logger.log(数値1.toString()+' '+数値1.toLocaleString()+' '+数値2.toString()+' '+Math.trunc(数値2).toString())
  Logger.log(Utilities.formatString('%dと%dと%7.2f',数値1,数値2,数値2))
  Logger.log(Utilities.formatString('%04d/%02d/%02d %02d/%02d/%02d',年,月,日,時,分,秒))    
}

function 日時から日時へ() {
  Logger.log((new Date(日付文字2)-new Date(日付文字))/1000/60/60/24)
  Logger.log(CopyofEasy4Anyone.経過日時(new Date(日付文字),0,0,1,0,0,0)+' '+CopyofEasy4Anyone.経過日時(new Date(日付文字),-1,-1,0,0,0,0)) 
}

function 文字から日時へ() {
  Logger.log(new Date(日付文字)+' '+new Date(日時文字)) 
}

function 数値から日時へ() {
  Logger.log(new Date(年,月,日)+' '+new Date(年,月,日,時,分,秒)) 
}

function 日時から文字へ() {
  Logger.log(Utilities.formatDate(現在日時, 'UTC', 'yyyy/MM/dd (E) HH:mm:ss Z'))
  Logger.log(Utilities.formatDate(現在日時, 'JST', 'yyyy/MM/dd (E) HH:mm:ss Z'))
  Logger.log(Utilities.formatDate(現在日時, 'JST', 'yyyyMMdd'))
  Logger.log(Utilities.formatDate(現在日時, 'JST', 'HHmmss'))
  Logger.log(Utilities.formatDate(現在日時, 'JST', 'yyyy年M月d日 (E) H時m分s秒Sミリ秒'))
  Logger.log(Utilities.formatDate(現在日時, 'JST', 'yyyy年M月d日 (E) ah:m:s.S'))
}

function 日時から数値へ() {
  Logger.log(現在日時.getFullYear()+' '+(現在日時.getMonth()+1)+' '+現在日時.getDate())
  Logger.log(現在日時.getHours()+' '+現在日時.getMinutes()+' '+現在日時.getSeconds()+現在日時.getMilliseconds())
}

function 文字から配列から文字(){
  const 配列 = 配列用文字.trim().replace(/[ \s]+/gi,' ').split(' ')
  Logger.log(配列)
  配列.shift() //先頭削除
  配列.unshift('4先頭追加')
  配列.pop() //末尾削除
  配列.push('5末尾追加')
  配列.splice(1,0,'6途中追加') //第2引数を指定すると第1引数の位置から指定した要素数だけ削除
  配列.forEach(function(配列1要素){Logger.log(配列1要素)})
  if(配列.length>0){for (let i=0;i<配列.length;i++){Logger.log(配列[i])}}
  Logger.log(配列.toString()+'→'+配列.toString().replace(/,/g,' ')+',ソート'+配列.sort().toString())
}

function 配列操作(){
  var データベース = CopyofEasy4Anyone.useDB('データベース')
  var 行事情報 = データベース.table('行事情報')
  CopyofEasy4Anyone.Addrow=true
  let 連想行事一覧 = []
  const 検索語='総会 清掃' //検索語は自由に変更してください。半角・全角スペースで「または」条件になります。
  let 検索語配列=検索語.trim().replace(/[ \s]+/gi,' ').split(' ')
  if (検索語配列.length==0){ 検索語配列 = []}
  検索語配列.forEach(function(検索一語){
    const 連想行事検索一語分 = 行事情報.select(['row','行事名','行事内容',{col:'行事開始日時:%年月日時分',alias:'行事日時'},{col:'行事終了日時:%年月日時分',alias:'行事終了日'},{col:'回答開始日時:%年月日時分',alias:'回答期間'},{col:'回答終了日時:%年月日時分',alias:'回答2'},'場所','住所','問合先','電話番号',{col:'ファイルID',alias:'行事ファイル'},'行事開始日時']).where({'全項目':['like',検索一語]}).result()
    Array.prototype.push.apply(連想行事一覧,連想行事検索一語分)
  })
  連想行事一覧.sort(function(a,b){return new Date(b['行事開始日時'])-new Date(a['行事開始日時'])})
  let 行事一覧 = CopyofEasy4Anyone.連想2二次元配列(連想行事一覧,'row')
  行事一覧.map(function(x){ return x.splice(12,1)})
  Logger.log(行事一覧)
}

function 連想二次元配列JSON操作(){
  var データベース = CopyofEasy4Anyone.useDB('データベース')
  var 利用者情報 = データベース.table('利用者情報')
  let 連想利用者一覧 = []
  const 検索語='中村 州男' //検索語は自由に変更してください。半角・全角スペースで「または」条件になります。
  let 検索語配列=検索語.trim().replace(/[ \s]+/gi,' ').split(' ')
  if (検索語配列.length==0){ 検索語配列 = []}
  検索語配列.forEach(function(検索一語){
    const 連想利用者検索一語分 = 利用者情報.select(['ログイン利用者ID','お名前',{col:'最終ログイン日時:%-ymdhms',alias:'最終ログイン日時'}]).where({'全項目':['like',検索一語]}).result()
    Array.prototype.push.apply(連想利用者一覧,連想利用者検索一語分)
  })
  Logger.log('【元データ】');  Logger.log(連想利用者一覧)
  連想利用者一覧.sort(function(a,b){return b['最終ログイン日時']-a['最終ログイン日時']})
  Logger.log('【降順ソート】');  Logger.log(連想利用者一覧)
  let 利用者一覧 = CopyofEasy4Anyone.連想2二次元配列(連想利用者一覧,'ログイン利用者ID')
  Logger.log('【連想2二次元】');  Logger.log(利用者一覧)
  利用者一覧.map(function(x){ return x.splice(0,1)})
  Logger.log('【1列削除】');  Logger.log(利用者一覧)
  const 連想利用者一覧2 = CopyofEasy4Anyone.二次元配列2連想(利用者一覧)
  Logger.log('【二次元2連想】');  Logger.log(連想利用者一覧2)
  const JSONデータ = JSON.stringify(利用者一覧)
  Logger.log('【二次元2JSON】');  Logger.log(JSONデータ)
  const 利用者一覧再変換 = JSON.parse(JSONデータ)
  Logger.log('【JSON2二次元】');  Logger.log(利用者一覧再変換)
  const JSON連想データ = JSON.stringify(連想利用者一覧)
  Logger.log('【連想2JSON】');  Logger.log(JSON連想データ)
  const 連想利用者一覧再変換 = JSON.parse(JSON連想データ)
  Logger.log('【JSON2連想】');  Logger.log(連想利用者一覧再変換)
}

function 連想記憶配列(){
  let 連想={'要素1':'値1','要素2':'値2','要素9':'不要'}
  連想['要素3']='値3' //新たなキーと値の追加や変更
  for (let キー in 連想){if (連想[キー]=='不要'){delete 連想[キー]}}//キー削除
  Logger.log(連想)
}