昨年から国税庁の仕様が大幅に変更になったので、基礎配偶者調整控除申告書を作るマクロに変更が必要であった。 おそらく、uplatex で動かすのは無理だと思う。 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % 基礎配偶者調整控除申告書 Norio Iwase % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %!TEX TS-program = XeLaTeX %!TEX encoding = UTF-8 Unicode %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \input haigusha-20.inc %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \令和{2}年分配偶者特別控除等申告書 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % 研究機関のID % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \税務所轄:{西福岡}税務署長{福岡市西区}市区町村長 \所属機関:{国立大学法人 九州大学}番号{3290005003743} \所在地〒{819-0395}{福岡市西区元岡744番地} \部局{何某研究院}({1200308000}):{某部門} % 数理? \事務局{某学部等}({0 0 2 0 9}) % 理学の事務局? % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % 本人のID % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \本人姓{何}{ナニ} \本人姓{某}{ボウ} \本人名{某}{ボウ} \本人名{某}{ボウ} \本人番号{23442342} \配偶者姓{何}{ナニ} \配偶者姓{某}{ボウ} \配偶者名{何}{ナニ} \配偶者名{何}{ナニ} \配偶者は昭和{22}年{2}月{2}日生まれの{続柄} % 明治、大正、昭和、平成に対応 \本人住所{福岡市西区元岡 1-2-3} \配偶者住所{米国アトランタ州} % 同居でない場合 \海外仕送り{5000000}円 % 国内非居住の場合に生計を一にする事実 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % 配偶者控除 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \本人収入{550000}円{0}円{0}円{0}円{0}円{0}円{0}円 \配偶者収入{340000}円{0}円{0}円{0}円{0}円{0}円{0}円 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \これで終り書き出し % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% インクルードファイル haigusha-20.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} \else \documentclass[12pt,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} { 38.5mm} \setlength{\hoffset} { -12.0mm} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \usepackage{amssymb} \usepackage{ifthen,numbersty} \usepackage{lscape} \usepackage{curves} \usepackage{fitwidth} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % マクロ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \makeatletter \newcount\yowai \yowai=\year \def\生まれは明治#1年#2月#3日{% \advance\yowai-1867\advance\yowai by -#1} \def\生まれは大正#1年#2月#3日{% \advance\yowai-1911\advance\yowai by -#1} \def\生まれは昭和#1年#2月#3日{% \advance\yowai-1925\advance\yowai by -#1} \def\生まれは平成#1年#2月#3日{% \advance\yowai -1988\advance\yowai by -#1} \makeatother % \def\税務所轄:#1税務署長#2市区町村長{% \put(1.0,359.5){\makebox(35,0)[bc]{\Large #1}}} \def\所属機関:#1番号#2{% \put(118.5,376.0){\makebox(90,0)[bc]{\large #1}}% \put(118.5,361.5){\makebox(90,0)[bc]{\fitwidth{14.4em}{#2}}}} \def\所在地〒#1#2{\gdef\kikanzip{#1}% \put(100.8,347.8){\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{ \put(276.0,348.0) {\makebox(140,7)[cl]{#1}} } \def\配偶者住所#1{ \put(331.0,262.0) {\makebox(140,7)[cl]{#1}} } \def\海外仕送り#1円{ \def\Gaikoku{#1} } \newcount\HUmare \HUmare=448 \newcount\HUmareh \HUmareh=282 \def\配偶者は昭和#1年#2月#3日生まれの#4{ \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4} \生まれは昭和{#1}年{#2}月{#3}日 } \def\配偶者は平成#1年#2月#3日生まれの#4{ \advance\HUmare 7 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4} \生まれは平成{#1}年{#2}月{#3}日 } \def\配偶者は明治#1年#2月#3日生まれの#4{ \advance\HUmareh 5 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4} \生まれは明治{#1}年{#2}月{#3}日 } \def\配偶者は大正#1年#2月#3日生まれの#4{ \advance\HUmare 7 \advance\HUmareh 5 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4} \生まれは大正{#1}年{#2}月{#3}日 } % \newcount\Line \newcount\Col \newcount\Kisokojo % \newcount{\kyuyo}\kyuyo=0 \newcount{\shotoku}\shotoku=0 \newcount{\hkyuyo}\hkyuyo=0 \newcount{\hshunyu}\hshunyu=0 \newcount{\hshotoku}\hshotoku=0 \def\本人収入#1円#2円#3円#4円#5円#6円#7円{ \Line=150 \Col=11 \Kisokojo=480000 \gdef\kubunABC{} \kyuyo=#1 \ifnum\kyuyo<8500000 \ifnum\kyuyo<6600000 \ifnum\kyuyo<3600000 \ifnum\kyuyo<1800000 \ifnum\kyuyo<1628000 \ifnum\kyuyo<1624000 \ifnum\kyuyo<1622000 \ifnum\kyuyo<1620000 \ifnum\kyuyo<1619000 \ifnum\kyuyo<551000 \kyuyo=0 \else \advance\kyuyo -550000 \fi \else \kyuyo=1069000 \fi \else \kyuyo=1070000 \fi \else \kyuyo=1072000 \fi \else \kyuyo=1074000 \fi \else \divide\kyuyo by 4000 \multiply\kyuyo by 2400 \advance\kyuyo by 100000 \fi \else \divide\kyuyo by 4000 \multiply\kyuyo by 2800 \advance\kyuyo by -80000 \fi \else \divide\kyuyo by 4000 \multiply\kyuyo by 3200 \advance\kyuyo by -440000 \fi \else \multiply\kyuyo by 9 \divide\kyuyo by 10 \advance\kyuyo by -1100000 \fi \else \advance\kyuyo -1950000 \fi \ifnum\kyuyo<0 \kyuyo=0\fi \shotoku=\kyuyo \ifnum\shotoku>9000000 \ifnum\shotoku>9500000 \ifnum\shotoku>10000000 \ifnum\shotoku>24000000 \ifnum\shotoku>24500000 \ifnum\shotoku>25000000 \gdef\kubunZ{}\Kisokojo=0 \else\gdef\kubunF{}\Kisokojo=160000\advance\Line by -48\fi \else\gdef\kubunE{}\Kisokojo=320000\advance\Line by -38\fi \else\gdef\kubunD{}\Kisokojo=480000\advance\Line by -29\fi \else\gdef\kubunC{}\gdef\kubunABC{C}\advance\Line by -20\fi \else\gdef\kubunB{}\gdef\kubunABC{B}\advance\Line by -11\fi \else\gdef\kubunA{}\gdef\kubunABC{A} \fi % \put(\number\Col.2,\number\Line.5) {\makebox( 18,7)[cr]{ \small$\checkmark$}} \put(164.0,135.5) {\makebox( 18,7)[cc]{ \small \kubunABC}} \put(176.0,101.5) {\makebox( 18,7)[cr]{ \footnotesize \tt\milnumber\Kisokojo}} % \put(176.0,168.0) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\shotoku}} % \Line=284 \ifx0#1\else\advance\Line -85 \put(102.0,220.0) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}} \put(176.0,220.0) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\kyuyo}} \advance\Line 85\fi \ifx0#2\else\advance\Line -96 \put(124.5,\number\Line.4) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#2}} \advance\Line 96\fi \ifx0#3\else\advance\Line -107 \put(124.5,\number\Line) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#3}} \advance\Line 107\fi \ifx0#4\else\advance\Line -119 \put(124.5,\number\Line.6) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#4}} \advance\Line 119\fi \ifx0#5\else\advance\Line -130 \put(124.5,\number\Line.2) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#5}} \advance\Line 130\fi \ifx0#6\else\advance\Line -143 \put(124.5,\number\Line.8) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#6}} \advance\Line 143\fi \ifx0#7\else\advance\Line -155 \put(124.5,\number\Line.4) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#7}} \advance\Line 155\fi } \def\配偶者収入#1円#2円#3円#4円#5円#6円#7円{ \gdef\kubunabcd{④} \hkyuyo=#1 \advance \hkyuyo by -650000 \ifnum\hkyuyo<0 \hkyuyo=0\fi \hshotoku=\hkyuyo \ifnum\hshotoku>480000 \ifnum\hshotoku>950000 \ifnum\hshotoku>1000000 \ifnum\hshotoku>1050000 \ifnum\hshotoku>1100000 \ifnum\hshotoku>1150000 \ifnum\hshotoku>1200000 \ifnum\hshotoku>1250000 \ifnum\hshotoku>1300000 \ifnum\hshotoku>1330000 \gdef\kubunz{}\gdef\kubunabcd{} \else\gdef\kubunj{}\fi \else\gdef\kubuni{}\fi \else\gdef\kubunh{}\fi \else\gdef\kubung{}\fi \else\gdef\kubunf{}\fi \else\gdef\kubune{}\fi \else\gdef\kubund{}\fi \else\gdef\kubunc{}\fi \else\gdef\kubunb{}\gdef\kubunabcd{③}\fi \else\ifnum\yowai<70\gdef\kubuna{}\gdef\kubunabcd{②}\else\gdef\kubuns{}\gdef\kubunabcd{①}\fi\fi \def\hkojo{0}\def\htkojo{0} \ifdefined\kubunA% \ifdefined\kubuns\def\hkojo{480000}\fi \ifdefined\kubuna\def\hkojo{380000}\fi \ifdefined\kubunb\def\htkojo{380000}\fi \ifdefined\kubunc\def\htkojo{360000}\fi \ifdefined\kubund\def\htkojo{310000}\fi \ifdefined\kubune\def\htkojo{260000}\fi \ifdefined\kubunf\def\htkojo{210000}\fi \ifdefined\kubung\def\htkojo{160000}\fi \ifdefined\kubunh\def\htkojo{110000}\fi \ifdefined\kubuni\def\htkojo{60000}\fi \ifdefined\kubunj\def\htkojo{30000}\fi \fi \ifdefined\kubunB% \ifdefined\kubuns\def\hkojo{320000}\fi \ifdefined\kubuna\def\hkojo{260000}\fi \ifdefined\kubunb\def\htkojo{260000}\fi \ifdefined\kubunc\def\htkojo{240000}\fi \ifdefined\kubund\def\htkojo{210000}\fi \ifdefined\kubune\def\htkojo{180000}\fi \ifdefined\kubunf\def\htkojo{140000}\fi \ifdefined\kubung\def\htkojo{110000}\fi \ifdefined\kubunh\def\htkojo{80000}\fi \ifdefined\kubuni\def\htkojo{40000}\fi \ifdefined\kubunj\def\htkojo{20000}\fi \fi \ifdefined\kubunC% \ifdefined\kubuns\def\hkojo{160000}\fi \ifdefined\kubuna\def\hkojo{130000}\fi \ifdefined\kubunb\def\htkojo{130000}\fi \ifdefined\kubunc\def\htkojo{120000}\fi \ifdefined\kubund\def\htkojo{110000}\fi \ifdefined\kubune\def\htkojo{90000}\fi \ifdefined\kubunf\def\htkojo{70000}\fi \ifdefined\kubung\def\htkojo{60000}\fi \ifdefined\kubunh\def\htkojo{40000}\fi \ifdefined\kubuni\def\htkojo{20000}\fi \ifdefined\kubunj\def\htkojo{10000}\fi \fi \put(318.0,220.0) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}} \Line=243 \Col=427 \ifdefined\kubuns \advance\Line -8 \put(\number\Col.5,\number\Line.5) {\makebox( 20,7)[cr]{ \small$\checkmark$}} \advance\Line 8 \else\ifdefined\kubuna \advance\Line -27 \put(\number\Col.5,\number\Line.5) {\makebox( 20,7)[cr]{ \small$\checkmark$}} \advance\Line 27 \else\ifdefined\kubunb \advance\Line -44 \put(\number\Col.5,\number\Line.0) {\makebox( 20,7)[cr]{ \small$\checkmark$}} \advance\Line 44 \else\ifdefined\kubunz \else \advance\Line -61 \put(\number\Col.5,\number\Line.0) {\makebox( 20,7)[cr]{ \small$\checkmark$}} \advance\Line 61 \fi\fi\fi\fi \put(475.0,168.5) {\makebox( 20,7)[cr]{ \footnotesize\fontspec{HiraMinProN-W3} \kubunabcd}} \put(523.0,135) {\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\hkojo}} \put(523.0,112) {\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\htkojo}} \advance\Line -64 %\put(367.5,\number\Line) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}} %\put(469.5,\number\Line) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hkyuyo}} \advance\Line 64 \advance\Line -150 %\put(469.5,\number\Line) {\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hshotoku}} \advance\Line 150 } % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % 特種設定 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \makeatletter \makeatother % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \姓・\名 コマンド % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % \newcommand{\rubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[2.5mm]{#1}}}} \newcommand{\hrubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[1.8mm]{#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}} % \def\令和#1年分配偶者特別控除等申告書{% \def\nendo{#1}\gdef\filename{1648_73_r0#1} \pagestyle{empty} % \begin{document} \begin{landscape} \setlength{\textwidth} { 200.0mm} \setlength{\textheight} { 280.0mm} \setlength{\oddsidemargin} { -6.8mm} \setlength{\unitlength} { 0.475mm} %\setlength\unitlength{0.5mm} \begin{picture}(280,200)(-8,204) % \put(7.7,-4) {\makebox(547,398){\includegraphics[page=1]{\filename}}} % } % \def\これで終り書き出し{ \put(328.0,368.0) {\makebox( 60,14)[cc]{\large \Sei { } \Mei}} \put(244.0,264.0) {\makebox( 60,14)[cc]{\HSei {\ \ } \HMei}} \put(\number\HUmare.6,\number\HUmareh.7) {\scaleput(5,5){\bigcircle{5}}} \put(481.0,283.2) {\makebox( 10,14)[cl]{ \small\HYear}} \put(511.0,283.2) {\makebox( 10,14)[cl]{ \small\HMonth}} \put(536.0,283.2) {\makebox( 10,14)[cl]{ \small\HDay}} \ifnum\yowai<70\else %\put(240.8,227.2) {\makebox( 10,14)[cl]{ $\bigcirc$}} \fi \ifdefined\Gaikoku \put(460.0,262.0) {\makebox( 10,7)[cc]{ $\bigcirc$}} \put(540.0,262.0) {\makebox( 10,7)[cr]{ \footnotesize \tt\milnumber\Gaikoku \,円}} \fi \put(276,379.0) {\makebox(30,8)[lc]{\scriptsize \ID}} \put(517,382.0) {\makebox(30,8)[rc]{\scriptsize \jimucode}} \ifx\jimu\empty \put(-21,403){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}}} \else \put(-21,403){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}・{\bukyoku}({\jimu})}} \fi \put(-20.8,398){\makebox(30,8)[lc]{\tt\tiny {\bukyoku}\ifx\bumon\empty\else{・{\bumon}}\fi}} % %\put(244.0,257.8){\makebox(0,0)[cc]{\tiny 昭・平}} %\put(244.0,262.8){\makebox(0,0)[cc]{\tiny 明・大}} % \Line=280 % \ifx\undefined\ippan\else \advance\Line -3 \advance\Line 3 \advance\Line -60 \advance\Line 60 \fi % \ifx\undefined\nippan\else \advance\Line -3 \advance\Line 3 \advance\Line -60 \advance\Line 60 \fi % \ifx\undefined\kaigo\else \advance\Line -70 \advance\Line 70 \fi \advance\Line -95 % \ifx\undefined\kojin\else \advance\Line -11 \advance\Line 3 \advance\Line -3 \advance\Line -3 \advance\Line 3 \advance\Line -49 \advance\Line 49 \advance\Line 11 \fi % \ifx\undefined\nkojin\else \advance\Line -11 \advance\Line 3 \advance\Line -3 \advance\Line -3 \advance\Line 3 \advance\Line -49 \advance\Line 49 \advance\Line 11 \fi % \advance\Line -101 % \Line=76 % \ifx\dishin\empty\else \advance\Line -32 \advance\Line -9 \put(257.5,\number\Line.5){ \renewcommand{\xscale}{1} \renewcommand{\xscaley}{-1} \renewcommand{\yscale}{0.7} \renewcommand{\yscalex}{0.7} } \advance\Line 9 \advance\Line -20 \advance\Line 20 \advance\Line -39 \advance\Line 39 \advance\Line 32 \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)(-8,201) \put(7.7,-4) {\makebox(547,403){\includegraphics[page=2,angle=180,origin=c]{\filename}}} \end{picture} \end{landscape} \end{document} }