home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / RECH215.LHA / MUI-Rechnung / TeXwork / invoicepatch.tex < prev    next >
Encoding:
Text File  |  1994-12-30  |  986 b   |  27 lines
  1. % patch the bodyhead
  2.  
  3. \chardef\atcode=\catcode`\@
  4. \catcode`\@=11 % \makeatletter
  5.  
  6. \newcount\entry
  7. \entry=0
  8.  
  9. \def\bodyhead{\hrule\vskip\blocklineskip
  10.   \line{\ifnum\invoicenumber>0\vbox{\hbox{\footfont\numbername\hfil}
  11.       \hbox{\number\invoiceyear/\the\invoicenumber\hfil}}\hfil\advance\entry1\fi
  12.     \ifnum\customernumber>0\vbox{\hbox{\footfont\customername\hfil}
  13.       \hbox{\the\customernumber\hfil}}\hfil\advance\entry1\fi
  14.     \ifx\order@date\empty\null\else\advance\entry1
  15.       \vbox{\hbox{\footfont\ordername\hfil}
  16.         \hbox{\order@date\hfil}}\hfil\fi
  17.     \ifx\your@ref\empty\null\else\advance\entry1
  18.       \vbox{\hbox{\footfont\yourrefname\hfil}
  19.         \hbox{\your@ref\hfil}}\hfil\fi
  20.     \ifx\my@ref\empty\null\else\ifcase\entry\hfil\fi
  21.       \vbox{\hbox{\footfont\myrefname\hfil}
  22.         \hbox{\my@ref\hfil}}\fi}\bigskip
  23.     \line{\hfil\underbar{\bf\invoicename}\hfil}
  24.     \vskip\blocklineskip\hrule\vskip\positionskip}
  25.  
  26. \catcode`\@=\atcode % return to previous catcode
  27.