 --Объединенная структура картотек


TABLE CPS_ВОИНЗВАНИЕ FORWARD;
TABLE РПО_РОСТ FORWARD;
TABLE РПО_РАЗМЕР FORWARD;
TABLE СОТРУДНИКИ FORWARD;
TABLE ПОДРАЗДЕЛЕНИЯ FORWARD;
TABLE РПО_НФА FORWARD;

TABLE CPS_ИЗНОС = "Расчет износа НФА";
  CREATEDUSER  :STRING(50);
  MODIFIEDUSER :STRING(50);
  ПРОВОДИТЬ    :BOOLEAN;
  DM	       :STRING; --отчетный месяц
  DG	       :INTEGER; --отчетный год
  ДАТСОСТ      :DATE; --дата расчета износа
  ПОДР	       :STRING; --подразделение
  ОБСУМ        :REAL; --общая стоимость НФА по ведомости
  ОБСУМСП      :REAL; --общая сумма износа по ведомости
  ПОДРАЗД      :STRING; --подразделение
  SUBTAB ПОЗИЦИИ;
    АНАЛИТИКА :STRING;
    ДАТАПРОВ  :DATE; --дата проводки
    ДАТВВОД   :DATE; --дата выдачи вещевого имущества
    ДАТОК     :DATE; --дата окончания срока носки вещевого имущества
    ДАТНОРМ   :DATE; --дата выдачи вещевого имущества по норме положенности
    СОТРУДНИК :STRING;
    СОТР_Ф    :STRING;
    МОЛ       :STRING;
    СКЛАД     :STRING;
    ПРИЗНАКИН :STRING; --признак (код) НФА (вещевого имущества)
    НАЗВАНИЕ  :STRING; --название вещевого имущества
    КОЛВО     :REAL;
    СРОК      :STRING; --срок носки выданного вещевого имущества (аналит.признак)
    МЕС       :REAL; --срок носки выданного вещевого имущества в месяцах
    ЦЕНА      :REAL; --цена вещевого имущества
    СУММА     :REAL; --начальная стоимость вещевого имущества
    СУМОСТНАЧ :REAL; --остаточная стоимость вещевого имущества на дату расчета ведомости
    СУМСПИС   :REAL; --сумма износа (списания)
    ОСТСУМКОН :REAL; --остаточная стоимость вещевого имущества после расчета ведомости
    ДАТА_НП   :STRING; --дата выдачи вещевого имущества по норме положенности (аналит.признак)
    КОД       :STRING; --счет НФА (левая часть)
    KOLMES    :REAL; --количество месяцев в износе
    ДАТА_ВВ   :STRING; --дата выдачи вещевого имущества (аналит.признак)
    ДОПОЛНАН  :STRING; --доп. аналитика
    СЧЕТДЕБ   :STRING;
    СЧЕТКРЕ   :STRING;
  ENDSUB;
  КОЭФ	       :REAL;
  НОМЕР        :INTEGER; --номер вед-ти
  CREATEDATE   :DATE;
ENDTAB;

TABLE CPS_НОРМА = "Нормирование кол-ва НФА";
  CREATEDUSER  :STRING(50);
  MODIFIEDUSER :STRING(50);
  ПРИЗНАК      :STRING; --код нормы вещевого довольствия
  КОММЕНТ      :STRING; --описание нормы
  ДАСО	       :DATE; --дата составления
  НОМЕР_НОРМЫ  :INTEGER;
  SUBTAB ПОЗИЦИИ;
    КОЛВО :REAL; --количество НФА по норме
    КОД   :STRING; --код НФА
    НАИМ  :РПО_НФА;
    СРОК_НОСКИ :STRING;
  ENDSUB;
  ЧИСЛО        :REAL;
ENDTAB;

TABLE CPS_ОТЧНОРМ = "Отчет о нормированном кол-ве НФА для сотрудников";
  CREATEDUSER  :STRING(50);
  MODIFIEDUSER :STRING(50);
  НОРМПРИЗНАК  :CPS_НОРМА; --код нормы вещевого довольствия
  СОТРУДНИК    :STRING;
  ДАСО	       :DATE; --дата составления
  SUBTAB ПОЗИЦИИ;
    НФА    :STRING;
    НКОЛ   :REAL; --количество НФА по норме положенности
    ВЫДКОЛ :REAL; --количество выданного НФА на дату расчета
    НАДКОЛ :REAL; --количество НФА, подлежащее выдаче по норме
  ENDSUB;
ENDTAB;

TABLE CPS_ДОСПИС = "Досрочное списание";
  ПРОВОДИТЬ    :BOOLEAN;
  ДАТСОСТ      :DATE; --дата составления
  ПОДР	       :STRING; --подразделение
  CN	       :STRING; --код сотрудника
  SUBTAB ПОЗИЦИИ;
    АНАЛИТИКА :STRING;
    ДАТАПРОВ  :DATE; --дата проводки
    ДАТВВОД   :DATE; --дата выдачи вещевого имущества
    ДАТНОРМ   :DATE; --дата выдачи вещевого имущества по норме положенности
    ДАТОК     :DATE; --дата окончания срока носки
    СУМОСТНАЧ :REAL; --остаточная стоимость вещевого имущества на дату расчета
    СУМСПИС   :REAL; --сумма износа вещевого имущества на дату расчета
    СОТРУДНИК :STRING;
    НАЗВАНИЕ  :STRING; --название НФА
    МОЛ       :STRING;
    СКЛАД     :STRING;
    ПРИЗНАКИН :STRING; --код НФА
    КОЛВО     :REAL;
    СУММА     :REAL;
    КОД       :STRING; --счет НФА (левая часть)
    СРОК      :STRING; --срок носки выданного вещевого имущества (аналит.признак)
    МЕС       :REAL; --срок носки выданного вещевого имущества в месяцах
    ЦЕНА      :REAL; --цена вещевого имущества
    СУМУД     :REAL; --сумма удержания
    ЗАМЕС     :REAL; --сумма износа за месяц
    СРОКНОС   :REAL; --количество месяцев в эксплуатации
    СРОКНЕДОС :REAL; --количество месяцев, оставшихся до окончания срока эксплуатации
    ДАТА_НП   :STRING; --дата выдачи вещевого имущества по норме положенности (аналит.признак)
    ДАТА_ВВ   :STRING; --дата выдачи вещевого имущества (аналит.признак)
    ДОПОЛНАН  :STRING; --доп. аналитика
    СЧЕТСПИС  :STRING;
    СЧЕТКРЕ   :STRING;
    СЧЕТУДЕРЖ :STRING;
  ENDSUB;
  ДАТА1        :DATE; --дата подписи уволенного
  ДАТА2        :DATE; --дата подписи начальника вещевой службы
  ЗВАН1        :STRING; --звание начальника вещевой службы
  ФИО1	       :STRING; --ФИО начальника вещевой службы
  NN	       :INTEGER; --номер ведомости
  НОМПРИКУВ    :INTEGER; --номер приказа увольнения
  СУМИТОГОУД   :REAL; --общая сумма удержания
  CREATEDUSER  :STRING(50);
  MODIFIEDUSER :STRING(50);
  CREATEDATE   :DATE;
  СПИС	       :BOOLEAN;
ENDTAB;

TABLE CPS_ИЗНОС_TR = "Ведомость начисленного износа вещевки (проводки)";
  CREATEDUSER  :STRING;
  MODIFIEDUSER :STRING;
  ПРОВОДИТЬ    :BOOLEAN; --Включать документ в обработку, либо нет
  ДАТОПЕР      :DATE; --Дата операции
  ВЕДОМОСТЬ    :CPS_ИЗНОС;
  ОТЧМЕС       :INTEGER; --Отчетный месяц (для уникальности)
  ОТЧГОД       :INTEGER; --Отчетный год   (для уникальности)
  НФА	       :STRING; --Код учета НФА
  ИЗНМЕС       :REAL; --ИЗНОС за месяц
  СЧДЕБ        :STRING; --Счет дебета
  СЧКРЕ        :STRING; --Счет кредита
  СОТР	       :STRING; --Аналитические признаки-Сотрудник
  МОЛ	       :STRING; --Аналитические признаки - МОЛ
  ДАТА_ВВ      :STRING; --Аналитические признаки-Дата_ввода_вещ
  КОЛВО        :INTEGER; --Аналитические признаки-Количество
  ПОДР	       :STRING; --Аналитические признаки-Подразделение
  НОМЕРВ       :STRING; --Номер расчетной ведомости
  ДАТА_НП      :STRING; --дата выдачи вещевого имущества по норме положенности (аналит.признак)
  СРОК	       :STRING; --срок носки выданного вещевого имущества (аналит.признак)
  ДОПОЛНАН     :STRING; --доп. аналитика
ENDTAB;


TABLE CPS_СПИСОК = "Список военнослужащих для вещевого довольствия";
  DATASP	    :DATE;
  CREATEDUSER	    :STRING;
  MODIFIEDUSER	    :STRING;
  ВКЛ		    :BOOLEAN; --Включить в  расчеты на вещевое довольствие
  ПОДРАЗДЕЛЕНИЕ     :ПОДРАЗДЕЛЕНИЯ;
  ФИОТ		    :СОТРУДНИКИ;
  СОТРПРИЗНАК	    :STRING;
  РАЗМЕР	    :РПО_РАЗМЕР;
  РАЗМЕР_ШЕИ	    :РПО_РАЗМЕР;
  РОСТ		    :РПО_РОСТ;
  РАЗМЕР_ГОЛОВЫ     :РПО_РАЗМЕР;
  РАЗМЕР_ОБУВИ	    :РПО_РАЗМЕР;
  ПРОВОДИТЬ	    :BOOLEAN;
  SUBTAB НОРМЫПОЛОЖЕННОСТИ; --
    НОРМА	     :CPS_НОРМА; --Ссылка норму
    ДАТА_НАЧАЛА      :DATE; --Дата начала действия нормы
    ДАТА_ПРЕКРАЩЕНИЯ :DATE; --Дата прекращения действия нормы
  ENDSUB;
  SUBTAB ОСТАТКИВЕЩ;
    CREATEDUSER  :STRING(50);
    MODIFIEDUSER :STRING(50);
    РАСЧ_ГОД	 :STRING(4);
    НФА_ВЕЩ	 :РПО_НФА; --ССылка на картотеку НФА
    НФА_ПР	 :STRING; --КОЛ 		  :INTEGER;	    -- Количество
    КОЛ 	 :REAL; --Количество
    СУММАО	 :REAL; --СУММА
    ДАТА_ВВ	 :STRING;
    ДАТА_НП	 :STRING;
    УЧИТЫВАТЬ	 :BOOLEAN; --Сотрудник		   :String;
    СРОК	 :STRING;
    МЭ		 :STRING;
  ENDSUB;
ENDTAB;

TABLE CPS_ВЕД = "Ведомость вещевого довольствия"; --TABLE CPS_ВЕД = "Ведомость вещевого довольствия";
  CREATEDUSER  :STRING(50);
  MODIFIEDUSER :STRING(50);
  ВКЛ	       :BOOLEAN; --Включить в  расчеты на вещевое довольствие
  НОМ_ВЕД      :INTEGER;
  НОМ_ВЕД1     :STRING;
  ДАТА_ВЕД     :DATE;
  НОРМА        :CPS_НОРМА;
  МЕСЯЦ        :STRING;
  ПОДРАЗ       :ПОДРАЗДЕЛЕНИЯ;
  ФИОТ1        :СОТРУДНИКИ;
  ФИОТ2        :СОТРУДНИКИ;
  ФИОТ3        :СОТРУДНИКИ;
  ЗВАНИЕ1      :CPS_ВОИНЗВАНИЕ;
  ЗВАНИЕ2      :CPS_ВОИНЗВАНИЕ;
  ЗВАНИЕ3      :CPS_ВОИНЗВАНИЕ; --SUBTAB  ШАПКА;
  SUBTAB СОТР;
    СОТРУД :STRING; --Военнослужащий
    рост:string;
    размер_шея:string;
    размер_грудь:string;
    размер_голова:string;
    размер_обувь:string;
    размер_1:string;
    SUBTAB НФАСЕК;
      КОД      :STRING(80); --Код НФА для шапки
      НФА      :РПО_НФА;
      НФА_НАИМ :STRING(80); --Наименование НФА для шапки
      КОЛНОРМ  :REAL; --Количество НФА по норме
      СРОК     :INTEGER;
      КОЛ      :REAL; --Кол-во подлежащее к выдаче
      КОЛВЫД   :REAL; --Кол-во реально выданного
      ВЫДАЧА   :BOOLEAN;
    ENDSUB;
  ENDSUB;
  UNIQUE "НОМ_ВЕД";
ENDTAB;

TABLE CPS_АРМКАРТ = "Арматурная карточка";
  CREATEDUSER  :STRING(50);
  MODIFIEDUSER :STRING(50); --ВКЛ	    :BOOLEAN; --Включить в  расчеты на вещевое довольствие
  НОРМА        :CPS_НОРМА;
  НОМЕР        :STRING; --МЕСЯЦ 	 :STRING;
  СОТРУД       :СОТРУДНИКИ; --Военнослужащий
  СОТРУДS      :STRING; --Военнослужащий
  ДАТАСОСТ     :DATE;
  ФИОТНАЧВЕЩ   :СОТРУДНИКИ;
  ФИОБУХ       :СОТРУДНИКИ;
  ЗВАНИЕНАЧВЕЩ :CPS_ВОИНЗВАНИЕ;
  ЗВАНИЕ       :CPS_ВОИНЗВАНИЕ;
  ЗВБУХ        :CPS_ВОИНЗВАНИЕ;
  ДОЛЖНОСТЬ    :STRING;
  ДАТЗАЧИСЛ    :DATE;
  ПРИКЗАЧИСЛ   :STRING;
  ДАТИСКЛ      :DATE;
  ПРИКИСКЛ     :STRING;
  РОСТ	       :РПО_РОСТ;
  ШЕЯ	       :РПО_РАЗМЕР;
  ГРУДЬ        :РПО_РАЗМЕР;
  ГОЛОВА       :РПО_РАЗМЕР;
  ОБУВЬ        :РПО_РАЗМЕР;
  ПЕРВЫЙГОД    :INTEGER; --первый год, отображаемый в арм карточке для печати
  SUBTAB НФАВЫД;
    КОД 	:STRING(80); --Код НФА для шапки
    НФА 	:РПО_НФА;
    НФА_НАИМ	:STRING(80); --Наименование НФА для шапки
    КОЛ 	:REAL; --Кол-во подлежащее к выдаче
    ГОД 	:INTEGER;
    ДАТАВЫД	:STRING;
    ДАТАНП	:STRING;
    СУММА	:REAL;
    КОММЕНТАРИЙ :STRING;
  ENDSUB;
ENDTAB;
TABLE CPS_СООТВЕТСТВИЯ='Соответствия НФА и типов размеров';
 SUBTAB СТРОКИ;
  НФА			:РПО_НФА;
  РОСТ			:BOOLEAN;
  РАЗМЕР_ШЕЯ		:BOOLEAN;
  РАЗМЕР_ГРУДЬ		:BOOLEAN;
  РАЗМЕР_ГОЛОВА 	:BOOLEAN;
  РАЗМЕР_ОБУВЬ		:BOOLEAN;
  РАЗМЕР_1		:BOOLEAN;
 ENDSUB;
ENDTAB;
