iwase/koujo の履歴(No.8) - PukiWiki

扶養控除申告書を作るマクロはほぼ前回と変更なしで良かったが、本人の生年月日を平成に対応する為、若干変更した。

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%				%
%  扶養控除申告書		%
%				%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%!TEX TS-program = XeLaTeX
%!TEX encoding = UTF-8 Unicode
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifx\undefined\XeTeXversion
\documentclass[12pt]{jarticle}
\usepackage[dvipdfmx]{graphicx}
\input fuyou-14-p.inc
\else
\documentclass[12pt,a4paper]{article}
\usepackage[xetex]{graphicx}
\input fuyou-14-x.inc
\fi
%
\setlength{\voffset}		{  39.0mm}
\setlength{\hoffset}		{ -13.0mm}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\平成{29}年分扶養控除申告書	%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  研究機関のID		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\税務所轄:{博多}税務署長{福岡市西区}市区町村長
\所属機関:{国立大学法人 九州大学}番号{12345}
\所在地〒{812-8581}{福岡県福岡市東区箱崎6丁目10番1号}
%\所在地〒{819-0395}{福岡県福岡市西区元岡744番地}
\部局{数理学研究院}({1200308000}):{数学部門} % 部局番号と部門か?
\事務局{理学部等}({0 0 2 1 7}) % 取り扱い事務局と番号か?
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  研究代表者のID		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\本人姓{九}{キュウ}
\本人姓{大}{ダイ}
\本人名{某}{ナニ}
\本人名{某}{ガシ}
\本人番号{12345678} % 職員番号
\本人昭和{1}年{2}月{3}日生 % 生年月日
\世帯主{九大 何某}({本人})% 名前と続き柄
\住所〒{123}ー{0123}:{福岡市西区元岡 1 丁目 2 番 3 号} % 郵便番号と住所
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  配偶者データ			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\配偶者{九大 何何}昭和{1}年{2}月{3}日住所{福岡市西区元岡 1-2-3}所得{0}円
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  扶養親族データ		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\扶養親族{九大 何某}続柄{子}平成{4}年{5}月{6}日住所{}所得{0}円
\特定扶養{九大 某何}続柄{子}平成{7}年{8}月{9}日住所{}所得{0}円
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\これで終り書き出し		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

インクルードファイル fuyou-14-x.inc は xelatex 版はテストしたが、pdfplatex 版はテストしていない。

\ifx\undefined\XeTeXversion
 \usepackage[deluxe]{otf}
\else
 \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
\usepackage{ifthen,numbersty}
\usepackage{lscape}
\usepackage{curves}
%
\def\税務所轄:#1税務署長#2市区町村長{%
\put(6.0,359.5){\makebox(35,0)[bc]{#1}}%
\put(6.0,336.5){\makebox(35,0)[bc]{\small#2}}}
\def\所属機関:#1番号#2{%
\put(96.0,368.5){\makebox(115,0)[bc]{ #1}}%
\gdef\kikanbangou{#2}}
\def\機関代表:#1氏名#2{\gdef\kikanchou{#1}\gdef\souchou{#2}}
\def\所在地〒#1#2{\gdef\kikanzip{#1}%
\put(96.0,332.5){\makebox(115,0)[bc]{\scriptsize #2}}}
\def\出納員#1個人番号#2{%
\put(96.0,348.0){\makebox(30,8)[cl]{#1}}%
\put(260.0,348.0){\makebox(30,8)[cl]{#2}}}
\def\部局#1(#2):#3{\gdef\bukyoku{#1}\gdef\bukyokucode{#2}\gdef\bumon{#3}}
\def\事務局#1(#2){\gdef\jimu{#1}\gdef\bumoncode{#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(273.0,340.0)	{\makebox(15,0)[br]{\scriptsize #1}}
\put(296.5,340.0)	{\makebox(15,0)[bl]{\scriptsize #2}}
\put(255.0,329.5)	{\makebox(140,0)[bl]{\small #3}}
}
\def\本人昭和#1年#2月#3日生{%
\put(387.5,374.8){\makebox(5,0)[br]{\small 〇}}%
\put(405,377.0){\makebox(5,0)[br]{\footnotesize #1}}%
\put(422,377.0){\makebox(5,0)[br]{\footnotesize #2}}%
\put(439,377.0){\makebox(5,0)[br]{\footnotesize #3}}}
\def\本人平成#1年#2月#3日生{%
\put(395.0,374.8){\makebox(5,0)[br]{\small 〇}}%
\put(405,377.0){\makebox(5,0)[br]{\footnotesize #1}}%
\put(422,377.0){\makebox(5,0)[br]{\footnotesize #2}}%
\put(439,377.0){\makebox(5,0)[br]{\footnotesize #3}}}
\def\世帯主#1(#2){%
\put(396,363.3){\makebox(45,0)[bc]{#1}}%
\put(396,349.3){\makebox(45,0)[bc]{#2}}}
\newcount{\cntLINE} \cntLINE=2840
\newcount{\cntline} \cntline=0
\newcount{\cntkingaku} \cntkingaku=0
\def\配偶者なし{
\put(460.1,330.5){\makebox(5,6)[bc]{\Large 〇}}%
}
\def\配偶者#1昭和#2年#3月#4日住所#5所得#6円{
\put(460.1,343.5){\makebox(5,6)[bc]{\Large 〇}}%
\cntline=\cntLINE \divide\cntline by 10
\put(80.0,\number\cntline){\makebox(50,6)[lc]{#1}}
\advance\cntline by -8
\put(176.5,\number\cntline){\makebox(4,6)[bc]{\small 〇}}
\advance\cntline by 2
\put(191.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #2}}
\put(202.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #3}}
\put(213.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #4}}
\put(285,\number\cntline){\makebox(90,7)[cl]{\small #5}}
\advance\cntline by 5
\cntkingaku=#6
\put(405.0,\number\cntline){\makebox(32,7)[cr]{\tt\small\milnumber\cntkingaku}}
}
\def\扶養親族#1続柄#2平成#3年#4月#5日住所#6所得#7円{
\advance\cntLINE by -225
\cntline=\cntLINE \divide\cntline by 10
\put(85.0,\number\cntline){\makebox(50,6)[lc]{#1}}
\advance\cntline by -6
\put(161.5,\number\cntline){\makebox(5,6)[cc]{#2}}
\advance\cntline by -2
\put(183.2,\number\cntline){\makebox(5,7)[cc]{\small 〇}}
\advance\cntline by 2
\put(191.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #3}}
\put(202.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #4}}
\put(213.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #5}}
\put(285,\number\cntline){\makebox(90,7)[cl]{\begin{minipage}[c]{49mm}#6\end{minipage}}}
\advance\cntline by 6
\cntkingaku=#7
\put(405.0,\number\cntline){\makebox(32,7)[cr]{\tt\small\milnumber\cntkingaku}}
}
\def\特定扶養#1続柄#2平成#3年#4月#5日住所#6所得#7円{
\advance\cntLINE by -225
\cntline=\cntLINE \divide\cntline by 10
\put(85.0,\number\cntline){\makebox(50,6)[lc]{#1}}
\advance\cntline by -6
\put(161.5,\number\cntline){\makebox(5,6)[cc]{#2}}
\advance\cntline by -1
\put(183.2,\number\cntline){\makebox(5,6)[cc]{\small 〇}}
\advance\cntline by 1
\put(191.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #3}}
\put(202.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #4}}
\put(213.5,\number\cntline){\makebox(4.5,7)[cr]{\scriptsize #5}}
\put(265.0,\number\cntline){\makebox(5,7)[bc]{\large 〇}}
\put(285,\number\cntline){\makebox(90,7)[cl]{#6}}
\advance\cntline by 6
\cntkingaku=#7
\put(405.0,\number\cntline){\makebox(32,7)[cr]{\tt\small\milnumber\cntkingaku}}
}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%
%	特種設定											%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
 \makeatletter
 \makeatother
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%
 %	\姓・\名 コマンド				%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%
%
\newcommand{\rubi}[2]{\hbox{\shortstack{{\tiny #2}\\[.0mm]{#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}}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\ここから文書開始						%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\平成#1年分扶養控除申告書{
\def\fuyou{h#1_01}
\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(0,0)	{\makebox(550,395){\includegraphics[page=1]{\fuyou}}}
%
}
%
\def\これで終り書き出し{
\put(270,363)	{\makebox( 60,0)[bc]{\Sei { } \Mei}}
\put(260,377)		{\makebox(30,8)[lc]{\scriptsize \ID}}
\put(518,390)		{\makebox(30,8)[rc]{\scriptsize \bumoncode}}
\ifx\jimu\empty
\put(0,395){\makebox(30,8)[lc]{\tiny {\bukyokucode}・{\bukyoku}}}
\else
\put(0,395){\makebox(30,8)[lc]{\tiny {\bukyokucode}・{\bukyoku}({\jimu})}}
\fi
\put(0,390){\makebox(30,8)[lc]{\tiny {\bukyoku}\ifx\bumon\empty\else{・{\bumon}}\fi}}
%
\end{picture}
\clearpage
\addtolength{\hoffset}{-0.5mm}
\addtolength{\voffset}{ 0.3mm}
\begin{picture}(280,200)(0,200)
\put(0,0)	{\makebox(550,395){\includegraphics[page=2]{\fuyou}}}
\end{picture}
\end{landscape}
\end{document}
}

給与所得者の保険料控除申告書 兼 給与所得者の配偶者特別控除申告書のマクロは場所がずれた為変更した。

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%					%
%  保険料控除・配偶者特別控除申告書	%
%					%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%!TEX TS-program = XeLaTeX
%!TEX encoding = UTF-8 Unicode
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifx\undefined\XeTeXversion
\documentclass[12pt]{jarticle}
\usepackage[dvipdfmx]{graphicx}
\input hoken-haigusha-16-p.inc
\else
\documentclass[12pt,a4paper]{article}
\usepackage[xetex]{graphicx}
\input hoken-haigusha-16-x.inc
\fi
%
\setlength{\voffset}		{  42.5mm}
\setlength{\hoffset}		{ -13.0mm}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\平成{28}年分保険料配偶者特別控除申請書	%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  研究機関のID		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\税務所轄:{博多}税務署長
\所属機関:{国立大学法人 九州大学}番号{17102}
%\所在地〒{812-8581}{福岡県福岡市東区箱崎6丁目10番1号}
%\所在地〒{819-0395}{福岡県福岡市西区元岡744番地}
\部局{数理学研究院}({1200308000}):{数学部門} % 部局番号と部門か?
\事務局{理学部等}({0 0 2 1 7}) % 取り扱い事務局と番号か?
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  研究代表者のID		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\本人姓{九}{キュウ}
\本人姓{大}{ダイ}
\本人名{某}{ナニ}
\本人名{某}{ガシ}
\本人番号{12345678} % 職員番号
\配偶者姓{九}{キュウ}
\配偶者姓{大}{ダイ}
\配偶者名{何}{ナニ}
\配偶者名{何}{ガシ}
\配偶者昭和{xx}年{xx}月{xx}日生まれ % 明治、大正、昭和、平成に対応
\配偶者続柄{XX}
\住所{福岡市西区元岡 1 丁目 2 番 3 号} % 住所
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  保険料控除			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%\一般生命{何何生命}{}{}{\sei\mei}{\hsei\hmei}{\htuduki}{123450}
\新一般生命{何何生命}{}{}{\sei\mei}{\hsei\hmei}{\htuduki}{123450}
\介護医療{某何生命}{}{}{\sei\mei}{\hsei\hmei}{\htuduki}{123450}
%\個人年金{某某生命}{}{}{\sei\mei}{\hsei\hmei}{\htuduki}{123450}
\新個人年金{何々生命}{}{}{\sei\mei}{\hsei\hmei}{\htuduki}{123450}
\保険控除額{0}{0}{0} % 自分で計算してください
\地震保険{某々労災}{}{}{\sei\mei}{\sei\mei}{本人}{12340}
\地震控除額{0}{0} % 自分で計算してください
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  配偶者控除			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\配偶者収入{0}(特別控除{0}万円) % 自分で計算してください
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  社会保険料控除		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\社会保険{〇△}{}{}{}{123450}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\これで終り書き出し		%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

こちらのインクルードファイル hoken-haigusha-16-x.inc も同じようなものである。

\ifx\undefined\XeTeXversion
 \usepackage[deluxe]{otf}
\else
 \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
\usepackage{ifthen,numbersty}
\usepackage{lscape}
\usepackage{curves}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  マクロ			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\税務所轄:#1税務署長{%
\put(30.0,344.5){\makebox(35,0)[bc]{\Large #1}}}
\def\所属機関:#1番号#2{%
\put(147.0,366.5){\makebox(90,0)[bc]{\large #1}}\gdef\kikanbangou{#2}}
\def\機関代表:#1氏名#2{\gdef\kikanchou{#1}\gdef\souchou{#2}}
\def\所在地〒#1#2{\gdef\kikanzip{#1}%
\put(147.0,332.5){\makebox(90,7)[cc]{%{〒#1} 
#2}}}
\def\部局#1(#2):#3{\gdef\bukyoku{#1}\gdef\bukyokucode{#2}\gdef\bumon{#3}}
\def\事務局#1(#2){\gdef\jimu{#1}\gdef\bumoncode{#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(330.0,339.0)	{\makebox(140,7)[cl]{#1}}} 
\newcount\HUmare \HUmare=496
\newcount\HUmareh \HUmareh=287
\def\配偶者昭和#1年#2月#3日生まれ{
\def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}} 
\def\配偶者平成#1年#2月#3日生まれ{
 \advance\HUmare 12
 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}
}
\def\配偶者明治#1年#2月#3日生まれ{
 \advance\HUmareh 5
 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}
}
\def\配偶者大正#1年#2月#3日生まれ{
 \advance\HUmare 12
 \advance\HUmareh 5
 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}
}
\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
\def\一般生命#1#2#3#4#5#6#7{\gdef\ippan{#1}\gdef\ippanshurui{#2}\gdef\ippankikan{#3}\gdef\ippankeiyaku{#4}\gdef\ippanshimei{#5}\gdef\ippantuduki{#6}\ippangaku=#7\advance\ippangakukei by  #7\ippankojo=\ippangakukei}
\def\新一般生命#1#2#3#4#5#6#7{\gdef\nippan{#1}\gdef\nippanshurui{#2}\gdef\nippankikan{#3}\gdef\nippankeiyaku{#4}\gdef\nippanshimei{#5}\gdef\nippantuduki{#6}\nippangaku=#7\advance\nippangakukei by #7\nippankojo=\nippangakukei}
\def\介護医療#1#2#3#4#5#6#7{\gdef\kaigo{#1}\gdef\kaigoshurui{#2}\gdef\kaigokikan{#3}\gdef\kaigokeiyaku{#4}\gdef\kaigoshimei{#5}\gdef\kaigotuduki{#6}\kaigogaku=#7\advance\kaigogakukei by #7\kaigokojo=\kaigogakukei}
\def\個人年金#1#2#3#4#5#6#7{\gdef\kojin{#1}\gdef\kojinshurui{#2}\gdef\kojinkikan{#3}\gdef\kojinkeiyaku{#4}\gdef\kojinshimei{#5}\gdef\kojintuduki{#6}\kojingaku=#7\advance \kojingakukei by #7\kojinkojo=\kojingakukei}
\def\新個人年金#1#2#3#4#5#6#7{\gdef\nkojin{#1}\gdef\nkojinshurui{#2}\gdef\nkojinkikan{#3}\gdef\nkojinkeiyaku{#4}\gdef\nkojinshimei{#5}\gdef\nkojintuduki{#6}\nkojingaku=#7\advance \nkojingakukei by #7\nkojinkojo=\nkojingakukei}
\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{\ippankojo=#1\kojokei=#1\kaigokojo=#2\advance\kojokei by #2\kojinkojo=#3\advance\kojokei by #3}
\def\地震控除額#1#2{\dishinkojo=#1\dkojokei=#1\songaikojo=#2\advance\dkojokei by #2}
\newcount{\dishingaku}\dishingaku=0
\newcount{\dishingakukei}\dishingakukei=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\dishinkojo=\dishingakukei\advance \dishinkojokei by \dishinkojo}
\newcount{\dishinkojo}\dishinkojo=0
\newcount{\dishinkojokei}\dishinkojokei=0
%
\newcount{\shakaigaku}\shakaigaku=0
\newcount{\shakaigakukei}\shakaigakukei=0
\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}
\newcount{\shakaikojo}\shakaikojo=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}\\[.0mm]{#1}}}}
\newcommand{\hrubi}[2]{\hbox{\shortstack{{\tiny #2}\\[-.4mm]{#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}\def\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(9,-2)	{\makebox(547,398){\includegraphics[page=1]{\filename}}}
%
}
%
\def\これで終り書き出し{
\put(370.0,360.0)	{\makebox( 60,14)[cc]{\large \Sei { } \Mei}}
\put(408.0,288.5)	{\makebox( 60,14)[cc]{ \scriptsize\HSei { } \HMei}}
\put(\number\HUmare.5,\number\HUmareh.8)	{\scaleput(5,5){\bigcircle{5}}}
\put(517.0,288.5)	{\makebox( 10,14)[cr]{ \scriptsize\HYear}}
\put(528.5,288.5)	{\makebox( 10,14)[cc]{ \scriptsize\HMonth}}
\put(541.5,288.5)	{\makebox( 10,14)[cl]{ \scriptsize\HDay}}
\put(323,373.0)		{\makebox(30,8)[lc]{\scriptsize \ID}}
\put(535,393.0)		{\makebox(30,8)[lc]{\scriptsize \bumoncode}}
\ifx\jimu\empty
 \put(20,395){\makebox(30,8)[lc]{\tiny {\bukyokucode}・{\bukyoku}}}
\else
 \put(20,395){\makebox(30,8)[lc]{\tiny {\bukyokucode}・{\bukyoku}({\jimu})}}
\fi
\put(20,390){\makebox(30,8)[lc]{\tiny {\bukyoku}\ifx\bumon\empty\else{・{\bumon}}\fi}}
%
\Line=280
%
\ifx\undefined\ippan\else
\put( 50.0,\number\Line)	{\makebox( 45,7)[cc]{ \ippan}}
\put( 93.0,\number\Line)	{\makebox( 37,7)[cc]{ \scriptsize\ippanshurui}}
\put(127.5,\number\Line)	{\makebox( 13,7)[cc]{ \scriptsize\ippankikan}}
\put(148.0,\number\Line)	{\makebox( 39,7)[cc]{ \ippankeiyaku}}
\put(198.0,\number\Line)	{\makebox( 41,7)[cc]{ \ippanshimei}}
\put(242.5,\number\Line)	{\makebox( 12,7)[cc]{ \ippantuduki}}
\advance\Line -3
\put(263.2,\number\Line)	{\scaleput(7,7){\bigcircle{7}}}
\advance\Line 3
%\put(262.5,\number\Line)	{\makebox( 12,8)[cc]{ \large 〇}}
\put(278.0,\number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\ippangaku}}
\advance\Line -60
\put( 76.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize\tt\milnumber\ippangakukei}}
\put(205.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\ippankojo}}
\put(298.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\ippankojo}}
\advance\Line 60
\fi
%
\ifx\undefined\nippan\else
\put( 50.0,\number\Line)	{\makebox( 45,7)[cc]{ \nippan}}
\put( 93.0,\number\Line)	{\makebox( 37,7)[cc]{ \scriptsize\nippanshurui}}
\put(127.5,\number\Line)	{\makebox( 13,7)[cc]{ \scriptsize\nippankikan}}
\put(148.0,\number\Line)	{\makebox( 39,7)[cc]{ \nippankeiyaku}}
\put(198.0,\number\Line)	{\makebox( 41,7)[cc]{ \nippanshimei}}
\put(242.5,\number\Line)	{\makebox( 12,7)[cc]{ \nippantuduki}}
\advance\Line -3
\put(254.5,\number\Line)	{\scaleput(7,7){\bigcircle{7}}}
\advance\Line 3
%\put(254.0,\number\Line)	{\makebox( 12,8)[cc]{ \large 〇}}
\put(278.0,\number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\ippangaku}}
\advance\Line -60
\put( 76.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize\tt\milnumber\nippangakukei}}
\put(205.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\nippankojo}}
\put(298.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\nippankojo}}
\advance\Line 60
\fi
%
\ifx\undefined\kaigo\else
\advance\Line -70
\put( 50.0,\number\Line)	{\makebox( 45,7)[cc]{ \kaigo}}
\put( 93.0,\number\Line)	{\makebox( 37,7)[cc]{ \scriptsize\kaigoshurui}}
\put(127.5,\number\Line)	{\makebox( 13,7)[cc]{ \scriptsize\kaigokikan}}
\put(148.0,\number\Line)	{\makebox( 39,7)[cc]{ \kaigokeiyaku}}
\put(198.0,\number\Line)	{\makebox( 41,7)[cc]{ \kaigoshimei}}
\put(242.5,\number\Line)	{\makebox( 12,7)[cc]{ \kaigotuduki}}
\put(278.0,\number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\kaigogaku}}
\advance\Line 70
\fi
\advance\Line -95
\put( 76.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize\tt\milnumber\kaigogakukei}}
\put(298.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\kaigokojo}}
%
\ifx\undefined\kojin\else
\advance\Line -11
\put( 50.0,\number\Line)	{\makebox( 45,7)[cc]{ \kojin}}
\put( 93.0,\number\Line)	{\makebox( 37,7)[cc]{ \scriptsize\kojinshurui}}
\put(127.5,\number\Line)	{\makebox( 13,7)[cc]{ \scriptsize\kojinkikan}}
\put(148.0,\number\Line)	{\makebox( 39,7)[cc]{ \kojinkeiyaku}}
\advance\Line 3
\put(198.0,\number\Line)	{\makebox( 41,7)[cc]{ \scriptsize\kojinshimei}}
\advance\Line -3
\put(242.5,\number\Line)	{\makebox( 12,7)[cc]{ \scriptsize\kojintuduki}}
\advance\Line -3
\put(263.2,\number\Line)	{\scaleput(7,7){\bigcircle{7}}}
\advance\Line 3
%\put(262.5,\number\Line)	{\makebox( 12,8)[cc]{ \large 〇}}
\put(278.0,\number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\kojingaku}}
\advance\Line -49
\put( 76.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize\tt\milnumber\kojingakukei}}
\put(205.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\kojinkojo}}
\put(298.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\kojinkojo}}
\advance\Line 49
\advance\Line 11
\fi
%
\ifx\undefined\nkojin\else
\advance\Line -11
\put( 50.0,\number\Line)	{\makebox( 45,7)[cc]{ \nkojin}}
\put( 93.0,\number\Line)	{\makebox( 37,7)[cc]{ \scriptsize\nkojinshurui}}
\put(127.5,\number\Line)	{\makebox( 13,7)[cc]{ \scriptsize\nkojinkikan}}
\put(148.0,\number\Line)	{\makebox( 39,7)[cc]{ \nkojinkeiyaku}}
\advance\Line 3
\put(198.0,\number\Line)	{\makebox( 41,7)[cc]{ \scriptsize\nkojinshimei}}
\advance\Line -3
\put(242.5,\number\Line)	{\makebox( 12,7)[cc]{ \scriptsize\nkojintuduki}}
\advance\Line -3
\put(254.5,\number\Line)	{\scaleput(7,7){\bigcircle{7}}}
\advance\Line 3
%\put(254.0,\number\Line)	{\makebox( 12,8)[cc]{ \large 〇}}
\put(278.0,\number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\nkojingaku}}
\advance\Line -49
\put( 76.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize\tt\milnumber\nkojingakukei}}
\put(205.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\nkojinkojo}}
\put(298.0,\number\Line)	{\makebox( 44,7)[cr]{ \scriptsize \tt\milnumber\nkojinkojo}}
\advance\Line 49
\advance\Line 11
\fi
%
\advance\Line -101
\put(298.0, \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\kojokei}}
%
\Line=76
%
\ifx\dishin\empty\else
\advance\Line -32
\put( 33.0, \number\Line)	{\makebox( 45,8)[cc]{ \dishin}}
\put( 81.5, \number\Line)	{\makebox( 37,8)[cc]{ \small\dishinshurui}}
\put(125.0, \number\Line)	{\makebox( 13,8)[cc]{ \small\dishinkikan}}
\put(144.0, \number\Line)	{\makebox( 39,8)[cc]{ \dishinkeiyaku}}
\put(187.0, \number\Line)	{\makebox( 41,8)[cc]{ \dishinshimei}}
\put(234.0, \number\Line)	{\makebox( 12,8)[cc]{ \dishintuduki}}
\advance\Line -9
\put(257.5,\number\Line.5){
  \renewcommand{\xscale}{1}
  \renewcommand{\xscaley}{-1}
  \renewcommand{\yscale}{0.7}
  \renewcommand{\yscalex}{0.7}
  \scaleput(9,9){\bigcircle{9}}
  }
\advance\Line 9
%\put(249.5, \number\Line)	{\makebox( 12,8)[cc]{ \large 〇}}
\put(278.0, \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\dishingaku}}
\advance\Line -20
\put(134.5, \number\Line)	{\makebox( 44,7)[cr]{ \small\tt\milnumber\dishingakukei}}
\put(298.0, \number\Line)	{\makebox( 44,7)[cr]{ \small 0}}
\advance\Line 20
\advance\Line -39
\put( 95.0,  \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\dishinkojo}}
\put(221.0,  \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\songaikojo}}
\put(297.0,  \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\dishinkojokei}}
\advance\Line 39
\advance\Line 32
\fi
%
\Line=78
%
\ifx\shakai\empty\else
\put(361.5, \number\Line)	{\makebox( 30,7)[cc]{ \scriptsize\shakai}}
\put(391.5, \number\Line)	{\makebox( 37,7)[cc]{ \scriptsize\shakaishurui}}
\put(432.5, \number\Line)	{\makebox( 41,7)[cc]{ \shakaishimei}}
\put(478.5, \number\Line)	{\makebox( 12,7)[cc]{ \shakaituduki}}
\put(501.0, \number\Line)	{\makebox( 44,7)[cr]{ \tt\milnumber\shakaigaku}}
\advance\Line -20
\put(499.7, \number\Line)	{\makebox( 44,7)[cr]{ \small\tt\milnumber\shakaigakukei}}
\advance\Line 20
\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(0,-7)	{\makebox(547,403){\includegraphics[page=2]{\filename}}}
\end{picture}
\end{landscape}
\end{document}
}

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS