![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
令和になってから国税庁の仕様が大幅に変更になったので、保険料控除申告書を作るマクロに変更が必要であった。（１円切り上げをしていなかったので、マクロを修正して切り上げるようにした - 11月19日）
どうやら xelatex または uplatex で動くようである。
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% 保険料控除申告書 by Norio Iwase %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%!TEX TS-program = XeLaTeX
%!TEX encoding = UTF-8 Unicode
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input hoken-22.inc
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\令和{4}年分保険料控除申告書 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 研究機関のＩＤ %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\税務所轄：{西福岡}税務署長{福岡市西区}市区町村長
\所属機関：{国立大学法人 九州大学}番号{３２９０００５００３７４３}
\所在地〒{819-0395}{福岡市西区元岡744番地}
\部局{何某研究院}（{1200308000}）：{某部門} % 数理？
\事務局{某学部等}（{0 0 2 0 9}） % 理学の事務局？
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 本人のＩＤ %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\本人姓{某}{ボウ}
\本人姓{々}{ボウ}
\本人名{某}{ボウ}
\本人名{某}{ボウ}
\本人番号{}
\配偶者は昭和{2}年{2}月{2}日生まれの{続柄}
\住所〒{819}ー{0395}：{福岡市西区元岡 1-2-3}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\生命保険料控除 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\一般生命{ＸＸ生命}{医療保険}{30年}{\sei\mei}：受取人{\sei\mei}続柄{続柄}＠{123450}
\一般生命{〇〇生命}{養老保険}{終身}{\sei\mei}：受取人{\sei\mei}続柄{続柄}＠{123450}
\介護医療{\mincho{△△}生命}{介護保険}{終身}{\sei\mei}：受取人{\hsei\hmei}続柄{\htuduki}＠{123450}% {\hsei\hmei}{\htuduki} は配偶者の氏名と続柄
\個人年金{\mincho{□□}生命}{年金保険}{終身}{\sei\mei}：受取人{\hsei\hmei}続柄{\htuduki}＠{123450}% {\hsei\hmei}{\htuduki} は配偶者の氏名と続柄
%\保険控除額{40000}{40000}{35000}{40000}{40000} % 左から{生命保険}{新生命保険}{介護医療}{個人年金}{新個人年金}の控除額を手入力
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\地震保険料控除 % 旧長期損害保険は非対応
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\地震保険{損害保険}{地震保険（家財）}{５年}{\sei\mei}：受取人{\sei\mei}続柄{本人}＠{23450}/{5}
\地震保険{損害保険}{地震保険（建物）}{５年}{\sei\mei}：受取人{\sei\mei}続柄{本人}＠{23450}/{5}
%\地震控除額{4690}{0} % 左から{地震保険}{旧長期損害保険}の控除額を手入力（旧長期損害保険は非対応）
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\社会保険料控除 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\社会保険Ｕ{社会保険}{社会保険機構}氏名{某々 某何}続柄{子}＠{1234}
\社会保険Ｌ{社会保険}{社会保険機構}氏名{某々 何某}続柄{子}＠{1234}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\小規模企業共済 % 非対応
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\これで終り書き出し %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
インクルードファイル hoken-22.inc は以下の通りである。 また、均等割り付けのマクロ fitwidth.sty は http://www.math.nagoya-u.ac.jp/~kubo/ja/latex/tips-003.html から取って来た。
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% 保険料控除申告書 Form by Norio Iwase %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifx\undefined\XeTeXversion
\documentclass[12pt,a4j]{jarticle}
\usepackage[dvipdfmx]{graphicx}
\usepackage[deluxe]{otf}
\def\mincho{}
\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}
\def\mincho{\fontspec[Scale=0.9]{IPAexMincho}}
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 共通設定 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\voffset} { 42.0mm}
\setlength{\hoffset} { -15.3mm}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\usepackage{amssymb}
\usepackage{ifthen,numbersty}
\usepackage{lscape}
\usepackage{curves}
\usepackage{fitwidth}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% マクロ %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\税務所轄：#1税務署長#2市区町村長{%
\put(16.0,325.5){\makebox(35,0)[bc]{\Large #1}}}
\def\所属機関：#1番号#2{%
\put(135.0,348.5){\makebox(90,0)[bc]{\Large #1}}%
\put(135.0,329.5){\makebox(90,0)[bc]{\large \fitwidth{19.2em}{#2}}}}
\def\所在地〒#1#2{\gdef\kikanzip{#1}%
\put(102.0,314.0){\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(312.0,318.0) {\makebox(140,7)[cl]{#3}}
}
\newcount\HUmare \HUmare=496
\newcount\HUmareh \HUmareh=287
\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\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\隅黒{\def\sumi{1}}\def\kuro{1}\def\sumi{0}
%
\newcount\Line
\newcount\Col
\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>25000
\ifnum\ippankojo>50000
\ifnum\ippankojo>100000
\ippankojo = 50000
\else
\advance\ippankojo 100000 \kojotemp=\ippankojo
\divide\ippankojo by 4 \multiply\ippankojo by 4
\ifnum\kojotemp>\ippankojo
\divide\ippankojo by 4 \advance \ippankojo by 1
\else
\divide\ippankojo by 4
\fi
\fi
\else
\advance\ippankojo 25000 \kojotemp=\ippankojo
\divide\ippankojo by 2 \multiply\ippankojo by 2
\ifnum\kojotemp>\ippankojo
\divide\ippankojo by 2 \advance \ippankojo by 1
\else
\divide\ippankojo by 2
\fi
\fi
\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 -16
}
\def\新一般生命#1#2#3#4：受取人#5続柄#6＠#7{\gdef\nippan{#1}%
\nippangaku=#7\advance\nippangakukei by #7
\nippankojo=\nippangakukei
\ifnum\nippankojo>20000
\ifnum\nippankojo>40000
\ifnum\nippankojo>80000
\nippankojo = 40000
\else
\advance\nippankojo=80000 \kojotemp=\nippankojo
\divide\nippankojo by 4 \multiply\nippankojo by 4
\ifnum\kojotemp>\nippankojo
\divide\nippankojo by 4 \advance \nippankojo by 1
\else
\divide\nippankojo by 4
\fi
\fi
\else
\advance\nippankojo 20000 \kojotemp=\nippankojo
\divide\nippankojo by 2 \multiply\nippankojo by 2
\ifnum\kojotemp>\nippankojo
\divide\nippankojo by 2 \advance \nippankojo by 1
\else
\divide\nippankojo by 2
\fi
\fi
\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 -16
}
\def\介護医療#1#2#3#4：受取人#5続柄#6＠#7{\gdef\kaigo{#1}%
\ifnum\Line>180 \Line=172\fi
\kaigogaku=#7\advance\kaigogakukei by #7
\kaigokojo=\kaigogakukei
\ifnum\kaigokojo>20000
\ifnum\kaigokojo>40000
\ifnum\kaigokojo>80000
\kaigokojo = 40000
\else
\advance\kaigokojo 80000 \kojotemp=\kaigokojo
\divide\kaigokojo by 4 \multiply\kaigokojo by 4
\ifnum\kojotemp>\kaigokojo
\divide\kaigokojo by 4 \advance \kaigokojo by 1
\else
\divide\kaigokojo by 4
\fi
\fi
\else
\advance\kaigokojo 20000 \kojotemp=\kaigokojo
\divide\kaigokojo by 2 \multiply\kaigokojo by 2
\ifnum\kojotemp>\kaigokojo
\divide\kaigokojo by 2 \advance \kaigokojo by 1
\else
\divide\kaigokojo by 2
\fi
\fi
\fi
\生命保険{#1}{#2}{#3}{#4}{#5}{#6}{#7}
\advance\Line -16
}
\def\個人年金#1#2#3#4：受取人#5続柄#6＠#7{\gdef\kojin{#1}%
\ifnum\Line>120 \Line=109\fi
\kojingaku=#7\advance \kojingakukei by #7
\kojinkojo=\kojingakukei
\ifnum\kojinkojo>25000
\ifnum\kojinkojo>50000
\ifnum\kojinkojo>100000
\kojinkojo = 50000
\else
\advance\kojinkojo 100000 \kojotemp=\kojinkojo
\divide\kojinkojo by 4 \multiply\kojinkojo by 4
\ifnum\kojotemp>\kojinkojo
\divide\kojinkojo by 4 \advance \kojinkojo by 1
\else
\divide\kojinkojo by 4
\fi
\fi
\else
\advance\kojinkojo 25000 \kojotemp=\kojinkojo
\divide\kojinkojo by 2 \multiply\kojinkojo by 2
\ifnum\kojotemp>\kojinkojo
\divide\kojinkojo by 2 \advance \kojinkojo by 1
\else
\divide\kojinkojo by 2
\fi
\fi
\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 -16
}
\def\新個人年金#1#2#3#4：受取人#5続柄#6＠#7{\gdef\nkojin{#1}%
\ifnum\Line>120 \Line=109\fi
\nkojingaku=#7\advance \nkojingakukei by #7 \nkojinkojo=\nkojingakukei
\ifnum\nkojinkojo>20000
\ifnum\nkojinkojo>40000
\ifnum\nkojinkojo>80000
\nkojinkojo = 40000
\else
\advance\nkojinkojo=80000 \kojotemp=\nkojinkojo
\divide\nkojinkojo by 4 \multiply\nkojinkojo by 4
\ifnum\kojotemp>\nkojinkojo
\divide\nkojinkojo by 4 \advance \nkojinkojo by 1
\else
\divide\nkojinkojo by 4
\fi
\fi
\else
\advance\nkojinkojo 20000 \kojotemp=\nkojinkojo
\divide\nkojinkojo by 2 \multiply\nkojinkojo by 2
\ifnum\kojotemp>\nkojinkojo
\divide\nkojinkojo by 2 \advance \nkojinkojo by 1
\else
\divide\nkojinkojo by 2
\fi
\fi
\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 -16
}
%
\newcount\kojotemp\kojotemp=0
\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/#8{\gdef\dishin{#1}\gdef\dishinshurui{#2}\def\dishinkikan{#3}\gdef\dishinkeiyaku{#4}\gdef\dishinshimei{#5}\gdef\dishintuduki{#6}\dishingaku=#7\ifx#8\empty\else\divide\dishingaku by #8\fi \advance \dishingakukei by \number\dishingaku \dishinkojokei=\dishingakukei \dishinkojosokei=\dishinkojokei \advance \dishinkojosokei by \songaikojokei
\advance\Line 1 \Col=327
\put(\number\Col.0, \number\Line) {\makebox( 45,8)[cc]{\begin{minipage}[c]{17mm}\footnotesize\dishin\end{minipage}}}
\advance\Line -1
\advance\Col 38
\put(\number\Col.0, \number\Line.4) {\makebox( 37,8)[cc]{\begin{minipage}[c]{12mm}\footnotesize\dishinshurui\end{minipage}}}
\advance\Col 32
\put(\number\Col.0, \number\Line) {\makebox( 13,8)[cc]{ \scriptsize\dishinkikan}}
\advance\Line 7
\advance\Col 19
\put(\number\Col.0, \number\Line) {\makebox( 39,8)[cc]{ \dishinkeiyaku}}
\advance\Line -12
\advance\Col -7
\put(\number\Col.0, \number\Line) {\makebox( 41,8)[cc]{ \small\dishinshimei}}
\advance\Col 40
\put(\number\Col.0, \number\Line) {\makebox( 12,8)[cc]{ \scriptsize\dishintuduki}}
\advance\Line 5
\advance\Line -2
\advance\Col 24
\put(\number\Col.8,\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
\advance\Col 1
\put(\number\Col.0, \number\Line) {\makebox( 44,7)[cr]{ \tt\milnumber\dishingaku}}
\advance\Line -24
}
%
\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
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 特種設定 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\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\本人番号#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}}
%
\newcounter{Nendo}
\def\令和#1年分保険料控除申告書{%
\setcounter{Nendo}{#1}\stepcounter{Nendo}
\gdef\filename{r\number\value{Nendo}bun_04}
\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,186)
%
\put(11.3,-8.8) {\makebox(547,398){\includegraphics[page=1]{\filename}}}
%
}
%
\def\生命保険料控除{
\put(345,343) {\makebox( 60,14)[cc]{\large \Sei { } \Mei}}
\put(524,347) {\makebox(30,8)[rc]{\tiny \jimucode}}
\ifx\jimu\empty
\put(13,373){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}}}
\else
\put(13,373){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}（{\jimu}）}}
\fi
\put(13,368){\makebox(30,8)[lc]{\tt\tiny {\bukyoku}\ifx\bumon\empty\else{・{\bumon}}\fi}}
\Line=267
}%
\def\地震保険料控除{\Line=262}
\def\社会保険料控除{\Line=262}
%
\def\これで終り書き出し{
\put(310,355.5) {\makebox(30,8)[lc]{\scriptsize \ID}}
\advance\Line -80
\ifdefined\ippan
\put( 61.0,187) {\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\ippangakukei}}
\put(182.5,187) {\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\ippankojo}}
\put(264.0,187) {\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\ippankojo}}
\advance\Line 80
\fi
%
\ifdefined\nippan
\advance\Line -63
\put( 61.0,\number\Line) {\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nippangakukei}}
\put(182.5,\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 -138
\put( 61.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 138
\fi
\advance\Line -95
%
\ifdefined\kojin
\advance\Line -122
\put( 61.0,\number\Line) {\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\kojingakukei}}
\put(182.5,\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 122
\fi
%
\ifdefined\nkojin
\advance\Line -106
\put( 61.0,\number\Line) {\makebox( 44,7)[cr]{ \footnotesize\tt\milnumber\nkojingakukei}}
\put(182.5,\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 106
\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, 5) {\makebox( 44,7)[cr]{\tt\milnumber\kojolimit}}
\else
\put(264.0, 5) {\makebox( 44,7)[cr]{\tt\milnumber\kojokei}}
\fi
%
\Line=76\Col=491
%
\ifx\dishin\empty\else
\advance\Line 186
\advance\Line -42
\advance\Col 1
\put(\number\Col.0, \number\Line) {\makebox( 44,7)[cr]{\tt\milnumber\dishingakukei}}
\advance\Col -1
\advance\Line 42
\advance\Line -59
%\ifnum\dishinkojo=\dishinkojo\else
%\fi
\advance\Line 59
\advance\Line -76
\advance\Col -120
\put(\number\Col.0, \number\Line) {\makebox( 44,7)[cr]{\tt\milnumber\dishinkojokei}}
\advance\Col 120
\advance\Line 76
\advance\Line -96
\put(\number\Col.0, \number\Line) {\makebox( 44,7)[cr]{\tt\milnumber\dishinkojosokei}}
\advance\Line 96
\advance\Line -186
\fi
%
\ifx\shakai\empty\else
\Line=132\Col=330
\put(\number\Col.5, \number\Line) {\makebox( 30,7)[cc]{ \footnotesize\shakai}}
\advance\Col by 40
\put(\number\Col.5, \number\Line) {\makebox( 37,7)[cc]{ \footnotesize\shakaishurui}}
\advance\Col by 47
\put(\number\Col.0, \number\Line) {\makebox( 41,7)[cc]{ \shakaishimei}}
\advance\Col by 52
\put(\number\Col.5, \number\Line) {\makebox( 12,7)[cc]{ \shakaituduki}}
\advance\Col by 18
\put(\number\Col.0, \number\Line) {\makebox( 44,7)[cr]{ \tt\milnumber\shakaigaku}}
\fi
%
\ifx\shakaix\empty\else
\Line=116\Col=330
\put(\number\Col.5, \number\Line) {\makebox( 30,7)[cc]{ \footnotesize\shakai}}
\advance\Col by 40
\put(\number\Col.5, \number\Line) {\makebox( 37,7)[cc]{ \footnotesize\shakaishuruix}}
\advance\Col by 47
\put(\number\Col.0, \number\Line) {\makebox( 41,7)[cc]{ \shakaishimeix}}
\advance\Col by 52
\put(\number\Col.5, \number\Line) {\makebox( 12,7)[cc]{ \shakaitudukix}}
\advance\Col by 18
\put(\number\Col.0, \number\Line) {\makebox( 44,7)[cr]{ \tt\milnumber\shakaigakux}}
\fi
%
\ifnum\shakaigakukei=0\else
\put(\number\Col.0,101) {\makebox( 44,7)[cr]{ \tt\milnumber\shakaigakukei}}
\fi
%
\advance\Col by 82
\ifx\sumi\kuro
\put(\number\Col.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,210)
\put(8.6,-2.5) {\makebox(547,403){\includegraphics[page=2,angle=180,origin=c]{\filename}}}
\end{picture}
\end{landscape}
\end{document}
}
