iwase/kojo2 の履歴差分(No.1)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 履歴 を表示
• iwase/kojo2 へ行く。
  • 1 (2020-04-22 (水) 08:48:53)
  • 2 (2020-11-14 (土) 09:22:35)
  • 3 (2022-11-11 (金) 12:58:21)
  • 4 (2022-11-11 (金) 13:26:17)

• 追加された行はこの色です。
• 削除された行はこの色です。

アップロードするのを忘れていたが、昨年も保険料控除申告書を作るマクロに変更が必要であった。

おそらく、uplatex で動かすのは無理だと思う。

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %								%
 %  保険料控除申告書・九大用		%
 %								%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %!TEX TS-program = XeLaTeX
 %!TEX encoding = UTF-8 Unicode
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \input hoken-18.inc
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \平成{30}年分保険料控除申請書	%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %  研究機関のＩＤ		% 数理にのみ対応
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \税務所轄：{西福岡}税務署長{福岡市西区}市区町村長
 \所属機関：{国立大学法人　九州大学}番号{３２９０００５００３７４３}
 \所在地〒{819-0395}{福岡市西区元岡744番地}
 \部局{数理学研究院}（{1200308000}）：{某部門} 
 \事務局{理学部等}（{0 0 2 0 9}）% 理学事務？
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %  本人と配偶者のＩＤ	%
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \本人姓{九}{キュウ}
 \本人姓{大}{ダイ}
 \本人名{某}{ボウ}
 \本人名{某}{ボウ}
 \本人番号{12345678}
 \配偶者姓{九}{キュウ}
 \配偶者姓{大}{ダイ}
 \配偶者名{何}{ナニ}
 \配偶者名{何}{ナニ}
 \配偶者は昭和{43}年{2}月{1}日生まれの{続柄}
 \住所〒{819}ー{0385}：{福岡市西区元岡 1-2-3}
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 \生命保険料控除			%
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \一般生命{ＸＸ生命}{医療保険}{30年}{\sei\mei}：受取人{\sei\mei}{続柄}{123450}
 \一般生命{〇〇生命}{養老保険}{終身}{\sei\mei}：受取人{\sei\mei}{続柄}{123450}
 \介護医療{△△生命}{介護保険}{終身}{\sei\mei}：受取人{\hsei\hmei}{\htuduki}{123450}% {\hsei\hmei}{\htuduki} は配偶者の続柄
 \個人年金{□□生命}{年金保険}{終身}{\sei\mei}：受取人{\hsei\hmei}{\htuduki}{123450}% {\hsei\hmei}{\htuduki} は配偶者の続柄
 %\保険控除額{40000}{40000}{35000}{40000}{40000} % 左から{生命保険}{新生命保険}{介護医療}{個人年金}{新個人年金}の控除額を手入力
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 \地震保険料控除			% 旧長期損害保険は非対応
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \地震保険{損害保険}{地震保険（家財）}{５年}{\sei\mei}：受取人{\sei\mei}{本人}{2345}
 \地震保険{損害保険}{地震保険（建物）}{５年}{\sei\mei}：受取人{\sei\mei}{本人}{2345}
 %\地震控除額{4690}{0} % 左から{地震保険}{旧長期損害保険}の控除額を手入力（旧長期損害保険は非対応）
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 \社会保険料控除			%
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \社会保険Ｕ{社会保険}{社会保険機構}{九大 某何}{続柄}{1234}
 \社会保険Ｌ{社会保険}{社会保険機構}{九大 何某}{続柄}{1234}
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %\小規模企業共済		% 非対応
 %%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%
 \これで終り書き出し		%
 %%%%%%%%%%%%%%%%%%%%%%%%%

インクルードファイル hoken-18.inc は以下の通りである。
また、均等割り付けのマクロ fitwidth.sty は http://www.math.nagoya-u.ac.jp/~kubo/ja/latex/tips-003.html から取って来た。

 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %											%
 %  保険料控除申告書 Macro by Norio Iwase	%
 %											%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \ifx\undefined\XeTeXversion
  \documentclass[12pt,a4j]{jarticle}
  \usepackage[dvipdfmx]{graphicx}
  \usepackage[deluxe]{otf}
 \else
  \documentclass[11pt,a4paper]{article}
  \usepackage[xetex]{graphicx}
  \usepackage[no-math]{fontspec}
  \usepackage[boldfont,slantfont]{xeCJK}
  \usepackage{zxjatype}
  \usepackage{zxotf}
  \usepackage{xunicode}\usepackage{xltxtra}
  \CJKspace
 %
  \defaultfontfeatures{Mapping=tex-text}
  \setromanfont{Times}\setsansfont{Papyrus}\setmonofont{Arial}
  \setjamainfont[Scale=0.95]{HGSeikaishotaiPRO}
  \setjasansfont[Scale=0.9]{IPAexMincho}
  \setjamonofont[Scale=0.9]{Osaka-Mono}
 \fi
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	共通設定						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \setlength{\voffset}		{  42.5mm}
 \setlength{\hoffset}		{ -13.0mm}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \usepackage{amssymb}
 \usepackage{ifthen,numbersty}
 \usepackage{lscape}
 \usepackage{curves}
 \usepackage{fitwidth}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %  マクロ							%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \def\税務所轄：#1税務署長#2市区町村長{%
  \put(20.0,329.5){\makebox(35,0)[bc]{\Large #1}}}
 \def\所属機関：#1番号#2{%
 \put(137.0,353.0){\makebox(90,0)[bc]{\Large #1}}%
 \put(136.0,334.5){\makebox(90,0)[bc]{\large \fitwidth{18.9em}{#2}}}}
 \def\所在地〒#1#2{\gdef\kikanzip{#1}%
 \put(102.0,318.5){\makebox(90,7)[cl]{%{〒#1} 
 #2}}}
 \def\機関代表：#1氏名#2{\gdef\kikanchou{#1}\gdef\souchou{#2}}
 \def\部局#1（#2）：#3{\gdef\bukyoku{#1}\gdef\bukyokucode{#2}\gdef\bumon{#3}}
 \def\事務局#1（#2）{\gdef\jimu{#1}\gdef\jimucode{#2}}
 %
 \def\本人所属：#1職#2{\gdef\shozoku{#1}\gdef\shoku{#2}}
 \def\電話#1{\gdef\denwa{#1}}
 \def\電子郵便#1{\gdef\denshimail{#1}}
 \def\ファックス#1{\gdef\fax{#1}}
 \def\住所〒#1ー#2：#3{
  \put(310.0,322.0)	{\makebox(140,7)[cl]{#3}}
 }
 \newcount\HUmare \HUmare=496
 \newcount\HUmareh \HUmareh=287
 \def\配偶者は明治#1年#2月#3日生まれの#4{
  \advance\HUmareh 5
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\def\htuduki{#4}
 }
 \def\配偶者は大正#1年#2月#3日生まれの#4{
  \advance\HUmare 12
  \advance\HUmareh 5
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\def\htuduki{#4}
 }
 \def\配偶者は昭和#1年#2月#3日生まれの#4{
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\def\htuduki{#4}
 }
 \def\配偶者は平成#1年#2月#3日生まれの#4{
  \advance\HUmare 12
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\def\htuduki{#4}
 }
 \def\配偶者は令和#1年#2月#3日生まれの#4{
  \advance\HUmare 12
  \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\def\htuduki{#4}
 }
 \def\隅黒{\def\sumi{1}}\def\kuro{1}\def\sumi{0}
 %
 \newcount\Line
 \newcount{\ippangaku}\ippangaku=0
 \newcount{\nippangaku}\nippangaku=0
 \newcount{\kaigogaku}\kaigogaku=0
 \newcount{\kojingaku}\kojingaku=0
 \newcount{\nkojingaku}\nkojingaku=0
 \newcount{\ippangakukei}\ippangakukei=0
 \newcount{\nippangakukei}\nippangakukei=0
 \newcount{\kaigogakukei}\kaigogakukei=0
 \newcount{\kojingakukei}\kojingakukei=0
 \newcount{\nkojingakukei}\nkojingakukei=0
 \newcount\kojolimit\kojolimit=0
 %
 \def\生命保険#1#2#3#4#5#6#7{
 \put( 37.0,\number\Line)	{\makebox( 45,7)[cc]{#1}}
 \put( 81.0,\number\Line)	{\makebox( 37,7)[cc]{\scriptsize#2}}
 \put(116.5,\number\Line)	{\makebox( 13,7)[cc]{\scriptsize#3}}
 \put(132.0,\number\Line)	{\makebox( 39,7)[cc]{#4}}
 \put(174.0,\number\Line)	{\makebox( 41,7)[cc]{#5}}
 \put(219.0,\number\Line)	{\makebox( 12,7)[cc]{#6}}
 \advance\Line -2
 \put(243.0,\number\Line.5)	{\makebox( 44,7)[cr]{ \tt\milnumber#7}}
 \advance\Line 2
 }
 %
 \def\一般生命#1#2#3#4：受取人#5#6#7{\gdef\ippan{#1}%
 \ippangaku=#7\advance\ippangakukei by #7
 \ippankojo=\ippangakukei \ifnum\ippankojo>50000\ippankojo=50000\fi
 \advance\Line -3
 \put(239.2,\number\Line.3)	{\scaleput(7,7){\bigcircle{7}}}
 \advance\Line 3
 \生命保険{#1}{#2}{#3}{#4}{#5}{#6}{#7}
 \advance\Line -15
 }
 \def\新一般生命#1#2#3#4：受取人#5#6#7{\gdef\nippan{#1}%
 \nippangaku=#7\advance\nippangakukei by #7
 \nippankojo=\nippangakukei \ifnum\nippankojo>40000\nippankojo=40000\fi
 \advance\Line -3
 \put(231.2,\number\Line.3)	{\scaleput(7,7){\bigcircle{7}}}
 \advance\Line 3
 \生命保険{#1}{#2}{#3}{#4}{#5}{#6}{#7}
 \advance\Line -15
 }
 \def\介護医療#1#2#3#4：受取人#5#6#7{\gdef\kaigo{#1}%
 \kaigogaku=#7\advance\kaigogakukei by #7
 \kaigokojo=\kaigogakukei \ifnum\kaigokojo>40000\kaigokojo=40000\fi
 \ifnum\number\Line>200 \Line=174\fi
 \生命保険{#1}{#2}{#3}{#4}{#5}{#6}{#7}
 \advance\Line -15
 }
 \def\個人年金#1#2#3#4：受取人#5#6#7{\gdef\kojin{#1}%
 \ifnum\number\Line>140 \Line=127\fi
 \kojingaku=#7\advance \kojingakukei by #7
 \kojinkojo=\kojingakukei \ifnum\kojinkojo>40000\kojinkojo=40000\fi
 \advance\Line -3
 \put(239.2,\number\Line.3)	{\scaleput(7,7){\bigcircle{7}}}
 \advance\Line 3
 \生命保険{#1}{#2}{#3}{#4}{#5}{#6}{#7}
 \advance\Line -15
 }
 \def\新個人年金#1#2#3#4：受取人#5#6#7{\gdef\nkojin{#1}%
 \ifnum\number\Line>140 \Line=127\fi
 \nkojingaku=#7\advance \nkojingakukei by #7\nkojinkojo=\nkojingakukei
 \advance\Line -3
 \put(231.2,\number\Line.3)	{\scaleput(7,7){\bigcircle{7}}}
 \advance\Line 3
 \生命保険{#1}{#2}{#3}{#4}{#5}{#6}{#7}
 \advance\Line -15
 }
 %
 \newcount\ippankojo\ippankojo=0
 \newcount\nippankojo\nippankojo=0
 \newcount\kaigokojo\kaigokojo=0
 \newcount\kojinkojo\kojinkojo=0
 \newcount\nkojinkojo\nkojinkojo=0
 \newcount{\dishinkojo}\dishinkojo=0
 \newcount{\shakaikojo}\shakaikojo=0
 \newcount{\songaikojo}\songaikojo=0
 \newcount\kojokei\kojokei=0
 \newcount{\dkojokei}\dkojokei=0
 \def\保険控除額#1#2#3#4#5{
  \ippankojo=#1\nippankojo=#2\kaigokojo=#3\kojinkojo=#4\nkojinkojo=#5}
 \def\地震控除額#1#2{\dishinkojo=#1\dkojokei=#1\songaikojo=#2\ifx#2\empty\else\advance\dkojokei by #2\fi}
 \newcount{\dishingaku}\dishingaku=0
 \newcount{\songaigaku}\dishingaku=0
 \newcount{\dishingakukei}\dishingakukei=0
 \newcount{\songaigakukei}\dishingakukei=0
 \newcount{\dishinkojokei}\dishinkojokei=0
 \newcount{\songaikojokei}\songaikojokei=0
 \newcount{\dishinkojosokei}\dishinkojosokei=0
 \def\地震保険#1#2#3#4：受取人#5#6#7{\gdef\dishin{#1}\gdef\dishinshurui{#2}\def\dishinkikan{#3}\gdef\dishinkeiyaku{#4}\gdef\dishinshimei{#5}\gdef\dishintuduki{#6}\dishingaku=#7 \advance \dishingakukei by #7 \dishinkojokei=\dishingakukei \dishinkojosokei=\dishinkojokei \advance \dishinkojosokei by \songaikojokei
  \advance\Line 1
 \put(323.0, \number\Line)	{\makebox( 45,8)[cc]{\begin{minipage}[c]{17mm}\footnotesize\dishin\end{minipage}}}
 \advance\Line -1
 \put(361.0, \number\Line.4)	{\makebox( 37,8)[cc]{\begin{minipage}[c]{12mm}\footnotesize\dishinshurui\end{minipage}}}
 \put(393.0, \number\Line)	{\makebox( 13,8)[cc]{ \scriptsize\dishinkikan}}
 \advance\Line 7
 \put(412.0, \number\Line)	{\makebox( 39,8)[cc]{ \dishinkeiyaku}}
 \advance\Line -12
 \put(405.0, \number\Line)	{\makebox( 41,8)[cc]{ \small\dishinshimei}}
 \put(445.0, \number\Line)	{\makebox( 12,8)[cc]{ \scriptsize\dishintuduki}}
 \advance\Line 5
 \advance\Line -2
 \put(468.7,\number\Line.5){
     \renewcommand{\xscale}{1.5}
     \renewcommand{\xscaley}{-1.5}
     \renewcommand{\yscale}{0.7}
     \renewcommand{\yscalex}{0.7}
     \scaleput(9,9){\bigcircle{9}}
     }
 \advance\Line 2
 \put(470.0, \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\dishingaku}}
 \advance\Line -23
 }
 %
 \newcount{\shakaigaku}\shakaigaku=0
 \newcount{\shakaigakux}\shakaigakux=0
 \newcount{\shakaigakukei}\shakaigakukei=0
 \gdef\shakai{}\gdef\shakaix{}
 \def\社会保険Ｕ#1#2#3#4#5{\gdef\shakai{#1}\gdef\shakaishurui{#2}\gdef\shakaishimei{#3}\gdef\shakaituduki{#4}\shakaigaku=#5\advance \shakaigakukei by #5\shakaikojo=\shakaigakukei\advance \shakaikojokei by \shakaikojo}
 \def\社会保険Ｌ#1#2#3#4#5{\gdef\shakaix{#1}\gdef\shakaishuruix{#2}\gdef\shakaishimeix{#3}\gdef\shakaitudukix{#4}\shakaigakux=#5\advance \shakaigakukei by #5\shakaikojox=\shakaigakukei\advance \shakaikojokei by \shakaikojox}
 \newcount{\shakaikojo}\shakaikojo=0
 \newcount{\shakaikojox}\shakaikojox=0
 \newcount{\shakaikojokei}\shakaikojokei=0
 %
 \newcount{\hshunyu}\hshunyu=0
 \newcount{\hshotoku}\hshotoku=0
 \def\配偶者収入#1（特別控除#2万円）{
 \hshotoku=#1 \advance \hshotoku by -650000
 \ifthenelse{\hshotoku<0}{\hshotoku=0}{}
 \Line=220
 \put(435.0,\number\Line)	{\makebox( 18,7)[cr]{ \scriptsize\tt\milnumber#1}}
 \put(522.0,\number\Line)	{\makebox( 20,7)[cr]{ \scriptsize\tt\milnumber\hshotoku}}
 \advance\Line -60
 \put(520.0,\number\Line)	{\makebox( 20,7)[cr]{ \small\tt\milnumber\hshotoku}}
 \advance\Line 60
 \advance\Line -112
 \put(519.0,\number\Line)	{\makebox( 20,7)[cr]{ #2}}
 \advance\Line 112
 }
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	特種設定						%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \makeatletter
 \makeatother
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %	\姓・\名 コマンド				%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 \newcommand{\rubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[3.7mm]{#1}}}}
 \newcommand{\hrubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[2.7mm]{#1}}}}
 \newcommand{\Sei}{}\newcommand{\Mei}{}
 \newcommand{\sei}{}\newcommand{\mei}{}
 \def\本人姓#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\Sei}{}}{}{\xdef\Sei{\Sei\protect{　}}}%
   \xdef\Sei{\Sei\protect\rubi{#1}{#2}}%
   \ifthenelse{\equal{\sei}{}}{}{\xdef\sei{\sei\protect{}}}%
   \xdef\sei{\sei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\本人名#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\Mei}{}}{}{\xdef\Mei{\Mei\protect{　}}}%
   \xdef\Mei{\Mei\protect\rubi{#1}{#2}}%
   \ifthenelse{\equal{\mei}{}}{}{\xdef\mei{\mei\protect{}}}%
   \xdef\mei{\mei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\ID{}
 \def\本人番号#1{\gdef\ID{#1}}
 %
 \newcommand{\HSei}{}\newcommand{\HMei}{}
 \newcommand{\hsei}{}\newcommand{\hmei}{}
 \def\配偶者姓#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\HSei}{}}{}{\xdef\HSei{\HSei\protect{　}}}%
   \xdef\HSei{\HSei\protect\hrubi{#1}{#2}}%
   \ifthenelse{\equal{\hsei}{}}{}{\xdef\hsei{\hsei\protect{}}}%
   \xdef\hsei{\hsei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\配偶者名#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
   \ifthenelse{\equal{\HMei}{}}{}{\xdef\HMei{\HMei\protect{　}}}%
   \xdef\HMei{\HMei\protect\hrubi{#1}{#2}}%
   \ifthenelse{\equal{\hmei}{}}{}{\xdef\hmei{\hmei\protect{}}}%
   \xdef\hmei{\hmei{\protect\bgroup\protect #1\protect\egroup}}%
   \endgroup}
 \def\配偶者続柄#1{\gdef\htuduki{#1}}
 %
 \def\平成#1年分保険料控除申請書{%
 \def\nendo{#1}\gdef\filename{h#1_05}
 \pagestyle{empty}
 %
 \begin{document}
 \begin{landscape}
 \setlength{\textwidth}		{ 200.0mm}
 \setlength{\textheight}		{ 280.0mm}
 \setlength{\oddsidemargin}	{  -6.8mm}
 \setlength{\unitlength}		{   0.5mm}
 \setlength\unitlength{0.5mm}
 \begin{picture}(280,200)(0,200)
 %
 \put(8.6,-2.5)	{\makebox(547,398){\includegraphics[page=1]{\filename}}}
 %
 }
 %
 \def\生命保険料控除{
 \put(345.0,348.2)	{\makebox( 60,14)[cc]{\large \Sei {　} \Mei}}
 \put(528,393.0)		{\makebox(30,8)[rc]{\scriptsize \jimucode}}
 \ifx\jimu\empty
 \put(20,395){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}}}
 \else
 \put(20,395){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}（{\jimu}）}}
 \fi
 \put(20,390){\makebox(30,8)[lc]{\tt\tiny {\bukyoku}\ifx\bumon\empty\else{・{\bumon}}\fi}}
 \Line=267
 }%
 \def\地震保険料控除{\Line=262}
 \def\社会保険料控除{\Line=262}
 %
 \def\これで終り書き出し{
 \put(310,360.0)		{\makebox(30,8)[lc]{\scriptsize \ID}}
 \ifdefined\ippan
 \put( 64.0,189)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\ippangakukei}}
 \put(183.0,189)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\ippankojo}}
 \put(264.0,189)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\ippankojo}}
 \fi
 %
 \ifdefined\nippan
 \advance\Line -63
 \put( 64.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nippangakukei}}
 \put(183.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nippankojo}}
 \put(264.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nippankojo}}
 \advance\Line 63
 \fi
 %
 \ifdefined\kaigo
 \advance\Line -120
 \put( 64.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\kaigogakukei}}
 \put(264.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\kaigokojo}}
 \advance\Line 120
 \fi
 \advance\Line -95
 %
 \ifdefined\kojin
 \advance\Line -103
 \put( 64.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\kojingakukei}}
 \put(183.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\kojinkojo}}
 \put(264.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\kojinkojo}}
 \advance\Line 103
 \fi
 %
 \ifdefined\nkojin
 \advance\Line -88
 \put( 64.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nkojingakukei}}
 \put(183.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nkojinkojo}}
 \put(264.0,\number\Line)	{\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nkojinkojo}}
 \advance\Line 88
 \fi
 %
 \advance\Line -151
 \kojokei=\number\ippankojo
 \ifnum\ippankojo<\nippankojo \kojokei=\number\nippankojo
 \else \kojokei=\number\ippankojo \fi
 \advance \kojokei by \number\kaigokojo
 \ifnum\kojinkojo<\nkojinkojo \advance \kojokei by \number\nkojinkojo
 \else \advance \kojokei by \number\kojinkojo \fi
 \kojolimit=\number\kojokei \divide\kojolimit by 10000
 \ifnum\kojolimit>11 \kojolimit=120000
  \put(264.0, 25)	{\makebox( 44,7)[cr]{\tt\milnumber\kojolimit}}
 \else
  \put(264.0, 25)	{\makebox( 44,7)[cr]{\tt\milnumber\kojokei}}
 \fi
 %
 \Line=76
 %
 \ifx\dishin\empty\else
 \advance\Line 186
 \advance\Line -42
 \put(488.0, \number\Line)	{\makebox( 44,7)[cr]{\tt\milnumber\dishingakukei}}
 \advance\Line 42
 \advance\Line -59
 %\ifnum\dishinkojo=\dishinkojo\else
 %\fi
 \advance\Line 59
 \advance\Line -76
 \put(370.0,  \number\Line)	{\makebox( 44,7)[cr]{\tt\milnumber\dishinkojokei}}
 \advance\Line 76
 \advance\Line -96
 \put(488.0, \number\Line)	{\makebox( 44,7)[cr]{\tt\milnumber\dishinkojosokei}}
 \advance\Line 96
 \advance\Line -186
 \fi
 %
 \ifx\shakai\empty\else
 \Line=127
 \put(330.5, \number\Line)	{\makebox( 30,7)[cc]{ \footnotesize\shakai}}
 \put(370.5, \number\Line)	{\makebox( 37,7)[cc]{ \footnotesize\shakaishurui}}
 \put(417.0, \number\Line)	{\makebox( 41,7)[cc]{ \shakaishimei}}
 \put(469.5, \number\Line)	{\makebox( 12,7)[cc]{ \shakaituduki}}
 \put(487.0, \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\shakaigaku}}
 \fi
 %
 \ifx\shakaix\empty\else
 \Line=112
 \put(330.5, \number\Line)	{\makebox( 30,7)[cc]{ \footnotesize\shakai}}
 \put(370.5, \number\Line)	{\makebox( 37,7)[cc]{ \footnotesize\shakaishuruix}}
 \put(417.0, \number\Line)	{\makebox( 41,7)[cc]{ \shakaishimeix}}
 \put(469.5, \number\Line)	{\makebox( 12,7)[cc]{ \shakaitudukix}}
 \put(487.0, \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\shakaigakux}}
 \fi
 %
 \ifnum\shakaigakukei=0\else
 \put(487.0, 95)	{\makebox( 44,7)[cr]{ \tt\milnumber\shakaigakukei}}
 \fi
 %
 \ifx\sumi\kuro
 \put(569.5, 2.5)	{\makebox(0,0){\rule{11mm}{11mm}}}
 \fi
 %
 \end{picture}
 \clearpage
 \addtolength{\voffset}		{ -4.8mm}
 \addtolength{\hoffset}		{ -3.8mm}
 \begin{picture}(280,200)(0,200)
 \put(8.6,-2.5)	{\makebox(547,403){\includegraphics[page=2,angle=180,origin=c]{\filename}}}
 \end{picture}
 \end{landscape}
 \end{document}
 }