Группа РАБ="Обработчики картотек";
 Группа РПО="Типовые операции ТББ 'Бюджет 157Н'";
  Группа ЛБО="Лимиты бюджетных обязательств";
   Опер Смета_ДОХОД="Смета доходов"
     (СУММГОД_ИЗМ :N;  --Сумма на год
      ПРИЗНАК     :S;  --Аналитика
      ПРИЗН_ЛС    :S;  --Признак счета;
      ИСТ1        :S;  --Наименование показателя
      СЧЕТ_ДЕБ    :S;  --Счет по дебету
      СЧЕТ_КРЕ    :S)  --Счет по кредиту

    :СУММГОД_ИЗМ $СЧЕТ_ДЕБ  $СЧЕТ_КРЕ {$ПРИЗНАК $ПРИЗН_ЛС} --$Ист1
   Репо;
   Опер Смета_РАСХОД="Смета расходов"
        (НАПР1       :S;  --Наименование показателя
         СУММГОД_ИЗМ :N;  --Сумма на год
         ПРИЗНАК :    S;  --Аналитика
         ПРИЗН_ЛС    :S;  --Признак счета;
         СЧЕТ_ДЕБ    :S;  --Счет по дебету
         СЧЕТ_КРЕ :   S)  --Счет по кредиту

    :СУММГОД_ИЗМ $СЧЕТ_ДЕБ  $СЧЕТ_КРЕ {$ПРИЗНАК $ПРИЗН_ЛС} --$НАПР1
   Репо;
   Опер РР_Вх1="Расходное расписание поступившее (Раздел 1)"
        (НомерДок   :S;
         ДатаДок    :D;
         ПБС_ПризнЛС:S;
         СчДеб1     :S;
         СчКре1     :S;
         СчДеб2     :S;
         СчКре2     :S;
         СчДеб3     :S;
         СчКре3     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Сум2       :N;
         Сум3       :N;
         Примеч     :S)
    if Сум1>0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $ПБС_ПризнЛС} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $ПБС_ПризнЛС ОТЗЫВ} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум2>0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $ПБС_ПризнЛС} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
      |Сум2<0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $ПБС_ПризнЛС ОТЗЫВ} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум3>0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $ПБС_ПризнЛС} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
      |Сум3<0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $ПБС_ПризнЛС ОТЗЫВ} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ВХ1="Расходное расписание поступившее (Раздел 1)"
   Опер РР_Вх2="Расходное расписание поступившее (Раздел 2)"
        (НомерДок   :S;
         ДатаДок    :D;
         ПБС_ПризнЛС:S;
         СчДеб1     :S;
         СчКре1     :S;
         СчДеб2     :S;
         СчКре2     :S;
         СчДеб3     :S;
         СчКре3     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Сум2       :N;
         Сум3       :N;
         Примеч     :S)
    if Сум1>0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $ПБС_ПризнЛС} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $ПБС_ПризнЛС ОТЗЫВ} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум2>0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $ПБС_ПризнЛС} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
      |Сум2<0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $ПБС_ПризнЛС ОТЗЫВ} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум3>0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $ПБС_ПризнЛС} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
      |Сум3<0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $ПБС_ПризнЛС ОТЗЫВ} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ВХ2="Расходное расписание поступившее (Раздел 2)"
   Опер РР_Вх3="Расходное расписание поступившее (Раздел 3)"
        (НомерДок   :S;
         ДатаДок    :D;
         ПБС_признЛС:S;
         СчДеб1     :S;
         СчКре1     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Примеч     :S)
    if Сум1>0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $ПБС_ПризнЛС} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $ПБС_ПризнЛС ОТЗЫВ} --Расходное расписание поступившее N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ВХ3="Расходное расписание поступившее (Раздел 3)"
   Опер РР_Исх1="Расходное расписание исходящие (Раздел 1)"
        (Проводить  :L;
         НомерДок   :S;
         ДатаДок    :D;
         РБС_ПризнЛС:S;
         ПБС_Призн  :S;
         СчДеб1     :S;
         СчКре1     :S;
         СчДеб2     :S;
         СчКре2     :S;
         СчДеб3     :S;
         СчКре3     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Сум2       :N;
         Сум3       :N;
         Примеч     :S)
    var Опер_:S;
    var Кмнт :S;
    Опер_=if(Проводить,"","ОПЕР");
    Кмнт=if(Проводить,"","Оперативная проводка.");
    if Сум1>0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_ ОТЗЫВ} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум2>0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум2<0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_ ОТЗЫВ} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум3>0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум3<0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_ ОТЗЫВ} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ИСХ1="Расходное расписание исходящие (Раздел 1)"
   Опер РР_Исх2="Расходное расписание исходящие (Раздел 2)"
        (Проводить  :L;
         НомерДок   :S;
         ДатаДок    :D;
         РБС_ПризнЛС:S;
         ПБС_Призн  :S;
         СчДеб1     :S;
         СчКре1     :S;
         СчДеб2     :S;
         СчКре2     :S;
         СчДеб3     :S;
         СчКре3     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Сум2       :N;
         Сум3       :N;
         Примеч     :S)
    var Опер_:S;
    var Кмнт :S;
    Кмнт=if(Проводить,"","Оперативная проводка.");
    Опер_=if(Проводить,"","ОПЕР");
    if Сум1>0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_ ОТЗЫВ} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум2>0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум2<0:
       :Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_ ОТЗЫВ} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум3>0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум3<0:
       :Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_ ОТЗЫВ} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ИСХ2="Расходное расписание исходящие (Раздел 2)"
   Опер РР_Исх3="Расходное расписание исходящие (Раздел 3)"
        (Проводить  :L;
         НомерДок   :S;
         ДатаДок    :D;
         РБС_ПризнЛС:S;
         ПБС_Призн  :S;
         СчДеб1     :S;
         СчКре1     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Примеч     :S)
    var Опер_:S;
    var Кмнт :S;
    Опер_=if(Проводить,"","ОПЕР");
    Кмнт=if(Проводить,"","Оперативная проводка.");
    if Сум1>0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн $Опер_ ОТЗЫВ} --$Кмнт Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ИСХ3="Расходное расписание исходящие (Раздел 3)"
   Опер РР_Исх_Аннул1="Расходное расписание исходящие аннулированое (Раздел 1)"
        (НомерДок   :S;
         ДатаДок    :D;
         РБС_ПризнЛС:S;
         ПБС_Призн  :S;
         СчДеб1     :S;
         СчКре1     :S;
         СчДеб2     :S;
         СчКре2     :S;
         СчДеб3     :S;
         СчКре3     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Сум2       :N;
         Сум3       :N;
         Примеч     :S)
    if Сум1>0:
       :-1*Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :-1*Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн ОТЗЫВ} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум2>0:
       :-1*Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум2<0:
       :-1*Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн ОТЗЫВ} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум3>0:
       :-1*Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум3<0:
       :-1*Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн ОТЗЫВ} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ИСХ1="Расходное расписание исходящие (Раздел 1)"
   Опер РР_Исх_Аннул2="Расходное расписание исходящие аннулированое (Раздел 2)"
        (Проводить  :L;
         Аннул      :L;
         НомерДок   :S;
         ДатаДок    :D;
         РБС_ПризнЛС:S;
         ПБС_Призн  :S;
         СчДеб1     :S;
         СчКре1     :S;
         СчДеб2     :S;
         СчКре2     :S;
         СчДеб3     :S;
         СчКре3     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Сум2       :N;
         Сум3       :N;
         Примеч     :S)
    if Сум1>0:
       :-1*Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :-1*Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн ОТЗЫВ} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум2>0:
       :-1*Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум2<0:
       :-1*Сум2 $СчДеб2 $СчКре2 {$Призн $РБС_ПризнЛС $ПБС_Призн ОТЗЫВ} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
    if Сум3>0:
       :-1*Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум3<0:
       :-1*Сум3 $СчДеб3 $СчКре3 {$Призн $РБС_ПризнЛС $ПБС_Призн ОТЗЫВ} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ИСХ2="Расходное расписание исходящие (Раздел 2)"
   Опер РР_Исх_Аннул3="Расходное расписание исходящиее аннулированое (Раздел 3)"
        (Проводить  :L;
         Аннул      :L;
         НомерДок   :S;
         ДатаДок    :D;
         РБС_ПризнЛС:S;
         ПБС_Призн  :S;
         СчДеб1     :S;
         СчКре1     :S;
         БК         :S;
         КОСГУ      :S;
         Призн      :S;
         Сум1       :N;
         Примеч     :S)
    if Сум1>0:
       :-1*Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
      |Сум1<0:
       :-1*Сум1 $СчДеб1 $СчКре1 {$Призн $РБС_ПризнЛС $ПБС_Призн ОТЗЫВ} --Аннулировано. Расходное расписание исходящие N $НомерДок от $ДатаДок $Примеч
    fi;
   Репо; --РР_ИСХ3="Расходное расписание исходящие (Раздел 3)"
   Опер ПБО2009="Принятые бюджетные обязательства"
        (ТекГод         :I;
         ДатаДок        :D;
         НомерДок       :S;
         Признак        :S;
         Призн_К        :S;
         Призн_Договор  :S;
         Вал            :S;
         Доп_РазмещЗаказ:S;
         Осн_ДокНаим    :S;
         Осн_ДокНом     :S;
         Осн_ДокДат     :D;
         Исп_ДокНом     :S; 
         Исп_ДокДат     :D;
         Сум1_1         :N;
         Сум1_2         :N;
         Сум1_3         :N;
         Сум1_4         :N;
         Сум1_5         :N;
         Сум1_6         :N;
         Сум1_7         :N;
         Сум1_8         :N;
         Сум1_9         :N;
         Сум1_10        :N;
         Сум1_11        :N;
         Сум1_12        :N;
         Сум2           :N;
         Сум3           :N;
         СчДеб1         :S;
         СчКре1         :S;
         СчДеб2         :S;
         СчКре2         :S;
         СчДеб3         :S;
         СчКре3         :S;
         Призн          :S;
         УчетФК         :L;
         Рег            :L)
      var ПризнБО:S;
      var Опр:S;
      var Вал_:Валюта;
      var Пр01:S;
      var Пр02:S;
      var Пр03:S;
      var Пр04:S;
      var Пр05:S;
      var Пр06:S;
      var Пр07:S;
      var Пр08:S;
      var Пр09:S;
      var Пр10:S;
      var Пр11:S;
      var Пр12:S;
      var Пр2 :S;
      var Пр3 :S;
      var Период_:S;
      var СОП_:S;
      var Кмнт_:S;
      ПризнБО="БО."+Признак;
      if Рег: Опр="";
        |УчетФК: Опр="ОПЕР";
        |True: Опр="";
      fi;
      Вал_=Вал;
      if Вал_="": Вал_=BaseCurrency; fi;
      Период_="ПЕРИОД."+Str(ТекГод);
      Пр01=Период_+".1.01";
      Пр02=Период_+".1.02";
      Пр03=Период_+".1.03";
      Пр04=Период_+".2.04";
      Пр05=Период_+".2.05";
      Пр06=Период_+".2.06";
      Пр07=Период_+".3.07";
      Пр08=Период_+".3.08";
      Пр09=Период_+".3.09";
      Пр10=Период_+".4.10";
      Пр11=Период_+".4.11";
      Пр12=Период_+".4.12";
      Пр2 ="ПЕРИОД."+Str(ТекГод+1);
      Пр3 ="ПЕРИОД."+Str(ТекГод+2);
      if Length(Доп_РазмещЗаказ)=5 or Доп_РазмещЗаказ="0":
         СОП_="СОП."+Доп_РазмещЗаказ;
        |Доп_РазмещЗаказ="":
         СОП_="СОП."+"0";
        |Доп_РазмещЗаказ="1"         : СОП_="СОП."+"11011";
        |Доп_РазмещЗаказ="2"         : СОП_="СОП."+"11021";
        |Доп_РазмещЗаказ="3"         : СОП_="СОП."+"11031";
        |Доп_РазмещЗаказ="4"         : СОП_="СОП."+"11042";
        |Доп_РазмещЗаказ="5"         : СОП_="СОП."+"11052";
        |Доп_РазмещЗаказ="6"         : СОП_="СОП."+"11062";
        |Доп_РазмещЗаказ="7"         : СОП_="СОП."+"12011";
        |Доп_РазмещЗаказ="8"         : СОП_="СОП."+"12022";
        |Доп_РазмещЗаказ="9"         : СОП_="СОП."+"13011";
        |Match(Доп_РазмещЗаказ,"10!"): СОП_="СОП."+"14011";
        |Доп_РазмещЗаказ="11"        : СОП_="СОП."+"20000";
        |Доп_РазмещЗаказ="11.93_1_1" : СОП_="СОП."+"20010";
        |Доп_РазмещЗаказ="11.93_1_2" : СОП_="СОП."+"20020";
        |Доп_РазмещЗаказ="11.93_1_3" : СОП_="СОП."+"20030";
        |Доп_РазмещЗаказ="11.93_1_4" : СОП_="СОП."+"20000";
        |Доп_РазмещЗаказ="11.93_1_5" : СОП_="СОП."+"20000";
        |Доп_РазмещЗаказ="11.93_1_6" : СОП_="СОП."+"20040";
        |Доп_РазмещЗаказ="11.93_1_7" : СОП_="СОП."+"20050";
        |Доп_РазмещЗаказ="11.93_1_8" : СОП_="СОП."+"20060";
        |Доп_РазмещЗаказ="11.93_1_9" : СОП_="СОП."+"20070";
        |Доп_РазмещЗаказ="11.93_1_10": СОП_="СОП."+"20080";
        |Доп_РазмещЗаказ="11.93_1_11": СОП_="СОП."+"20090";
        |Доп_РазмещЗаказ="11.93_1_12": СОП_="СОП."+"20100";
        |Доп_РазмещЗаказ="11.93_1_13": СОП_="СОП."+"20110";
        |Доп_РазмещЗаказ="11.93_1_14": СОП_="СОП."+"20120";
        |Доп_РазмещЗаказ="11.93_1_15": СОП_="СОП."+"20130";
        |Доп_РазмещЗаказ="11.93_1_16": СОП_="СОП."+"20140";
        |Доп_РазмещЗаказ="11.93_1_17": СОП_="СОП."+"20150";
        |Доп_РазмещЗаказ="11.93_1_18": СОП_="СОП."+"20160";
        |Доп_РазмещЗаказ="11.93_1_19": СОП_="СОП."+"20170";
        |Доп_РазмещЗаказ="11.93_1_20": СОП_="СОП."+"20180";
        |Доп_РазмещЗаказ="11.93_1_21": СОП_="СОП."+"20190";
        |Доп_РазмещЗаказ="11.93_1_22": СОП_="СОП."+"20200";
        |Доп_РазмещЗаказ="11.93_1_23": СОП_="СОП."+"20210";
        |Доп_РазмещЗаказ="11.93_1_24": СОП_="СОП."+"20220";
        |Доп_РазмещЗаказ="11.93_1_26": СОП_="СОП."+"20300";
        |Доп_РазмещЗаказ="11.93_1_28": СОП_="СОП."+"20310";
        |True: СОП_="";
      fi;
      if not Исп_ДокНом="":
         Кмнт_="(Исп. док. "+Исп_ДокНом+" от "+Str(Day(Исп_ДокДат))+"."+Str(Mon(Исп_ДокДат))+"."+Str(Year(Исп_ДокДат))+")";
        |not Осн_ДокНом="":
         Кмнт_="("+Осн_ДокНаим+" №"+Осн_ДокНом+" от "+Str(Day(Осн_ДокДат))+"."+Str(Mon(Осн_ДокДат))+"."+Str(Year(Осн_ДокДат))+")";
        |True:
         Кмнт_="";
      fi;
      :Сум1_1^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр01 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок январь $Кмнт_
      :Сум1_2^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр02 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок февраль $Кмнт_
      :Сум1_3^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр03 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок март $Кмнт_
      :Сум1_4^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр04 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок апрель $Кмнт_
      :Сум1_5^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр05 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок май $Кмнт_
      :Сум1_6^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр06 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок июнь $Кмнт_
      :Сум1_7^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр07 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок июль $Кмнт_
      :Сум1_8^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр08 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок август $Кмнт_
      :Сум1_9^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр09 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок сентябрь $Кмнт_
      :Сум1_10^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр10 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок октябрь $Кмнт_
      :Сум1_11^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр11 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок ноябрь $Кмнт_
      :Сум1_12^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр12 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок декабрь $Кмнт_
      if not Name_S(СчДеб2)=" " and not Name_S(СчКре2)=" " and not Сум2=0:
         :Сум2^$Вал_ $СчДеб2  $СчКре2 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр2 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок план. период, первый год $Кмнт_
      fi;
      if not Name_S(СчДеб3)=" " and not Name_S(СчКре3)=" " and not Сум3=0:
         :Сум3^$Вал_ $СчДеб3  $СчКре3 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр3 $СОП_}  --Свед. о ПБО №$НомерДок от $ДатаДок план. период, второй год $Кмнт_
      fi;
   Репо; --ПБО="Принятые бюджетные обязательства"
   Опер ИЗМ_ПБО2009="Внесение изменений в принятые бюджетные обязательства"
        (ТекГод         :I;
         ДатаДок        :D;
         НомерДок       :S;
         Изм_ДатаДок    :D;
         Изм_НомерДок   :S;
         Признак        :S;
         Призн_К        :S;
         Призн_К_Пре    :S;
         Призн_Договор  :S;
         Вал            :S;
         Доп_РазмещЗаказ:S;
         Осн_ДокНаим    :S;
         Осн_ДокНом     :S;
         Осн_ДокДат     :D;
         Исп_ДокНом     :S; 
         Исп_ДокДат     :D;
         Сум1_1         :N;
         Сум1_2         :N;
         Сум1_3         :N;
         Сум1_4         :N;
         Сум1_5         :N;
         Сум1_6         :N;
         Сум1_7         :N;
         Сум1_8         :N;
         Сум1_9         :N;
         Сум1_10        :N;
         Сум1_11        :N;
         Сум1_12        :N;
         Сум2           :N;
         Сум3           :N;
         Сум_Пре1_1     :N;
         Сум_Пре1_2     :N;
         Сум_Пре1_3     :N;
         Сум_Пре1_4     :N;
         Сум_Пре1_5     :N;
         Сум_Пре1_6     :N;
         Сум_Пре1_7     :N;
         Сум_Пре1_8     :N;
         Сум_Пре1_9     :N;
         Сум_Пре1_10    :N;
         Сум_Пре1_11    :N;
         Сум_Пре1_12    :N;
         Сум_Пре2       :N;
         Сум_Пре3       :N;
         СчДеб1         :S;
         СчКре1         :S;
         СчДеб2         :S;
         СчКре2         :S;
         СчДеб3         :S;
         СчКре3         :S;
         Призн          :S;
         УчетФК         :L;
         Рег            :L)
      var ПризнБО:S;
      var Опр:S;
      var Вал_:Валюта;
      var Пр01:S;
      var Пр02:S;
      var Пр03:S;
      var Пр04:S;
      var Пр05:S;
      var Пр06:S;
      var Пр07:S;
      var Пр08:S;
      var Пр09:S;
      var Пр10:S;
      var Пр11:S;
      var Пр12:S;
      var Пр2 :S;
      var Пр3 :S;
      var Период_:S;
      var СОП_:S;
      var Кмнт_:S;
      ПризнБО="БО."+Признак;
      if Рег: Опр="";
        |УчетФК: Опр="ОПЕР";
        |True: Опр="";
      fi;
      Вал_=Вал;
      if Вал_="": Вал_=BaseCurrency; fi;
      Период_="ПЕРИОД."+Str(ТекГод);
      Пр01=Период_+".1.01";
      Пр02=Период_+".1.02";
      Пр03=Период_+".1.03";
      Пр04=Период_+".2.04";
      Пр05=Период_+".2.05";
      Пр06=Период_+".2.06";
      Пр07=Период_+".3.07";
      Пр08=Период_+".3.08";
      Пр09=Период_+".3.09";
      Пр10=Период_+".4.10";
      Пр11=Период_+".4.11";
      Пр12=Период_+".4.12";
      Пр2 ="ПЕРИОД."+Str(ТекГод+1);
      Пр3 ="ПЕРИОД."+Str(ТекГод+2);
      if Length(Доп_РазмещЗаказ)=5 or Доп_РазмещЗаказ="0":
         СОП_="СОП."+Доп_РазмещЗаказ;
        |Доп_РазмещЗаказ="":
         СОП_="СОП."+"0";
        |Доп_РазмещЗаказ="1"         : СОП_="СОП."+"11011";
        |Доп_РазмещЗаказ="2"         : СОП_="СОП."+"11021";
        |Доп_РазмещЗаказ="3"         : СОП_="СОП."+"11031";
        |Доп_РазмещЗаказ="4"         : СОП_="СОП."+"11042";
        |Доп_РазмещЗаказ="5"         : СОП_="СОП."+"11052";
        |Доп_РазмещЗаказ="6"         : СОП_="СОП."+"11062";
        |Доп_РазмещЗаказ="7"         : СОП_="СОП."+"12011";
        |Доп_РазмещЗаказ="8"         : СОП_="СОП."+"12022";
        |Доп_РазмещЗаказ="9"         : СОП_="СОП."+"13011";
        |Match(Доп_РазмещЗаказ,"10!"): СОП_="СОП."+"14011";
        |Доп_РазмещЗаказ="11"        : СОП_="СОП."+"20000";
        |Доп_РазмещЗаказ="11.93_1_1" : СОП_="СОП."+"20010";
        |Доп_РазмещЗаказ="11.93_1_2" : СОП_="СОП."+"20020";
        |Доп_РазмещЗаказ="11.93_1_3" : СОП_="СОП."+"20030";
        |Доп_РазмещЗаказ="11.93_1_4" : СОП_="СОП."+"20000";
        |Доп_РазмещЗаказ="11.93_1_5" : СОП_="СОП."+"20000";
        |Доп_РазмещЗаказ="11.93_1_6" : СОП_="СОП."+"20040";
        |Доп_РазмещЗаказ="11.93_1_7" : СОП_="СОП."+"20050";
        |Доп_РазмещЗаказ="11.93_1_8" : СОП_="СОП."+"20060";
        |Доп_РазмещЗаказ="11.93_1_9" : СОП_="СОП."+"20070";
        |Доп_РазмещЗаказ="11.93_1_10": СОП_="СОП."+"20080";
        |Доп_РазмещЗаказ="11.93_1_11": СОП_="СОП."+"20090";
        |Доп_РазмещЗаказ="11.93_1_12": СОП_="СОП."+"20100";
        |Доп_РазмещЗаказ="11.93_1_13": СОП_="СОП."+"20110";
        |Доп_РазмещЗаказ="11.93_1_14": СОП_="СОП."+"20120";
        |Доп_РазмещЗаказ="11.93_1_15": СОП_="СОП."+"20130";
        |Доп_РазмещЗаказ="11.93_1_16": СОП_="СОП."+"20140";
        |Доп_РазмещЗаказ="11.93_1_17": СОП_="СОП."+"20150";
        |Доп_РазмещЗаказ="11.93_1_18": СОП_="СОП."+"20160";
        |Доп_РазмещЗаказ="11.93_1_19": СОП_="СОП."+"20170";
        |Доп_РазмещЗаказ="11.93_1_20": СОП_="СОП."+"20180";
        |Доп_РазмещЗаказ="11.93_1_21": СОП_="СОП."+"20190";
        |Доп_РазмещЗаказ="11.93_1_22": СОП_="СОП."+"20200";
        |Доп_РазмещЗаказ="11.93_1_23": СОП_="СОП."+"20210";
        |Доп_РазмещЗаказ="11.93_1_24": СОП_="СОП."+"20220";
        |Доп_РазмещЗаказ="11.93_1_26": СОП_="СОП."+"20300";
        |Доп_РазмещЗаказ="11.93_1_28": СОП_="СОП."+"20310";
        |True: СОП_="";
      fi;
      if not Исп_ДокНом="":
         Кмнт_="(Исп. док. "+Исп_ДокНом+" от "+Str(Day(Исп_ДокДат))+"."+Str(Mon(Исп_ДокДат))+"."+Str(Year(Исп_ДокДат))+")";
        |not Осн_ДокНом="":
         Кмнт_="("+Осн_ДокНаим+" №"+Осн_ДокНом+" от "+Str(Day(Осн_ДокДат))+"."+Str(Mon(Осн_ДокДат))+"."+Str(Year(Осн_ДокДат))+")";
        |True:
         Кмнт_="";
      fi;
      if not Призн_К=Призн_К_Пре and not Призн_К="" and not Призн_К_Пре="":
         :-Сум_Пре1_1^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр01 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) январь $Кмнт_
         :-Сум_Пре1_2^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр02 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) февраль $Кмнт_
         :-Сум_Пре1_3^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр03 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) март $Кмнт_
         :-Сум_Пре1_4^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр04 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) апрель $Кмнт_
         :-Сум_Пре1_5^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр05 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) май $Кмнт_
         :-Сум_Пре1_6^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр06 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) июнь $Кмнт_
         :-Сум_Пре1_7^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр07 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) июль $Кмнт_
         :-Сум_Пре1_8^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр08 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) август $Кмнт_
         :-Сум_Пре1_9^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр09 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) сентябрь $Кмнт_
         :-Сум_Пре1_10^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр10 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) октябрь $Кмнт_
         :-Сум_Пре1_11^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр11 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) ноябрь $Кмнт_
         :-Сум_Пре1_12^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр12 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) декабрь $Кмнт_
         if not Name_S(СчДеб2)=" " and not Name_S(СчКре2)=" " and not Сум_Пре2-Сум2=0:
            :-Сум_Пре2^$Вал_ $СчДеб2  $СчКре2 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр2 $СОП_}  --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) план. период, первый год $Кмнт_
         fi;
         if not Name_S(СчДеб3)=" " and not Name_S(СчКре3)=" " and not Сум_Пре3-Сум3=0:
            :-Сум_Пре3^$Вал_ $СчДеб3  $СчКре3 {$ПризнБО $Призн_К_Пре $Призн_Договор $Призн $Опр $Пр3 $СОП_}  --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) план. период, второй год $Кмнт_
         fi;
         :Сум1_1^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр01 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) январь $Кмнт_
         :Сум1_2^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр02 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) февраль $Кмнт_
         :Сум1_3^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр03 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) март $Кмнт_
         :Сум1_4^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр04 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) апрель $Кмнт_
         :Сум1_5^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр05 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) май $Кмнт_
         :Сум1_6^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр06 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) июнь $Кмнт_
         :Сум1_7^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр07 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) июль $Кмнт_
         :Сум1_8^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр08 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) август $Кмнт_
         :Сум1_9^$Вал_  $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр09 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) сентябрь $Кмнт_
         :Сум1_10^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр10 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) октябрь $Кмнт_
         :Сум1_11^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр11 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) ноябрь $Кмнт_
         :Сум1_12^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр12 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) декабрь $Кмнт_
         if not Name_S(СчДеб2)=" " and not Name_S(СчКре2)=" " and not Сум_Пре2-Сум2=0:
            :Сум2^$Вал_ $СчДеб2  $СчКре2 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр2 $СОП_}  --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) план. период, первый год $Кмнт_
         fi;
         if not Name_S(СчДеб3)=" " and not Name_S(СчКре3)=" " and not Сум_Пре3-Сум3=0:
            :Сум3^$Вал_ $СчДеб3  $СчКре3 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр3 $СОП_}  --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) план. период, второй год $Кмнт_
         fi;
        |true:
         :Сум1_1-Сум_Пре1_1^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр01 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) январь $Кмнт_
         :Сум1_2-Сум_Пре1_2^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр02 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) февраль $Кмнт_
         :Сум1_3-Сум_Пре1_3^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр03 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) март $Кмнт_
         :Сум1_4-Сум_Пре1_4^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр04 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) апрель $Кмнт_
         :Сум1_5-Сум_Пре1_5^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр05 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) май $Кмнт_
         :Сум1_6-Сум_Пре1_6^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр06 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) июнь $Кмнт_
         :Сум1_7-Сум_Пре1_7^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр07 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) июль $Кмнт_
         :Сум1_8-Сум_Пре1_8^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр08 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) август $Кмнт_
         :Сум1_9-Сум_Пре1_9^$Вал_   $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр09 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) сентябрь $Кмнт_
         :Сум1_10-Сум_Пре1_10^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр10 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) октябрь $Кмнт_
         :Сум1_11-Сум_Пре1_11^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр11 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) ноябрь $Кмнт_
         :Сум1_12-Сум_Пре1_12^$Вал_ $СчДеб1  $СчКре1 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр12 $СОП_} --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) декабрь $Кмнт_
         if not Name_S(СчДеб2)=" " and not Name_S(СчКре2)=" " and not Сум_Пре2-Сум2=0:
            :Сум2-Сум_Пре2^$Вал_ $СчДеб2  $СчКре2 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр2 $СОП_}     --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) план. период, первый год $Кмнт_
         fi;
         if not Name_S(СчДеб3)=" " and not Name_S(СчКре3)=" " and not Сум_Пре3-Сум3=0:
            :Сум3-Сум_Пре3^$Вал_ $СчДеб3  $СчКре3 {$ПризнБО $Призн_К $Призн_Договор $Призн $Опр $Пр3 $СОП_}     --Заяв. на внес. изм. №$Изм_НомерДок от $Изм_ДатаДок (Свед. о ПБО №$НомерДок от $ДатаДок) план. период, второй год $Кмнт_
         fi;
      fi;
   Репо; --ИЗМ_ПБО2009="Внесение изменеий в принятые бюджетные обязательства"
  Аппург; --Лимиты="Лимиты бюджетных обязательств";
  Группа Банк="Банковские документы";
   ОПЕР ЗаявДенсрК="Заявка на получение денежных средств на карту"
    (Призн   :S;       -- аналитические признаки
     СУММАП   :N;        -- сумма
     СчДеб   :S;        -- аналитические признаки
     СчКре   :S;        -- аналитические признаки
     Назначение:S;
     Примечание:S)        -- аналитические признаки
     :   СУММАП   $СчДеб $СчКре {$Призн}   --$Назначение $Примечание
   РЕПО;

   Опер ПлатПоручВх="Поступившие платежные поручения"
        (НомерБум:S;
         ДатаДок:D;
         РПО_Призн_К:S;
         РПО_Призн_ЛС:S;
         НазначПлат:S;
         Сум:N;
         Призн:S;
         СчДеб:S;
         СчКре:S;
         Кмнт:S)
       :Сум $СчДеб $СчКре {$Призн $РПО_Призн_К $РПО_Призн_ЛС} -- п/п №$НомерБум от $ДатаДок $НазначПлат $Кмнт
   Репо; --ПлатПоручВх="Поступившие платежные поручения"
   Опер ПлатПоруч_Опер="Оперативные платежные поручения"
        (Сум:N;
         СчДеб:S;
         СчКре:S;
         Признак:S;
         Кмнт:S;
         РПО_Призн_К:S;
         РПО_Призн_ЛС:S;
         РПО_Призн_БО:S;
         ver:I)
         var СчД:S;
         var СчК:S;
         var Опр:S;
         СчД="";
         СчК="";
         if Length(СчДеб)=33: СчД=SubStr(СчДеб,1,23)+"ЗАБ.00"+SubStr(СчДеб,30,4);
           |Length(СчДеб)=35: СчД=SubStr(СчДеб,1,25)+"ЗАБ.00"+SubStr(СчДеб,32,4);
           |Length(СчДеб)=36: СчД=SubStr(СчДеб,1,26)+"ЗАБ.00"+SubStr(СчДеб,33,4);
         fi;
         if Length(СчКре)=33: СчК=SubStr(СчКре,1,23)+"ЗАБ.КР"+SubStr(СчКре,30,4);
           |Length(СчКре)=35: СчК=SubStr(СчКре,1,25)+"ЗАБ.КР"+SubStr(СчКре,32,4);
           |Length(СчКре)=36: СчК=SubStr(СчКре,1,26)+"ЗАБ.КР"+SubStr(СчКре,33,4);
         fi;
         if not Name_S(СчД)=" " and not Name_S(СчК)=" ":
            Опр="ОПЕР";
            if ver=0:
            :Сум $СчД $СчК {$Признак $Опр} -- $Кмнт
            |True:
              :Сум $СчД $СчК {$Признак  $РПО_Призн_БО $РПО_Призн_ЛС $РПО_Призн_К $Опр} -- $Кмнт
            fi;
         fi;
   Репо; --ПлатПоруч_Опер="Оперативные платежные поручения"
   Опер ПлатПоруч="Платежные поручения"
        (Сум:N;
         СчДеб:S;
         СчКре:S;
         Признак:S;
         Кмнт:S;
         РПО_Призн_К:S;
         РПО_Призн_ЛС:S;
         РПО_Призн_БО:S;
         ver:I)
         if ver=0:
           :Сум $СчДеб $СчКре {$Признак} -- $Кмнт
         |True:
           :Сум $СчДеб $СчКре {$Признак $РПО_Призн_БО $РПО_Призн_ЛС $РПО_Призн_К} -- $Кмнт

         fi;
   Репо; --ПлатПоруч="Платежные поручения"
   Опер ЗАБ_17_18="Операции по 17, 18 забалансовым счетам"
        (ЗабСум:N;
         ЗабДеб:S;
         ЗабКре:S;
         ПризнВД:S;
         ПризнКБК:S;
         Призн:S;
         Кмнт:S)
       :ЗабСум $ЗабДеб $ЗабКре {$ПризнВД $ПризнКБК $Призн} -- $Кмнт
   Репо; --ЗАБ_17_18="Операции по 17, 18 забалансовым счетам"

   Опер ЗАЯВКА_ДЕНСРЕДСТВ_НА_КАРТУ="Заявка на получение денежных средств перечесляемых на карту"
         (ДатаДок  :D;
         НОМЕР    :I;
         СУММАП   :N;
         СчДеб    :S;
         СчКре    :S;
         УЧИТЫВАТЬ:L;
         Проводить:L;
         Призн    :S)
         var СчД:S;
         var СчК:S;
      if Учитывать:
         if not Проводить:
            if Length(СчДеб)=33: СчД=SubStr(СчДеб,1,23)+"ЗАБ.00"+SubStr(СчДеб,30,4);
              |Length(СчДеб)=35: СчД=SubStr(СчДеб,1,25)+"ЗАБ.00"+SubStr(СчДеб,32,4);
              |Length(СчДеб)=36: СчД=SubStr(СчДеб,1,26)+"ЗАБ.00"+SubStr(СчДеб,33,4);
            fi;
            if Length(СчКре)=33: СчК=SubStr(СчКре,1,23)+"ЗАБ.КР"+SubStr(СчКре,30,4);
              |Length(СчКре)=35: СчК=SubStr(СчКре,1,25)+"ЗАБ.КР"+SubStr(СчКре,32,4);
              |Length(СчКре)=36: СчК=SubStr(СчКре,1,26)+"ЗАБ.КР"+SubStr(СчКре,33,4);
            fi;
          |True:
           СчД=СчДеб;
           СчК=СчКре;
        fi;
      fi;
       :СУММАП $СчД $СчК {$Призн} --Заявка на получение денежных средст перечесляемых на карту
   Репо; --Заявка на получение денежных средст перечесляемых на карту

   Опер ЗАЯВКА_КР="Заявка на кассовый расход"
        (ДатаДок     :D;
         НомерДок    :S;
         Глава       :S;
         Призн_ЛС    :S;
         Призн_БО    :S;
         Призн_К     :S;
         Призн_ФАИП  :S;
         Док_НазнПл  :S;
         Ист         :S;
         ТипКБК      :S;
         КБК         :S;
         Призн       :S;
         Призн_ОснДок:S;
         Сум         :N;
         СчДеб       :S;
         СчКре       :S;
         Проводить   :L;
         КакБО       :L)
         var СчД  :S;
         var СчК  :S;
         var СчДО :S;
         var Опр  :S;
         var БК   :S;
         var КОСГУ:S;
         СчД="";
         СчК="";
         if not Проводить:
            if not СчДеб=СчКре:
               if Length(СчДеб)=33: СчД=SubStr(СчДеб,1,23)+"ЗАБ.00"+SubStr(СчДеб,30,4);
                 |Length(СчДеб)=35: СчД=SubStr(СчДеб,1,25)+"ЗАБ.00"+SubStr(СчДеб,32,4);
                 |Length(СчДеб)=36: СчД=SubStr(СчДеб,1,26)+"ЗАБ.00"+SubStr(СчДеб,33,4);
               fi;
            fi;
            if Length(СчКре)=33: СчК=SubStr(СчКре,1,23)+"ЗАБ.КР"+SubStr(СчКре,30,4);
              |Length(СчКре)=35: СчК=SubStr(СчКре,1,25)+"ЗАБ.КР"+SubStr(СчКре,32,4);
              |Length(СчКре)=36: СчК=SubStr(СчКре,1,26)+"ЗАБ.КР"+SubStr(СчКре,33,4);
            fi;
            if СчДеб=СчКре:
               СчД=СчК;
            fi;
            if not Name_S(СчД)=" " and not Name_S(СчК)=" ":
               Опр="ОПЕР";
               :Сум $СчД $СчК {$Призн_ЛС $Призн_БО $Призн_К $Призн_ФАИП $Призн_ОснДок $Призн $Опр} --Заявка на кассовый расход №$НомерДок от $ДатаДок $Док_НазнПл
            fi;
         fi;
         if КакБО and ДатаДок>=1.1.2014:
            Опр=if(Проводить,"","ОПЕР");
            if Ист="1" and ТипКБК="10":
               БК=SubStr(КБК,1,3)+"."+SubStr(КБК,4,4)+"."+SubStr(КБК,8,7)+"."+SubStr(КБК,15,3);
               КОСГУ=SubStr(КБК,18,3);
               СчД =БК+".1.501.13."+КОСГУ;
               СчК =БК+".1.502.11."+КОСГУ;
               СчДО=БК+".1.502.12."+КОСГУ;
               :Сум $СчД $СчК  {$Призн_ЛС $Призн_БО $Призн_К $Призн_ФАИП $Призн_ОснДок $Призн $Опр} --Заявка на кассовый расход №$НомерДок от $ДатаДок $Док_НазнПл
               :Сум $СчК $СчДО {$Призн_ЛС $Призн_БО $Призн_К $Призн_ФАИП $Призн_ОснДок $Призн $Опр} --Заявка на кассовый расход №$НомерДок от $ДатаДок $Док_НазнПл
              |not SubStr(СчКре,Length(СчКре)-11,1)="3" and ТипКБК="10":
               БК=SubStr(КБК,1,3)+"."+SubStr(КБК,4,4)+"."+SubStr(КБК,8,7)+"."+SubStr(КБК,15,3);
               КОСГУ=SubStr(КБК,18,3);
               СчД =БК+".2.506.10."+КОСГУ;
               СчК =БК+".2.502.11."+КОСГУ;
               СчДО=БК+".2.502.12."+КОСГУ;
               :Сум $СчД $СчК  {$Призн_ЛС $Призн_БО $Призн_К $Призн_ФАИП $Призн_ОснДок $Призн $Опр} --Заявка на кассовый расход №$НомерДок от $ДатаДок $Док_НазнПл
               :Сум $СчК $СчДО {$Призн_ЛС $Призн_БО $Призн_К $Призн_ФАИП $Призн_ОснДок $Призн $Опр} --Заявка на кассовый расход №$НомерДок от $ДатаДок $Док_НазнПл
            fi;
         fi;
   Репо; --ЗАЯВКА_КР="Заявка на кассовый расход"
   Опер ЗАЯВКА_НАЛ_ОПЕР="Заявка на получение наличных денег оперативная"
        (ДатаДок  :D;
         НомерДок :S;
         Призн_ЛС :S;
         Призн_БО :S;
         Ист      :S;
         ТипКБК   :S;
         КБК      :S;
         Сум      :N;
         Призн    :S;
         СчДеб    :S;
         СчКре    :S;
         ТипРасх  :I;
         Проводить:L;
         КакБО    :L)
         var СчД:S;
         var СчК:S;
         var Опр:S;
         var БК   :S;
         var КОСГУ:S;
         if not Проводить:
            if Length(СчДеб)=33: СчД=SubStr(СчДеб,1,23)+"ЗАБ.00"+SubStr(СчДеб,30,4);
              |Length(СчДеб)=35: СчД=SubStr(СчДеб,1,25)+"ЗАБ.00"+SubStr(СчДеб,32,4);
              |Length(СчДеб)=36: СчД=SubStr(СчДеб,1,26)+"ЗАБ.00"+SubStr(СчДеб,33,4);
            fi;
            if Length(СчКре)=33: СчК=SubStr(СчКре,1,23)+"ЗАБ.КР"+SubStr(СчКре,30,4);
              |Length(СчКре)=35: СчК=SubStr(СчКре,1,25)+"ЗАБ.КР"+SubStr(СчКре,32,4);
              |Length(СчКре)=36: СчК=SubStr(СчКре,1,26)+"ЗАБ.КР"+SubStr(СчКре,33,4);
            fi;
            if not Name_S(СчД)=" " and not Name_S(СчК)=" ":
               Опр="ОПЕР";
               :Сум $СчД $СчК {$Призн_ЛС $Призн_БО $Призн $Опр} --Заявка на получение наличных денег №$НомерДок от $ДатаДок
            fi;
         fi;
         if КакБО and ДатаДок>=1.1.2014:
            if Ист="1" and ТипКБК="10":
               БК=SubStr(КБК,1,3)+"."+SubStr(КБК,4,4)+"."+SubStr(КБК,8,7)+"."+SubStr(КБК,15,3);
               КОСГУ=SubStr(КБК,18,3);
               СчД=БК+".1.501.13."+КОСГУ;
               if ТипРасх=0: СчД=БК+".1.501.13."+КОСГУ;
                 |ТипРасх=1: СчД=БК+".1.503.13."+КОСГУ;
                 |True: СчД="";
               fi;
               СчК=БК+".1.502.11."+КОСГУ;
               if not СчД="" and not СчК="":
                  :Сум $СчД $СчК {$Призн_ЛС $Призн_БО $Призн} --Заявка на получение наличных денег №$НомерДок от $ДатаДок
               fi;
              |not SubStr(СчКре,Length(СчКре)-11,1)="3" and ТипКБК="10":
               БК=SubStr(КБК,1,3)+"."+SubStr(КБК,4,4)+"."+SubStr(КБК,8,7)+"."+SubStr(КБК,15,3);
               КОСГУ=SubStr(КБК,18,3);
               СчД=БК+".2.506.10."+КОСГУ;
               СчК=БК+".2.502.11."+КОСГУ;
               :Сум $СчД $СчК {$Призн_ЛС $Призн_БО $Призн} --Заявка на получение наличных денег №$НомерДок от $ДатаДок
            fi;
         fi;
   Репо; --ЗАЯВКА_НАЛ="Заявка на получение наличных денег"
   Опер ЗАЯВКА_НАЛ="Заявка на получение наличных денег"
        (ДатаДок  :D;
         НомерДок :S;
         Призн_ЛС :S;
         Призн_БО :S;
         Сум      :N;
         СчДеб    :S;
         СчКре    :S;
         Призн    :S)
       :Сум $СчДеб $СчКре {$Призн_ЛС $Призн_БО $Призн} --Заявка на получение наличных денег №$НомерДок от $ДатаДок
   Репо; --ЗАЯВКА_НАЛ="Заявка на получение наличных денег"
      Опер ЗАЯВКА_ВОЗВРАТ="Заявка на возврат"
        (ДатаДок   :D;
         НомерДок  :S;
         Призн_ЛС  :S;
         Призн_К   :S;
         Сум       :N;
         СумРуб    :N;
         СчДеб     :S;
         СчКре     :S;
         Призн     :S;
         Док_НазнПл:S;
         ДокОперНом:S;
         Учитывать :L;
         Проводить :L)
         var СчД:S;
         var СчК:S;
         var Опр:S;
         if Учитывать and not Проводить:
            if Length(СчДеб)=33: СчД=SubStr(СчДеб,1,23)+"ЗАБ.00"+SubStr(СчДеб,30,4);
              |Length(СчДеб)=35: СчД=SubStr(СчДеб,1,25)+"ЗАБ.00"+SubStr(СчДеб,32,4);
              |Length(СчДеб)=36: СчД=SubStr(СчДеб,1,26)+"ЗАБ.00"+SubStr(СчДеб,33,4);
            fi;
            if Length(СчКре)=33: СчК=SubStr(СчКре,1,23)+"ЗАБ.КР"+SubStr(СчКре,30,4);
              |Length(СчКре)=35: СчК=SubStr(СчКре,1,25)+"ЗАБ.КР"+SubStr(СчКре,32,4);
              |Length(СчКре)=36: СчК=SubStr(СчКре,1,26)+"ЗАБ.КР"+SubStr(СчКре,33,4);
            fi;
            if not Name_S(СчД)=" " and not Name_S(СчК)=" ":
               Опр="ОПЕР";
               :СумРуб $СчД $СчК {$Призн_ЛС $Призн_К $Призн $Опр} --Заявка на возврат №$НомерДок от $ДатаДок $Док_НазнПл
            fi;
         fi;
         if Проводить and ДокОперНом="":
            :СумРуб $СчДеб $СчКре {$Призн_ЛС $Призн_К $Призн} --Заявка на возврат №$НомерДок от $ДатаДок $Док_НазнПл
         fi;
   Репо; --ЗАЯВКА_ВОЗВРАТ="Заявка на возврат"
   Опер УВЕДОМ_УТОЧ_ПЛАТ_СТОРНО="Уведомление об уточнении вида и принадлежности платежа (сторно)"
        (ДатаДок :D;
         НомерДок:S;
         СчДеб:S;
         СчКре:S;
         Призн:S;
         Сум      :N;
         Примеч:S;
         Знак_Исх:I
         )
         var СумПро:N;
         СумПро=Сум*(Знак_Исх-1);
         if СумПро<>0:
           :СумПро $СчДеб $СчКре {$Призн} -- Уведомление №$НомерДок от $ДатаДок $Примеч
         fi;
   Репо; --УВЕДОМ_УТОЧ_ПЛАТ="Уведомление об уточнении вида и принадлежности платежа"
   Опер УВЕДОМ_УТОЧ_ПЛАТ_ПОВТОРНО="Уведомление об уточнении вида и принадлежности платежа (повторно)"
        (ДатаДок :D;
         НомерДок:S;
         СчДеб:S;
         СчКре:S;
         Призн:S;
         Сум      :N;
         СумПров  :N;
         НазнПл:S
         )
         var СумПро:N;
         if СумПров=0:
            СумПро=Сум;
           |True:
            СумПро=Сумпров;
         fi;
        :СумПро $СчДеб $СчКре {$Призн} -- Уведомление №$НомерДок от $ДатаДок $НазнПл
   Репо; --УВЕДОМ_УТОЧ_ПЛАТ="Уведомление об уточнении вида и принадлежности платежа"
  Аппург; --Банк="Банковские документы";
  Группа Касса="Кассовые документы";
   Опер ПрихОрд="Приходный ордер"
       (Де    :S;
        Счет  :S;
        По    :S;
        Призн :S;
        Цель  :S;
        Осн   :S;
        ФИО   :S;
        НомерБум:S;
        РПО_PacketMode:L)
    var Cmnt:S;
    Cmnt="ПКО "+НомерБум+" принято от: "+ФИО+" "+Осн;
    if РПО_PacketMode=False:
       :Сумма^$Валюта $Де $Счет {$Призн $По $Цель} -- $Cmnt
       :Сумма^$Валюта ЗАБ.17 ЗАБАЛАНС {$Призн $По $Цель СЧ.201.34} -- $Cmnt
    fi;
   Репо; --ПрихОрд="Приходный ордер"
   Опер ПрихОрдПакетный="Пакетный приходный ордер"
       (ТДСчет:S;
        ТСчет :S;
        ТПризн:S;
        ТСумма:N;
        ТПримеч:S;
        Осн   :S;
        ФИО   :S;
        НомерБум:S;
        РПО_PacketMode:L)
    var Cmnt:S;
    Cmnt="ПКО "+НомерБум+" принято от: "+ФИО+" "+Осн+" "+ТПримеч;
    if РПО_PacketMode=True:
       :ТСумма^$Валюта $ТДСчет $ТСчет {$ТПризн} -- $Cmnt
       :ТСумма^$Валюта ЗАБ.17 ЗАБАЛАНС {$ТПризн СЧ.201.34} -- $Cmnt
    fi;
   Репо; --ПрихОрдПакетный="Пакетный приходный ордер"
   Опер РасхОрд="Расходный ордер"
       (Счет:S;
        Кр:S;
        По:S;
        Призн:S;
        Цель:S;
        Осн: S;
        ФИО   :S;
        НомерБум:S;
        РПО_PacketMode:L)
    var Cmnt:S;
    Cmnt="РКО "+НомерБум+" выдать "+ФИО+" "+Осн;
    if РПО_PacketMode=False:
       :Сумма^$Валюта $Счет $Кр {$Призн $По $Цель} -- $Cmnt
       :Сумма^$Валюта ЗАБ.18 ЗАБАЛАНС {$Призн $По $Цель СЧ.201.34} -- $Cmnt
    fi;
   Репо; --РасхОрд="Расходный ордер"
   Опер РасхОрдПакетный="Пакетный расходный ордер"
       (ТСчет: S;
        ТКСчет: S;
        ТПризн:S;
        ТСумма:N;
        ТПримеч:S;
        Осн: S;
        ФИО   :S;
        НомерБум:S;
        РПО_PacketMode:L)
    var Cmnt:S;
    Cmnt="РКО "+НомерБум+" выдать "+ФИО+" "+Осн+" "+ТПримеч;
    if РПО_PacketMode=True:
       :ТСумма^$Валюта $ТСчет $ТКСчет {$ТПризн} -- $Cmnt
       :ТСумма^$Валюта ЗАБ.18 ЗАБАЛАНС {$ТПризн СЧ.201.34} -- $Cmnt
    fi;
   Репо; --РасхОрдПакетный="Пакетный расходный ордер"
   Опер ВедПодОтчет="Ведомость на выдачу денег из кассы подотчетным лицам"
       (СчДеб:S;
        ОбщСчКре:S;
        ПризнМОЛ:S;
        ПризнПодр:S;
        Призн:S;
        Примеч:S;
        НомерРКО:S;
        Искл:L)
    var Cmnt:S;
    Cmnt="РКО "+НомерРКО+" (Ведомость на выдачу денег из кассы подотчетным лицам) "+Примеч;
    if Искл=False:
       :Сумма $СчДеб $ОбщСчКре {$ПризнМОЛ $ПризнПодр $Призн} -- $Cmnt
       :Сумма ЗАБ.18 ЗАБАЛАНС {$ПризнМОЛ $ПризнПодр $Призн СЧ.201.34} -- $Cmnt
    fi;
   Репо; --ВедПодОтчет="Ведомость на выдачу денег из кассы подотчетным лицам"
   Опер Заяв_Нал="Заявка на получение наличных денег"
       (СчДеб:S;
        СчКре:S;
        Призн:S;
        Примеч:S;
        НомерБум:S)
       :Сумма $СчДеб $СчКре {$Призн} -- Заявка N $НомерБум $Примеч
   Репо; --Заяв_Нал="Заявка на получение наличных денег"
   Опер Взнос_Нал="Объявление на взнос наличными"
       (ДатОпер:D;
        СчДеб:S;
        СчКре:S;
        Призн:S;
        Примеч:S;
        НомерБум:S;
        РПО_КакБО:L)
       var БК:S;
       var КОСГУ:S;
       var ВД:S;
       var СчД:S;
       var СчК:S;
       var БО:S;
       var existБО:S;
       var tmp:S;
       var l:I;
       var p:I;
       СчД=""; СчК=""; БК=""; КОСГУ=""; ВД=""; БО=""; existБО="";
       if РПО_КакБО and ДатОпер>=1.1.2014:
          l=Length(СчДеб);
          if Match(СчДеб,"*.?.304.05.*"):
             if l=33: БК=SubStr(СчДеб,1,20); КОСГУ=SubStr(СчДеб,31,3); ВД=SubStr(СчДеб,22,1);
               |l=36: БК=SubStr(СчДеб,1,23); КОСГУ=SubStr(СчДеб,34,3); ВД=SubStr(СчДеб,25,1);
             fi;
            |Match(СчДеб,"*.?.201.?1.*"):
             p=Pos("ФКР.",Призн);
             if p=0 or p>1:
                p=Pos(" ФКР.",Призн);
                if not p=0: p=p+1; fi;
             fi;
             if not p=0:
                tmp=SubStr(Призн,p,255);
                p=Pos(" ",tmp);
                if not p=0: tmp=SubStr(tmp,1,p-1); fi;
                БК=SubStr(tmp,5,20);
                p=Pos("КОСГУ.",Призн);
                if p=0 or p>1:
                   p=Pos(" КОСГУ.",Призн);
                   if not p=0: p=p+1; fi;
                fi;
                if not p=0:
                   tmp=SubStr(Призн,p,255);
                   p=Pos(" ",tmp);
                   if not p=0: tmp=SubStr(tmp,1,p-1); fi;
                   КОСГУ=SubStr(tmp,7,3);
                   if l=36: ВД=SubStr(СчДеб,25,1); fi;
                fi;
             fi;
          fi;
          if not БК="" and not КОСГУ="" and not ВД="":
             if ВД="1": СчД=БК+"."+ВД+".501.13."+КОСГУ; СчК=БК+"."+ВД+".502.11."+КОСГУ;
               |not SubStr(СчДеб,Length(СчДеб)-11,1)="3": СчД=БК+"."+ВД+".506.10."+КОСГУ; СчК=БК+"."+ВД+".502.11."+КОСГУ;
             fi;
             tmp="";
             p=Pos("БО.",Призн);
             if p=0 or p>1:
                p=Pos(" БО.",Призн);
                if not p=0: p=p+1; fi;
                if not p=0: 
                   tmp=SubStr(Призн,p,255);
                   p=Pos(" ",tmp);
                   if not p=0: tmp=SubStr(tmp,1,p-1); fi;
                fi;
                existБО=tmp;
             fi;
             if existБО="": БО="БО.000"; fi;
          fi;
       fi;
       :Сумма $СчДеб $СчКре {$Призн $БО} -- Объявление на взнос N $НомерБум $Примеч
       if not СчД="" and not СчК="" and (БО="БО.000" or existБО="БО.000"):
          :-Сумма $СчД $СчК {$Призн $БО} -- Объявление на взнос N $НомерБум $Примеч
       fi;
   Репо; --Взнос="Объявление на взнос наличными"
   Опер Реестр_деп="Реестр депонированных сумм"
       (СчДеб:S;
        СчКре:S;
        Аналит:S;
        ПериодПр:S)
       :Сумма $СчДеб $СчКре {$Аналит $ПериодПр} -- Реестр депонированных сумм
    Репо; --Реестр_деп="Реестр депонированных сумм"
  Аппург; --Касса="Кассовые документы";
  Группа ДенДок="Денежные документы";
   ОПЕР Приход="Приход денежных документов"
        (Кол            :N;
         СчДеб          :Счета;
         СчКре          :Счета;
         ПризнПодр      :S;
         ОбщПризн       :S;
         Призн          :S;
         ПризнДеб       :S;
         ПризнКре       :S;
         ДенДокВид_Призн:S;
         ДенДокВид_Наим :S;
         НомерБум       :S;
         СерияБум       :S;
         НомерБум_Н     :S;
         НомерБум_К     :S;
         Коммент        :S;
         FlagКол        :L
        )
        var Cmnt:S;
        var tmp:S;
        var ПризнД1:S;
        var ПризнД2:S;
        var ПризнД3:S;
        var ПризнК1:S;
        var ПризнК2:S;
        var ПризнК3:S;
        var p:i;
        if FlagКол: Cmnt="Фондовый ПКО N"+НомерБум+" "+ДенДокВид_Наим+" "+Коммент;
          |True: Cmnt="Фондовый ПКО N"+НомерБум+" "+ДенДокВид_Наим+" Серия "+СерияБум+" N"+НомерБум_Н+"-"+НомерБум_К+" "+Коммент;
        fi;
        ПризнД1=""; ПризнК1="";
        ПризнД2=""; ПризнК2="";
        ПризнД3=""; ПризнК3="";
        if not ПризнДеб="":
           p=Pos(" ",ПризнДеб);
           if p=0 : ПризнД1=ПризнДеб;
             |true: ПризнД1=SubStr(ПризнДеб,1,p-1);
                    tmp=SubStr(ПризнДеб,p+1,255);
                    if not tmp="":
                       p=Pos(" ",tmp);
                       if p=0 : ПризнД2=tmp;
                         |true: ПризнД2=SubStr(tmp,1,p-1);
                                tmp=SubStr(tmp,p+1,255);
                                if not tmp="":
                                   p=Pos(" ",tmp);
                                   if p=0 : ПризнД3=tmp;
                                     |true: ПризнД3=SubStr(tmp,1,p-1);
                                   fi;
                                fi;
                       fi;
                    fi;
           fi;
        fi;
        if not ПризнКре="":
           p=Pos(" ",ПризнКре);
           if p=0 : ПризнК1=ПризнКре;
             |true: ПризнК1=SubStr(ПризнКре,1,p-1);
                    tmp=SubStr(ПризнКре,p+1,255);
                    if not tmp="":
                       p=Pos(" ",tmp);
                       if p=0 : ПризнК2=tmp;
                         |true: ПризнК2=SubStr(tmp,1,p-1);
                                tmp=SubStr(tmp,p+1,255);
                                if not tmp="":
                                   p=Pos(" ",tmp);
                                   if p=0 : ПризнК3=tmp;
                                     |true: ПризнК3=SubStr(tmp,1,p-1);
                                   fi;
                                fi;
                       fi;
                    fi;
           fi;
        fi;
    :Сумма $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3] {$ПризнПодр $ОбщПризн $Призн $ДенДокВид_Призн:Кол} --$Cmnt
   РЕПО; --ДенДок_Приход="Приход денежных документов"
   ОПЕР Расход="Расход денежных документов"
        (Кол            :N;
         СчДеб          :Счета;
         СчКре          :Счета;
         ПризнПодр      :S;
         ОбщПризн       :S;
         Призн          :S;
         ПризнДеб       :S;
         ПризнКре       :S;
         ДенДокВид_Призн:S;
         ДенДокВид_Наим :S;
         НомерБум       :S;
         СерияБум       :S;
         НомерБум_Н     :S;
         НомерБум_К     :S;
         Коммент        :S;
         FlagКол        :L
        )
        var Cmnt:S;
        var tmp:S;
        var ПризнД1:S;
        var ПризнД2:S;
        var ПризнД3:S;
        var ПризнК1:S;
        var ПризнК2:S;
        var ПризнК3:S;
        var p:i;
        if FlagКол: Cmnt="Фондовый РКО N"+НомерБум+" "+ДенДокВид_Наим+" "+Коммент;
          |True: Cmnt="Фондовый РКО N"+НомерБум+" "+ДенДокВид_Наим+" Серия "+СерияБум+" N"+НомерБум_Н+"-"+НомерБум_К+" "+Коммент;
        fi;
        ПризнД1=""; ПризнК1="";
        ПризнД2=""; ПризнК2="";
        ПризнД3=""; ПризнК3="";
        if not ПризнДеб="":
           p=Pos(" ",ПризнДеб);
           if p=0 : ПризнД1=ПризнДеб;
             |true: ПризнД1=SubStr(ПризнДеб,1,p-1);
                    tmp=SubStr(ПризнДеб,p+1,255);
                    if not tmp="":
                       p=Pos(" ",tmp);
                       if p=0 : ПризнД2=tmp;
                         |true: ПризнД2=SubStr(tmp,1,p-1);
                                tmp=SubStr(tmp,p+1,255);
                                if not tmp="":
                                   p=Pos(" ",tmp);
                                   if p=0 : ПризнД3=tmp;
                                     |true: ПризнД3=SubStr(tmp,1,p-1);
                                   fi;
                                fi;
                       fi;
                    fi;
           fi;
        fi;
        if not ПризнКре="":
           p=Pos(" ",ПризнКре);
           if p=0 : ПризнК1=ПризнКре;
             |true: ПризнК1=SubStr(ПризнКре,1,p-1);
                    tmp=SubStr(ПризнКре,p+1,255);
                    if not tmp="":
                       p=Pos(" ",tmp);
                       if p=0 : ПризнК2=tmp;
                         |true: ПризнК2=SubStr(tmp,1,p-1);
                                tmp=SubStr(tmp,p+1,255);
                                if not tmp="":
                                   p=Pos(" ",tmp);
                                   if p=0 : ПризнК3=tmp;
                                     |true: ПризнК3=SubStr(tmp,1,p-1);
                                   fi;
                                fi;
                       fi;
                    fi;
           fi;
        fi;
    :Сумма $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3] {$ПризнПодр $ОбщПризн $Призн $ДенДокВид_Призн:Кол} --$Cmnt
   РЕПО; --ДенДок_Расход="Расход денежных документов"
  Аппург; -- ДенДок="Денежные документы";
  Группа ЦентрСнаб="Централизованное снабжение";
   ОПЕР Извещения_Исх="Исходящие извещения"
       (НомерБум     :S;
        ДатаИзв      :D;
        ОтправПризнак:S;
        ПолучПризнак :S;
        Подр         :S;
        НомОрд       :S;
        Содерж       :S;
        СчДеб        :S;
        СчКре        :S;
        Призн        :S;
        ПризнДеб     :S;
        ПризнКре     :S;
        Сум          :N;
        СумРуб       :N;
        Flag         :L;
        is69н        :L
       )
       var tmp:S;
       var СчД5:S;
       var СчК5:S;
       var ПризнД1:S;
       var ПризнД2:S;
       var ПризнД3:S;
       var ПризнД4:S;
       var ПризнД5:S;
       var ПризнК1:S;
       var ПризнК2:S;
       var ПризнК3:S;
       var ПризнК4:S;
       var ПризнК5:S;
       var Transit:L;
       var L:I;
       var p:i;
       var Подр_:S;
       Подр_="";
    if is69н:
       ПризнД1="";
       ПризнД2="";
       ПризнД3="";
       ПризнД4="";
       ПризнД5="";
       ПризнК1="";
       ПризнК2="";
       ПризнК3="";
       ПризнК4="";
       ПризнК5="";
       if not ПризнДеб="":
          p=Pos(" ",ПризнДеб);
          if p=0 : ПризнД1=ПризнДеб;
            |true: ПризнД1=SubStr(ПризнДеб,1,p-1);
                   tmp=SubStr(ПризнДеб,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнД2=tmp;
                        |true: ПризнД2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнД3=tmp;
                                    |true: ПризнД3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнД4=tmp;
                                                |true: ПризнД4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнД5=tmp;
                                                            |true: ПризнД5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       if not ПризнКре="":
          p=Pos(" ",ПризнКре);
          if p=0 : ПризнК1=ПризнКре;
            |true: ПризнК1=SubStr(ПризнКре,1,p-1);
                   tmp=SubStr(ПризнКре,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнК2=tmp;
                        |true: ПризнК2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнК3=tmp;
                                    |true: ПризнК3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнК4=tmp;
                                                |true: ПризнК4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнК5=tmp;
                                                            |true: ПризнК5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       Transit=СчДеб=СчКре;
       if not Transit:
          L=Length(СчДеб);
          СчД5=SubStr(СчДеб,L-9,6);
          L=Length(СчКре);
          СчК5=SubStr(СчКре,L-9,6);
          Transit=СчД5=СчК5;
       fi;
       if Transit:
          if Валюта=BaseCurrency:
             :Сум^$Валюта $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5 $ПолучПризнак] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5 $ОтправПризнак] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
            |true:
             :Сум^$Валюта :СумРуб $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5 $ПолучПризнак] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5 $ОтправПризнак] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
          fi;
         |True:
          if Валюта=BaseCurrency:
             :Сум^$Валюта $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Подр_ $ПолучПризнак $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
            |true:
             :Сум^$Валюта :СумРуб $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Подр_ $ПолучПризнак $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
          fi;
       fi;
      |Flag:
       :Сум^$Валюта $СчДеб $СчКре {$Подр_ $Призн $НомОрд $ПризнДеб $ПризнКре} -- Извещение N $НомерБум от $ДатаИзв $Содерж
      |True:
       if Валюта=BaseCurrency:
          :Сум^$Валюта $СчДеб [$ПризнДеб] $СчКре [$ПризнКре] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
         |True:
          :Сум^$Валюта :СумРуб $СчДеб [$ПризнДеб] $СчКре [$ПризнКре] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
       fi;
    fi;
   РЕПО; --Извещ_Исх="Исходящие извещения"
   ОПЕР Извещения_Исх_Подтв="Исходящие извещения (подтверждение)"
       (НомерБум     :S;
        ДатаИзв      :D;
        ОтправПризнак:S;
        ПолучПризнак :S;
        Подр         :S;
        НомОрд       :S;
        Содерж       :S;
        СчДеб        :S;
        СчКре        :S;
        Призн        :S;
        ПризнДеб     :S;
        ПризнКре     :S;
        Сум          :N;
        СумРуб       :N;
        ПолучСум     :N;
        ПолучСумРуб  :N;
        Flag         :L;
        is69н        :L
       )
       var tmp:S;
       var СчД5:S;
       var СчК5:S;
       var ПризнД1:S;
       var ПризнД2:S;
       var ПризнД3:S;
       var ПризнД4:S;
       var ПризнД5:S;
       var ПризнК1:S;
       var ПризнК2:S;
       var ПризнК3:S;
       var ПризнК4:S;
       var ПризнК5:S;
       var Transit:L;
       var L:I;
       var p:i;
       var Подр_:S;
       Подр_="";
    if is69н:
       ПризнД1="";
       ПризнД2="";
       ПризнД3="";
       ПризнД4="";
       ПризнД5="";
       ПризнК1="";
       ПризнК2="";
       ПризнК3="";
       ПризнК4="";
       ПризнК5="";
       if not ПризнДеб="":
          p=Pos(" ",ПризнДеб);
          if p=0 : ПризнД1=ПризнДеб;
            |true: ПризнД1=SubStr(ПризнДеб,1,p-1);
                   tmp=SubStr(ПризнДеб,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнД2=tmp;
                        |true: ПризнД2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнД3=tmp;
                                    |true: ПризнД3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнД4=tmp;
                                                |true: ПризнД4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнД5=tmp;
                                                            |true: ПризнД5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       if not ПризнКре="":
          p=Pos(" ",ПризнКре);
          if p=0 : ПризнК1=ПризнКре;
            |true: ПризнК1=SubStr(ПризнКре,1,p-1);
                   tmp=SubStr(ПризнКре,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнК2=tmp;
                        |true: ПризнК2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнК3=tmp;
                                    |true: ПризнК3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнК4=tmp;
                                                |true: ПризнК4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнК5=tmp;
                                                            |true: ПризнК5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       Transit=СчДеб=СчКре;
       if not Transit:
          L=Length(СчДеб);
          СчД5=SubStr(СчДеб,L-9,6);
          L=Length(СчКре);
          СчК5=SubStr(СчКре,L-9,6);
          Transit=СчД5=СчК5;
       fi;
       if Transit:
          if Валюта=BaseCurrency:
             :ПолучСум-Сум^$Валюта $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5 $ПолучПризнак] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5 $ОтправПризнак] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
            |true:
             :ПолучСум-Сум^$Валюта :ПолучСумРуб-СумРуб $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5 $ПолучПризнак] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5 $ОтправПризнак] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
          fi;
         |True:
          if Валюта=BaseCurrency:
             :ПолучСум-Сум^$Валюта $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Подр_ $ПолучПризнак $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
            |true:
             :ПолучСум-Сум^$Валюта :ПолучСумРуб-СумРуб $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Подр_ $ПолучПризнак $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
          fi;
       fi;
      |Flag:
       if Валюта=BaseCurrency:
          :ПолучСум-Сум^$Валюта $СчДеб $СчКре {$Подр_ $Призн $НомОрд $ПризнДеб $ПризнКре} -- Извещение N $НомерБум от $ДатаИзв $Содерж
         |true:
          :ПолучСум-Сум^$Валюта :ПолучСумРуб-СумРуб $СчДеб $СчКре {$Подр_ $Призн $НомОрд $ПризнДеб $ПризнКре} -- Извещение N $НомерБум от $ДатаИзв $Содерж
       fi;
      |True:
       if Валюта=BaseCurrency:
          :ПолучСум-Сум^$Валюта $СчДеб [$ПризнДеб] $СчКре [$ПризнКре] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
         |true:
          :ПолучСум-Сум^$Валюта :ПолучСумРуб-СумРуб $СчДеб [$ПризнДеб] $СчКре [$ПризнКре] {$Подр_ $Призн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
       fi;
    fi;
   РЕПО; --Извещ_Исх="Исходящие извещения"
   ОПЕР Извещения_Вх="Входящие извещения"
       (НомерБум      :S;
        ДатаИзв       :D;
        ОтправПризнак :S;
        ПолучПризнак  :S;
        НомОрд        :S;
        Содерж        :S;
        ПолучСчДеб    :S;
        ПолучСчКре    :S;
        ПолучПризн    :S;
        ПолучПризнДеб :S;
        ПолучПризнКре :S;
        ПолучСум      :N;
        ПолучСумРуб   :N;
        Flag          :L;
        is69н         :L
       )
       var tmp:S;
       var СчД5:S;
       var СчК5:S;
       var ПризнД1:S;
       var ПризнД2:S;
       var ПризнД3:S;
       var ПризнД4:S;
       var ПризнД5:S;
       var ПризнК1:S;
       var ПризнК2:S;
       var ПризнК3:S;
       var ПризнК4:S;
       var ПризнК5:S;
       var Transit:L;
       var L:I;
       var p:i;
    if is69н:
       ПризнД1="";
       ПризнД2="";
       ПризнД3="";
       ПризнД4="";
       ПризнД5="";
       ПризнК1="";
       ПризнК2="";
       ПризнК3="";
       ПризнК4="";
       ПризнК5="";
       if not ПолучПризнДеб="":
          p=Pos(" ",ПолучПризнДеб);
          if p=0 : ПризнД1=ПолучПризнДеб;
            |true: ПризнД1=SubStr(ПолучПризнДеб,1,p-1);
                   tmp=SubStr(ПолучПризнДеб,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнД2=tmp;
                        |true: ПризнД2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнД3=tmp;
                                    |true: ПризнД3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнД4=tmp;
                                                |true: ПризнД4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнД5=tmp;
                                                            |true: ПризнД5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       if not ПолучПризнКре="":
          p=Pos(" ",ПолучПризнКре);
          if p=0 : ПризнК1=ПолучПризнКре;
            |true: ПризнК1=SubStr(ПолучПризнКре,1,p-1);
                   tmp=SubStr(ПолучПризнКре,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнК2=tmp;
                        |true: ПризнК2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнК3=tmp;
                                    |true: ПризнК3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнК4=tmp;
                                                |true: ПризнК4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнК5=tmp;
                                                            |true: ПризнК5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       Transit=ПолучСчДеб=ПолучСчКре;
       if not Transit:
          L=Length(ПолучСчДеб);
          СчД5=SubStr(ПолучСчДеб,L-9,6);
          L=Length(ПолучСчКре);
          СчК5=SubStr(ПолучСчКре,L-9,6);
          Transit=СчД5=СчК5;
       fi;
       if Transit:
          if Валюта=BaseCurrency:
             :ПолучСум^$Валюта $ПолучСчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5 $ПолучПризнак] $ПолучСчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5 $ОтправПризнак] {$ПолучПризн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
            |true:
             :ПолучСум^$Валюта :ПолучСумРуб $ПолучСчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5 $ПолучПризнак] $ПолучСчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5 $ОтправПризнак] {$ПолучПризн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
          fi;
         |True:
          if Валюта=BaseCurrency:
             :ПолучСум^$Валюта $ПолучСчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $ПолучСчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$ОтправПризнак $ПолучПризн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
            |true:
             :ПолучСум^$Валюта :ПолучСумРуб $ПолучСчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $ПолучСчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$ОтправПризнак $ПолучПризн $НомОрд} -- Извещение N $НомерБум от $ДатаИзв $Содерж
          fi;
       fi;
     |Flag:
      if Валюта=BaseCurrency:
         :ПолучСум^$Валюта $ПолучСчДеб $ПолучСчКре {$ПолучПризн $ПолучПризнДеб $ПолучПризнКре} -- Извещение N $НомерБум от $ДатаИзв $Содерж
        |true:
         :ПолучСум^$Валюта :ПолучСумРуб $ПолучСчДеб $ПолучСчКре {$ПолучПризн $ПолучПризнДеб $ПолучПризнКре} -- Извещение N $НомерБум от $ДатаИзв $Содерж
      fi;
     |True:
      if Валюта=BaseCurrency:
         :ПолучСум^$Валюта $ПолучСчДеб [$ПолучПризнДеб] $ПолучСчКре [$ПолучПризнКре] {$ПолучПризн} -- Извещение N $НомерБум от $ДатаИзв $Содерж
        |true:
         :ПолучСум^$Валюта :ПолучСумРуб $ПолучСчДеб [$ПолучПризнДеб] $ПолучСчКре [$ПолучПризнКре] {$ПолучПризн} -- Извещение N $НомерБум от $ДатаИзв $Содерж
      fi;
    fi;
   РЕПО; --Извещ_Вх="Входящие извещения"
  Аппург; --ЦентрСнаб="Централизованное снабжение";
  Группа Прочие="Прочие операции";
   ОПЕР ЗАГЛУШКА="Абстрактная операция"
   РЕПО; --ЗАГЛУШКА="Абстрактная операция"
   ОПЕР БухСправка="Бухгалтерская справка"
       (ПризнПодр:S;
        Содерж   :S;
        СчДеб    :Счета;
        СчКре    :Счета;
        Призн    :S;
        ПризнДеб :S;
        ПризнКре :S;
        ПризнКол :S;
        СуммаРуб :N;
        Кол      :N;
        Кмнт     :S;
        ver      :I
       )
       var ПризнД1:S;
       var ПризнД2:S;
       var ПризнД3:S;
       var ПризнД4:S;
       var ПризнД5:S;
       var ПризнК1:S;
       var ПризнК2:S;
       var ПризнК3:S;
       var ПризнК4:S;
       var ПризнК5:S;
       var p:i;
       var tmp:S;
       var Кмнт_:S;
       var ПризнПодр_:S;
       Кмнт_=if(Содерж="",Кмнт,Содерж);
       ПризнПодр_=if(ver>0,ПризнПодр,"");
       ПризнД1="";
       ПризнД2="";
       ПризнД3="";
       ПризнД4="";
       ПризнД5="";
       ПризнК1="";
       ПризнК2="";
       ПризнК3="";
       ПризнК4="";
       ПризнК5="";
       if not ПризнДеб="":
          p=Pos(" ",ПризнДеб);
          if p=0 : ПризнД1=ПризнДеб;
            |true: ПризнД1=SubStr(ПризнДеб,1,p-1);
                   tmp=SubStr(ПризнДеб,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнД2=tmp;
                        |true: ПризнД2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнД3=tmp;
                                    |true: ПризнД3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнД4=tmp;
                                                |true: ПризнД4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнД5=tmp;
                                                            |true: ПризнД5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       if not ПризнКре="":
          p=Pos(" ",ПризнКре);
          if p=0 : ПризнК1=ПризнКре;
            |true: ПризнК1=SubStr(ПризнКре,1,p-1);
                   tmp=SubStr(ПризнКре,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнК2=tmp;
                        |true: ПризнК2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнК3=tmp;
                                    |true: ПризнК3=SubStr(tmp,1,p-1);
                                           tmp=SubStr(tmp,p+1,255);
                                           if not tmp="":
                                              p=Pos(" ",tmp);
                                              if p=0 : ПризнК4=tmp;
                                                |true: ПризнК4=SubStr(tmp,1,p-1);
                                                       tmp=SubStr(tmp,p+1,255);
                                                       if not tmp="":
                                                          p=Pos(" ",tmp);
                                                          if p=0 : ПризнК5=tmp;
                                                            |true: ПризнК5=SubStr(tmp,1,p-1);
                                                          fi;
                                                       fi;
                                              fi;
                                           fi;
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       if Валюта="" or Валюта=BaseCurrency:
          if Кол=0:
             :Сумма $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Призн $ПризнКол $ПризнПодр_} -- $Кмнт_
            |True:
             :Сумма $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Призн $ПризнКол:Кол $ПризнПодр_} -- $Кмнт_
          fi;
         |true:
          if Кол=0:
             :Сумма^$Валюта :СуммаРуб $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Призн $ПризнКол $ПризнПодр_} -- $Кмнт_
            |True:
             :Сумма^$Валюта :СуммаРуб $СчДеб [$ПризнД1 $ПризнД2 $ПризнД3 $ПризнД4 $ПризнД5] $СчКре [$ПризнК1 $ПризнК2 $ПризнК3 $ПризнК4 $ПризнК5] {$Призн $ПризнКол:Кол $ПризнПодр_} -- $Кмнт_
          fi;
       fi;
   РЕПО; --БухСправка="Бухгалтерская справка"
   ОПЕР ЗаявлАванс="Заявление на выдачу аванс"
        (НомерДок    :S;
         ПризнПодр   :S;
         ПризнМОЛ    :S;
         НазначАванс :S;
         Признак     :S;
         Призн       :S;
         ОКДП_Призн  :S;
         Назнач      :S;
         СумРуб      :N;
         СумВал      :N;
         СчДеб       :S;
         СчДеб_БО    :S;
         СчКре_БО    :S;
         СчДеб_ДО    :S;
         СчКре_ДО    :S;
         ПризнБО     :S;
         УчетБО      :L;
         УчетДО      :L;
         Признак_Кмнт:S
        )
        var ПризнБО_:S;
        var Признак_:S;
        if ПризнБО="": ПризнБО_="БО.000"; fi;
        Признак_="АВ."+Признак;
        if УчетБО:
           if Валюта=BaseCurrency:
              :СумРуб $СчДеб_БО $СчКре_БО {$ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ПризнБО_ $Признак_} -- $Признак_Кмнт
             |True:
              :СумВал^$Валюта :СумРуб $СчДеб_БО $СчКре_БО {$ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ПризнБО_ $Признак_} -- $Признак_Кмнт
           fi;
        fi;
        if УчетДО:
           if Валюта=BaseCurrency:
              :СумРуб $СчДеб_ДО $СчКре_ДО {$ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ПризнБО_ $Признак_} -- $Признак_Кмнт
             |True:
              :СумВал^$Валюта :СумРуб $СчДеб_ДО $СчКре_ДО {$ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ПризнБО_ $Признак_} -- $Признак_Кмнт
           fi;
        fi;
   РЕПО; --ЗаявлАванс="Заявление на выдуачу аванс"
   ОПЕР АвансОтчет="Авансовый отчет"
        (ДатаОпер  :D;
         НомерБум  :S;
         Содерж    :S;
         ПризнАванс:S;
         ПризнПодр :S;
         ПризнМОЛ  :S;
         ОКДП_Призн:S;
         Учт_Руб   :N;
         Учт_Вал   :N;
         СчДеб     :Счета;
         СчКре     :Счета;
         Призн     :S;
         ПризнБО   :S;
         НеПровДО  :L;
         Кол:N;
         ДенДок:L;
         ДенДокВид_Призн:S;
         RECCRD:I;
         ДНФАID:I;
         УчетБО    :L
        )
       var БК_:S;
       var ВД_:S;
       var КОСГУ_:S;
       var СчДеб_БО_:S;
       var СчКре_БО_:S;
       var СчДеб_ДО_:S;
       var СчКре_ДО_:S;
       var ПризнБО_:S;
       var колАн:S;
       СчДеб_БО_="";
       СчКре_БО_="";
       СчДеб_ДО_="";
       СчКре_ДО_="";
       ПризнБО_="";
       if (УчетБО or not НеПровДО) and ДатаОпер>=1.1.2014:
          БК_=SubStr(СчКре,1,20);
          ВД_=SubStr(СчКре,22,1);
          КОСГУ_=SubStr(СчКре,28,2);
          if КОСГУ_="11":КОСГУ_="211";
            |КОСГУ_="12":КОСГУ_="212";
            |КОСГУ_="13":КОСГУ_="213";
            |КОСГУ_="21":КОСГУ_="221";
            |КОСГУ_="22":КОСГУ_="222";
            |КОСГУ_="23":КОСГУ_="223";
            |КОСГУ_="24":КОСГУ_="224";
            |КОСГУ_="25":КОСГУ_="225";
            |КОСГУ_="26":КОСГУ_="226";
            |КОСГУ_="41":КОСГУ_="241";
            |КОСГУ_="42":КОСГУ_="242";
            |КОСГУ_="51":КОСГУ_="251";
            |КОСГУ_="52":КОСГУ_="252";
            |КОСГУ_="53":КОСГУ_="253";
            |КОСГУ_="61":КОСГУ_="261";
            |КОСГУ_="62":КОСГУ_="262";
            |КОСГУ_="63":КОСГУ_="263";
            |КОСГУ_="91":КОСГУ_="290";
            |КОСГУ_="31":КОСГУ_="310";
            |КОСГУ_="32":КОСГУ_="320";
            |КОСГУ_="33":КОСГУ_="330";
            |КОСГУ_="34":КОСГУ_="340";
            |КОСГУ_="72":КОСГУ_="520";
            |КОСГУ_="73":КОСГУ_="530";
          fi;
          if УчетБО:
             if ВД_="1": СчДеб_БО_=БК_+".1.501.13."+КОСГУ_; СчКре_БО_=БК_+".1.502.11."+КОСГУ_;
               |not ВД_="3": СчДеб_БО_=БК_+"."+ВД_+".506.10."+КОСГУ_; СчКре_БО_=БК_+"."+ВД_+".502.11."+КОСГУ_;
             fi;
          fi;
          if not НеПровДО:
             if ВД_="1": СчДеб_ДО_=БК_+".1.502.11."+КОСГУ_; СчКре_ДО_=БК_+".1.502.12."+КОСГУ_;
               |not ВД_="3": СчДеб_ДО_=БК_+"."+ВД_+".502.11."+КОСГУ_; СчКре_ДО_=БК_+"."+ВД_+".502.12."+КОСГУ_;
             fi;
          fi;
          if ПризнБО="":
             ПризнБО_="БО.000";
             if Pos("БО.",Призн)=1 or not Pos(" БО.",Призн)=0: ПризнБО_=""; fi;
            |True:
             ПризнБО_=ПризнБО;
          fi;
       fi; --if (УчетБО or not НеПровДО) and ДатаОпер>=1.1.2014:
       if RECCRD <= 0 and ДНФАID <= 0 : --Делаем балансовые проводки только если документ не импортирован
         if Валюта=BaseCurrency:
            if (not ДенДок) or ДенДокВид_Призн="":
               :Учт_Руб $СчДеб $СчКре {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ОКДП_Призн} --Авансовый отчет N $НомерБум $Содерж
              |True:
               :Учт_Руб $СчДеб $СчКре {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ДенДокВид_Призн:Кол} --Авансовый отчет N $НомерБум $Содерж

            fi;
            if УчетБО and not СчДеб_БО_="" and not СчКре_БО_="":
               :Учт_Руб $СчДеб_БО_ $СчКре_БО_ {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ПризнБО_} --Авансовый отчет N $НомерБум $Содерж
            fi;
            if not НеПровДО and not СчДеб_ДО_="" and not СчКре_ДО_="":
               :Учт_Руб $СчДеб_ДО_ $СчКре_ДО_ {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ПризнБО_} --Авансовый отчет N $НомерБум $Содерж
            fi;
           |True:
            if (not ДенДок) or ДенДокВид_Призн="":
               :Учт_Вал^$Валюта :Учт_Руб $СчДеб $СчКре {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ОКДП_Призн} --Авансовый отчет N $НомерБум $Содерж
              |True:
               :Учт_Вал^$Валюта :Учт_Руб $СчДеб $СчКре {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ДенДокВид_Призн:Кол} --Авансовый отчет N $НомерБум $Содерж
            fi;
            if УчетБО and not СчДеб_БО_="" and not СчКре_БО_="":
               :Учт_Вал^$Валюта :Учт_Руб $СчДеб_БО_ $СчКре_БО_ {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ПризнБО_} --Авансовый отчет N $НомерБум $Содерж
            fi;
            if not НеПровДО and not СчДеб_ДО_="" and not СчКре_ДО_="":
               :Учт_Вал^$Валюта :Учт_Руб $СчДеб_ДО_ $СчКре_ДО_ {$ПризнАванс $ПризнПодр $ПризнМол $Призн $ОКДП_Призн $ПризнБО_} --Авансовый отчет N $НомерБум $Содерж
            fi;
         fi;
       fi;
   РЕПО; --АвансОтчет="Авансовый отчет"
   ОПЕР ЗАКЛПР="Заключительные проводки"
       (Кмнт    :S;
        Период  :S;
        ПризнОбщ:S;
        Вал_База:S;
        Сум     :N;
        Сум_Вал :N;
        Вал     :S; 
        СчДеб   :Счета;
        СчКре   :Счета;
        Призн   :S
       )
      var Вал_:Currency;
      if Вал="":
         Вал_=Вал_База;
         :Сум $СчДеб $СчКре {$Период $ПризнОбщ $Призн ЗГ} -- $Кмнт
      fi;
      if not Вал="":
         Вал_=Вал;
         if not Сум=0:
           :Сум :Сум_Вал^$Вал_  $СчДеб $СчКре {$Период $ПризнОбщ $Призн ЗГ} -- $Кмнт
         fi;
         if Сум=0:
           :Сум_Вал^$Вал_  $СчДеб $СчКре {$Период $ПризнОбщ $Призн ЗГ} -- $Кмнт
         fi;
      fi;
    РЕПО; --ЗКП="Заключительные проводки"
    ОПЕР Расходы106="Списание расходов"
       (Код_Сч_Осн:S; СчетОсн:S;
        Код_Сч_Расх:S;
        КД:S;
        КОСГУ:         S;
        ФКР:         S;
        Кмнт:S;
        Признак:S; Счет:S
       )
      var Сч_Деб_Р:S;
      var Сч_Кре_Р:S;
      if СчетОсн='':Сч_Деб_Р=КД+'.'+Код_Сч_Осн+'.'+КОСГУ;
        |True: Сч_Деб_Р=СчетОсн;
      fi;
      if Счет='':Сч_Кре_Р=ФКР+'.'+Код_Сч_Расх;
        |True:   Сч_Кре_Р=Счет;
      fi;

      if not СУММА=0:
         :СУММА $Сч_Деб_Р  $Сч_Кре_Р {$ПРИЗНАК} --$Кмнт
      fi;

   РЕПО; --ОПЕР Расходы106="Списание расходов"
   ОПЕР Расходы106_НП="Налог на прибыль"
       (Код_Сч_Осн:S; СчетОсн:S;
        Код_Сч_Нал:S;
        КД:S;
        КОСГУ:         S;
        Кмнт:S;
        Налог:N; СчетНал:S;
        Аналит:S
       )
      var Сч_Деб_Р:S;
      var Сч_Кре_Р:S;
      if СчетОсн='':Сч_Деб_Р=КД+'.'+Код_Сч_Осн+'.'+КОСГУ;
        |True: Сч_Деб_Р=СчетОсн;
      fi;
      if СчетНал='':Сч_Кре_Р=КД+'.'+Код_Сч_Нал;
        |True: Сч_Кре_Р=СчетНал;
      fi;

     if not Налог=0:
        :Налог $Сч_Деб_Р  $Сч_Кре_Р {$АНАЛИТ} --$Кмнт
     fi;
   РЕПО; --   ОПЕР Расходы106_НП="Налог на прибыль"
   ОПЕР ДО="Денежное обязательство"
       (ДатаРег      :D;
        ТекГод       :S;
        ТекГодПоз    :S;
        Период       :S;
        НомерДок     :S;
        ДатаДок      :D;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        ГП_Призн     :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        БО_Призн     :S;
        Содерж       :S;
        Коммент      :S;
        Вал          :Валюта;
        КБК          :S;
        ВД           :S;
        Призн        :S;
        ПризнДоп     :S;
        ОКДП_Призн   :S;
        Сум          :N;
        СумРуб       :N;
        СумСНДС      :N;
        СумРубСНДС   :N;
        ВыделятьНДС  :L;
        ВидОпер      :S;
        СчДеб        :S;
        СчКре        :S;
        ЦЗ           :L;
        НеПров       :L;
        Свернуть     :L;
        НеПровДО     :L;
        ДатаДО       :D;
        ДО_Призн     :S;

        РАСШ_КОЛ:L;
        ПРИЗНКОЛ:S;
        Кол:N;
        УчКол:N

       )
      var Признак_:S;
      var ПериодОпл_:S;
      var ПериодУсл_:S;
      var ГП_Призн_:S;
      var БО_Призн_:S;
      var Сум_:N;
      var СумРуб_:N;
      var СчДО_Д:S;
      var СчДО_К:S;
      var Сч:S;
      var БК_:S;
      var КОСГУ_:S;
      var Пер_:S;
      var ТекГод_:S;
      var l:i;
      var Кол_:N;
      --Message(ТекГодПоз);
      ТекГод_ = ТекГодПоз;
      if ТекГод_ = "":
         ТекГод_ = ТекГод;
      fi;
      --Message(ТекГод_);
      Признак_="ДОГОВОР."+Признак;
      ПериодОпл_ = "ПЕРИОД."+ТекГод_;
      --ПериодОпл_="ПЕРИОД."+if(Int(ТекГод)-Year(ДатаРег)>0,Str(Year(ДатаРег)),ТекГод);
      if Период = "":
         ПериодУсл_ = ПериодОпл_;
        |True:
         ПериодУсл_ = Период;
      fi;
      --Message(ПериодУсл_);
      --Message(ПериодОпл_);
      --Бухгалтерская запись по балансовым счетам
      if not ВидОпер="206" and not Свернуть and not НеПров:
         if ВыделятьНДС: Сум_=Сум;     СумРуб_=СумРуб;
           |True:        Сум_=СумСНДС; СумРуб_=СумРубСНДС;
         fi;

         if РАСШ_КОЛ: Кол_ = УчКол;
           |True: Кол_ = Кол;
         fi;

         if ЦЗ and (ВидОпер="106.11" or ВидОпер="106.31" or ВидОпер="106.34" or ВидОпер="304.04" or ВидОпер="304.04_"): ГП_Призн_=ГП_Призн;
           |True: ГП_Призн_="";
         fi;

         if ОКВ="643":
            if ВидОпер="730":
               if ПРИЗНКОЛ <> "":
                 :Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
                |true:
                 :Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
              |ВидОпер="730+830":
               if ПРИЗНКОЛ <> "":
                 :Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
                 Сч=SubStr(СчКре,1,Length(СчКре)-3)+"830";
                 :Сум_ $Сч [$Признак_] $Сч [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               |true:
                 :Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
                 Сч=SubStr(СчКре,1,Length(СчКре)-3)+"830";
                 :Сум_ $Сч [$Признак_] $Сч [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
              |True:
               if ПРИЗНКОЛ <> "":
                 :Сум_ $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               |True:
                 :Сум_ $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
            fi;
           |True:
            if ВидОпер="730":
               if ПРИЗНКОЛ <> "":
                 :Сум_^$Вал :СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               |true:
                 :Сум_^$Вал :СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
              |ВидОпер="730+830":
               if ПРИЗНКОЛ <> "":
                 :Сум_^$Вал :СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
                 Сч=SubStr(СчКре,1,Length(СчКре)-3)+"830";
                 :Сум_^$Вал :СумРуб_ $Сч [$Признак_] $Сч [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               |true:
                 :Сум_^$Вал :СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
                 Сч=SubStr(СчКре,1,Length(СчКре)-3)+"830";
                 :Сум_^$Вал :СумРуб_ $Сч [$Признак_] $Сч [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
              |True:
               if ПРИЗНКОЛ <> "":
                 :Сум_^$Вал :СумРуб_ $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_ $ПРИЗНКОЛ:Кол_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               |True:
                 :Сум_^$Вал :СумРуб_ $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $ПериодУсл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
            fi;
         fi;
      fi;
      --Лимиты (500)
      if not НеПровДО and not ВД="3" and not Свернуть and not НеПров and (ДатаРег=ДатаДО or ДатаДО=1.1.100 or not ВидОпер="00") and ДатаРег>=1.1.2015 and (ТекГодПоз="" or ТекГод = "" or ТекГодПоз=ТекГод):
         БО_Призн_=if(БО_Призн="","БО.000",БО_Призн);
         l=Length(КБК);
         БК_=SubStr(КБК,1,l-4);
         КОСГУ_=SubStr(КБК,l-2,3);
         Пер_=if(Int(ТекГод)-Year(ДатаРег)>0,Str(Min(3,Int(ТекГод)-Year(ДатаРег)+1)),"1");
         СчДО_Д=БК_+"."+ВД+".502."+Пер_+"1."+КОСГУ_;
         СчДО_К=БК_+"."+ВД+".502."+Пер_+"2."+КОСГУ_;
         if ОКВ="643":
            if ВидОпер="730" or ВидОпер="730+830":
               :СумСНДС $СчДО_К [$ДО_Призн] $СчДО_К [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $ПериодОпл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
              |True:
               :СумСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $ПериодОпл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
            fi;
           |True:
            :СумСНДС^$Вал :СумРубСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $ПериодОпл_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
         fi;
      fi;
   РЕПО; --ДО="Денежное обязательство"
   ОПЕР ДО_Ост="Денежное обязательство"
       (НомерДок     :S;
        ТекГод       :S;
        ДатаДок      :D;
        ДатаДО       :D;
        ДатаРег      :D;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        БО_Призн     :S;
        Содерж       :S;
        Коммент      :S;
        Вал          :Валюта;
        КБК          :S;
        ВД           :S;
        Призн        :S;
        ПризнДоп     :S;
        ОКДП_Призн   :S;
        СумСНДС      :N;
        СумРубСНДС   :N;
        ВидОпер      :S;
        НеПров       :L;
        Свернуть     :L
       )
      var Признак_:S;
      var Период_:S;
      var БО_Призн_:S;
      var СчДО_Д:S;
      var СчДО_К:S;
      var БК_:S;
      var КОСГУ_:S;
      var l:i;
      Признак_="ДОГОВОР."+Признак;
      Период_="ПЕРИОД."+if(Int(ТекГод)-Year(ДатаРег)>0,Str(Year(ДатаРег)),ТекГод);
      if not ВД="3" and not Свернуть and not НеПров and ВидОпер="00" and ДатаДО>ДатаРег and ДатаДО>=1.1.2014:
         БО_Призн_=if(БО_Призн="","БО.000",БО_Призн);
         l=Length(КБК);
         БК_=SubStr(КБК,1,l-4);
         КОСГУ_=SubStr(КБК,l-2,3);
         СчДО_Д=БК_+"."+ВД+".502.11."+КОСГУ_;
         СчДО_К=БК_+"."+ВД+".502.12."+КОСГУ_;
         if ОКВ="643":
            :СумСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
           |True:
            :СумСНДС^$Вал :СумРубСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
         fi;
      fi;
   РЕПО; --ДО_Ост="Денежное обязательство"
   ОПЕР ДО_Свертка="Денежное обязательство, свернутое"
       (ДатаРег      :D;
        ТекГод       :S;
        НомерДок     :S;
        ДатаДок      :D;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        ГП_Призн     :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        БО_Призн     :S;
        Содерж       :S;
        Коммент      :S;
        Вал          :Валюта;
        Сум          :N;
        СумРуб       :N;
        СумСНДС      :N;
        СумРубСНДС   :N;
        ВыделятьНДС  :L;
        ВидОпер      :S;
        СчДеб        :S;
        СчКре        :S;
        ЦЗ           :L;
        Аванс        :L;
        НеПров       :L;
        НеПровДО     :L;
        ДатаДО       :D;
        ДО_Призн     :S;
        Свернуть     :L
       )
      var Признак_:S;
      var Период_:S;
      var ГП_Призн_:S;
      var БО_Призн_:S;
      var Сум_:N;
      var СумРуб_:N;
      var Сч_:S;
      var СчДО_Д:S;
      var СчДО_К:S;
      var БК_:S;
      var ВД_:S;
      var КОСГУ_:S;
      var Пер_:S;
      var l:i;
      Признак_="ДОГОВОР."+Признак;
      Период_="ПЕРИОД."+if(Int(ТекГод)-Year(ДатаРег)>0,Str(Year(ДатаРег)),ТекГод);
      if not ВидОпер="206" and Свернуть and not НеПров:
         if ВыделятьНДС: Сум_=Сум;     СумРуб_=СумРуб;
           |True:        Сум_=СумСНДС; СумРуб_=СумРубСНДС;
         fi;
         if ЦЗ and (ВидОпер="106.11" or ВидОпер="106.31" or ВидОпер="106.34" or ВидОпер="304.04" or ВидОпер="304.04_"): ГП_Призн_=ГП_Призн;
           |True: ГП_Призн_="";
         fi;
         if ОКВ="643":
            if ВидОпер="730":
               :Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
              |ВидОпер="730+830":
               :Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               Сч_=SubStr(СчКре,1,Length(СчКре)-3)+"830";
               :Сум_ $Сч_ [$Признак_] $Сч_ [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
              |True:
            :Сум_ $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
            fi;
           |True:
            if ВидОпер="730":
               :Сум_^$Вал :СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
              |ВидОпер="730+830":
               :Сум_^$Вал :СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               Сч_=SubStr(СчКре,1,Length(СчКре)-3)+"830";
               :Сум_^$Вал :СумРуб_ $Сч_ [$Признак_] $Сч_ [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
              |True:
            :Сум_^$Вал :СумРуб_ $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
         fi;
      fi;
      fi;
      if not НеПровДО and Свернуть and not НеПров and (ДатаРег=ДатаДО or ДатаДО=1.1.100 or not ВидОпер="00") and ДатаРег>=1.1.2014:
         БО_Призн_=if(БО_Призн="","БО.000",БО_Призн);
         Сч_=if(Аванс,СчДеб,СчКре);
         l=Length(Сч_);
         ВД_=SubStr(Сч_,l-11,1);
         if not ВД_="3":
            БК_=SubStr(Сч_,1,l-13);
            КОСГУ_=SubStr(Сч_,l-5,2);
            if КОСГУ_="11":КОСГУ_="211";
              |КОСГУ_="12":КОСГУ_="212";
              |КОСГУ_="13":КОСГУ_="213";
              |КОСГУ_="21":КОСГУ_="221";
              |КОСГУ_="22":КОСГУ_="222";
              |КОСГУ_="23":КОСГУ_="223";
              |КОСГУ_="24":КОСГУ_="224";
              |КОСГУ_="25":КОСГУ_="225";
              |КОСГУ_="26":КОСГУ_="226";
              |КОСГУ_="41":КОСГУ_="241";
              |КОСГУ_="42":КОСГУ_="242";
              |КОСГУ_="51":КОСГУ_="251";
              |КОСГУ_="52":КОСГУ_="252";
              |КОСГУ_="53":КОСГУ_="253";
              |КОСГУ_="61":КОСГУ_="261";
              |КОСГУ_="62":КОСГУ_="262";
              |КОСГУ_="63":КОСГУ_="263";
              |КОСГУ_="91":КОСГУ_="290";
              |КОСГУ_="31":КОСГУ_="310";
              |КОСГУ_="32":КОСГУ_="320";
              |КОСГУ_="33":КОСГУ_="330";
              |КОСГУ_="34":КОСГУ_="340";
              |КОСГУ_="72":КОСГУ_="520";
              |КОСГУ_="73":КОСГУ_="530";
            fi;
            Пер_=if(Int(ТекГод)-Year(ДатаРег)>0,Str(Min(3,Int(ТекГод)-Year(ДатаРег)+1)),"1");
            СчДО_Д=БК_+"."+ВД_+".502."+Пер_+"1."+КОСГУ_;
            СчДО_К=БК_+"."+ВД_+".502."+Пер_+"2."+КОСГУ_;
            if ОКВ="643":
               if ВидОпер="730" or ВидОпер="730+830":
                  :СумСНДС $СчДО_К [$ДО_Призн] $СчДО_К [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
                 |True:
               :СумСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
              |True:
               if ВидОпер="730" or ВидОпер="730+830":
                  :СумСНДС^$Вал :СумРубСНДС $СчДО_К [$ДО_Призн] $СчДО_К [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
                 |True:
                  :СумСНДС^$Вал :СумРубСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
               fi;
            fi;
         fi;
      fi;
   РЕПО; --ДО_Свертка="Денежное обязательство, свернутое"
   ОПЕР ДО_Ост_Свертка="Денежное обязательство, свернутое"
       (НомерДок     :S;
        ДатаДок      :D;
        ДатаДО       :D;
        ДатаРег      :D;
        ТекГод       :S;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        ГП_Призн     :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        БО_Призн     :S;
        Содерж       :S;
        Коммент      :S;
        Вал          :Валюта;
        СумСНДС      :N;
        СумРубСНДС   :N;
        ВидОпер      :S;
        СчДеб        :S;
        СчКре        :S;
        Аванс        :L;
        НеПров       :L;
        Свернуть     :L
       )
      var Признак_:S;
      var Период_:S;
      var БО_Призн_:S;
      var Сч_:S;
      var СчДО_Д:S;
      var СчДО_К:S;
      var БК_:S;
      var ВД_:S;
      var КОСГУ_:S;
      var l:i;
      if Свернуть and not НеПров and ВидОпер="00" and ДатаДО>ДатаРег and ДатаДО>=1.1.2014:
         Признак_="ДОГОВОР."+Признак;
         Период_="ПЕРИОД."+if(Int(ТекГод)-Year(ДатаРег)>0,Str(Year(ДатаРег)),ТекГод);
         БО_Призн_=if(БО_Призн="","БО.000",БО_Призн);
         Сч_=if(Аванс,СчДеб,СчКре);
         l=Length(Сч_);
         ВД_=SubStr(Сч_,l-11,1);
         if not ВД_="3":
            БК_=SubStr(Сч_,1,l-13);
            КОСГУ_=SubStr(Сч_,l-5,2);
            if КОСГУ_="11":КОСГУ_="211";
              |КОСГУ_="12":КОСГУ_="212";
              |КОСГУ_="13":КОСГУ_="213";
              |КОСГУ_="21":КОСГУ_="221";
              |КОСГУ_="22":КОСГУ_="222";
              |КОСГУ_="23":КОСГУ_="223";
              |КОСГУ_="24":КОСГУ_="224";
              |КОСГУ_="25":КОСГУ_="225";
              |КОСГУ_="26":КОСГУ_="226";
              |КОСГУ_="41":КОСГУ_="241";
              |КОСГУ_="42":КОСГУ_="242";
              |КОСГУ_="51":КОСГУ_="251";
              |КОСГУ_="52":КОСГУ_="252";
              |КОСГУ_="53":КОСГУ_="253";
              |КОСГУ_="61":КОСГУ_="261";
              |КОСГУ_="62":КОСГУ_="262";
              |КОСГУ_="63":КОСГУ_="263";
              |КОСГУ_="91":КОСГУ_="290";
              |КОСГУ_="31":КОСГУ_="310";
              |КОСГУ_="32":КОСГУ_="320";
              |КОСГУ_="33":КОСГУ_="330";
              |КОСГУ_="34":КОСГУ_="340";
              |КОСГУ_="72":КОСГУ_="520";
              |КОСГУ_="73":КОСГУ_="530";
            fi;
            СчДО_Д=БК_+"."+ВД_+".502.11."+КОСГУ_;
            СчДО_К=БК_+"."+ВД_+".502.12."+КОСГУ_;
            if ОКВ="643":
               :СумСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
              |True:
               :СумСНДС^$Вал :СумРубСНДС $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Содерж $Коммент
            fi;
         fi;
      fi;
   РЕПО; --ДО_Свертка="Денежное обязательство, свернутое"
   ОПЕР ДО_НДС="НДС денежного обязательства"
       (СчФНом       :S;
        СчФДат       :D;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        Вал          :Валюта;
        Призн        :S;
        Сум          :N;
        СумРуб       :N;
        СумСНДС      :N;
        СумРубСНДС   :N;
        СчДеб        :S;
        СчКре        :S;
        НеПров       :L
       )
      var Признак_:S;
      if not СчДеб="" and not СчКре="" and not НеПров:
         Признак_="ДОГОВОР."+Признак;
         if ОКВ="643":
            :(СумСНДС-Сум) $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- Сч.ф. №$СчФНом от $СчФДат
           |True:
            :(СумСНДС-Сум)^$Вал :(СумРубСНДС-СумРуб) $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- Сч.ф. №$СчФНом от $СчФДат
         fi;
      fi;
   РЕПО; --ДО_НДС="Денежное обязательство НДС"
   ОПЕР ДО_ПровДоп="Дополнительные проводки денежного обязательства"
       (НомерДок     :S;
        ДатаДок      :D;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        ГП_Призн     :S;
        Вал          :Валюта;
        Призн        :S;
        Сум          :N;
        СумРуб       :N;
        СчДеб        :S;
        СчКре        :S;
        Предм1       :S
       )
      var Признак_:S;
      Признак_="ДОГОВОР."+Признак;
      if ОКВ="643":
         :Сум $СчДеб $СчКре {$Признак_ $Контр_Призн $ГП_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- $НаимДок_ №$НомерДок от $ДатаДок $Предм1
        |True:
         :Сум^$Вал :СумРуб $СчДеб $СчКре {$Признак_ $Контр_Призн $ГП_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- $НаимДок_ №$НомерДок от $ДатаДок $Предм1
      fi;
   РЕПО; --ДО_ПровДоп="Дополнительные проводки денежного обязательства"
   ОПЕР ДО_Аннул="Аннулированное денежное обязательство"
       (ДатаРег      :D;
        ДатаДО       :D;
        ТекГод       :S;
        НомерДок     :S;
        ДатаДок      :D;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        ГП_Призн     :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        БО_Призн     :S;
        Вал          :Валюта;
        КБК          :S;
        ВД           :S;
        Призн        :S;
        ПризнДоп     :S;
        ОКДП_Призн   :S;
        Сум          :N;
        СумРуб       :N;
        СумСНДС      :N;
        СумРубСНДС   :N;
        ВыделятьНДС  :L;
        ВидОпер      :S;
        СчДеб        :S;
        СчКре        :S;
        ЦЗ           :L;
        НеПров       :L;
        Свернуть     :L;
        НеПровДО     :L;
        Аннул_Кмнт   :S;
        Аннул_Дата   :D;
        Аванс        :L;
        Аннул_Часть  :L;
        СчКорр_Аннул :S;
        Сум_Аннул    :N;
        СумРуб_Аннул :N;
        ДО_Призн     :S
       )
      var Признак_:S;
      var Период_:S;
      var ГП_Призн_:S;
      var БО_Призн_:S;
      var Сум_:N;
      var СумРуб_:N;
      var СчДеб_:S;
      var СчКре_:S;
      var СчДО_Д:S;
      var СчДО_К:S;
      var Сч:S;
      var БК_:S;
      var КОСГУ_:S;
      var Пер_:S;
      var l:i;
      Признак_="ДОГОВОР."+Признак;
      Период_="ПЕРИОД."+if(Int(ТекГод)-Year(ДатаРег)>0,Str(Year(ДатаРег)),ТекГод);
      l=Length(КБК);
      БК_=SubStr(КБК,1,l-4);
      КОСГУ_=SubStr(КБК,l-2,3);
      if (not ВидОпер="206" or not СчКорр_Аннул="") and not Свернуть and not НеПров:
         СчДеб_=СчДеб;
         СчКре_=СчКре;
         if Year(Аннул_Дата)>Year(ДатаРег) and not ВидОпер="00" and not ВидОпер="206": --это для кредиторки
            СчДеб_="00";
         fi;
         if not СчКорр_Аннул="":
            if Аванс: СчКре_=СчКорр_Аннул;
              |True: СчДеб_=СчКорр_Аннул;
            fi;
         fi;
         if ВыделятьНДС and not Аннул_Часть: Сум_=Сум;       СумРуб_=СумРуб;
           |ВыделятьНДС and Аннул_Часть:     Сум_=Сум_Аннул; СумРуб_=СумРуб_Аннул; --Чего с делать с НДС?
           |Аннул_Часть:                     Сум_=Сум_Аннул; СумРуб_=СумРуб_Аннул;
           |True:                            Сум_=СумСНДС;   СумРуб_=СумРубСНДС;
         fi;
         if ЦЗ and (ВидОпер="106.11" or ВидОпер="106.31" or ВидОпер="106.34" or ВидОпер="304.04" or ВидОпер="304.04_"): ГП_Призн_=ГП_Призн;
           |True: ГП_Призн_="";
         fi;
         if ОКВ="643":
            if ВидОпер="730":
               :-Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |ВидОпер="730+830":
               :-Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
               Сч=SubStr(СчКре_,1,Length(СчКре_)-3)+"830";
               :-Сум_ $Сч [$Признак_] $Сч [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_ $СчДеб_ $СчКре_ {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
            fi;
           |True:
            if ВидОпер="730":
               :-Сум_^$Вал :-СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |ВидОпер="730+830":
               :-Сум_^$Вал :-СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
               Сч=SubStr(СчКре_,1,Length(СчКре_)-3)+"830";
               :-Сум_^$Вал :-СумРуб_ $Сч [$Признак_] $Сч [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_^$Вал :-СумРуб_ $СчДеб_ $СчКре_ {$Признак_ $Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
         fi;
      fi;
      fi;
      if not НеПровДО and not ВД="3" and not Свернуть and not НеПров and Year(ДатаДО)=Year(Аннул_Дата) and Аннул_Дата>=1.1.2014:
         БО_Призн_=if(БО_Призн="","БО.000",БО_Призн);
         Пер_=if(Int(ТекГод)-Year(Аннул_Дата)>0,Str(Min(3,Int(ТекГод)-Year(Аннул_Дата)+1)),"1");
         СчДО_Д=БК_+"."+ВД+".502."+Пер_+"1."+КОСГУ_;
         СчДО_К=БК_+"."+ВД+".502."+Пер_+"2."+КОСГУ_;
         if Аннул_Часть: Сум_=Сум_Аннул; СумРуб_=СумРуб_Аннул;
           |True:        Сум_=СумСНДС;   СумРуб_=СумРубСНДС;
         fi;
         if ОКВ="643":
            if ВидОпер="730" or ВидОпер="730+830":
               :-Сум_ $СчДО_К [$ДО_Призн] $СчДО_К [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_ $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
            fi;
           |True:
            if ВидОпер="730" or ВидОпер="730+830":
               :-Сум_^$Вал :-СумРуб_ $СчДО_К [$ДО_Призн] $СчДО_К [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_^$Вал :-СумРуб_ $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн $ПризнДоп $ОКДП_Призн $БО_Призн_ $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
         fi;
      fi;
      fi;
   РЕПО; --ДО_Аннул="Аннулированное денежное обязательство"
   ОПЕР ДО_Свертка_Аннул="Аннулированное денежное обязательство, свернутое"
       (ДатаРег      :D;
        ДатаДО       :D;
        ТекГод       :S;
        НомерДок     :S;
        ДатаДок      :D;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        ГП_Призн     :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        БО_Призн     :S;
        Вал          :Валюта;
        Сум          :N;
        СумРуб       :N;
        СумСНДС      :N;
        СумРубСНДС   :N;
        ВыделятьНДС  :L;
        ВидОпер      :S;
        СчДеб        :S;
        СчКре        :S;
        ЦЗ           :L;
        Аванс        :L;
        НеПров       :L;
        НеПровДО     :L;
        Свернуть     :L;
        Аннул_Кмнт   :S;
        Аннул_Дата   :D;
        Аннул_Часть  :L;
        СчКорр_Аннул :S;
        Сум_Аннул    :N;
        СумРуб_Аннул :N;
        ДО_Призн     :S
       )
      var Признак_:S;
      var Период_:S;
      var ГП_Призн_:S;
      var БО_Призн_:S;
      var Сум_:N;
      var СумРуб_:N;
      var Сч_:S;
      var СчДеб_:S;
      var СчКре_:S;
      var СчДО_Д:S;
      var СчДО_К:S;
      var БК_:S;
      var ВД_:S;
      var КОСГУ_:S;
      var КОСГУ_А:S;
      var Пер_:S;
      var l:i;
      Признак_="ДОГОВОР."+Признак;
      Период_="ПЕРИОД."+if(Int(ТекГод)-Year(ДатаРег)>0,Str(Year(ДатаРег)),ТекГод);
      Сч_=if(Аванс,СчДеб,СчКре);
      l=Length(Сч_);
      ВД_=SubStr(Сч_,l-11,1);
      БК_=SubStr(Сч_,1,l-13);
      КОСГУ_=SubStr(Сч_,l-5,2);
      if КОСГУ_="11":КОСГУ_="211";
        |КОСГУ_="12":КОСГУ_="212";
        |КОСГУ_="13":КОСГУ_="213";
        |КОСГУ_="21":КОСГУ_="221";
        |КОСГУ_="22":КОСГУ_="222";
        |КОСГУ_="23":КОСГУ_="223";
        |КОСГУ_="24":КОСГУ_="224";
        |КОСГУ_="25":КОСГУ_="225";
        |КОСГУ_="26":КОСГУ_="226";
        |КОСГУ_="41":КОСГУ_="241";
        |КОСГУ_="42":КОСГУ_="242";
        |КОСГУ_="51":КОСГУ_="251";
        |КОСГУ_="52":КОСГУ_="252";
        |КОСГУ_="53":КОСГУ_="253";
        |КОСГУ_="61":КОСГУ_="261";
        |КОСГУ_="62":КОСГУ_="262";
        |КОСГУ_="63":КОСГУ_="263";
        |КОСГУ_="91":КОСГУ_="290";
        |КОСГУ_="31":КОСГУ_="310";
        |КОСГУ_="32":КОСГУ_="320";
        |КОСГУ_="33":КОСГУ_="330";
        |КОСГУ_="34":КОСГУ_="340";
        |КОСГУ_="72":КОСГУ_="520";
        |КОСГУ_="73":КОСГУ_="530";
      fi;
      if (not ВидОпер="206" or not СчКорр_Аннул="") and Свернуть and not НеПров:
         СчДеб_=СчДеб;
         СчКре_=СчКре;
         if Year(Аннул_Дата)>Year(ДатаРег) and not ВидОпер="00" and not ВидОпер="206": --это для кредиторки
            СчДеб_="00";
         fi;
         if not СчКорр_Аннул="":
            if Аванс: СчКре_=СчКорр_Аннул;
              |True: СчДеб_=СчКорр_Аннул;
            fi;
         fi;
         if ВыделятьНДС and not Аннул_Часть: Сум_=Сум;       СумРуб_=СумРуб;
           |ВыделятьНДС and Аннул_Часть:     Сум_=Сум_Аннул; СумРуб_=СумРуб_Аннул; --Чего с делать с НДС?
           |Аннул_Часть:                     Сум_=Сум_Аннул; СумРуб_=СумРуб_Аннул;
           |True:                            Сум_=СумСНДС;   СумРуб_=СумРубСНДС;
         fi;
         if ЦЗ and (ВидОпер="106.11" or ВидОпер="106.31" or ВидОпер="106.34" or ВидОпер="304.04" or ВидОпер="304.04_"): ГП_Призн_=ГП_Призн;
           |True: ГП_Призн_="";
         fi;
         if ОКВ="643":
            if ВидОпер="730":
               :-Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |ВидОпер="730+830":
               :-Сум_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
               Сч_=SubStr(СчКре_,1,Length(СчКре_)-3)+"830";
               :-Сум_ $Сч_ [$Признак_] $Сч_ [$ДО_Призн] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_ $СчДеб_ $СчКре_ {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $ГП_Призн_ $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
            fi;
           |True:
            if ВидОпер="730":
               :-Сум_^$Вал :-СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |ВидОпер="730+830":
               :-Сум_^$Вал :-СумРуб_ $СчКре [$ДО_Призн] $СчКре [$Признак_] {$Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
               Сч_=SubStr(СчКре_,1,Length(СчКре_)-3)+"830";
               :-Сум_^$Вал :-СумРуб_ $Сч_ [$Признак_] $Сч_ [$ДО_Призн] {$Признак_ $Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_^$Вал :-СумРуб_ $СчДеб_ $СчКре_ {$Признак_ $Контр_Призн $Общ_Призн1 $ГП_Призн_ $Общ_Призн2 $Признаки $Период_} -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
         fi;
      fi;
      fi;
      if not НеПровДО and Свернуть and not НеПров and not ВД_="3" and Year(ДатаДО)=Year(Аннул_Дата) and Аннул_Дата>=1.1.2014:
         БО_Призн_=if(БО_Призн="","БО.000",БО_Призн);
         Пер_=if(Int(ТекГод)-Year(Аннул_Дата)>0,Str(Min(3,Int(ТекГод)-Year(Аннул_Дата)+1)),"1");
         СчДО_Д=БК_+"."+ВД_+".502."+Пер_+"1."+КОСГУ_;
         СчДО_К=БК_+"."+ВД_+".502."+Пер_+"2."+КОСГУ_;
         if Аннул_Часть: Сум_=Сум_Аннул; СумРуб_=СумРуб_Аннул;
           |True:        Сум_=СумСНДС;   СумРуб_=СумРубСНДС;
         fi;
         if ОКВ="643":
            if ВидОпер="730" or ВидОпер="730+830":
               :-Сум_ $СчДО_К [$ДО_Призн] $СчДО_К [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_}  -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_ $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_}  -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
            fi;
           |True:
            if ВидОпер="730" or ВидОпер="730+830":
               :-Сум_^$Вал :-СумРуб_ $СчДО_К [$ДО_Призн] $СчДО_К [$Признак_] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_}  -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
              |True:
            :-Сум_^$Вал :-СумРуб_ $СчДО_Д $СчДО_К {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Признаки $БО_Призн_ $Период_}  -- $НаимДок_ №$НомерДок от $ДатаДок $Аннул_Кмнт
         fi;
      fi;
      fi;
   РЕПО; --ДО_Свертка="Аннулированное денежное обязательство, свернутое"
   ОПЕР ДО_НДС_Аннул="Аннулированное НДС денежного обязательства"
       (СчФНом       :S;
        СчФДат       :D;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        Вал          :Валюта;
        Призн        :S;
        Сум          :N;
        СумРуб       :N;
        СумСНДС      :N;
        СумРубСНДС   :N;
        СчДеб        :S;
        СчКре        :S;
        НеПров       :L
       )
      var Признак_:S;
      var k:i;
      if not СчДеб="" and not СчКре="" and not НеПров:
         Признак_="ДОГОВОР."+Признак;
         if ОКВ="643":
            :-(СумСНДС-Сум) $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- Сч.ф. №$СчФНом от $СчФДат
           |True:
            :-(СумСНДС-Сум)^$Вал :-(СумРубСНДС-СумРуб) $СчДеб $СчКре {$Признак_ $Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- Сч.ф. №$СчФНом от $СчФДат
         fi;
      fi;
   РЕПО; --ДО_НДС_Аннул="Аннулированное НДС денежного обязательства"
   ОПЕР ДО_ПровДоп_Аннул="Аннулированные дополнительные проводки денежного обязательства"
       (НомерДок     :S;
        ДатаДок      :D;
        НаимДок_     :S;
        Признак      :S;
        ОКВ          :S;
        Контр_Призн  :S;
        Общ_Призн1   :S;
        Общ_Призн2   :S;
        ГП_Призн     :S;
        Вал          :Валюта;
        Призн        :S;
        Сум          :N;
        СумРуб       :N;
        СчДеб        :S;
        СчКре        :S;
        Предм1       :S
       )
      var Признак_:S;
      Признак_="ДОГОВОР."+Признак;
      if ОКВ="643":
         :-Сум $СчДеб $СчКре {$Признак_ $Контр_Призн $ГП_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- $НаимДок_ №$НомерДок от $ДатаДок $Предм1
        |True:
         :-Сум^$Вал :-СумРуб $СчДеб $СчКре {$Признак_ $Контр_Призн $ГП_Призн $Общ_Призн1 $Общ_Призн2 $Призн} -- $НаимДок_ №$НомерДок от $ДатаДок $Предм1
      fi;
   РЕПО; --ДО_ПровДоп_Аннул="Аннулированные дополнительные проводки денежного обязательства"
   ОПЕР ДО_Зачет_Аванса="Денежное обязательство, зачет аванса"
       (ДатаРег       :D;
        Аванс_Призн   :S;
        Аванс_БО_Призн:S;
        Аванс_ТекГод  :S;
        Контр_Призн   :S;
        Общ_Призн1    :S;
        Общ_Призн2    :S;
        Осн           :S;
        Вал           :Валюта;
        ВД            :S;
        КБК           :S;
        Призн         :S;
        ДО_Призн      :S;
        ДО_БО_Призн   :S;
        Сум           :N;
        СумРуб        :N;
        ОснДоп        :S;
        СчДеб         :S;
        СчКре         :S;
        Призн_Общ     :S;
        Призн_Деб     :S;
        Призн_Кре     :S;
        НеПровДО      :L;
        ПровБО        :L;
        ПровДОпоДеб   :L;
        КБК_Ав        :S
       )
       var БО_Призн_:S;
       var tmp:S;
       var ПризнД1:S;
       var ПризнД2:S;
       var ПризнД3:S;
       var ПризнК1:S;
       var ПризнК2:S;
       var ПризнК3:S;
       var p:i;
       var БК_:S;
       var КОСГУ_:S;
       var СчДО_Д:S;
       var СчДО_К:S;
       var СчБО_Д:S;
       var СчБО_К:S;
       var Призн_:S;
       var Период_:S;
       ПризнД1="";
       ПризнД2="";
       ПризнД3="";
       ПризнК1="";
       ПризнК2="";
       ПризнК3="";
       Призн_=if(КБК_Ав="",Призн,"");
       Период_=if(Аванс_ТекГод="","","ПЕРИОД."+Аванс_ТекГод);
       if not Призн_Деб="":
          p=Pos(" ",Призн_Деб);
          if p=0 : ПризнД1=Призн_Деб;
            |true: ПризнД1=SubStr(Призн_Деб,1,p-1);
                   tmp=SubStr(Призн_Деб,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнД2=tmp;
                        |true: ПризнД2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнД3=tmp;
                                    |true: ПризнД3=SubStr(tmp,1,p-1);
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       if not Призн_Кре="":
          p=Pos(" ",Призн_Кре);
          if p=0 : ПризнК1=Призн_Кре;
            |true: ПризнК1=SubStr(Призн_Кре,1,p-1);
                   tmp=SubStr(Призн_Кре,p+1,255);
                   if not tmp="":
                      p=Pos(" ",tmp);
                      if p=0 : ПризнК2=tmp;
                        |true: ПризнК2=SubStr(tmp,1,p-1);
                               tmp=SubStr(tmp,p+1,255);
                               if not tmp="":
                                  p=Pos(" ",tmp);
                                  if p=0 : ПризнК3=tmp;
                                    |true: ПризнК3=SubStr(tmp,1,p-1);
                                  fi;
                               fi;
                      fi;
                   fi;
          fi;
       fi;
       if Вал=BaseCurrency:
          :Сум $СчДеб [$ДО_Призн $ПризнД1 $ПризнД2 $ПризнД3] $СчКре [$Аванс_Призн $ПризнК1 $ПризнК2 $ПризнК3] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $Период_} -- Зачет аванса. $Осн $ОснДоп
         |True:
          :Сум^$Вал :СумРуб $СчДеб [$ДО_Призн $ПризнД1 $ПризнД2 $ПризнД3] $СчКре [$Аванс_Призн $ПризнК1 $ПризнК2 $ПризнК3] {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $Период_} -- Зачет аванса. $Осн $ОснДоп
       fi;
       if (not НеПровДО or ПровБО) and not ВД="3" and ДатаРег>=1.1.2014:
          if not ПровДОпоДеб:
             БО_Призн_=if(Аванс_БО_Призн="","БО.000",Аванс_БО_Призн);
            |True:
             БО_Призн_=if(ДО_БО_Призн="","БО.000",ДО_БО_Призн);
          fi;
          p=Length(КБК);
          БК_=SubStr(КБК,1,p-4);
          КОСГУ_=SubStr(КБК,p-2,3);
          СчДО_Д=БК_+"."+ВД+".502.11."+КОСГУ_;
          СчДО_К=БК_+"."+ВД+".502.12."+КОСГУ_;
          if ВД="1":
             СчБО_Д=БК_+"."+ВД+".501.13."+КОСГУ_;
             СчБО_К=БК_+"."+ВД+".502.11."+КОСГУ_;
            |True:
             СчБО_Д=БК_+"."+ВД+".506.10."+КОСГУ_;
             СчБО_К=БК_+"."+ВД+".502.11."+КОСГУ_;
          fi;
       fi;
       if not НеПровДО and not ВД="3" and ДатаРег>=1.1.2014:
          if not ПровДОпоДеб:
             if Вал=BaseCurrency:
                :-Сум $СчДО_Д $СчДО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $Аванс_Призн $Призн_Кре $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
               |True:
                :-Сум^$Вал :-СумРуб $СчДО_Д $СчДО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $Аванс_Призн $Призн_Кре $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
             fi;
            |True:
             if Вал=BaseCurrency:
                :-Сум $СчДО_Д $СчДО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $ДО_Призн $Призн_Деб $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
               |True:
                :-Сум^$Вал :-СумРуб $СчДО_Д $СчДО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $ДО_Призн $Призн_Деб $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
             fi;
          fi;
       fi;
       if ПровБО and not ВД="3" and ДатаРег>=1.1.2014:
          if not ПровДОпоДеб:
             if Вал=BaseCurrency:
                   :-Сум $СчБО_Д $СчБО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $Аванс_Призн $Призн_Кре $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
               |True:
                   :-Сум^$Вал :-СумРуб $СчБО_Д $СчБО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $Аванс_Призн $Призн_Кре $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
             fi;
            |True:
             if Вал=BaseCurrency:
                :-Сум $СчБО_Д $СчБО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $ДО_Призн $Призн_Деб $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
               |True:
                :-Сум^$Вал :-СумРуб $СчБО_Д $СчБО_К {$Контр_Призн $Общ_Призн1 $Общ_Призн2 $Призн_ $Призн_Общ $ДО_Призн $Призн_Деб $БО_Призн_ $Период_} -- Зачет аванса. $Осн $ОснДоп
             fi;
          fi;
       fi;
   РЕПО; --ДО_ЗАЧЕТ_АВАНСА="Денежное обязательство, зачет аванса"
   ОПЕР ДО_ЗП_БУХ="Проводки денежного обязательства по зарплате (бухгалтерские)"
        (
        СчДеб:S;
        СчКре:S;
        Призн:S;
        ПризнД:S;
        ПризнК:S;
        ДопАнДок:S;
        КБКАн:S;
        Период:S;
        Коммент:S;
        Содерж:S;
        СумРуб:N
        )
        :СумРуб $СчДеб [$ПРИЗНД] $СчКре [$ПРИЗНК] {$Призн $ДопАнДок $Период $КБКАн} --$Содерж $Коммент

   РЕПО; --   ОПЕР ДО_ЗП_БУХ="Проводки денежного обязательства по зарплате (бухгалтерские)"
   ОПЕР ДО_ЗП_ДО="Проводки денежного обязательства по зарплате (бухгалтерские)"
        (
        ДАТАРег:D;
        СчДебДО:S;
        СчКреДО:S;
        КБКАн:S;
--        Призн:S;
        ДопАнДок:S;
        Период:S;
--        Коммент:S;
        Содерж:S;
        УчетБО:L;
        СумРуб:N
        )
        var БК:S;
        var КОСГУ:S;
        var Ист:S;
        var СчДебБО:S;
        var СчКреБО:S;
        if СчДебДО<>"" and СчКреДО<>"" and ДАТАРег>=1.1.2014:
          :СумРуб $СчДебДО $СчКреДО {БО.000 $ДопАнДок $Период $КБКАн} --$Содерж
          if УчетБО and ДАТАРег>=1.1.2014:
             БК=Substr(СчДебДО,1,20);
             Ист=Substr(СчДебДО,22,1);
             КОСГУ=Substr(СчДебДО,31,3);
             if Ист="1":
                СчДебБО =БК+".1.501.13."+КОСГУ;
             |TRUE:
                СчДебБО =БК+"."+Ист+".506.10."+КОСГУ;
             fi;
             СчКреБО =БК+"."+Ист+".502.11."+КОСГУ;
             :СумРуб $СчДебБО $СчКреБО {БО.000 $ДопАнДок $Период $КБКАн} --$Содерж
          fi;
        fi;

   РЕПО; --   ОПЕР ДО_ЗП_БУХ="Проводки денежного обязательства по зарплате (бухгалтерские)"
   ОПЕР Начдох="Начисление доходов"

       (Код_Сч_Осн:S;
        Код_Сч_Дох:S;
        Код_Сч_Нал:S;
        Код_Сч_НалАв:S;
        Код_Сч_НДСАв:S;
        Сч_Осн:S;
        Сч_Дох:S;
        Сч_Нал:S;
        Сч_НалАв:S;
        Сч_НДСАв:S;
        КД:S;
        ФКР:S;
        КОСГУ: S;
        АНАЛИТ:S;
        НДССум:N;
        НДСЗач:N;
        Кмнт:S;
        ДОХОД:N;
        PacketMode:L;
        КурсФ:L;
        ВалКурс:N
       )

    var Сч_Деб_Р:S;
    var Сч_Кре_Р:S;
    var Сч_Нал_:S;
    var Призн:S;
    var mustCur:N;
    var ВД:S;
    var СчКурсР:S;
        Призн=Аналит;
        if Сч_Дох="": Сч_Деб_Р=КД+"."+Код_Сч_Дох; |True:Сч_Деб_Р=Сч_Дох;fi;
        if Сч_Осн="": Сч_Кре_Р=КД+'.'+Код_Сч_Осн+'.'+КОСГУ; |true:Сч_Кре_Р=Сч_Осн;fi;
        if Сч_Нал="": Сч_Нал_=КД+'.'+Код_Сч_Нал;            |True:Сч_Нал_=Сч_Нал;fi;
        if not PacketMode:
           if Валюта<>"РУБ" and КурсФ and ВалКурс<>0:
              mustCur=Com_Var("Курс."+Валюта);
              :Доход*ВалКурс^РУБ :Доход^$Валюта $Сч_Деб_Р $Сч_Кре_Р {$Призн} --$Кмнт
              ВД=Substr(Сч_Деб_Р,24,1);
              СчКурсР=Com_Var_S(ВД+"_205_КР");
              if СчКурсР<>"":
                 :Доход*(mustCur-ВалКурс)^РУБ :0^$Валюта $Сч_Деб_Р $СчКурсР {$Призн} --$Кмнт
              fi;
             |True:
              :Доход^$Валюта $Сч_Деб_Р $Сч_Кре_Р {$Призн} --$Кмнт
           fi;

           if НДССум<>0 :
              if Валюта<>"РУБ" and КурсФ and ВалКурс<>0:
                 :НДССум*ВалКурс^РУБ :НДССум^$Валюта $Сч_Кре_Р        $Сч_Нал_ {$Аналит} --$Кмнт НДС
                |true:
                 :НДССум^$Валюта $Сч_Кре_Р        $Сч_Нал_ {$Аналит} --$Кмнт НДС
              fi;
           fi;
        fi;

        if НДСЗач<>0:
           if Сч_НалАв="": Сч_Деб_Р=ФКР+'.'+Код_Сч_НалАв;|true:Сч_Деб_Р=Сч_НалАв;fi;
           if Сч_НДСАв="": Сч_Кре_Р=ФКР+'.'+Код_Сч_НДСАв;|True:Сч_Кре_Р=Сч_НДСАв;fi;
           if Валюта<>"РУБ" and КурсФ and ВалКурс<>0:
              :НДСЗач*ВалКурс^РУБ :НДСЗач^$Валюта $Сч_Деб_Р        $Сч_Кре_Р  {$Аналит} --Зачет аванса $Кмнт
             |true:
              :НДСЗач^$Валюта $Сч_Деб_Р        $Сч_Кре_Р  {$Аналит} --Зачет аванса $Кмнт
           fi;
        fi;



   РЕПО; --Начдох="Начисление доходов"
   ОПЕР Начдох_Packet="Начисление доходов"

       (Код_Сч_Осн:S;
        Код_Сч_Дох:S;
        Код_Сч_Нал:S;
        Код_Сч_НалАв:S;
        Код_Сч_НДСАв:S;
        Сч_Осн:S;
        Сч_Дох:S;
        Сч_Нал:S;
        Сч_НалАв:S;
        Сч_НДСАв:S;
        КД:S;
        ФКР:S;
        КОСГУ: S;
        АНАЛИТ:S;
        АНАЛИТИКА:S;
        НДССум:N;
        НДСЗач:N;
        Кмнт:S;
        Текст:S;
        ДОХОД:N;
        СумНДС:N;
        --Сумма:N;
        PacketMode:L;
        КурсФ:L;
        ВалКурс:N

       )

    var Сч_Деб_Р:S;
    var Сч_Кре_Р:S;
    var Сч_Нал_:S;
    var Призн:S;
    var НДССум_:N;
    var mustCur:N;
    var ВД:S;
    var СчКурсР:S;
        Призн=Аналит;
        if Сч_Дох="": Сч_Деб_Р=КД+"."+Код_Сч_Дох; |True:Сч_Деб_Р=Сч_Дох;fi;
        if Сч_Осн="": Сч_Кре_Р=КД+'.'+Код_Сч_Осн+'.'+КОСГУ; |true:Сч_Кре_Р=Сч_Осн;fi;
        if Сч_Нал="": Сч_Нал_=КД+'.'+Код_Сч_Нал;            |True:Сч_Нал_=Сч_Нал;fi;
        if PacketMode:
           if Валюта<>"РУБ" and КурсФ and ВалКурс<>0:
              mustCur=Com_Var("Курс."+Валюта);
              :СумНДС*ВалКурс^РУБ :СумНДС^$Валюта $Сч_Деб_Р $Сч_Кре_Р {$Призн $АНАЛИТИКА} --$Текст $Кмнт
              ВД=Substr(Сч_Деб_Р,24,1);
              СчКурсР=Com_Var_S(ВД+"_205_КР");
              if СчКурсР<>"":
                 :СумНДС*(mustCur-ВалКурс)^РУБ :0^$Валюта $Сч_Деб_Р $СчКурсР {$Призн $АНАЛИТИКА} --$Текст $Кмнт
              fi;
             |True:
              :СумНДС^$Валюта $Сч_Деб_Р $Сч_Кре_Р {$Призн $АНАЛИТИКА} --$Текст $Кмнт
           fi;
           НДССум_=СумНДС-Сумма;
           if НДССум_<>0 :
              if Валюта<>"РУБ" and КурсФ and ВалКурс<>0:
                 :НДССум_*ВалКурс^РУБ :НДССум_^$Валюта $Сч_Кре_Р        $Сч_Нал_ {$Аналит $АНАЛИТИКА} --$Текст $Кмнт НДС
                |true:
                 :НДССум_^$Валюта $Сч_Кре_Р        $Сч_Нал_ {$Аналит $АНАЛИТИКА} --$Текст $Кмнт НДС
              fi;
           fi;
        fi;

   РЕПО; --Начдох="Начисление доходов"
   ОПЕР СПИ="Суммы принудительного изъятия"
       (Признак      :S;
        Контр_Призн  :S;
        Призн        :S;
        Сум          :N;
        СчДеб        :S;
        СчКре        :S;
        Содерж       :S;
        Кмнт         :S
       )
      var Признак_:S;
      Признак_="СПИ."+Признак;
      :Сум $СчДеб $СчКре {$Признак_ $Контр_Призн $Призн} -- $Содерж $Кмнт
   РЕПО; --СПИ="Суммы принудительного изъятия"
   Опер Заявка_Закуп="Заявка на закупку"
        (Справ         :S;
         Признак       :S;
         Вал           :S;
         Общ_Призн0    :S;
         Общ_Призн1    :S;
         Общ_Призн2    :S;
         Пре_Общ_Призн0:S;
         Пре_Общ_Призн1:S;
         Пре_Общ_Призн2:S;
         ИсполДокПризн :S;
         РазмещЗаказ   :S;
         Признак_Кмнт  :S;
         ТипИзм        :I;
         Год1          :S;
         Год2          :S;
         Год3          :S;
         Год4          :S;
         Год5          :S;
         Год6          :S;
         Сум1          :N;
         Сум2          :N;
         Сум3          :N;
         Сум4          :N;
         Сум5          :N;
         Сум6          :N;
         Сум_Пре1      :N;
         Сум_Пре2      :N;
         Сум_Пре3      :N;
         Сум_Пре4      :N;
         Сум_Пре5      :N;
         Сум_Пре6      :N;
         СчДеб         :S;
         СчКре         :S;
         Призн         :S;
         ОКДП_Призн    :S;
         МФ            :S;
         ДатаРег       :D;
         ЭтоИзм        :L
         )
      var Признак_:s;
      var Вал_:Валюта;
      var Пер1_:S;
      var Пер2_:S;
      var Пер3_:S;
      var Пер4_:S;
      var Пер5_:S;
      var Пер6_:S;
      var ПерТек_:S;
      var ТекГод_:S;
      var ИсполДокПризн_:S;
      var СОП_:S;
      Признак_=Справ+"."+Признак;
      Вал_=Вал;
      if Вал_="": Вал_=BaseCurrency; fi;
      Пер1_=""; Пер2_=""; Пер3_=""; Пер4_=""; Пер5_=""; Пер6_="";
      if МФ="":    ПерТек_="";
        |МФ="I":   ПерТек_=".1";
        |МФ="II":  ПерТек_=".2";
        |МФ="III": ПерТек_=".3";
        |МФ="IV":  ПерТек_=".4";
        |Int(МФ)>9:ПерТек_=".4."+МФ;
        |Int(МФ)>6:ПерТек_=".3."+МФ;
        |Int(МФ)>3:ПерТек_=".2."+МФ;
        |True:     ПерТек_=".1."+МФ;
      fi;
      ТекГод_=Str(Year(ДатаРег));
      if not Год1="": 
         Пер1_="ПЕРИОД."+Год1+if(Год1=ТекГод_,ПерТек_,"");
      fi;
      if not Год2="": 
         Пер2_="ПЕРИОД."+Год2+if(Год2=ТекГод_,ПерТек_,"");
      fi;
      if not Год3="": 
         Пер3_="ПЕРИОД."+Год3+if(Год3=ТекГод_,ПерТек_,"");
      fi;
      if not Год4="": 
         Пер4_="ПЕРИОД."+Год4+if(Год4=ТекГод_,ПерТек_,"");
      fi;
      if not Год5="": 
         Пер5_="ПЕРИОД."+Год5+if(Год5=ТекГод_,ПерТек_,"");
      fi;
      if not Год6="": 
         Пер6_="ПЕРИОД."+Год6+if(Год6=ТекГод_,ПерТек_,"");
      fi;
      if Length(РазмещЗаказ)=5 or РазмещЗаказ="0":
         СОП_="СОП."+РазмещЗаказ;
        |РазмещЗаказ="":
         СОП_="СОП."+"0";
        |РазмещЗаказ="1"         : СОП_="СОП."+"11011";
        |РазмещЗаказ="2"         : СОП_="СОП."+"11021";
        |РазмещЗаказ="3"         : СОП_="СОП."+"11031";
        |РазмещЗаказ="4"         : СОП_="СОП."+"11042";
        |РазмещЗаказ="5"         : СОП_="СОП."+"11052";
        |РазмещЗаказ="6"         : СОП_="СОП."+"11062";
        |РазмещЗаказ="7"         : СОП_="СОП."+"12011";
        |РазмещЗаказ="8"         : СОП_="СОП."+"12022";
        |РазмещЗаказ="9"         : СОП_="СОП."+"13011";
        |Match(РазмещЗаказ,"10!"): СОП_="СОП."+"14011";
        |РазмещЗаказ="11"        : СОП_="СОП."+"20000";
        |РазмещЗаказ="11.93_1_1" : СОП_="СОП."+"20010";
        |РазмещЗаказ="11.93_1_2" : СОП_="СОП."+"20020";
        |РазмещЗаказ="11.93_1_3" : СОП_="СОП."+"20030";
        |РазмещЗаказ="11.93_1_4" : СОП_="СОП."+"20000";
        |РазмещЗаказ="11.93_1_5" : СОП_="СОП."+"20000";
        |РазмещЗаказ="11.93_1_6" : СОП_="СОП."+"20040";
        |РазмещЗаказ="11.93_1_7" : СОП_="СОП."+"20050";
        |РазмещЗаказ="11.93_1_8" : СОП_="СОП."+"20060";
        |РазмещЗаказ="11.93_1_9" : СОП_="СОП."+"20070";
        |РазмещЗаказ="11.93_1_10": СОП_="СОП."+"20080";
        |РазмещЗаказ="11.93_1_11": СОП_="СОП."+"20090";
        |РазмещЗаказ="11.93_1_12": СОП_="СОП."+"20100";
        |РазмещЗаказ="11.93_1_13": СОП_="СОП."+"20110";
        |РазмещЗаказ="11.93_1_14": СОП_="СОП."+"20120";
        |РазмещЗаказ="11.93_1_15": СОП_="СОП."+"20130";
        |РазмещЗаказ="11.93_1_16": СОП_="СОП."+"20140";
        |РазмещЗаказ="11.93_1_17": СОП_="СОП."+"20150";
        |РазмещЗаказ="11.93_1_18": СОП_="СОП."+"20160";
        |РазмещЗаказ="11.93_1_19": СОП_="СОП."+"20170";
        |РазмещЗаказ="11.93_1_20": СОП_="СОП."+"20180";
        |РазмещЗаказ="11.93_1_21": СОП_="СОП."+"20190";
        |РазмещЗаказ="11.93_1_22": СОП_="СОП."+"20200";
        |РазмещЗаказ="11.93_1_23": СОП_="СОП."+"20210";
        |РазмещЗаказ="11.93_1_24": СОП_="СОП."+"20220";
        |РазмещЗаказ="11.93_1_26": СОП_="СОП."+"20300";
        |РазмещЗаказ="11.93_1_28": СОП_="СОП."+"20310";
        |True: СОП_="";
      fi;
      if not ЭтоИзм:
         :Сум1^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер1_ $ОКДП_Призн $СОП_}  -- $Признак_Кмнт
         :Сум2^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер2_ $ОКДП_Призн $СОП_}  -- $Признак_Кмнт
         :Сум3^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер3_ $ОКДП_Призн $СОП_}  -- $Признак_Кмнт
         :Сум4^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер4_ $ОКДП_Призн $СОП_}  -- $Признак_Кмнт
         :Сум5^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер5_ $ОКДП_Призн $СОП_}  -- $Признак_Кмнт
         :Сум6^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер6_ $ОКДП_Призн $СОП_}  -- $Признак_Кмнт
      fi;
      if ЭтоИзм:
         ИсполДокПризн_=if(ТипИзм=99,ИсполДокПризн,"");
         if not Пре_Общ_Призн0=Общ_Призн0 or not Пре_Общ_Призн1=Общ_Призн1 or not Пре_Общ_Призн2=Общ_Призн2:
            :-Сум_Пре1^$Вал_  $СчДеб  $СчКре {$Пре_Общ_Призн0 $Пре_Общ_Призн1 $Пре_Общ_Призн2 $Призн $Признак_ $Пер1_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :-Сум_Пре2^$Вал_  $СчДеб  $СчКре {$Пре_Общ_Призн0 $Пре_Общ_Призн1 $Пре_Общ_Призн2 $Призн $Признак_ $Пер2_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :-Сум_Пре3^$Вал_  $СчДеб  $СчКре {$Пре_Общ_Призн0 $Пре_Общ_Призн1 $Пре_Общ_Призн2 $Призн $Признак_ $Пер3_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :-Сум_Пре4^$Вал_  $СчДеб  $СчКре {$Пре_Общ_Призн0 $Пре_Общ_Призн1 $Пре_Общ_Призн2 $Призн $Признак_ $Пер4_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :-Сум_Пре5^$Вал_  $СчДеб  $СчКре {$Пре_Общ_Призн0 $Пре_Общ_Призн1 $Пре_Общ_Призн2 $Призн $Признак_ $Пер5_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :-Сум_Пре6^$Вал_  $СчДеб  $СчКре {$Пре_Общ_Призн0 $Пре_Общ_Призн1 $Пре_Общ_Призн2 $Призн $Признак_ $Пер6_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум1^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер1_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум2^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер2_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум3^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер3_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум4^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер4_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум5^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер5_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум6^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер6_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
           |True:
            :Сум1-Сум_Пре1^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер1_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум2-Сум_Пре2^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер2_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум3-Сум_Пре3^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер3_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум4-Сум_Пре4^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер4_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум5-Сум_Пре5^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер5_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
            :Сум6-Сум_Пре6^$Вал_  $СчДеб  $СчКре {$Общ_Призн0 $Общ_Призн1 $Общ_Призн2 $Призн $Признак_ $Пер6_ $ОКДП_Призн $ИсполДокПризн $СОП_}  -- $Признак_Кмнт
         fi;
      fi;
   Репо; --Заявка_Закуп="Заявка на закупку"
  Аппург; --Прочие="Прочие операции";
 Аппург; --РПО="Типовые операции РПО 'Бюджет'";
Аппург; --РАБ="Обработчики картотек";