<?xml version="1.0" encoding="windows-1251"?>
<!-- edited with XML Spy v4.3 U (http://www.xmlspy.com) by ASD (ASD) -->
<Модуль rg_version="1.0">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503123-191н_ред180н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503123_180n_2023</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503123_180n_2023</мнемокод>
        <файл>Форма0503123_191н_ред180н_2023.xlt</файл>
      </шаблон>
      <!--Отчет формируется по хозяйственным операциям за период-->
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503123_180n_2023</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dBalOpen;dSelDate;dReoDate;cOrg;cNameBudzh;cKSO;cRN_MarkVPL;cRN_MarkNOO;nAnLevel4;nAnLevelDD;nAnLevel5;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;cBalUnits;nAccType;lAsInvest;lNoCalc5;cUnlPath;cIST;cDicIsp;cIspName;cIspTel</список_переменных>
        <мемофайл>ar_form0503123_191n_180n_2023;ar_form0503123_191n_186n_2023;ar_form0503123_191n_186n_2022;ar_form0503123_191n_94n_2022;ar_form0503123_191n_217n_2021;ar_form0503123_191n_82n_2021;ar_form0503123_191n_311n_2021;ar_form0503123_191n_13n_2020;ar_form0503123_191n_72n_2019</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dBalOpen</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата расчета показателей вступительного баланса-->
      </переменная>
      <переменная>
        <имя>dSelDate</имя>
        <начальное_значение>oSystem.Date</начальное_значение>
        <!--Отчетный период-->
      </переменная>
      <переменная>
        <имя>dReoDate</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата реорганизации-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата С-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учреждение-->
      </переменная>
      <переменная>
        <имя>cWhereKontragent</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по контрагентам-->
      </переменная>
      <переменная>
        <имя>cNameBudzh</имя>
        <начальное_значение>""</начальное_значение>
        <!--Наименование бюджета-->
      </переменная>
      <переменная>
        <имя>cKSO</имя>
        <начальное_значение>"ПБС"</начальное_значение>
        <!--Код субъекта отчетности-->
      </переменная>
      <переменная>
        <имя>cRN_MarkVPL</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка (Возвраты прошлых лет)-->
      </переменная>
      <переменная>
        <имя>cRN_MarkNOO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка (Не отражать в отчете)-->
      </переменная>
      <переменная>
        <имя>nAnLevel4</имя>
        <начальное_значение>4</начальное_значение>
        <!--Уровень аналитики КОСГУ для счетов денежных средств: 201-х и 21003-->
      </переменная>
      <переменная>
        <имя>nAnLevelDD</имя>
        <начальное_значение>0</начальное_значение>
        <!--Уровень аналитики классификации расходов для счетов денежных средств: 201-х и 21003-->
      </переменная>
      <переменная>
        <имя>nAnLevel5</имя>
        <начальное_значение>5</начальное_значение>
        <!--Уровень аналитики КОСГУ для счетов 21002, 21004 и 30405-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>"1"</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>"3"</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>c18B</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cUsl18B</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие для кода вида деятельности-->
      </переменная>
      <переменная>
        <имя>cBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Балансовые единицы-->
      </переменная>
      <переменная>
        <имя>cWhereBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>lAsInvest</имя>
        <начальное_значение>.T.</начальное_значение>
        <!--Отражать поступления от реализации материальных запасов как инвестиционные операции-->
      </переменная>
      <переменная>
        <имя>lNoCalc5</имя>
        <начальное_значение>.T.</начальное_значение>
        <!--Не рассчитывать показатели по графе 5 "За аналогичный период прошлого финансового года"-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
         <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
         <!--Глава по БК-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,12,31)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>
      <переменная>
        <имя>cPos18</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cPos19</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
    </переменные>
    <запуск_формы>
      <ид>f_0503123_191n_180n_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
 Local cJoinAn_D, cJoinAn_K, cOrgPO_, cWhereNOO, dDateBeginPast, dDateEndPast, i, cVal
 Local ARRAY arBP[1]
*ON ERROR

 dDateEnd   = Iif(Empty(m.dReoDate), DOX(m.dSelDate, 4), m.dReoDate)
 dDateBegin = Iif(Empty(m.dBalOpen), DOX(m.dDateEnd, 1), m.dBalOpen)

 * Отбор аналитических счетов по контрагенту
 Store   ""   To cJoinAn_D, cJoinAn_K
 Store ".T. " To cOrgPO_

 If !Empty(m.cWhereKontragent)
   Select AccSpec.RN ;
     From AccSpec ;
       Inner Join OrgBase On AccSpec.RN_TOrg = OrgBase.RN ;
     Where &cWhereKontragent ;
     Into Cursor crsAccSpRN

   If _Tally = 0
      Store ".F. " To cOrgPO_
   Else
      Index On RN Tag RN
      cJoinAn_D = "Left Join crsAccSpRN A1 On S.RN_DB_A1 = A1.RN " ;
                + "Left Join crsAccSpRN A2 On S.RN_DB_A2 = A2.RN " ;
                + "Left Join crsAccSpRN A3 On S.RN_DB_A3 = A3.RN " ;
                + "Left Join crsAccSpRN A4 On S.RN_DB_A4 = A4.RN " ;
                + "Left Join crsAccSpRN A5 On S.RN_DB_A5 = A5.RN "
      cOrgPO_   = "(!IsNull(A1.RN) Or !IsNull(A2.RN) Or !IsNull(A3.RN) Or !IsNull(A4.RN) Or !IsNull(A5.RN)) "
      cJoinAn_K = StrTran(m.cJoinAn_D, "_DB_", "_KR_")
   EndIf
 EndIf

 * Глава по БК
 If !Empty(m.cWhereKontragent)
   Select fBudMG.Rasp_Code ;
     From OrgBase ;
       Inner Join fBudMG On OrgBase.RN = fBudMG.OrgBase_RN ;
     Where &cWhereKontragent And !Empty(fBudMG.Rasp_Code);
     Into ARRAY arBP
   *
   If _Tally > 0
     glBK = arBP(1)
   EndIf 
 EndIf 

 If Empty(m.glBK)
   Select Rasp_Code ;
     From fBudMG ;
     Where OrgBase_RN = ?oSystem.OwnerOrgRn And !Empty(Rasp_Code);
     Into ARRAY arBP
   *
   If _Tally > 0
     glBK = arBP(1)
   EndIf 
 EndIf

 * Особая отметка "Не отражать в отчете"
 cWhereNOO = Iif(Empty(m.cRN_MarkNOO), "", "And B.RN_MARK # '" + m.cRN_MarkNOO + "'")

 * обороты для всех ячеек
 Select S.*, B.Date_EOP, B.RN_MARK, ;
        Nvl(O1.INN, Space(22)) As INN_FR, ;
        Nvl(O2.INN, Space(22)) As INN_TO  ;
    From EopBase B ;
      Inner JOIN EopSpec S  On B.RN = S.Master_RN ;
      &cJoinAn_D ;
      Left  Join OrgBase O1 On B.RN_ORGFR = O1.RN ;
      Left  Join OrgBase O2 On B.RN_ORGTO = O2.RN ;
    Where B.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cWhereNOO AND &cOrgPO_ ;
    Into Cursor crEopSpecDB

 Select S.*, B.Date_EOP, B.RN_MARK, ;
        Nvl(O1.INN, Space(22)) As INN_FR, ;
        Nvl(O2.INN, Space(22)) As INN_TO  ;
    From EopBase B ;
      Inner JOIN EopSpec S  On B.RN = S.Master_RN ;
      &cJoinAn_K ;
      Left  Join OrgBase O1 On B.RN_ORGFR = O1.RN ;
      Left  Join OrgBase O2 On B.RN_ORGTO = O2.RN ;
    Where B.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cWhereNOO AND &cOrgPO_ ;
    Into Cursor crEopSpecKR

 If !m.lNoCalc5
   dDateBeginPast = GoMonth(m.dDateBegin, -12)
   dDateEndPast   = GoMonth(m.dDateEnd,   -12)

   Select S.*, B.Date_EOP, B.RN_MARK, ;
          Nvl(O1.INN, Space(22)) As INN_FR, ;
          Nvl(O2.INN, Space(22)) As INN_TO  ;
      From EopBase B ;
        Inner JOIN EopSpec S  On B.RN = S.Master_RN ;
        &cJoinAn_D ;
        Left  Join OrgBase O1 On B.RN_ORGFR = O1.RN ;
        Left  Join OrgBase O2 On B.RN_ORGTO = O2.RN ;
      Where B.Date_EOP BETWEEN ?m.dDateBeginPast AND ?m.dDateEndPast &cWhereNOO AND &cOrgPO_ ;
      Into Cursor crEopSpecPastDB

   Select S.*, B.Date_EOP, B.RN_MARK, ;
          Nvl(O1.INN, Space(22)) As INN_FR, ;
          Nvl(O2.INN, Space(22)) As INN_TO  ;
      From EopBase B ;
        Inner JOIN EopSpec S  On B.RN = S.Master_RN ;
        &cJoinAn_K ;
        Left  Join OrgBase O1 On B.RN_ORGFR = O1.RN ;
        Left  Join OrgBase O2 On B.RN_ORGTO = O2.RN ;
      Where B.Date_EOP BETWEEN ?m.dDateBeginPast AND ?m.dDateEndPast &cWhereNOO AND &cOrgPO_ ;
      Into Cursor crEopSpecPastKR
 EndIf

 CurClose("crsAccSpRN")
                     ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
* Переменные для заполнения отчета
 Private nOptionVPL, cUnitExpKind
 Private All Like nCol?Row*
 Local cCorrNot, cCorr1Not
 Store 0 To nCol4Row0301, nCol5Row0301, ;
            nCol4Row0302, nCol5Row0302, ;
            nCol4Row0303, nCol5Row0303, ;
            nCol4Row0304, nCol5Row0304, ;
            nCol4Row0401, nCol5Row0401, ;
            nCol4Row0402, nCol5Row0402, ;
            nCol4Row0403, nCol5Row0403, ;
            nCol4Row0404, nCol5Row0404, ;
            nCol4Row0405, nCol5Row0405, ;
            nCol4Row0406, nCol5Row0406, ;
            nCol4Row0407, nCol5Row0407, ;
            nCol4Row0408, nCol5Row0408, ;
            nCol4Row0409, nCol5Row0409, ;
            nCol4Row0410, nCol5Row0410, ;
            nCol4Row0411, nCol5Row0411, ;
            nCol4Row0502, nCol5Row0502, ;
            nCol4Row0503, nCol5Row0503, ;
            nCol4Row0504, nCol5Row0504, ;
            nCol4Row0505, nCol5Row0505, ;
            nCol4Row0506, nCol5Row0506, ;
            nCol4Row0507, nCol5Row0507, ;
            nCol4Row0601, nCol5Row0601, ;
            nCol4Row0602, nCol5Row0602, ;
            nCol4Row0603, nCol5Row0603, ;
            nCol4Row0604, nCol5Row0604, ;
            nCol4Row0605, nCol5Row0605
 Store 0 To nCol4Row0701, nCol5Row0701, ;
            nCol4Row0703, nCol5Row0703, ;
            nCol4Row0704, nCol5Row0704, ;
            nCol4Row0705, nCol5Row0705, ;
            nCol4Row0706, nCol5Row0706, ;
            nCol4Row0707, nCol5Row0707, ;
            nCol4Row0708, nCol5Row0708, ;
            nCol4Row0709, nCol5Row0709, ;
            nCol4Row0801, nCol5Row0801, ;
            nCol4Row0803, nCol5Row0803, ;
            nCol4Row0804, nCol5Row0804, ;
            nCol4Row0805, nCol5Row0805, ;
            nCol4Row0806, nCol5Row0806, ;
            nCol4Row0807, nCol5Row0807, ;
            nCol4Row0808, nCol5Row0808, ;
            nCol4Row1201, nCol5Row1201, ;
            nCol4Row1202, nCol5Row1202, ;
            nCol4Row1203, nCol5Row1203
 Store 0 To nCol4Row1410, nCol5Row1410, ;
            nCol4Row1420, nCol5Row1420, ;
            nCol4Row1430, nCol5Row1430, ;
            nCol4Row1441, nCol5Row1441, ;
            nCol4Row1442, nCol5Row1442, ;
            nCol4Row1443, nCol5Row1443, ;
            nCol4Row1444, nCol5Row1444, ;
            nCol4Row1445, nCol5Row1445, ;
            nCol4Row1446, nCol5Row1446, ;
            nCol4Row1449, nCol5Row1449, ;
            nCol4Row1450, nCol5Row1450, ;
            nCol4Row1610, nCol5Row1610, ;
            nCol4Row1620, nCol5Row1620, ;
            nCol4Row1631, nCol5Row1631, ;
            nCol4Row1632, nCol5Row1632, ;
            nCol4Row1633, nCol5Row1633, ;
            nCol4Row1634, nCol5Row1634, ;
            nCol4Row1635, nCol5Row1635, ;
            nCol4Row1636, nCol5Row1636, ;
            nCol4Row1637, nCol5Row1637, ;
            nCol4Row1638, nCol5Row1638, ;
            nCol4Row1639, nCol5Row1639, ;
            nCol4Row1640, nCol5Row1640, ;
            nCol4Row1910, nCol5Row1910, ;
            nCol4Row1920, nCol5Row1920

 Store 0 To nCol4Row2301, nCol5Row2301, ;
            nCol4Row2302, nCol5Row2302, ;
            nCol4Row2303, nCol5Row2303, ;
            nCol4Row2304, nCol5Row2304, ;
            nCol4Row2401, nCol5Row2401, ;
            nCol4Row2402, nCol5Row2402, ;
            nCol4Row2403, nCol5Row2403, ;
            nCol4Row2404, nCol5Row2404, ;
            nCol4Row2405, nCol5Row2405, ;
            nCol4Row2406, nCol5Row2406, ;
            nCol4Row2407, nCol5Row2407, ;
            nCol4Row2408, nCol5Row2408, ;
            nCol4Row2501, nCol5Row2501, ;
            nCol4Row2502, nCol5Row2502, ;
            nCol4Row2601, nCol5Row2601, ;
            nCol4Row2602, nCol5Row2602, ;
            nCol4Row2603, nCol5Row2603, ;
            nCol4Row2604, nCol5Row2604, ;
            nCol4Row2605, nCol5Row2605, ;
            nCol4Row2606, nCol5Row2606, ;
            nCol4Row2607, nCol5Row2607, ;
            nCol4Row2608, nCol5Row2608, ;
            nCol4Row2609, nCol5Row2609, ;
            nCol4Row2611, nCol5Row2611, ;
            nCol4Row2612, nCol5Row2612
 Store 0 To nCol4Row2701, nCol5Row2701, ;
            nCol4Row2702, nCol5Row2702, ;
            nCol4Row2703, nCol5Row2703, ;
            nCol4Row2704, nCol5Row2704, ;
            nCol4Row2705, nCol5Row2705, ;
            nCol4Row2706, nCol5Row2706, ;
            nCol4Row2801, nCol5Row2801, ;
            nCol4Row2802, nCol5Row2802, ;
            nCol4Row2803, nCol5Row2803, ;
            nCol4Row2804, nCol5Row2804, ;
            nCol4Row2805, nCol5Row2805, ;
            nCol4Row2806, nCol5Row2806, ;
            nCol4Row2807, nCol5Row2807, ;
            nCol4Row2901, nCol5Row2901, ;
            nCol4Row3001, nCol5Row3001, ;
            nCol4Row3002, nCol5Row3002, ;
            nCol4Row3003, nCol5Row3003, ;
            nCol4Row3004, nCol5Row3004, ;
            nCol4Row3005, nCol5Row3005, ;
            nCol4Row3006, nCol5Row3006, ;
            nCol4Row3101, nCol5Row3101, ;
            nCol4Row3102, nCol5Row3102, ;
            nCol4Row3103, nCol5Row3103, ;
            nCol4Row3104, nCol5Row3104, ;
            nCol4Row3105, nCol5Row3105, ;
            nCol4Row3106, nCol5Row3106, ;
            nCol4Row3107, nCol5Row3107, ;
            nCol4Row3108, nCol5Row3108, ;
            nCol4Row3109, nCol5Row3109, ;
            nCol4Row3111, nCol5Row3111, ;
            nCol4Row3112, nCol5Row3112, ;
            nCol4Row3113, nCol5Row3113, ;
            nCol4Row3114, nCol5Row3114, ;
            nCol4Row3115, nCol5Row3115, ;
            nCol4Row3116, nCol5Row3116, ;
            nCol4Row3117, nCol5Row3117
 Store 0 To nCol4Row3310, nCol5Row3310, ;
            nCol4Row3320, nCol5Row3320, ;
            nCol4Row3330, nCol5Row3330, ;
            nCol4Row3347, nCol5Row3347, ;
            nCol4Row3350, nCol5Row3350, ;
            nCol4Row3390, nCol5Row3390, ;
            nCol4Row3410, nCol5Row3410, ;
            nCol4Row3420, nCol5Row3420, ;
            nCol4Row3430, nCol5Row3430, ;
            nCol4Row3431, nCol5Row3431, ;
            nCol4Row3432, nCol5Row3432, ;
            nCol4Row3433, nCol5Row3433, ;
            nCol4Row3434, nCol5Row3434, ;
            nCol4Row3435, nCol5Row3435, ;
            nCol4Row3436, nCol5Row3436, ;
            nCol4Row3437, nCol5Row3437, ;
            nCol4Row3438, nCol5Row3438, ;
            nCol4Row3439, nCol5Row3439, ;
            nCol4Row3440, nCol5Row3440, ;
            nCol4Row3810, nCol5Row3810, ;
            nCol4Row3820, nCol5Row3820

 Store 0 To nCol4Row4210, nCol5Row4210, ;
            nCol4Row4220, nCol5Row4220, ;
            nCol4Row4310, nCol5Row4310, ;
            nCol4Row4320, nCol5Row4320, ;
            nCol4Row4410, nCol5Row4410, ;
            nCol4Row4420, nCol5Row4420, ;
            nCol4Row4510, nCol5Row4510, ;
            nCol4Row4520, nCol5Row4520, ;
            nCol4Row4610, nCol5Row4610, ;
            nCol4Row4620, nCol5Row4620, ;
            nCol4Row4910, nCol5Row4910, ;
            nCol4Row4920, nCol5Row4920, ;
            nCol4Row4930, nCol5Row4930, ;
            nCol4Row4940, nCol5Row4940, ;
            nCol4Row5010, nCol5Row5010, ;
            nCol4Row5020, nCol5Row5020, ;
            nCol4Row5030, nCol5Row5030

*ON ERROR

cUnitExpKind = UnitRN("ExpenseKinds")

&& Раздел 1. Доходы
*------------------
nOptionVPL = 1
cCorrNot  = "!201,21003,21002,21004,30407,4013"
cCorr1Not = "!201,21003,21002,30407,4013"

&&0301
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "111", m.nAnLevel4, 0301, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "111", m.nAnLevel5, 0301, "OBDB;OBCR", m.cCorrNot)

&&0302
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "112", m.nAnLevel4, 0302, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "112", m.nAnLevel5, 0302, "OBDB;OBCR", m.cCorrNot)

&&0303
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "113", m.nAnLevel4, 0303, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "113", m.nAnLevel5, 0303, "OBDB;OBCR", m.cCorrNot)

&&0304
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "114", m.nAnLevel4, 0304, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "114", m.nAnLevel5, 0304, "OBDB;OBCR", m.cCorrNot)

&&0401
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "121", m.nAnLevel4, 0401, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "121", m.nAnLevel5, 0401, "OBDB;OBCR", m.cCorrNot)

&&0402
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "122", m.nAnLevel4, 0402, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "122", m.nAnLevel5, 0402, "OBDB;OBCR", m.cCorrNot)

&&0403
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "123", m.nAnLevel4, 0403, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "123", m.nAnLevel5, 0403, "OBDB;OBCR", m.cCorrNot)

&&0404
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "124", m.nAnLevel4, 0404, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "124", m.nAnLevel5, 0404, "OBDB;OBCR", m.cCorrNot)

&&0405
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "125", m.nAnLevel4, 0405, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "125", m.nAnLevel5, 0405, "OBDB;OBCR", m.cCorrNot)

&&0406
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "126", m.nAnLevel4, 0406, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "126", m.nAnLevel5, 0406, "OBDB;OBCR", m.cCorrNot)

&&0407
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "127", m.nAnLevel4, 0407, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "127", m.nAnLevel5, 0407, "OBDB;OBCR", m.cCorrNot)

&&0408
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "128", m.nAnLevel4, 0408, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "128", m.nAnLevel5, 0408, "OBDB;OBCR", m.cCorrNot)

&&0409
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "129", m.nAnLevel4, 0409, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "129", m.nAnLevel5, 0409, "OBDB;OBCR", m.cCorrNot)

&&0410
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "12K,12К", m.nAnLevel4, 0410, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "12K,12К", m.nAnLevel5, 0410, "OBDB;OBCR", m.cCorrNot)

&&0411
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "12T,12Т", m.nAnLevel4, 0411, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "12T,12Т", m.nAnLevel5, 0411, "OBDB;OBCR", m.cCorrNot)

&&0502
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "131",  m.nAnLevel4, 0502, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "131", m.nAnLevel5, 0502, "OBDB;OBCR", m.cCorr1Not)

&&0503
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "132",  m.nAnLevel4, 0503, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "132", m.nAnLevel5, 0503, "OBDB;OBCR", m.cCorr1Not)

&&0504
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "133",  m.nAnLevel4, 0504, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "133", m.nAnLevel5, 0504, "OBDB;OBCR", m.cCorr1Not)

&&0505
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "134",  m.nAnLevel4, 0505, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "134", m.nAnLevel5, 0505, "OBDB;OBCR", m.cCorr1Not)

&&0506
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "135",  m.nAnLevel4, 0506, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "135", m.nAnLevel5, 0506, "OBDB;OBCR", m.cCorr1Not)

&&0507
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "139",  m.nAnLevel4, 0507, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "139", m.nAnLevel5, 0507, "OBDB;OBCR", m.cCorr1Not)

&&0601
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "141", m.nAnLevel4, 0601, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "141", m.nAnLevel5, 0601, "OBDB;OBCR", m.cCorrNot)

&&0602
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "142", m.nAnLevel4, 0602, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "142", m.nAnLevel5, 0602, "OBDB;OBCR", m.cCorrNot)

&&0603
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "143", m.nAnLevel4, 0603, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "143", m.nAnLevel5, 0603, "OBDB;OBCR", m.cCorrNot)

&&0604
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "144", m.nAnLevel4, 0604, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "144", m.nAnLevel5, 0604, "OBDB;OBCR", m.cCorrNot)

&&0605
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "145", m.nAnLevel4, 0605, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "145", m.nAnLevel5, 0605, "OBDB;OBCR", m.cCorrNot)

&&0701
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "151", m.nAnLevel4, 0701, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "151", m.nAnLevel5, 0701, "OBDB;OBCR", m.cCorrNot)

&&0703
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "153", m.nAnLevel4, 0703, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "153", m.nAnLevel5, 0703, "OBDB;OBCR", m.cCorr1Not)

&&0704
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "154", m.nAnLevel4, 0704, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "154", m.nAnLevel5, 0704, "OBDB;OBCR", m.cCorr1Not)

&&0705
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "155", m.nAnLevel4, 0705, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "155", m.nAnLevel5, 0705, "OBDB;OBCR", m.cCorr1Not)

&&0706
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "156", m.nAnLevel4, 0706, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "156", m.nAnLevel5, 0706, "OBDB;OBCR", m.cCorr1Not)

&&0707
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "157", m.nAnLevel4, 0707, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "157", m.nAnLevel5, 0707, "OBDB;OBCR", m.cCorr1Not)

&&0708
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "158", m.nAnLevel4, 0708, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "158", m.nAnLevel5, 0708, "OBDB;OBCR", m.cCorr1Not)

&&0709
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "159", m.nAnLevel4, 0709, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "159", m.nAnLevel5, 0709, "OBDB;OBCR", m.cCorr1Not)

&&0801
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "161", m.nAnLevel4, 0801, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "161", m.nAnLevel5, 0801, "OBDB;OBCR", m.cCorrNot)

&&0803
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "163", m.nAnLevel4, 0803, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "163", m.nAnLevel5, 0803, "OBDB;OBCR", m.cCorr1Not)

&&0804
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "164", m.nAnLevel4, 0804, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "164", m.nAnLevel5, 0804, "OBDB;OBCR", m.cCorr1Not)

&&0805
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "165", m.nAnLevel4, 0805, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "165", m.nAnLevel5, 0805, "OBDB;OBCR", m.cCorr1Not)

&&0806
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "166", m.nAnLevel4, 0806, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "166", m.nAnLevel5, 0806, "OBDB;OBCR", m.cCorr1Not)

&&0807
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "167", m.nAnLevel4, 0807, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "167", m.nAnLevel5, 0807, "OBDB;OBCR", m.cCorr1Not)

&&0808
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "168", m.nAnLevel4, 0808, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "168", m.nAnLevel5, 0808, "OBDB;OBCR", m.cCorr1Not)

&&1201
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "181",  m.nAnLevel4, 1201, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "181", m.nAnLevel5, 1201, "OBDB;OBCR", m.cCorr1Not)

&&1202
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "189",  m.nAnLevel4, 1202, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "189", m.nAnLevel5, 1202, "OBDB;OBCR", m.cCorr1Not)

If !m.lAsInvest
  &&1203
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "44",  m.nAnLevel4, 1203, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "44", m.nAnLevel5, 1203, "OBDB;OBCR", m.cCorr1Not)
EndIf

&&1410
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "41", m.nAnLevel4, 1410, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "41", m.nAnLevel5, 1410, "OBDB;OBCR", m.cCorr1Not)

&&1420
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "42", m.nAnLevel4, 1420, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "42", m.nAnLevel5, 1420, "OBDB;OBCR", m.cCorr1Not)

&&1430
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "43", m.nAnLevel4, 1430, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "43", m.nAnLevel5, 1430, "OBDB;OBCR", m.cCorr1Not)

If m.lAsInvest
  &&1441
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "441", m.nAnLevel4, 1441, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "441", m.nAnLevel5, 1441, "OBDB;OBCR", m.cCorr1Not)

  &&1442
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "442", m.nAnLevel4, 1442, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "442", m.nAnLevel5, 1442, "OBDB;OBCR", m.cCorr1Not)

  &&1443
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "443", m.nAnLevel4, 1443, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "443", m.nAnLevel5, 1443, "OBDB;OBCR", m.cCorr1Not)

  &&1444
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "444", m.nAnLevel4, 1444, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "444", m.nAnLevel5, 1444, "OBDB;OBCR", m.cCorr1Not)

  &&1445
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "445", m.nAnLevel4, 1445, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "445", m.nAnLevel5, 1445, "OBDB;OBCR", m.cCorr1Not)

  &&1446
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "446", m.nAnLevel4, 1446, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "446", m.nAnLevel5, 1446, "OBDB;OBCR", m.cCorr1Not)

  &&1449
  =SelAccFromBase(m.cUsl18B, "2011,2012,20134", "449", m.nAnLevel4, 1449, "OBDB;OBCR", m.cCorr1Not)
  =SelAccFromBase(m.cUsl18B, "21002", "449", m.nAnLevel5, 1449, "OBDB;OBCR", m.cCorr1Not)
EndIf

&&1450
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "46", m.nAnLevel4, 1450, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "46", m.nAnLevel5, 1450, "OBDB;OBCR", m.cCorr1Not)

&&1610
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "62", m.nAnLevel4, 1610, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "62", m.nAnLevel5, 1610, "OBDB;OBCR", m.cCorr1Not)

&&1620
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "63", m.nAnLevel4, 1620, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "63", m.nAnLevel5, 1620, "OBDB;OBCR", m.cCorr1Not)

&&1631
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "641", m.nAnLevel4, 1631, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "641", m.nAnLevel5, 1631, "OBDB;OBCR", m.cCorrNot)

&&1632
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "642", m.nAnLevel4, 1632, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "642", m.nAnLevel5, 1632, "OBDB;OBCR", m.cCorrNot)

&&1633
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "643", m.nAnLevel4, 1633, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "643", m.nAnLevel5, 1633, "OBDB;OBCR", m.cCorrNot)

&&1634
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "644", m.nAnLevel4, 1634, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "644", m.nAnLevel5, 1634, "OBDB;OBCR", m.cCorrNot)

&&1635
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "645", m.nAnLevel4, 1635, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "645", m.nAnLevel5, 1635, "OBDB;OBCR", m.cCorrNot)

&&1636
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "646", m.nAnLevel4, 1636, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "646", m.nAnLevel5, 1636, "OBDB;OBCR", m.cCorrNot)

&&1637
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "647", m.nAnLevel4, 1637, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "647", m.nAnLevel5, 1637, "OBDB;OBCR", m.cCorrNot)

&&1638
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "648", m.nAnLevel4, 1638, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "648", m.nAnLevel5, 1638, "OBDB;OBCR", m.cCorrNot)

&&1639
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "649", m.nAnLevel4, 1639, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "649", m.nAnLevel5, 1639, "OBDB;OBCR", m.cCorrNot)

&&1640
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "65", m.nAnLevel4, 1640, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "65", m.nAnLevel5, 1640, "OBDB;OBCR", m.cCorr1Not)

&&1910
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "71", m.nAnLevel4, 1910, "OBDB;OBCR", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "21002,21004", "71", m.nAnLevel5, 1910, "OBDB;OBCR", m.cCorrNot)

&&1920
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "72", m.nAnLevel4, 1920, "OBDB;OBCR", m.cCorr1Not)
=SelAccFromBase(m.cUsl18B, "21002", "72", m.nAnLevel5, 1920, "OBDB;OBCR", m.cCorr1Not)


&& Раздел 2. Выбытия
*-------------------
cCorrNot = "!201,21003,30404,30405,4013,30275"

&&2301
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "211", m.nAnLevel4, 2301, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "211", m.nAnLevel5, 2301, "OBCR;OBDB", m.cCorrNot)

&&2302
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "212", m.nAnLevel4, 2302, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "212", m.nAnLevel5, 2302, "OBCR;OBDB", m.cCorrNot)

&&2303
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "213", m.nAnLevel4, 2303, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "213", m.nAnLevel5, 2303, "OBCR;OBDB", m.cCorrNot)

&&2304
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "214", m.nAnLevel4, 2304, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "214", m.nAnLevel5, 2304, "OBCR;OBDB", m.cCorrNot)

&&2401
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "221", m.nAnLevel4, 2401, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "221", m.nAnLevel5, 2401, "OBCR;OBDB", m.cCorrNot)

&&2402
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "222", m.nAnLevel4, 2402, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "222", m.nAnLevel5, 2402, "OBCR;OBDB", m.cCorrNot)

&&2403
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "223", m.nAnLevel4, 2403, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "223", m.nAnLevel5, 2403, "OBCR;OBDB", m.cCorrNot)

&&2404
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "224", m.nAnLevel4, 2404, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "224", m.nAnLevel5, 2404, "OBCR;OBDB", m.cCorrNot)

&&2405
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "225", m.nAnLevel4, 2405, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "225", m.nAnLevel5, 2405, "OBCR;OBDB", m.cCorrNot)

&&2406
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "226", m.nAnLevel4, 2406, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "226", m.nAnLevel5, 2406, "OBCR;OBDB", m.cCorrNot)

&&2407
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "227", m.nAnLevel4, 2407, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "227", m.nAnLevel5, 2407, "OBCR;OBDB", m.cCorrNot)

&&2408
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "229", m.nAnLevel4, 2408, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "229", m.nAnLevel5, 2408, "OBCR;OBDB", m.cCorrNot)

&&2501
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "231", m.nAnLevel4, 2501, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "231", m.nAnLevel5, 2501, "OBCR;OBDB", m.cCorrNot)

&&2502
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "232", m.nAnLevel4, 2502, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "232", m.nAnLevel5, 2502, "OBCR;OBDB", m.cCorrNot)

&&2601
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "241", m.nAnLevel4, 2601, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "241", m.nAnLevel5, 2601, "OBCR;OBDB", m.cCorrNot)

&&2602
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "242", m.nAnLevel4, 2602, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "242", m.nAnLevel5, 2602, "OBCR;OBDB", m.cCorrNot)

&&2603
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "243", m.nAnLevel4, 2603, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "243", m.nAnLevel5, 2603, "OBCR;OBDB", m.cCorrNot)

&&2604
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "244", m.nAnLevel4, 2604, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "244", m.nAnLevel5, 2604, "OBCR;OBDB", m.cCorrNot)

&&2605
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "245", m.nAnLevel4, 2605, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "245", m.nAnLevel5, 2605, "OBCR;OBDB", m.cCorrNot)

&&2606
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "246", m.nAnLevel4, 2606, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "246", m.nAnLevel5, 2606, "OBCR;OBDB", m.cCorrNot)

&&2607
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "247", m.nAnLevel4, 2607, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "247", m.nAnLevel5, 2607, "OBCR;OBDB", m.cCorrNot)

&&2608
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "248", m.nAnLevel4, 2608, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "248", m.nAnLevel5, 2608, "OBCR;OBDB", m.cCorrNot)

&&2609
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "249", m.nAnLevel4, 2609, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "249", m.nAnLevel5, 2609, "OBCR;OBDB", m.cCorrNot)

&&2611
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "24A,24А", m.nAnLevel4, 2611, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "24A,24А", m.nAnLevel5, 2611, "OBCR;OBDB", m.cCorrNot)

&&2612
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "24B,24В", m.nAnLevel4, 2612, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "24B,24В", m.nAnLevel5, 2612, "OBCR;OBDB", m.cCorrNot)

&&2701
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "251", m.nAnLevel4, 2701, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "251", m.nAnLevel5, 2701, "OBCR;OBDB", m.cCorrNot)

&&2702
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "252", m.nAnLevel4, 2702, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "252", m.nAnLevel5, 2702, "OBCR;OBDB", m.cCorrNot)

&&2703
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "253", m.nAnLevel4, 2703, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "253", m.nAnLevel5, 2703, "OBCR;OBDB", m.cCorrNot)

&&2704
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "254", m.nAnLevel4, 2704, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "254", m.nAnLevel5, 2704, "OBCR;OBDB", m.cCorrNot)

&&2705
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "255", m.nAnLevel4, 2705, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "255", m.nAnLevel5, 2705, "OBCR;OBDB", m.cCorrNot)

&&2706
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "256", m.nAnLevel4, 2706, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "256", m.nAnLevel5, 2706, "OBCR;OBDB", m.cCorrNot)

&&2801
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "261", m.nAnLevel4, 2801, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "261", m.nAnLevel5, 2801, "OBCR;OBDB", m.cCorrNot)

&&2802
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "262", m.nAnLevel4, 2802, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "262", m.nAnLevel5, 2802, "OBCR;OBDB", m.cCorrNot)

&&2803
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "263", m.nAnLevel4, 2803, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "263", m.nAnLevel5, 2803, "OBCR;OBDB", m.cCorrNot)

&&2804
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "264", m.nAnLevel4, 2804, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "264", m.nAnLevel5, 2804, "OBCR;OBDB", m.cCorrNot)

&&2805
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "265", m.nAnLevel4, 2805, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "265", m.nAnLevel5, 2805, "OBCR;OBDB", m.cCorrNot)

&&2806
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "266", m.nAnLevel4, 2806, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "266", m.nAnLevel5, 2806, "OBCR;OBDB", m.cCorrNot)

&&2807
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "267", m.nAnLevel4, 2807, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "267", m.nAnLevel5, 2807, "OBCR;OBDB", m.cCorrNot)

&&2901
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "273", m.nAnLevel4, 2901, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "273", m.nAnLevel5, 2901, "OBCR;OBDB", m.cCorrNot)

&&3001
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "281",  m.nAnLevel4, 3001, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "281",  m.nAnLevel5, 3001, "OBCR;OBDB", m.cCorrNot)

&&3002
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "282",  m.nAnLevel4, 3002, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "282",  m.nAnLevel5, 3002, "OBCR;OBDB", m.cCorrNot)

&&3003
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "283",  m.nAnLevel4, 3003, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "283",  m.nAnLevel5, 3003, "OBCR;OBDB", m.cCorrNot)

&&3004
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "284",  m.nAnLevel4, 3004, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "284",  m.nAnLevel5, 3004, "OBCR;OBDB", m.cCorrNot)

&&3005
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "285",  m.nAnLevel4, 3005, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "285",  m.nAnLevel5, 3005, "OBCR;OBDB", m.cCorrNot)

&&3006
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "286",  m.nAnLevel4, 3006, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "286",  m.nAnLevel5, 3006, "OBCR;OBDB", m.cCorrNot)

&&3101
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "291",  m.nAnLevel4, 3101, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "291",  m.nAnLevel5, 3101, "OBCR;OBDB", m.cCorrNot)

&&3102
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "292",  m.nAnLevel4, 3102, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "292",  m.nAnLevel5, 3102, "OBCR;OBDB", m.cCorrNot)

&&3103
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "293",  m.nAnLevel4, 3103, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "293",  m.nAnLevel5, 3103, "OBCR;OBDB", m.cCorrNot)

&&3104
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "294",  m.nAnLevel4, 3104, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "294",  m.nAnLevel5, 3104, "OBCR;OBDB", m.cCorrNot)

&&3105
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "295",  m.nAnLevel4, 3105, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "295",  m.nAnLevel5, 3105, "OBCR;OBDB", m.cCorrNot)

&&3106
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "296",  m.nAnLevel4, 3106, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "296",  m.nAnLevel5, 3106, "OBCR;OBDB", m.cCorrNot)

&&3107
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "297",  m.nAnLevel4, 3107, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "297",  m.nAnLevel5, 3107, "OBCR;OBDB", m.cCorrNot)

&&3108
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "298",  m.nAnLevel4, 3108, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "298",  m.nAnLevel5, 3108, "OBCR;OBDB", m.cCorrNot)

&&3109
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "299",  m.nAnLevel4, 3109, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "299",  m.nAnLevel5, 3109, "OBCR;OBDB", m.cCorrNot)

&&3111
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "341",  m.nAnLevel4, 3111, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "341",  m.nAnLevel5, 3111, "OBCR;OBDB", m.cCorrNot)

&&3112
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "342",  m.nAnLevel4, 3112, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "342",  m.nAnLevel5, 3112, "OBCR;OBDB", m.cCorrNot)

&&3113
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "343",  m.nAnLevel4, 3113, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "343",  m.nAnLevel5, 3113, "OBCR;OBDB", m.cCorrNot)

&&3114
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "344",  m.nAnLevel4, 3114, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "344",  m.nAnLevel5, 3114, "OBCR;OBDB", m.cCorrNot)

&&3115
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "345",  m.nAnLevel4, 3115, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "345",  m.nAnLevel5, 3115, "OBCR;OBDB", m.cCorrNot)

&&3116
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "346",  m.nAnLevel4, 3116, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "346",  m.nAnLevel5, 3116, "OBCR;OBDB", m.cCorrNot)

&&3117
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "349",  m.nAnLevel4, 3117, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "349",  m.nAnLevel5, 3117, "OBCR;OBDB", m.cCorrNot)

&&3310
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "31",  m.nAnLevel4, 3310, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "31",  m.nAnLevel5, 3310, "OBCR;OBDB", m.cCorrNot)

&&3320
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "32",  m.nAnLevel4, 3320, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "32",  m.nAnLevel5, 3320, "OBCR;OBDB", m.cCorrNot)

&&3330
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "33", m.nAnLevel4, 3330, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "33", m.nAnLevel5, 3330, "OBCR;OBDB", m.cCorrNot)

&&3347
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "347",  m.nAnLevel4, 3347, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "347",  m.nAnLevel5, 3347, "OBCR;OBDB", m.cCorrNot)

&&3350
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "36",  m.nAnLevel4, 3350, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "36",  m.nAnLevel5, 3350, "OBCR;OBDB", m.cCorrNot)

&&3390
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "228",  m.nAnLevel4, 3390, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "228",  m.nAnLevel5, 3390, "OBCR;OBDB", m.cCorrNot)

&&3410
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "52", m.nAnLevel4, 3410, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "52",  m.nAnLevel5, 3410, "OBCR;OBDB", m.cCorrNot)

&&3420
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "53", m.nAnLevel4, 3420, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "53",  m.nAnLevel5, 3420, "OBCR;OBDB", m.cCorrNot)

&&3430
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "54", m.nAnLevel4, 3430, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "54",  m.nAnLevel5, 3430, "OBCR;OBDB", m.cCorrNot)

&&3431
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "541", m.nAnLevel4, 3431, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "541",  m.nAnLevel5, 3431, "OBCR;OBDB", m.cCorrNot)

&&3432
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "542", m.nAnLevel4, 3432, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "542",  m.nAnLevel5, 3432, "OBCR;OBDB", m.cCorrNot)

&&3433
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "543", m.nAnLevel4, 3433, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "543",  m.nAnLevel5, 3433, "OBCR;OBDB", m.cCorrNot)

&&3434
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "544", m.nAnLevel4, 3434, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "544",  m.nAnLevel5, 3434, "OBCR;OBDB", m.cCorrNot)

&&3435
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "545", m.nAnLevel4, 3435, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "545",  m.nAnLevel5, 3435, "OBCR;OBDB", m.cCorrNot)

&&3436
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "546", m.nAnLevel4, 3436, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "546",  m.nAnLevel5, 3436, "OBCR;OBDB", m.cCorrNot)

&&3437
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "547", m.nAnLevel4, 3437, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "547",  m.nAnLevel5, 3437, "OBCR;OBDB", m.cCorrNot)

&&3438
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "548", m.nAnLevel4, 3438, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "548",  m.nAnLevel5, 3438, "OBCR;OBDB", m.cCorrNot)

&&3439
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "549", m.nAnLevel4, 3439, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "549",  m.nAnLevel5, 3439, "OBCR;OBDB", m.cCorrNot)

&&3440
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "55", m.nAnLevel4, 3440, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "55",  m.nAnLevel5, 3440, "OBCR;OBDB", m.cCorrNot)

&&3810
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "81", m.nAnLevel4, 3810, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "81",  m.nAnLevel5, 3810, "OBCR;OBDB", m.cCorrNot)

&&3820
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "82", m.nAnLevel4, 3820, "OBCR;OBDB", m.cCorrNot)
=SelAccFromBase(m.cUsl18B, "30405", "82",  m.nAnLevel5, 3820, "OBCR;OBDB", m.cCorrNot)


&& Раздел 3. Изменение остатков средств
*--------------------------------------
nOptionVPL = 0

&&4210
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "136", m.nAnLevel4, 4210, "OBCR;OBDB", "!201,21003,2058,21002,21004,30404,30405,4013", 2)
=SelAccFromBase(m.cUsl18B, "21002,21004", "136", m.nAnLevel5, 4210, "OBCR;OBDB", "!201,21003,2058,21002,21004,30404,30405,4013", 2)

&&4220
=SelAccFromBase(m.cUsl18B, "2011,2012,20134,21003", "!136", m.nAnLevel4, 4220, "OBCR;OBDB", "!201,21003,21002,21004,30404,30405,4013", 2)
=SelAccFromBase(m.cUsl18B, "21002,21004", "!136", m.nAnLevel5, 4220, "OBCR;OBDB", "!201,21003,21002,21004,30404,30405,4013", 2)

&&4310
=SelAccFromBase(m.cUsl18B, "30405",,, 4310, ";OBDB", "21005")

&&4320
=SelAccFromBase(m.cUsl18B, "30405",,, 4320, "OBCR", "21005")

&&4410
=SelAccFromBase(m.cUsl18B, "2011,2012,20134",,, 4410, ";OBDB", "30401")

&&4420
=SelAccFromBase(m.cUsl18B, "2011,2012,20134",,, 4420, "OBCR", "30401")

&&4510
=SelAccFromBase(m.cUsl18B, "20121,20123,20127",,, 4510, ";OBDB", "30404",, .T.)

&&4520
=SelAccFromBase(m.cUsl18B, "20121,20127",,, 4520, "OBCR", "30404",, .T.)

&&4610
=SelAccFromBase(m.cUsl18B, "21002,21004",,, 4610, ";OBDB", "30407")

&&4620
=SelAccFromBase(m.cUsl18B, "21002,21004",,, 4620, "OBCR", "30407")


&&4910
=SelAccFromBase(m.cUsl18B, "20122",,, 4910, "OBDB", "30404")

&&4920
=SelAccFromBase(m.cUsl18B, "20122",,, 4920, ";OBCR", "30404")

&&4930
=SelAccFromBase(m.cUsl18B, "30405", "55", m.nAnLevel5, 4930, ";OBDB", "30275")

&&4940
=SelAccFromBase(m.cUsl18B, "30405", "55", m.nAnLevel5, 4940, "OBCR", "30275")

&&5010
=SelAccFromBase(m.cUsl18B, "2011,20121,20123,20126,20127,20134,21003,21002,21004,30405",,, 5010, ";OBDB", "!201,21003,21002,21004,30404,30405,4013")

&&5020
=SelAccFromBase(m.cUsl18B, "2011,20121,20123,20126,20127,20134,21003,21002,21004,30405",,, 5020, "OBCR", "!201,21003,21002,21004,30404,30405,4013")

&&5030
=SelAccFromBase(m.cUsl18B, "2011,2012,20134", "171", m.nAnLevel4, 5030, "OBDB;OBCR", "40110")


&& Раздел 4. Аналитическая информация по выбытиям
*------------------------------------------------
*nOptionVPL = 1

CurClose("curR5")

* строки 8100 и 8200
=SelAccFromBase800()

Select A.*, ;
       Nvl(B.Code, Replicate("0", 20)) As KBK ;
  From curR800 A ;
    Left Join BKlsDoh B On A.RN_KLSDOH = B.RN ;
  Order By TYP, KBK ;
  Into CURSOR curSpec800

CurClose("curR800")

* строки 9000
=SelAccFromBase4("2011,2012,20134,21003", .T., "OBCR;OBDB", "!201,21003,30404,30405,4013,30275")
=SelAccFromBase4("30405",, "OBCR;OBDB", "!201,21003,30404,30405,4013,30275")

Select A.*, ;
       Left(Nvl(F.Code, Space(6)), 4) As FKR, ;
       Left(Nvl(V.Code, Space(8)), 3) As VidR ;
  From curR5 A ;
    Left Join fFuncCl  F On A.RN_FKR  = F.RN ;
    Left Join bExpKind V On A.RN_VIDR = V.RN ;
  Order By KOSGU, FKR, VidR ;
  Into CURSOR curSpec900

CurClose("curR5,crEopSpecDB,crEopSpecKR,crEopSpecPastDB,crEopSpecPastKR")


&& Формирую имя файла для выгрузки в МинФин
If !Empty(m.cUnlPath)
  Local ARRAY aFiles(1)
  Local nNum, cNum, nN
  cUnlPath  = AllTrim(m.cUnlPath)
  cFormCode = "223"
  cFileName = m.cFormCode
  Do Case
    Case !Empty(m.dReoDate)                      && реорганизация
      cFileName = m.cFileName + "R"
    Case Month(m.dDateEnd + 1) = 1               && год
      cFileName = m.cFileName + "Y"
*    Case Month(m.dDateEnd + 1) = 7              && полугодие
*      cFileName = m.cFileName + "P"
    Case InList(Month(m.dDateEnd + 1), 4, 7, 10) && квартал
      cFileName = m.cFileName + "Q"
    Otherwise                                    && месяц
      cFileName = m.cFileName + "M"
  EndCase
  nNum = 0
  If ADir(aFiles, m.cUnlPath + m.cFileName + "??.txt") # 0
    For m.i = 1 To ALen(aFiles) / 5
      nN = At(".", aFiles(m.i, 1))
      cNum = SubStr(aFiles(m.i, 1), 5, m.nN - 5)
      If m.nNum < Val(m.cNum)
        nNum = Val(m.cNum)
      EndIf 
      If m.nNum = 99
        nNum = 0
      EndIf
    EndFor
  EndIf
  cFileName = m.cUnlPath + m.cFileName + PadL(Int(m.nNum) + 1, 2, "0") + ".txt"
ENDIF

** Непосредственно печать
Local oPrint, n
oPrint = objCaller.objExcelRep

* Заголовок отчета
oPrint.PrintRange("Header")

* Раздел 3.1. Аналитическая информация по управлению остатками
* Строки 810
Select curSpec800
n = 0
Scan For TYP = 1
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec810")
EndScan

* Строки 820
Select curSpec800
n = 0
Scan For TYP = 2
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec820")
EndScan

* Раздел 4. Аналитическая информация по выбытиям
* Строки 900
Select curSpec900
n = 0
Scan
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec900")
EndScan

* Подвал отчета
oPrint.PrintRange("Footer")

CurClose("curSpec800;curSpec900")

* Удаление листа со сценарием выгрузки
Local nSheet
If Empty(m.cFileName)
  nSheet = oPrint.GetSheetNum("Выгрузка в МинФин")
  If m.nSheet > 0 
     oPrint.Book.Sheet = m.nSheet
     oPrint.Book.EditDeleteSheets()
  EndIf
  oPrint.Book.Sheet = 1
EndIf

oPrint = NULL

Return


**********************************************************
Procedure SelAccFromBase
  LParameters cWhere18, cAccount, cAnalit, nAnLevel, nRow, cNameProc, cAccCorr, nIsVPL, lINN

  Local ARRAY arrProc[2], arrIt[1]
  Local cAcc, cWhere, cWhereC, lOk, cNot, cAccC, cAcc1, nPos, cAccAn, cAccA1, c1, cLevel, cJoinAN, cJoinCorr, i, cVal
  Store "" To cWhere, cWhereC, cJoinCorr, cNot, cJoinAN

  * Список счетов
  cAcc = AllTrim(m.cAccount)
  Do While !Empty(m.cAcc)
    nPos = AT(",", m.cAcc)
    If m.nPos = 0
      cAcc1 = m.cAcc
      cAcc  = ""
    Else
      cAcc1 = AllTrim(Left(m.cAcc, m.nPos - 1))
      cAcc  = AllTrim(SubStr(m.cAcc, m.nPos + 1))
    EndIf
    cWhere = Iif(Empty(m.cWhere), "", m.cWhere + " OR ") + "SubStr(Account, " + m.cPos19 + ", " + LTrim(Str(Len(m.cAcc1))) + ") = '" + m.cAcc1 + "'"
  EndDO
  If AT(",", m.cAccount) # 0
    cWhere = "(" + m.cWhere + ")"
  EndIf

  cWhere = m.cWhere18 + " And " + m.cWhere

  If !Empty(m.cWhereBalUnits)
    cWhere = m.cWhere + " And " + m.cWhereBalUnits
  EndIf

  Select AccBase.RN ;
    From AccBase ;
      Left Join BalUnit On AccBase.Rn_BalUnit = BalUnit.RN ;
    Where &cWhere ;
    Into Cursor curAcc READWRITE

  lOk = _Tally # 0

  If m.lOk
    RepG151.GetComRepPrm151("_0503123", @lNoError, cWhere18, cAccount, cAnalit, nAnLevel, nRow, cNameProc, cAccCorr)
    lOk = m.lOk And m.lNoError
  EndIf

  If m.lOk
    * Отбор проводок по аналитике счетов
    Store "" To cNot, cWhere

    If !IsNull(m.cAnalit) And !Empty(m.cAnalit)
      cLevel = Str(m.nAnLevel, 1)
      cAccAn = AllTrim(m.cAnalit)
      If Left(m.cAccAn, 1) = "!"
        cNot   = "!"
        cAccAn = AllTrim(SubStr(m.cAccAn, 2))
      EndIf
      DO While !Empty(m.cAccAn)
        nPos = AT(",", m.cAccAn)
        If m.nPos = 0
          cAccA1 = m.cAccAn
          cAccAn = ""
        Else
          cAccA1 = AllTrim(Left(m.cAccAn, m.nPos - 1))
          cAccAn = AllTrim(SubStr(m.cAccAn, m.nPos + 1))
        EndIf
        cWhere = Iif(Empty(m.cWhere), "", m.cWhere + " OR ") + "Like('" + m.cAccA1 + "*', AllTrim(AN.SAccount))"
      EndDO
      If AT(",", m.cAnalit) # 0
        cWhere = "(" + m.cWhere + ")"
      EndIf
      cWhere = " And " + m.cNot + m.cWhere
      cJoinAN = "Left Join AccSpec AN ON S.RN_DB_A" + m.cLevel + " = AN.RN"
    EndIf

    * Отбор/Исключение ХО по особой отметке "Возвраты прошлых лет"
    If Type("m.nIsVPL") # "N"
      nIsVPL = 0
    EndIf
    If m.nOptionVPL = 2 Or m.nIsVPL = 2   && только возвраты прошлых лет
      If Empty(m.cRN_MarkVPL)
        cWhere = m.cWhere + " And .F."
      Else
        cWhere = m.cWhere + " And S.RN_MARK = '" + m.cRN_MarkVPL + "'"
      EndIf
    Else
      If (m.nOptionVPL = 1 Or m.nIsVPL = 1) And !Empty(m.cRN_MarkVPL)   && исключить возвраты прошлых лет
        cWhere = m.cWhere + " And S.RN_MARK # '" + m.cRN_MarkVPL + "'"
      EndIf
    EndIf

    * Корр. счета
    If !IsNull(m.cAccCorr) And !Empty(m.cAccCorr)
      cNot  = ""
      cAccC = AllTrim(m.cAccCorr)
      If Left(m.cAccC, 1) = "!"
        cNot  = "!"
        cAccC = AllTrim(SubStr(m.cAccC, 2))
      EndIf
      Do While !Empty(m.cAccC)
        nPos = AT(",", m.cAccC)
        If m.nPos = 0
          cAcc1 = m.cAccC
          cAccC = ""
        Else
          cAcc1 = AllTrim(Left(m.cAccC, m.nPos - 1))
          cAccC = AllTrim(SubStr(m.cAccC, m.nPos + 1))
        EndIf
        cWhereC = Iif(Empty(m.cWhereC), "", m.cWhereC + " OR ") + "SubStr(C.Account, " + m.cPos19 + ", " + LTrim(Str(Len(m.cAcc1))) + ") = '" + m.cAcc1 + "'"
      EndDO
      If AT(",", m.cAccCorr) # 0
        cWhereC = "(" + m.cWhereC + ")"
      EndIf
      cWhere    = m.cWhere + " And " + m.cNot + m.cWhereC
      cJoinCorr = "Inner Join AccBase C ON S.RN_DB = C.RN"
    EndIf

    * ИНН контрагентов
    If m.lINN
      cWhere = m.cWhere + " And AllTrim(S.INN_FR) == AllTrim(S.INN_TO)"
    EndIf

    If !Empty(m.cWhere)
      cWhere = "Where " + SubStr(m.cWhere, 6)
    EndIf

    * Анализ запрашиваемых оборотов
    nPos = AT(";", m.cNameProc)

    If m.nPos = 0
      arrProc(1) = Upper(m.cNameProc)
    Else
      arrProc(1) = Upper(Left(m.cNameProc, m.nPos - 1))
      arrProc(2) = Upper(SubStr(m.cNameProc, m.nPos + 1))
    EndIf

    * Подсчет сумм оборотов
    For m.i = 1 To 2
      If Empty(arrProc(m.i))
        Loop
      EndIf

      If arrProc(m.i) == "OBDB"
        c1 = "DB"
        cJoinAN   = StrTran(m.cJoinAN,     "RN_KR", "RN_DB")
        cJoinCorr = StrTran(m.cJoinCorr,   "RN_DB", "RN_KR")
      Else
        c1 = "KR"
        cJoinAN   = StrTran(m.cJoinAN,     "RN_DB", "RN_KR")
        cJoinCorr = StrTran(m.cJoinCorr,   "RN_KR", "RN_DB")
      EndIf

      * Графа 4 (За отчетный период)
      Select Sum(S.Sum_Equal) ;
        From crEopSpec&c1 S ;
          Inner Join curAcc A ON S.RN_&c1 = A.RN ;
          &cJoinAN ;
          &cJoinCorr ;
        &cWhere ;
        Into ARRAY arrIt

      If _Tally # 0
        cVal = "nCol4Row" + PadL(m.nRow, 4, "0")
        &cVal = m.&cVal + Iif(m.i = 1, arrIt(1), -arrIt(1))
      EndIf

      * Графа 5 (За аналогичный период прошлого финансового года)
      If !m.lNoCalc5
        Select Sum(S.Sum_Equal) ;
          From crEopSpecPast&c1 S ;
            Inner Join curAcc A ON S.RN_&c1 = A.RN ;
            &cJoinAN ;
            &cJoinCorr ;
          &cWhere ;
          Into ARRAY arrIt

        If _Tally # 0
          cVal = "nCol5Row" + PadL(m.nRow, 4, "0")
          &cVal = m.&cVal + Iif(m.i = 1, arrIt(1), -arrIt(1))
        EndIf
      EndIf
    Next
  EndIf

  CurClose("curAcc")
EndProc


**********************************************************
Procedure SelAccFromBase800

  * Переменные
  Local cAnalitKBK, cWhere, cWhereC, lOk, cJoinAnKosGU, cJoinCorr, i, c1, nSumm, cKls

  * Курсор для динамических строк
  Create CURSOR curR800 (TYP N(1), RN_KLSDOH C(4), SUMM N(18, 2))
  Index On Str(TYP, 1) + RN_KLSDOH Tag UNI
  
  * Список счетов
  cWhere = m.cUsl18B + " And SubStr(Account, " + m.cPos19 + ", 5) = '30405'"
  If !Empty(m.cWhereBalUnits)
    cWhere = m.cWhere + " And " + m.cWhereBalUnits
  EndIf

  Select AccBase.RN, AccBase.RN_KLSDOH, AT("3", AccBase.ORG_AN) As KBKLevel ;
    From AccBase ;
      Left Join BalUnit On AccBase.Rn_BalUnit = BalUnit.RN ;
    Where &cWhere ;
    Into Cursor curAcc

  lOk = _Tally # 0

  If m.lOk
    RepG151.GetComRepPrm151("_0503123", @lNoError)
    lOk = m.lOk And m.lNoError
  EndIf

  If m.lOk
    * Отбор проводок по КОСГУ
    cJoinAnKosGU = "Inner Join AccSpec An ON S.RN_DB_A" + Str(m.nAnLevel5, 1) + " = An.RN"

    * Корр. счета
    cWhereC   = "SubStr(C.Account, " + m.cPos19 + ", 5) = '30275'"
    cJoinCorr = "Inner Join AccBase C ON S.RN_KR = C.RN"

    CurOpen("BKlsDoh")

    Select curAcc
    Scan
      cAnalitKBK = Iif(m.nAccType = 1 Or curAcc.KBKLevel = 0, "", "S.RN_DB_A" + Str(curAcc.KBKLevel, 1) + " As AnKBK, ")
      
      * Обороты по дебету/кредиту
      For m.i = 1 To 2
        If m.i = 1
          c1 = "DB"
          cJoinAnKosGU = StrTran(m.cJoinAnKosGU, "RN_KR", "RN_DB")
          cJoinCorr    = StrTran(m.cJoinCorr,    "RN_DB", "RN_KR")
        Else
          c1 = "KR"
          cAnalitKBK   = StrTran(m.cAnalitKBK,  "RN_DB", "RN_KR")
          cJoinAnKosGU = StrTran(m.cJoinAnKosGU, "RN_DB", "RN_KR")
          cJoinCorr    = StrTran(m.cJoinCorr,    "RN_KR", "RN_DB")
        EndIf

        Select &cAnalitKBK S.Sum_Equal As SUMM ;
          From crEopSpec&c1 S ;
            &cJoinAnKosGU ;
            &cJoinCorr ;
          Where S.RN_&c1 = ?curAcc.RN And Like('550*', AllTrim(An.SAccount)) And &cWhereC ;
          Into CURSOR curEopSpec

        * Определение кодов Источников финансирования дефицитов бюджета
        If _Tally # 0
          If m.nAccType = 1 Or curAcc.KBKLevel = 0   && Счет - 26 символов или к аналитике не привязан КБК
            Select curEopSpec
            Sum SUMM To nSumm
            If m.nAccType = 1 And !Empty(curAcc.RN_KLSDOH) And Seek(curAcc.RN_KLSDOH, "BKlsDoh", "RN") And InList(BKlsDoh.KLS_TYPE, 1, 2)
              cKls = curAcc.RN_KLSDOH
            Else
              cKls = Space(4)
            EndIf
            Select curR800
            If !Seek(Str(m.i, 1) + m.cKls)
              Insert Into curR800 (TYP, RN_KLSDOH) VALUES (m.i, m.cKls)
            EndIf
            Replace SUMM With SUMM + nSumm
          Else                && Счет - 9 символов и к аналитике привязан КБК
            Select AnKBK, Sum(SUMM) As SUMM From curEopSpec Group BY 1 Into CURSOR curKBK
            Scan
              If !Empty(AnKBK) And Seek(AnKBK, "AccSpec", "RN") And ;
                 !Empty(AccSpec.RN_KLSDOH) And Seek(AccSpec.RN_KLSDOH, "BKlsDoh", "RN") And ;
                 InList(BKlsDoh.KLS_TYPE, 1, 2)
                cKls = AccSpec.RN_KLSDOH
              Else
                cKls = Space(4)
              EndIf
              Select curR800
              If !Seek(Str(m.i, 1) + m.cKls)
                Insert Into curR800 (TYP, RN_KLSDOH) VALUES (m.i, m.cKls)
              EndIf
              Replace SUMM With SUMM + curKBK.SUMM
            EndScan
            Use In curKBK
          EndIf
        EndIf
        Use In curEopSpec
      Next
    EndScan
  EndIf

  CurClose("curAcc")
EndProc


**********************************************************
Procedure SelAccFromBase4
  LParameters cAccount, lMoney, cNameProc, cAccCorr

  lMoney = !IsNull(m.lMoney) And m.lMoney   && счета ден. средств

  Local cLevelDD, cAnalitDD, nLevelSbF, cAnalitSbF, cAcc, cWhere, cWhereC, lOk, cAccC, cAcc1, nPos, cNot, cJoinAnKosGU, cJoinCorr, cJoinAnCorr, i, c1, nSumm, cFKR, cVidR
  Local ARRAY arrProc[2], arrFKR[1], arrAnalit[1]
  Store "" To cWhere, cWhereC, cJoinAnKosGU, cJoinCorr, cJoinAnCorr, cAnalitDD, cNot

  * Курсор для колонки
  If !Used("curR5")
    Create CURSOR curR5 (KOSGU C(3), RN_FKR C(4), RN_VIDR C(4), SUMM N(18, 2))
    Index On KOSGU + RN_FKR + RN_VIDR Tag UNI
  EndIf

  * Список счетов
  cAcc = AllTrim(m.cAccount)
  Do While !Empty(m.cAcc)
    nPos = AT(",", m.cAcc)
    If m.nPos = 0
      cAcc1 = m.cAcc
      cAcc  = ""
    Else
      cAcc1 = AllTrim(Left(m.cAcc, m.nPos - 1))
      cAcc  = AllTrim(SubStr(m.cAcc, m.nPos + 1))
    EndIf
    cWhere = Iif(Empty(m.cWhere), "", m.cWhere + " OR ") + "SubStr(Account, " + m.cPos19 + ", " + LTrim(Str(Len(m.cAcc1))) + ") = '" + m.cAcc1 + "'"
  EndDO
  If AT(",", m.cAccount) # 0
    cWhere = "(" + m.cWhere + ")"
  EndIf

  cWhere = m.cUsl18B + " And " + m.cWhere

  If !Empty(m.cWhereBalUnits)
    cWhere = m.cWhere + " And " + m.cWhereBalUnits
  EndIf

  && Привязка к словарям Видов расходов и ШФ
  If m.lMoney
    If m.nAnLevelDD = 0
      cWhere  = m.cWhere + " And AccBase.TFin_Type = 1 And !Empty(AccBase.RN_TFIN)"
    Else
      cLevelDD  = Str(m.nAnLevelDD, 1)
      cAnalitDD = "S.RN_DB_A" + m.cLevelDD + " As AnDD, "
    EndIf
  Else
    cWhere = m.cWhere + " And Iif(AccBase.TFin_Type = 1, !Empty(AccBase.RN_TFIN), '9' $ AccBase.SMETA_AN)"
  EndIf

  Select AccBase.RN ;
    From AccBase ;
      Left Join BalUnit On AccBase.Rn_BalUnit = BalUnit.RN ;
    Where &cWhere ;
    Into Cursor curAcc

  lOk = _Tally # 0

  If m.lOk
    RepG151.GetComRepPrm151("_0503123", @lNoError, m.cAccount, m.cNameProc, m.cAccCorr)
    lOk = m.lOk And m.lNoError
  EndIf

  If m.lOk
    * Отбор проводок по КОСГУ
    cWhere = "And (Like('2*', AllTrim(An.SAccount)) And !Like('27*', AllTrim(An.SAccount)) " + ;
               "Or Like('3*', AllTrim(An.SAccount)) " + ;
               "Or Like('53*', AllTrim(An.SAccount)))"
    cJoinAnKosGU = "Inner Join AccSpec An ON S.RN_DB_A" + Str(Iif(m.lMoney, m.nAnLevel4, m.nAnLevel5), 1) + " = An.RN"

    * Корр. счета
    If !IsNull(m.cAccCorr) And !Empty(m.cAccCorr)
      cAccC = AllTrim(m.cAccCorr)
      If Left(m.cAccC, 1) = "!"
        cNot  = "!"
        cAccC = AllTrim(SubStr(m.cAccC, 2))
      EndIf
      Do While !Empty(m.cAccC)
        nPos = AT(",", m.cAccC)
        If m.nPos = 0
          cAcc1 = m.cAccC
          cAccC = ""
        Else
          cAcc1 = AllTrim(Left(m.cAccC, m.nPos - 1))
          cAccC = AllTrim(SubStr(m.cAccC, m.nPos + 1))
        EndIf
        cWhereC = Iif(Empty(m.cWhereC), "", m.cWhereC + " OR ") + "SubStr(C.Account, " + m.cPos19 + ", " + LTrim(Str(Len(m.cAcc1))) + ") = '" + m.cAcc1 + "'"
      EndDO
      If AT(",", m.cAccCorr) # 0
        cWhereC = "(" + m.cWhereC + ")"
      EndIf
      cWhere    = m.cWhere + " And " + m.cNot + m.cWhereC
      cJoinCorr = "Inner Join AccBase C ON S.RN_DB = C.RN"
    EndIf

    * Исключение ХО по особой отметке "Возвраты прошлых лет"
    If !Empty(m.cRN_MarkVPL)
      cWhere = m.cWhere + " And S.RN_MARK # '" + m.cRN_MarkVPL + "'"
    EndIf

    CurOpen("AccSpec;fSbFBase")

    Select curAcc

    Scan For Seek(RN, "AccBase", "RN")
      nLevelSbF  = AT('9', AccBase.SMETA_AN)
      cAnalitSbF = Iif(m.nLevelSbF = 0, "", "S.RN_DB_A" + Str(m.nLevelSbF, 1) + " As AnSbF, ")

      * Анализ запрашиваемых оборотов
      nPos = AT(";", m.cNameProc)

      If m.nPos = 0
        arrProc(1) = Upper(m.cNameProc)
      Else
        arrProc(1) = Upper(Left(m.cNameProc, m.nPos - 1))
        arrProc(2) = Upper(SubStr(m.cNameProc, m.nPos + 1))
      EndIf

      * Подсчет сумм оборотов
      For m.i = 1 To 2
        If Empty(arrProc(m.i))
          Loop
        EndIf

        If arrProc(m.i) == "OBDB"
          c1 = "DB"
          cJoinAnKosGU = StrTran(m.cJoinAnKosGU, "RN_KR", "RN_DB")
          cAnalitDD    = StrTran(m.cAnalitDD,    "RN_KR", "RN_DB")
          cAnalitSbF   = StrTran(m.cAnalitSbF,   "RN_KR", "RN_DB")
          cJoinCorr    = StrTran(m.cJoinCorr,    "RN_DB", "RN_KR")
        Else
          c1 = "KR"
          cJoinAnKosGU = StrTran(m.cJoinAnKosGU, "RN_DB", "RN_KR")
          cAnalitDD    = StrTran(m.cAnalitDD,    "RN_DB", "RN_KR")
          cAnalitSbF   = StrTran(m.cAnalitSbF,   "RN_DB", "RN_KR")
          cJoinCorr    = StrTran(m.cJoinCorr,    "RN_KR", "RN_DB")
        EndIf

        Select &cAnalitDD &cAnalitSbF ;
               PadR(LTrim(An.SAccount), 3) As KOSGU, ;
               S.Sum_Equal As SUMM ;
          From crEopSpec&c1 S ;
            &cJoinAnKosGU ;
            &cJoinCorr ;
          Where S.RN_&c1 = ?curAcc.RN &cWhere ;
          Into CURSOR curEopSpec READWRITE

        If _Tally # 0

          * Определение кодов ФКР и Вида расходов
          Do Case
            Case m.lMoney And m.nAnLevelDD = 0   && Денежный счет и не задан уровень аналитики классификации расходов для счетов денежных средств 201 и 21003
              Select FKRR_RN, FKRPR_RN, RN_VIDR From fSbFBase Where RN = ?AccBase.RN_TFIN Into ARRAY arrFKR

              If _Tally = 0
                Store Space(4) To cFKR, cVidR
              Else
                cFKR  = Iif(Empty(arrFKR[2]), arrFKR[1], arrFKR[2])
                cVidR = arrFKR[3]
              EndIf

              Select KOSGU, Sum(SUMM) As SUMM From curEopSpec Group By 1 Into CURSOR curKOSGU

              Scan
                Select curR5
                If !Seek(curKOSGU.KOSGU + m.cFKR + m.cVidR)
                  Insert Into curR5 (KOSGU, RN_FKR, RN_VIDR) VALUES (curKOSGU.KOSGU, m.cFKR, m.cVidR)
                EndIf
                Replace SUMM With SUMM + Iif(m.i = 1, curKOSGU.SUMM, -curKOSGU.SUMM)
              EndScan

              USE In curKOSGU

            Case m.lMoney And m.nAnLevelDD # 0   && Денежный счет и задан уровень аналитики классификации расходов для счетов денежных средств 201 и 21003
              Select curEopSpec
              Scan
                Store Space(4) To cFKR, cVidR

                If m.nLevelSbF = m.nAnLevelDD And ;
                   !Empty(curEopSpec.AnDD) And Seek(curEopSpec.AnDD, "AccSpec", "RN") And ;
                   !Empty(AccSpec.RN_TFIN) And Seek(AccSpec.RN_TFIN, "fSbFBase", "RN")
                  cFKR  = Iif(Empty(fSbFBase.FKRPR_RN), fSbFBase.FKRR_RN, fSbFBase.FKRPR_RN)
                  cVidR = fSbFBase.RN_VIDR
                EndIf

                Select curR5
                If !Seek(curEopSpec.KOSGU + m.cFKR + m.cVidR)
                  Insert Into curR5 (KOSGU, RN_FKR, RN_VIDR) VALUES (curEopSpec.KOSGU, m.cFKR, m.cVidR)
                EndIf
                Replace SUMM With SUMM + Iif(m.i = 1, curEopSpec.SUMM, -curEopSpec.SUMM)
              EndScan

            Otherwise   && Неденежный счет
              Do Case
                Case AccBase.TFin_Type = 1 And !Empty(AccBase.RN_TFIN)   && ШФ в заголовке счета
                  Select curEopSpec
                  Sum SUMM To nSumm

                  Select FKRR_RN, FKRPR_RN, RN_VIDR From fSbFBase Where RN = ?AccBase.RN_TFIN Into ARRAY arrFKR

                  If _Tally = 0
                    Store Space(4) To cFKR, cVidR
                  Else
                    cFKR  = Iif(Empty(arrFKR[2]), arrFKR[1], arrFKR[2])
                    cVidR = arrFKR[3]
                  EndIf

                  Select KOSGU, Sum(SUMM) As SUMM From curEopSpec Group By 1 Into CURSOR curKOSGU

                  Scan
                    Select curR5
                    If !Seek(curKOSGU.KOSGU + m.cFKR + m.cVidR)
                      Insert Into curR5 (KOSGU, RN_FKR, RN_VIDR) VALUES (curKOSGU.KOSGU, m.cFKR, m.cVidR)
                    EndIf
                    Replace SUMM With SUMM + Iif(m.i = 1, curKOSGU.SUMM, -curKOSGU.SUMM)
                  EndScan

                  USE In curKOSGU

                Case AccBase.TFin_Type = 2 And m.nLevelSbF # 0
                  Select curEopSpec
                  Scan
                    Store Space(4) To cFKR, cVidR
                    If !Empty(AnSbF) And Seek(AnSbF, "AccSpec", "RN") And !Empty(AccSpec.RN_TFIN) And Seek(AccSpec.RN_TFIN, "fSbFBase", "RN")
                      cFKR  = Iif(Empty(fSbFBase.FKRPR_RN), fSbFBase.FKRR_RN, fSbFBase.FKRPR_RN)
                      cVidR = fSbFBase.RN_VIDR
                    EndIf
                    Select curR5
                    If !Seek(curEopSpec.KOSGU + m.cFKR + m.cVidR)
                      Insert Into curR5 (KOSGU, RN_FKR, RN_VIDR) VALUES (curEopSpec.KOSGU, m.cFKR, m.cVidR)
                    EndIf
                    Replace SUMM With SUMM + Iif(m.i = 1, curEopSpec.SUMM, -curEopSpec.SUMM)
                  EndScan
              EndCase
          EndCase
        EndIf
        Use In curEopSpec
      Next
    EndScan
  EndIf

  CurClose("curAcc")
EndProc
]]></FPC_></MSE>
      <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T.)
]]></FPC_>
    </печать>
  </отчет>
  <форма>
    <ид>f_0503123_191n_180n_2023</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503123</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503123-191н_ред180н_2023</VFP_свойство>
      <VFP_свойство имя="Height">365</VFP_свойство>
      <VFP_свойство имя="Width">465</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisform
Local oPage, i
oPage = oThisForm.PF.Page1
dSelDate = oPage.cntSelDate.restDate.Value

If Empty(oPage.cntReoDate.Text.Value) And DOX(m.dSelDate, 4) < oPage.cntBalOpen.Text.Value
   =ExclMes("Дата расчета показателей вступительного баланса должна предшествовать или принадлежать отчетному периоду!")
   oThisForm.PF.ActivePage = 1
   oPage.cntBalOpen.Text.SetFocus()
   Return .F.
EndIf

If !Empty(oPage.cntBalOpen.Text.Value) And Empty(oPage.cntReoDate.Text.Value) And Year(oPage.cntBalOpen.Text.Value) # Year(m.dSelDate)
   =ExclMes("Дата расчета показателей вступительного баланса и отчетный период должны относиться к одному году!")
   oThisForm.PF.ActivePage = 1
   oPage.cntBalOpen.Text.SetFocus()
   Return .F.
EndIf

If !Empty(oPage.cntReoDate.Text.Value) And oPage.cntReoDate.Text.Value < oPage.cntBalOpen.Text.Value
   =ExclMes("Дата расчета показателей вступительного баланса должна быть меньше даты реорганизации или равна ей!")
   oThisForm.PF.ActivePage = 1
   oPage.cntBalOpen.Text.SetFocus()
   Return .F.
EndIf

If !Empty(oPage.cntBalOpen.Text.Value) And !Empty(oPage.cntReoDate.Text.Value) And Year(oPage.cntReoDate.Text.Value) # Year(oPage.cntBalOpen.Text.Value)
   =ExclMes("Дата расчета показателей вступительного баланса и дата реорганизации должны относиться к одному году!")
   oThisForm.PF.ActivePage = 1
   oPage.cntBalOpen.Text.SetFocus()
   Return .F.
EndIf

cOrg = oPage.OrgFrom.GetSaveValue()
cWhereKontragent = oPage.OrgFrom.GetCond()

oPage = oThisForm.PF.Page2

If Empty(oPage.Txt18B1.Value) and Empty(oPage.Txt18B2.Value) and ;
   Empty(oPage.Txt18B3.Value) and Empty(oPage.Txt18B4.Value) and ;   
   Empty(oPage.Txt18B5.Value) and Empty(oPage.Txt18B6.Value) and ;
   Empty(oPage.Txt18B7.Value) and Empty(oPage.Txt18B8.Value) and ;
   Empty(oPage.Txt18B9.Value) and Empty(oPage.Txt18B10.Value) 
   =ExclMes("Не указан код вида деятельности!")
   oThisForm.PF.ActivePage = 2
   oPage.Txt18B1.SetFocus()
   Return .F.
EndIf

c18B = oPage.Txt18B1.Value + oPage.Txt18B2.Value + ;
       oPage.Txt18B3.Value + oPage.Txt18B4.Value + ;
       oPage.Txt18B5.Value + oPage.Txt18B6.Value + ;
       oPage.Txt18B7.Value + oPage.Txt18B8.Value + ;
       oPage.Txt18B9.Value + oPage.Txt18B10.Value 

c18B    = StrTran(m.c18B, " ")
cUsl18B = ""

For m.i = 1 To Len(m.c18B)
  cUsl18B = m.cUsl18B + Iif(!Empty(m.cUsl18B), ",", "") + "'" + SubStr(m.c18B, m.i, 1) + "'"
Next

cPos18 = Iif(m.nAccType = 1, "18", "1")
cPos19 = Iif(m.nAccType = 1, "19", "2")

cUsl18B = "InList(SubStr(AccBase.Account, " + m.cPos18 + ", 1), " + m.cUsl18B + ")"

cBalUnits = oPage.BalUnits.GetSaveValue()
cWhereBalUnits = oPage.BalUnits.GetCond()

* Каталог для выгрузки в МинФин
oPage = oThisForm.PF.Page3
cUnlPath = oPage.Catalog.Text.Value
If !Empty(m.cUnlPath) And !Directory(m.cUnlPath, 1)
   =exclmes("Каталог " + AllTrim(m.cUnlPath) + Chr(13) + "не существует!")
   oThisForm.PF.ActivePage = 2
   oPage.Parent.ActivePage = 1
   oPage.Catalog.SetFocus()
   Return .F.
EndIf
cDicIsp = oPage.DicIsp.GetSaveValue()

]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisform
    * Виды финансового обеспечения
    Local oPage

    oPage = oThisForm.PF.Page1
    oPage.cntSelDate.InitThis(m.dSelDate)
    oPage.cntReoDate.Text.ValueChanged()
    oPage.OrgFrom.SetSaveValue(m.cOrg)
    oPage.NameBudzh.InitThis(m.cNameBudzh)
    oPage.CmbMarkVPL.SetSource(UnitRn("EconOp"))
    oPage.CmbMarkVPL.Value = m.cRN_MarkVPL
    oPage.CmbMarkNOO.SetSource(UnitRn("EconOp"))
    oPage.CmbMarkNOO.Value = m.cRN_MarkNOO

    oPage = oThisForm.PF.Page2
    oPage.BalUnits.SetSaveValue(m.cBalUnits)
    cIspolnitel = m.cIspName

    oPage = oThisForm.PF.Page3
    oPage.Catalog.Text.Value = m.cUnlPath
    oPage.DicIsp.setsavevalue(m.cDicIsp)
    oPage.fldIspName.Value = m.cIspolnitel

]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">190</VFP_свойство>
        <VFP_свойство имя="Top">328</VFP_свойство>
      </элемент>
      <элемент>
        <VFP_класс>TPageFrame</VFP_класс>
        <VFP_свойство имя="Name">PF</VFP_свойство>
        <VFP_свойство имя="Height">325</VFP_свойство>
        <VFP_свойство имя="Width">465</VFP_свойство>
        <VFP_свойство имя="PageCount">3</VFP_свойство>
        <элемент>
          <VFP_имя>Page1</VFP_имя>
          <VFP_свойство имя="Caption">Параметры формирования</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">195</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">10</VFP_свойство>
            <VFP_свойство имя="Width">445</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Параметры</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">5</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Дата расчета показателей вступительного баланса:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">25</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TdicDate</VFP_класс>
            <VFP_свойство имя="Name">cntBalOpen</VFP_свойство>
            <VFP_свойство имя="Left">350</VFP_свойство>
            <VFP_свойство имя="Top">20</VFP_свойство>
            <элемент>
              <VFP_имя>Text</VFP_имя>
              <VFP_свойство имя="ControlSource">dBalOpen</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Отчетный период:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>Month_year_m</VFP_класс>
            <VFP_свойство имя="Name">cntSelDate</VFP_свойство>
            <VFP_свойство имя="ControlSource">dSelDate</VFP_свойство>
            <VFP_свойство имя="Left">170</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <элемент>
              <VFP_имя>SelYear</VFP_имя>
              <VFP_свойство имя="Left">180</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_имя>lbllYear</VFP_имя>
              <VFP_свойство имя="Left">250</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Дата реорганизации:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TdicDate</VFP_класс>
            <VFP_свойство имя="Name">cntReoDate</VFP_свойство>
            <VFP_свойство имя="Left">350</VFP_свойство>
            <VFP_свойство имя="Top">80</VFP_свойство>
            <элемент>
              <VFP_имя>Text</VFP_имя>
              <VFP_свойство имя="ControlSource">dReoDate</VFP_свойство>
              <VFP_метод имя="ValueChanged"><![CDATA[LParam oThis, oThisForm
Local oObj
oObj = oThisForm.PF.Page1.cntSelDate
If Empty(oThis.Value)
  oObj.SelMonth.ReceiveMessage(oThisForm, "ReInit")
  oObj.SelYear.ReceiveMessage(oThisForm, "ReInit")
Else
  oObj.ReceiveMessage(oThisForm, "ViewMode")
EndIf
]]></VFP_метод>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
            <VFP_свойство имя="Caption">Учреждение:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
            <VFP_свойство имя="Left">170</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">275</VFP_свойство>
            <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
             <VFP_свойство имя="HistoryName" тип="C">H_AGENTS123_180N_2023</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <VFP_свойство имя="condfield" тип="C">orgbase.rmnemo_org</VFP_свойство>
            <VFP_свойство имя="condfieldrn" тип="C">orgbase.rn</VFP_свойство>
            <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">145</VFP_свойство>
            <VFP_свойство имя="Caption">Наименование бюджета:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">NameBudzh</VFP_свойство>
            <VFP_свойство имя="Left">170</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">275</VFP_свойство>
            <VFP_свойство имя="AreaName" тип="C">Mubudg</VFP_свойство>
            <VFP_свойство имя="DictName" тип="C">Mubudg_msc</VFP_свойство>
            <VFP_свойство имя="RetField" тип="C">mnemo</VFP_свойство>
            <VFP_свойство имя="HistoryName" тип="C">H_AGENTSMUB127_157N_2015</VFP_свойство>
            <VFP_свойство имя="ControlSource" тип="C">m.cNameBudzh</VFP_свойство>
            <VFP_свойство имя="notempty" тип="L">.F.</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <элемент>
            <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">175</VFP_свойство>
            <VFP_свойство имя="Caption">Код субъекта отчетности:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="Left">325</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_KSO</VFP_свойство>
            <VFP_свойство имя="Top">170</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">120</VFP_свойство>
            <VFP_свойство имя="BoundTo">1</VFP_свойство>
            <VFP_свойство имя="RowSourceType">1</VFP_свойство>
            <VFP_свойство имя="RowSource">ПБС,АД,РБС,ГРБС,ГлАД</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="ControlSource">cKSO</VFP_свойство>
            <VFP_свойство имя="delenabled">.F.</VFP_свойство>
            <VFP_свойство имя="notempty">.T.</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">75</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">215</VFP_свойство>
            <VFP_свойство имя="Width">445</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Особые отметки</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">210</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">230</VFP_свойство>
            <VFP_свойство имя="Caption">Возвраты прошлых лет:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>mark</VFP_класс>
            <VFP_свойство имя="Left">290</VFP_свойство>
            <VFP_свойство имя="Top">225</VFP_свойство>
            <VFP_свойство имя="Width">155</VFP_свойство>
            <VFP_свойство имя="Name">CmbMarkVPL</VFP_свойство>
            <VFP_свойство имя="ControlSource">cRN_MarkVPL</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">260</VFP_свойство>
            <VFP_свойство имя="Caption">Не отражать в отчете:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>mark</VFP_класс>
            <VFP_свойство имя="Left">290</VFP_свойство>
            <VFP_свойство имя="Top">255</VFP_свойство>
            <VFP_свойство имя="Width">155</VFP_свойство>
            <VFP_свойство имя="Name">CmbMarkNOO</VFP_свойство>
            <VFP_свойство имя="ControlSource">cRN_MarkNOO</VFP_свойство>
          </элемент>
        </элемент>
        <элемент>
          <VFP_имя>Page2</VFP_имя>
          <VFP_свойство имя="Caption">Счета и аналитика</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">255</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">10</VFP_свойство>
            <VFP_свойство имя="Width">445</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Параметры</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">5</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Уровень аналитики КОСГУ для счетов денежных средств 201 и 21003:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">25</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TSpinner</VFP_класс>
            <VFP_свойство имя="ControlSource">nAnLevel4</VFP_свойство>
            <VFP_свойство имя="Increment">1.00</VFP_свойство>
            <VFP_свойство имя="Inputmask">9</VFP_свойство>
            <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
            <VFP_свойство имя="KeyboardLowValue">1</VFP_свойство>
            <VFP_свойство имя="Left">405</VFP_свойство>
            <VFP_свойство имя="Name">aLevel4</VFP_свойство>
            <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
            <VFP_свойство имя="SpinnerLowValue">1.00</VFP_свойство>
            <VFP_свойство имя="Top">20</VFP_свойство>
            <VFP_свойство имя="Width">40</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Уровень аналитики классификации расходов для счетов денежных</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">средств 201 и 21003:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">63</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TSpinner</VFP_класс>
            <VFP_свойство имя="ControlSource">nAnLevelDD</VFP_свойство>
            <VFP_свойство имя="Increment">1.00</VFP_свойство>
            <VFP_свойство имя="Inputmask">9</VFP_свойство>
            <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
            <VFP_свойство имя="KeyboardLowValue">0</VFP_свойство>
            <VFP_свойство имя="Left">405</VFP_свойство>
            <VFP_свойство имя="Name">aLevelDD</VFP_свойство>
            <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
            <VFP_свойство имя="SpinnerLowValue">0.00</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <VFP_свойство имя="Width">40</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Уровень аналитики КОСГУ для счетов 21002, 21004 и 30405:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TSpinner</VFP_класс>
            <VFP_свойство имя="ControlSource">nAnLevel5</VFP_свойство>
            <VFP_свойство имя="Increment">1.00</VFP_свойство>
            <VFP_свойство имя="Inputmask">9</VFP_свойство>
            <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
            <VFP_свойство имя="KeyboardLowValue">1</VFP_свойство>
            <VFP_свойство имя="Left">405</VFP_свойство>
            <VFP_свойство имя="Name">aLevel5</VFP_свойство>
            <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
            <VFP_свойство имя="SpinnerLowValue">1.00</VFP_свойство>
            <VFP_свойство имя="Top">80</VFP_свойство>
            <VFP_свойство имя="Width">40</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
            <VFP_свойство имя="Caption">Код вида деятельности:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">236</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B1</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B1</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">257</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B2</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B2</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">278</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B3</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B3</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">299</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B4</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B4</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">320</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B5</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B5</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">341</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B6</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B6</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">362</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B7</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B7</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">383</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B8</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B8</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">404</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B9</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B9</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">425</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B10</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B10</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Балансовая единица:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">145</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>S_balunits</VFP_класс>
            <VFP_свойство имя="Name">Balunits</VFP_свойство>
            <VFP_свойство имя="Left">200</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">245</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <VFP_свойство имя="condfield" тип="C">balunit.mnemo</VFP_свойство>
            <VFP_свойство имя="condfieldrn" тип="C">balunit.rn</VFP_свойство>
            <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">175</VFP_свойство>
            <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="Left">325</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
            <VFP_свойство имя="Top">170</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">120</VFP_свойство>
            <VFP_свойство имя="BoundTo">2</VFP_свойство>
            <VFP_свойство имя="RowSourceType">1</VFP_свойство>
            <VFP_свойство имя="RowSource">26 символов,9 символов</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="ControlSource">nAccType</VFP_свойство>
            <VFP_свойство имя="delenabled">.F.</VFP_свойство>
            <VFP_свойство имя="notempty">.T.</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TCheckBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">200</VFP_свойство>
            <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
            <VFP_свойство имя="Width">425</VFP_свойство>
            <VFP_свойство имя="PicturePosition">0</VFP_свойство>
            <VFP_свойство имя="ControlSource">lAsInvest</VFP_свойство>
            <VFP_свойство имя="Name">chkAsInvest</VFP_свойство>
            <VFP_свойство имя="Caption">Отражать поступления от реализации материальных запасов как инвестиционные операции</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TCheckBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">230</VFP_свойство>
            <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
            <VFP_свойство имя="Width">425</VFP_свойство>
            <VFP_свойство имя="PicturePosition">0</VFP_свойство>
            <VFP_свойство имя="ControlSource">lNoCalc5</VFP_свойство>
            <VFP_свойство имя="Name">chkNoCalc5</VFP_свойство>
            <VFP_свойство имя="Caption">Не рассчитывать показатели по графе 5 "За аналогичный период прошлого финансового года"</VFP_свойство>
          </элемент>
        </элемент>
        <элемент>
          <VFP_имя>Page3</VFP_имя>
          <VFP_свойство имя="Caption">Параметры выгрузки</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="height">165</VFP_свойство>
            <VFP_свойство имя="left">10</VFP_свойство>
            <VFP_свойство имя="top">10</VFP_свойство>
            <VFP_свойство имя="width">445</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">5</VFP_свойство>
            <VFP_свойство имя="Caption">Параметры</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Каталог:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">25</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDirSelect</VFP_класс>
            <VFP_свойство имя="Name">Catalog</VFP_свойство>
            <VFP_свойство имя="Left">80</VFP_свойство>
            <VFP_свойство имя="Top">20</VFP_свойство>
            <VFP_свойство имя="Width">365</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">385</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <VFP_свойство имя="Width">60</VFP_свойство>
            <VFP_свойство имя="MaxLength">3</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIST</VFP_свойство>
            <VFP_свойство имя="Name">IST</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Исполнитель:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">dicIsp</VFP_свойство>
            <VFP_свойство имя="Left">195</VFP_свойство>
            <VFP_свойство имя="Top">80</VFP_свойство>
            <VFP_свойство имя="Width">250</VFP_свойство>
            <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
            <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
            <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
            <VFP_свойство имя="HistoryName" тип="C">H_AgentsIsp123_180N_2023</VFP_свойство>
            <VFP_свойство имя="filter">orgbase.type='2'</VFP_свойство>
            <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform
= CurOpen("orgbase, person")
If !Empty(oThis.Value)
  = Seek(oThis.Value, "orgbase", "RN")
  If orgbase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом.")
    oThis.Clear()
  Else    
    = Seek(oThis.Value, "person", "RN")
    oThis.Parent.fldIspName.Value = Alltrim(person.SURNAME) + " " + Left(Alltrim(person.FIRSTNAME), 1) + "." + Left(Alltrim(person.SECONDNAME), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>                
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ФИО:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">195</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">250</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIspName</VFP_свойство>
            <VFP_свойство имя="Name">fldIspName</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Телефон:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">145</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">195</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">250</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
            <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
          </элемент>
        </элемент>
      </элемент>
    </описание>
  </форма>
</Модуль>
