![[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} }
