%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                         %
%                        shuttyou-hokoku.sty                              %
%                                                                         %
%          静岡大学工学部出張報告書LaTeXスタイル・ファイル                %
%                                                                         %
%                  ver 0 (2003.2.26) とりあえずバージョン                 %
%                                                                         %
%                    安藤 和敏                                            %
%                                                                         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\makeatletter
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\width{176}     % ページ幅(A4)
\def\height{241}    % ページ高(A4)
\def\ROOT@X{0}      % ページ原点X(紙の左端からの距離mm)
\def\ROOT@Y{0}      % ページ原点Y(紙の上端からの距離mm)
\topmargin      = -5.5mm
\oddsidemargin  = -14.4mm
\evensidemargin = -14.4mm
\textwidth      = \width mm
\textheight     = \height mm
\unitlength     = 1mm
\pagestyle{empty}
\def\localX{0}
\def\localY{0}
\def\dumOne{0}
\def\dumTwo{0}
\def\dumThree{0}
\def\dumFour{0}
%
\def\TWidth{173.5} %dummy
\def\TVa{}
\def\TVb{}
\def\TVc{}
\def\TVd{}
\def\TVe{22}
\def\TVf{32}
\def\TVg{36}
\def\TVh{42}
\def\TVi{51}
\def\TVj{59.6}
\def\TVk{68}
\def\TVl{101}
\def\TVm{132}
\def\TVn{163}
\def\TVo{176}
\def\THeight{134} %dummy
%----------------------------------------------------------------------------
% \加算{10}{3}{\answer} -> \answer = 10+3
% \減算{10}{3}{\answer} -> \answer = 10-3
%----------------------------------------------------------------------------
{\catcode`\p=12\catcode`\t=12\gdef\num#1pt{#1}}
\newdimen\result
\def\加算#1#2#3{\result=#1pt \advance\result by #2pt
  \edef#3{\expandafter\num\the\result}
}
\def\減算#1#2#3{\result=#1pt \advance\result by -#2pt
  \edef#3{\expandafter\num\the\result}
}
%----------------------------------------------------------------------------
% リスト操作マクロ
% \追加\リスト\アイテム アイテムをリストに追加
% \分解\アイテム    アイテムを分解
% アイテム中の要素は':'で区切られている。
% アイテム同士は ',' で区切られている(全角も含めて)ため，アイテム中に
% カンマを含めると誤動作するので要注意。
%----------------------------------------------------------------------------
\def\追加#1#2{
  \ifx#1\empty\edef#1{#2}
  \else\edef#1{#1,#2}
  \fi
  }
\def\分解５#1:#2:#3:#4:#5:{
  \def\one{#1}\def\two{#2}\def\three{#3}\def\four{#4}\def\five{#5}
  }
%
%----------------------------------------------------------------------------
%
% マクロ定義
%
%----------------------------------------------------------------------------
%
\def\年月日#1#2#3{\def\@年{#1}\def\@月{#2}\def\@日{#3}}
\def\旅行者i#1#2{\def\@旅行者官職i{#1}\def\@旅行者氏名i{#2}}
\def\旅行者ii#1#2{\def\@旅行者官職ii{#1}\def\@旅行者氏名ii{#2}}
\def\出発年月日#1#2#3#4{\def\@出発年{#1}\def\@出発月{#2}\def\@出発日{#3}\def\@出発曜日{#4}}
\def\帰着年月日#1#2#3#4{\def\@帰着年{#1}\def\@帰着月{#2}\def\@帰着日{#3}\def\@帰着曜日{#4}}
\def\用務先i#1#2#3{\def\@用務日付i{#1}\def\@用務先名称i{#2}\def\@用務先所在地i{#3}}
\def\用務先ii#1#2#3{\def\@用務日付ii{#1}\def\@用務先名称ii{#2}\def\@用務先所在地ii{#3}}
\def\用務先iii#1#2#3{\def\@用務日付iii{#1}\def\@用務先名称iii{#2}\def\@用務先所在地iii{#3}}
\def\用務先iv#1#2#3{\def\@用務日付iv{#1}\def\@用務先名称iv{#2}\def\@用務先所在地iv{#3}}
\def\用務の具体的内容#1{\def\@用務の具体的内容{#1}}
\def\応対者i#1#2#3{\def\@応対日付i{#1}\def\@応対者所属i{#2}\def\@応対者氏名i{#3}}
\def\応対者ii#1#2#3{\def\@応対日付ii{#1}\def\@応対者所属ii{#2}\def\@応対者氏名ii{#3}}
\def\応対者iii#1#2#3{\def\@応対日付iii{#1}\def\@応対者所属iii{#2}\def\@応対者氏名iii{#3}}
\def\応対者iv#1#2#3{\def\@応対日付iv{#1}\def\@応対者所属iv{#2}\def\@応対者氏名iv{#3}}
\def\heiseiyear#1{\def\@heiseiyear{#1}}
\def\研究種目名#1{\def\@研究種目名{#1}}
\def\科学研究費課題名#1{\def\@科学研究費課題名{#1}}
%----------------------------------------------------------------------------
%
% 内容の書き出し
%
%----------------------------------------------------------------------------
\let\enddocumentorg=\enddocument
\def\enddocument{
\writepages
\enddocumentorg
}

\def\maru(#1,#2)#3{%
\減算{#1}{1}{\localX}
\減算{#2}{1}{\localY}
\put(#1,#2){\circle{4}}\put(\localX,\localY){\mbox{#3}}
}


\newcommand{\WholeHLine}[1]{\put(0,#1){\line(1,0){\TWidth}}}
\newcommand{\WholeVLine}[1]{\put(#1,0){\line(0,1){\THeight}}}
\def\HLine(#1,#2)#3{\減算{#2}{#1}{\localX}\put(#1,#3){\line(1,0){\localX}}} 
  % (x1,x2)y として (x1,y) - (x2,y) の線を引く
\def\VLine#1(#2,#3){\減算{#3}{#2}{\localY}\put(#1,#2){\line(0,1){\localY}}} 
  % x(y1,y2) として (x,y1) - (x,y2) の線を引く
\def\TextBox(#1,#2)(#3,#4)#5{%
  \減算{#3}{#1}{\localX}%
  \減算{#4}{#2}{\localY}%
  \put(#1,#2){\makebox(\localX,\localY){#5}}%
  }% (x1,y1)(x2,y2) の真ん中にテキストを書く
\def\pTextBox(#1,#2)(#3,#4)#5{%
  \減算{#3}{#1}{\localX}%
  \減算{#4}{#2}{\localY}%
  \put(#1,#2){\parbox[b]{\localX mm}{#5}}%
  }% (x1,y1)(x2,y2) の真ん中にテキストを書く(parbox 版)
\def\SP#1{\makebox[#1]{}}


\newcommand{\writepages}{%
\begin{picture}(\width,\height)(0,0)
\WholeHLine{\TVh}\WholeHLine{\TVi}\WholeHLine{\TVj}\WholeHLine{\TVk}
\WholeHLine{\TVl}\WholeHLine{\TVm}\WholeHLine{\TVn}\WholeHLine{\TVo}
%\減算{\THeight}{\TVh}{\dumOne}
\VLine{0}(\TVh,\TVo)\VLine{\TWidth}(\TVh,\TVo)
\VLine{32}(\TVh,\TVj)\VLine{32}(\TVk,\TVo)
\TextBox(0,237)(\TWidth,232.5){\Large\bf 出\SP{10.5mm}張\SP{10.5mm}報\SP{10.5mm}告\SP{10.5mm}書}
\TextBox(128,229)(168,233){平成\ \@年\ 年\ \@月\ 月\ \@日\ 日}
\TextBox(15,220)(59,224){旅\SP{2mm}行\SP{2mm}命\SP{2mm}令\SP{2mm}権\SP{2mm}者\SP{8mm}殿}
\TextBox(81,216)(112,220){\bf 旅\SP{1mm}行\SP{1mm}者\SP{1mm}官\SP{1mm}職\SP{1mm}氏\SP{1mm}名}
\TextBox(117,216)(155,220){\@旅行者官職i}
\TextBox(81,212)(112,216){\tiny （必ず本人が署名、押印願います）}
\TextBox(117,212)(155,216){\@旅行者氏名i}
\TextBox(165,212)(168,216){印}
\TextBox(81,208)(112,212){\tiny （同一旅行内容の場合複数記入可）}
\TextBox(117,208)(155,212){\@旅行者官職ii}
\TextBox(117,204)(155,208){\@旅行者氏名ii}
\TextBox(165,202)(168,206){印}
\TextBox(0,192)(\TWidth,189){\bf 下記のとおり出張し、任務を終了しましたので報告いたします。}
\TextBox(0,184)(\TWidth,181){\bf 記}
\TextBox(3,171)(6,175){(1)}
\TextBox(5,166.5)(30,171){\bf 出\SP{4mm}張\SP{4mm}期\SP{4mm}間}
\TextBox(47.5,171)(128,175){\bf 平成 \@出発年 年 \@出発月 月 \@出発日 日（\@出発曜日 ）出発}
\TextBox(47.5,163.5)(128,167.5){\bf 平成 \@帰着年 年 \@帰着月 月 \@帰着日 日（\@帰着曜日 ）帰着}
\TextBox(46,159)(59,163){{\small（日\SP{4mm}付）}}
\TextBox(77,159)(89,163){{\small（名\SP{4mm}称）}}
\TextBox(127,159)(139,163){{\small（所在地）}}
\maru(38,156){1}
\TextBox(46,154.5)(65,158.5){\@用務日付i}
\TextBox(76,154.5)(124,158.5){\@用務先名称i\hfill}
\TextBox(126,154.5)(150,158.5){\@用務先所在地i\hfill}
\maru(38,151.5){2}
\TextBox(46,149.5)(65,153.5){\@用務日付ii}
\TextBox(76,149.5)(124,153.5){\@用務先名称ii\hfill}
\TextBox(126,149.5)(150,153.5){\@用務先所在地ii\hfill}
\maru(38,147){3}
\TextBox(46,145)(65,149){\@用務日付iii}
\TextBox(76,145)(124,149){\@用務先名称iii\hfill}
\TextBox(126,145)(150,149){\@用務先所在地iii\hfill}
\maru(38,142.5){4}
\TextBox(46,140.5)(65,144.5){\@用務日付iv}
\TextBox(76,140.5)(124,144.5){\@用務先名称iv\hfill}
\TextBox(126,140.5)(150,144.5){\@用務先所在地iv\hfill}
\TextBox(3,150)(6,154){(2)}
\TextBox(5,145.5)(30,150){\bf 用\SP{6mm}務\SP{6mm}先}
\TextBox(46,128)(59,132){{\small（日\SP{4mm}付）}}
\TextBox(77,128)(89,132){{\small（所\SP{4mm}属）}}
\TextBox(127,128)(139,132){{\small（氏\SP{4mm}名）}}
\TextBox(3,124)(6,128){(3)}
\maru(38,126){1}
\TextBox(46,123.5)(65,127.5){\@応対日付i}
\TextBox(76,123.5)(124,127.5){\@応対者所属i\hfill}
\TextBox(129,123.5)(150,127.5){\@応対者氏名i\hfill}
\maru(38,121.5){2}
\TextBox(46,119)(65,123){\@応対日付ii}
\TextBox(76,119)(124,123){\@応対者所属ii\hfill}
\TextBox(129,119)(150,123){\@応対者氏名ii\hfill}
\maru(38,117){3}
\TextBox(46,114.5)(65,118.5){\@応対日付iii}
\TextBox(76,114.5)(124,118.5){\@応対者所属iii\hfill}
\TextBox(129,114.5)(150,118.5){\@応対者氏名iii\hfill}
\maru(38,112.5){4}
\TextBox(46,110)(65,114){\@応対日付iv}
\TextBox(77,110)(124,114){\@応対者所属iv\hfill}
\TextBox(129,110)(150,114){\@応対者氏名iv\hfill}
\TextBox(5,119.5)(15,124){\bf 主たる}
\TextBox(5,115.5)(30,119.5){\bf 応\SP{1.5mm}対\SP{1.5mm}者\SP{1.5mm}氏\SP{1.5mm}名}
\TextBox(3,110)(30,115.5){\scriptsize（応対者がいない場合は}
\TextBox(3,110)(27,106){\scriptsize 「なし」と記載）}
\TextBox(3,93)(6,97){(4)}
\put(33,90){\mbox{\begin{minipage}{140mm}\@用務の具体的内容\end{minipage}}}
\TextBox(5,88)(15,92.5){\bf 用務の}
\TextBox(5,84)(30,88){\bf 具\SP{2.1mm}体\SP{2.1mm}的\SP{2.1mm}内\SP{2.1mm}容}
\TextBox(1,\TVj)(97,\TVk){（ 以下は科学研究費補助金による出張の場合に記載 ）\hfill}
\TextBox(0,\TVi)(32,\TVj){\bf 研\SP{4mm}究\SP{4mm}種\SP{4mm}目}
\TextBox(32,\TVi)(\TWidth,\TVj){平成 \@heiseiyear 年度科学研究費補助金（研究種目： \@研究種目名）}
\TextBox(0,\TVh)(32,\TVi){\bf 研\SP{4mm}究\SP{4mm}課\SP{4mm}題}
\TextBox(32,\TVh)(\TWidth,\TVi){\@科学研究費課題名}
\TextBox(3,35)(174,40){\bf ※添付資料　１．飛行機を利用する旅行命令の場合は、搭乗券の半券を添付する。ただし、半券に航空\hfill}
\TextBox(3,30.5)(174,35.5){\bf　　　　　　　賃が記載されていない場合は領収書も添付する。　　　　　　　　　　　　　　　　　\hfill}
\TextBox(3,26.5)(174,31.5){\bf　　　　　　２．会議、学会等の出張は、スケジュールの入ったプログラムの写し等を添付する。　　\hfill}
\TextBox(3,18.5)(174,22){{\bf ※作成要領}　１．(2)用務先欄の（名称）には、○○大学○○学部、○○研究所○○部門等と記入し、\hfill}
\TextBox(3,14)(174,18.5){　　　　　　　　　（所在地）には、東京都○○区、○○市等と記入する　　　　　　　　　　　　　\hfill}
\TextBox(3,9.5)(174,14){　　　　　　２．(4)用務の具体的内容は出張内容がわかる程度に記入するものとし、単なる「研究」\hfill}
\TextBox(3,5)(174,9.5){　　　　　　　　「資料収集」等の具体性のない表現は認められない。　　　　　　　　　　　　　　\hfill}
\TextBox(3,0)(174,5){　　　　　　　　　なお、科研費の場合には研究との関連も分かるように記入する。　　　　　　　　\hfill}
\end{picture}
}%
\makeatother