iwase/kojo3 のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
iwase/kojo3 へ行く。
- 1 (2020-04-22 (水) 08:50:22)
- 2 (2020-11-14 (土) 09:36:22)

昨年から国税庁の仕様が大幅に変更になったので、基礎配偶者調整控除申告書を作るマクロに変更が必要であった。

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%											%
%	基礎配偶者調整控除申告書	Norio Iwase	% 
%											%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%!TEX TS-program = XeLaTeX
%!TEX encoding = UTF-8 Unicode
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input haigusha-20.inc
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\令和{2}年分配偶者特別控除等申告書	%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  研究機関のＩＤ				%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\税務所轄：{西福岡}税務署長{福岡市西区}市区町村長
\所属機関：{国立大学法人　九州大学}番号{３２９０００５００３７４３}
\所在地〒{819-0395}{福岡市西区元岡744番地}
\部局{何某研究院}（{1200308000}）：{某部門}	% 数理？
\事務局{某学部等}（{0 0 2 0 9}）	% 理学の事務局？
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  本人のＩＤ					%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\本人姓{何}{ナニ}
\本人姓{某}{ボウ}
\本人名{某}{ボウ}
\本人名{某}{ボウ}
\本人番号{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}
}