latex-style-esdpx/espdchngsheet.sty

% Copyright 2006 Konstantin Korikov <lostclus@ua.fm>
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2003/12/01 or later.
%
% This work has the LPPL maintenance status "maintained".
% 
% This Current Maintainer of this work is Konstantin Korikov.
%
% This work consists of all files listed in manifest.txt.
%

%
% This is automaticaly generated file, do not edit it.
%

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{espdchngsheet}[2010/01/14 v0.98 Sheet of Changes GOST 2.503-90]

\RequirePackage{espdlang}
\RequirePackage{espdstamp}
\RequirePackage{array}
\RequirePackage{longtable}
\RequirePackage{forloop}
\RequirePackage{makecell}

\newcommand{\ESPDchngColumnIwidth}{.08\textwidth}
\newcommand{\ESPDchngColumnIIwidth}{.08\textwidth}
\newcommand{\ESPDchngColumnIIIwidth}{.08\textwidth}
\newcommand{\ESPDchngColumnIVwidth}{.08\textwidth}
\newcommand{\ESPDchngColumnVwidth}{.08\textwidth}
\newcommand{\ESPDchngColumnVIwidth}{.15\textwidth}
\newcommand{\ESPDchngColumnVIIwidth}{.10\textwidth}
\newcommand{\ESPDchngColumnVIIIwidth}{.15\textwidth}
\newcommand{\ESPDchngColumnIXwidth}{.10\textwidth}
\newcommand{\ESPDchngColumnXwidth}{.10\textwidth}

\newenvironment{ESPDchangeSheet}{%
\ESPDclearDoublePage
\setlength{\tabcolsep}{0.5mm}
\newcolumntype{s}{>{\ESPDfontTabBody}c}
\newcolumntype{S}{>{\ESPDfontTabHead}c}
\noindent
\renewcommand*{\arraystretch}{0.78}% Высота строк
\begin{longtable}{|*{10}{s|}}
\hline
\multicolumn{10}{|S|}{\ESPDchangeSheetName}\\\hline
&\multicolumn{4}{S|}{\ESPDchngColumnsIIhName}&&&&&\\\cline{2-5}
\parbox[c]{\ESPDchngColumnIwidth-2\tabcolsep-1.5\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXIVname}&
\parbox[c]{\ESPDchngColumnIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnIIname}&
\parbox[c]{\ESPDchngColumnIIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnIIIname}&
\parbox[c]{\ESPDchngColumnIVwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnIVname}&
\parbox[c]{\ESPDchngColumnVwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnVname}&
\parbox[c]{\ESPDchngColumnVIwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDchngColumnVIname}&
\parbox[c]{\ESPDchngColumnVIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXVIname}&
\parbox[c]{\ESPDchngColumnVIIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDchngColumnVIIIname\vspace{1mm}}&
\parbox[c]{\ESPDchngColumnIXwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXVIIname}&
\parbox[c]{\ESPDchngColumnXwidth-2\tabcolsep-1.5\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXVIIIname}\\\hline
\endfirsthead
\hline
&\multicolumn{4}{S|}{\ESPDchngColumnsIIhName}&&&&&\\\cline{2-5}
\parbox[c]{\ESPDchngColumnIwidth-2\tabcolsep-1.5\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXIVname}&
\parbox[c]{\ESPDchngColumnIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnIIname}&
\parbox[c]{\ESPDchngColumnIIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnIIIname}&
\parbox[c]{\ESPDchngColumnIVwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnIVname}&
\parbox[c]{\ESPDchngColumnVwidth-2\tabcolsep-\arrayrulewidth}{%
  \centering\ESPDfontTabHead\ESPDchngColumnVname}&
\parbox[c]{\ESPDchngColumnVIwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDchngColumnVIname}&
\parbox[c]{\ESPDchngColumnVIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXVIname}&
\parbox[c]{\ESPDchngColumnVIIIwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDchngColumnVIIIname\vspace{1mm}}&
\parbox[c]{\ESPDchngColumnIXwidth-2\tabcolsep-\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXVIIname}&
\parbox[c]{\ESPDchngColumnXwidth-2\tabcolsep-1.5\arrayrulewidth}{%
  \vspace{-\baselineskip}\centering\ESPDfontTabHead\ESPDcolumnXVIIIname}\\\hline
\endhead
\hline
\endfoot}{\end{longtable}}

\newcount\lincnt
\long\def\addto#1#2{%
  \expandafter\def\expandafter#1\expandafter{#1#2}}

\def\tabledata{}\lincnt=28 % Количество строк
%  \addto\tabledata{ 1 & & Все & & & & \makecell{РЕВМ.57 \\ 1/2} & & & \makecell{20.04. \\ 17} \\ \hline}
  \loop
    \addto\tabledata{& & & & & & & & & \\ \hline}
    \advance\lincnt -1
    \ifnum\lincnt>0
  \repeat 

\newcommand{\ESPDprintEmptyChangeSheet}{
\begin{ESPDchangeSheet}
\tabledata
\end{ESPDchangeSheet}}