<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503110-191н_ред186н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>ar_form0503110_186n</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503110_186n_2023</мнемокод>
        <файл>Форма0503110_191н_ред186н_2023.xlt</файл>
      </шаблон>
      <!--Отчет формируется по хозяйственным операциям за период-->
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>ar_form0503110_186n</реализует>
    <дополнительно>
      <запомнить_переменные>
        <список_переменных>dSelDate;dReoDate;nAnLevel;cBudgetName;cKSO;cOrg;n21002K;n21004K;n30404K;n30405K;n30406K;n40110K;n40120K;n40210K;n40220K;c21002;c21004;c30404;c30405;c30406;c40110;c40120;c40210;c40220;nChkAdAn3;nNotRollClose;nItog;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;cTxt18r1;cTxt18r2;cTxt18r3;cTxt18r4;cTxt18r5;cTxt18r6;cTxt18r7;cTxt18r8;cTxt18r9;cTxt18r10;cRN_Mark;cCatEO;cJournalOp;cBalUnitsB;cBalUnitsR;cUnlPath;cIST;cDicIsp;cIspName;cIspTel</список_переменных>
        <мемофайл>ar_form0503110_191n_186n_2023;ar_form0503110_191n_13n_2020;ar_form0503110_191n_72n_2019</мемофайл>
      </запомнить_переменные>
    </дополнительно>
    <переменные>
      <переменная>
        <имя>dSelDate</имя>
        <начальное_значение>Year(oSystem.DateBegin)</начальное_значение>
        <!--Год За-->
      </переменная>
      <переменная>
        <имя>dReoDate</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата реорганизации-->
      </переменная>
      <переменная>
        <имя>nAnLevel</имя>
        <начальное_значение>5</начальное_значение>
        <!--Уровень КОСГУ-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Контрагент-->
      </переменная>
      <переменная>
        <имя>cWhereKontragent</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по контрагентам-->
      </переменная>
      <переменная>
        <имя>cBudgetName</имя>
        <начальное_значение>&quot;&quot;</начальное_значение>
        <!--Наименование бюджета-->
      </переменная>
      <переменная>
        <имя>cKSO</имя>
        <начальное_значение>"ПБС"</начальное_значение>
        <!--Код субъекта отчетности-->
      </переменная>
      <переменная>
        <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
        <!--Глава по БК-->
      </переменная>  
      <переменная>
        <имя>n21002K</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n21004K</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n30404K</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n30405K</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n30406K</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n40110K</имя>
        <начальное_значение>1</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n40120K</имя>
        <начальное_значение>1</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>      
      <переменная>
        <имя>n40210K</имя>
        <начальное_значение>1</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n40220K</имя>
        <начальное_значение>1</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>      
      <переменная>
        <имя>c21002</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c21004</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c30404</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c30405</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c30406</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c40110</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c40120</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c40210</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>
      <переменная>
        <имя>c40220</имя>
        <начальное_значение>""</начальное_значение>
        <!--Разворачивать по БК-->
      </переменная>      
      <переменная>
        <имя>nItog</имя>
        <начальное_значение>0</начальное_значение>
        <!--Подводить итоги-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>"1"</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
       <переменная>
        <имя>CTxt18r1</имя>
        <начальное_значение>"3"</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>
      <переменная>
        <имя>CTxt18r10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для раздела 2-->
      </переменная>  
      <переменная>
        <имя>cBalUnitsB</имя>
        <начальное_значение>""</начальное_значение>
        <!--Бал. единицы-->
      </переменная>
      <переменная>
        <имя>cBalUnitsR</имя>
        <начальное_значение>""</начальное_значение>
        <!--Бал. единицы-->
      </переменная>
      <переменная>
        <имя>cWhereBalUnitsB</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
       <переменная>
        <имя>cWhereBalUnitsR</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата с-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
       <переменная>
        <имя>cWhereR</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cWhereDB</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cUsl18B</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cUsl18r</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>  
      <переменная>
        <имя>cRN_Mark</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка-->
      </переменная>
      <переменная>
        <имя>cCatEO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог ХО-->
      </переменная>
      <переменная>
        <имя>cJournalOp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Журнал операций-->
      </переменная>      
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,06,30)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>
      <переменная>
        <имя>cGroupStr</имя>
        <начальное_значение>"21002;21004;30404;30405;30406;40110;40120;40210;40220"</начальное_значение>
      </переменная>            
      <переменная>
         <имя>cGroupMask21002</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>
      <переменная>
         <имя>cGroupMask21004</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>
      <переменная>
         <имя>cGroupMask30404</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>
      <переменная>
         <имя>cGroupMask30405</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>
      <переменная>
         <имя>cGroupMask30406</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>
      <переменная>
         <имя>cGroupMask40110</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>
      <переменная>
         <имя>cGroupMask40120</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>    
      <переменная>
         <имя>cGroupMask40210</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>    
      <переменная>
         <имя>cGroupMask40220</имя>
         <начальное_значение>""</начальное_значение>
         <!--Маска для группировки-->
      </переменная>    
      <переменная>
        <имя>n402011</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n402011k</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>
      <переменная>
        <имя>n402012</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>              
      <переменная>
        <имя>n402012k</имя>
        <начальное_значение>0</начальное_значение>
        <!--Разворачивать по КОСГУ-->
      </переменная>      
      <переменная>
        <имя>nChkAdAn3</имя>
        <начальное_значение>0</начальное_значение>
        <!--Сворачивать КОСГУ до 3-х символов-->
      </переменная>
      <переменная>
        <имя>nNotRollClose</имя>
        <начальное_значение>0</начальное_значение>
        <!--Не сворачивать обороты по счетам доходов и расходов, подлежащим закрытию-->
      </переменная>
    </переменные>
    <запуск_формы>
      <ид>f_0503110_191n_186n_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
dDateBegin = DATE(m.dSelDate, 1, 1)
dDateEnd   = Iif(Empty(m.dReoDate), DATE(m.dSelDate, 12,31), m.dReoDate)
      ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
*ON ERROR   && !!!!!

   Local cJoinAn_D, cJoinAn_K, cOrgPO_D, cOrgPO_K, cWhAccSpr, cWhAccSpr2, cWhAccSpr3, cAN_D, cAN_K, cIsKL
   Local i, cStrTmp, cMainRNInOper, cIsPart3, cNotPart3, cExclWhere
   Local Array arBp(1), aTmpDim[1]

   CurOpen("AccBase")

   cWhAccSpr  = m.cWhereDB + " and (InList(substr(accbase.account, 19, 5), '40110', '21002', '21004', '40120', '30404', '30405', '30406', '40210', '40220') Or substr(accbase.account, 19, 4) == '4011' )"
   cWhAccSpr2 = m.cWhereR  + " and  InList(substr(accbase.account, 19, 5), '40210', '40220')"
   cWhAccSpr3 = m.cWhereDB + " and substr(accbase.account, 19, 4) == '1096'"

   * Исключение счетов по ЖО
   If !Empty(m.cJournalOp)
     cWhAccSpr  = m.cWhAccSpr  + " And RN_MO # '" + m.cJournalOp + "'"
     cWhAccSpr2 = m.cWhAccSpr2 + " And RN_MO # '" + m.cJournalOp + "'"
     cWhAccSpr3 = m.cWhAccSpr3 + " And RN_MO # '" + m.cJournalOp + "'"
   EndIf

   If m.nAnLevel = 0
      Store "****" To cAN_D, cAN_K
      Store 0 To n21002K, n21004K, n30404K, n30405K, n30406K, n40110K, n40120K, n40210K, n40220K
   Else
      cAN_D = "E.RN_DB_A" + STR(m.nAnLevel,1)
      cAN_K = "E.RN_KR_A" + STR(m.nAnLevel,1)
   EndIf

   && Отбор аналитических счетов по контрагенту 
   Store "" To cJoinAn_D, cJoinAn_K, cOrgPO_D, cOrgPO_K
   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 "And .F." To cOrgPO_D, cOrgPO_K
     Else
        Index On RN Tag RN
        cJoinAn_D = "Left Join crsAccSpRN A1 On E.RN_DB_A1 = A1.RN " ;
                  + "Left Join crsAccSpRN A2 On E.RN_DB_A2 = A2.RN " ;
                  + "Left Join crsAccSpRN A3 On E.RN_DB_A3 = A3.RN " ;
                  + "Left Join crsAccSpRN A4 On E.RN_DB_A4 = A4.RN " ;
                  + "Left Join crsAccSpRN A5 On E.RN_DB_A5 = A5.RN "
        cOrgPO_D  = "And (!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_")
        cOrgPO_K  = m.cOrgPO_D
     EndIf
   EndIf

   * Глава по БК
   If !Empty(m.cWhereKontragent)
      Select B.Rasp_Code ;
        From OrgBase ;
          Inner Join fBudMG B On OrgBase.RN = B.OrgBase_RN ;
        Where &cWhereKontragent And !Empty(B.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

   cMainRNInOper = AccBase.RN

   && Счета 21002, 21004, 30404, 30405, 30406, 40110, 40120, 40210, 40220
   If oSystem.SystemName = "ACCFIN"
     cIsKL = 'Iif(!Empty(AccBase.BKLSDOH_RN) And Empty(AccBase.BKLSSRC_RN) And Empty(AccBase.BKLSEXP_RN), 0, Iif(!Empty(AccBase.BKLSSRC_RN) And Empty(AccBase.BKLSEXP_RN), 2, 1))'
   Else
     cIsKL = 'Iif(Empty(AccBase.RN_TFIN) And !Empty(AccBase.RN_KLSDOH), Iif(BKlsDoh.KLS_TYPE = 0, 0, 2), 1)'
   EndIf

   cIsKL = "Iif(InList(substr(accbase.account, 19, 5), '21002', '21004', '30404', '30405', '30406'), 4, " + m.cIsKL + ")"

   * cIsKL = 0 - доходы
   *         1 - расходы
   *         2 - источники
   *         4 - счета 21002, 21004, 30404, 30405 и 30406

   * Развязка на Счета, нужные для Раздела 3 и не нужные для него. 
   cIsPart3  = "InList(SubStr(accbase.account, 19, 4), '4011')"
   cNotPart3 = "SubStr(accbase.account, 19, 4) # '4011' Or SubStr(accbase.account, 19, 5) = '40110'"
     
   cStrTmp = "103;101;116;121;101;115;108;105;99;40;41"
   Alines(aTmpDim, cStrTmp, ";")
   cStrTmp = ""
   For m.i = 1 To ALen(aTmpDim)
     cStrTmp = m.cStrTmp + Chr(Val(aTmpDim[m.i]))
   EndFor

   Select NAME_ACC, ACCOUNT From AccBase Where RN = cMainRNInOper Having &cStrTmp Into Cursor curMainAccBase110
  
   Select AccBase.RN, AccBase.Account, &cIsKL As IsKL, &cIsPart3 As IsPart3, &cNotPart3 As NotPart3 ;
     From AccBase ;
       Left Join BKlsDoh On AccBase.RN_KLSDOH  = BKlsDoh.RN ;
       Left Join BalUnit On AccBase.RN_BalUnit = BalUnit.RN ;
     Where &cWhAccSpr And RAT("000", AccBase.Account) > 23 And RecCount("curMainAccBase110") > 0 ;
     Into Cursor curAccSpr

   Index On RN Tag RN

   Select AccBase.RN, AccBase.Account, &cIsKL As IsKL ;
     From AccBase ;
       Left Join BKlsDoh On AccBase.RN_KLSDOH  = BKlsDoh.RN ;
       Left Join BalUnit On AccBase.RN_BalUnit = BalUnit.RN ;
     Where &cWhAccSpr2 And RAT("000", AccBase.Account) > 23 And RecCount("curMainAccBase110") > 0 ;
     Into Cursor curAccSpr2

   Index On RN Tag RN

   Select AccBase.RN, AccBase.Account, AccBase.RN_TFIN ;
     From AccBase ;
       Left Join BalUnit On AccBase.RN_BalUnit = BalUnit.RN ;
     Where &cWhAccSpr3 And RAT("000", AccBase.Account) > 23 And RecCount("curMainAccBase110") > 0 ;
     Into Cursor curAccSpr1096

   Index On RN Tag RN

   CurClose("curMainAccBase110")

   * Заданы условия для исключения
   * Выборка общего курсора ХО для исключения
   If !Empty(m.cRN_Mark)
     Select RN, 1 As OptFld From EopBase ;
      Where DATE_EOP  => ?m.dDateBegin ;
        And DATE_EOP <=  ?m.dDateEnd   ;
        And RN_MARK   =  ?m.cRN_Mark ;
      Into Cursor curEopInOper

     Index On RN Tag RN   
   EndIf

   cExclWhere = ""

   * МО
   If !Empty(m.cJournalOp)
     cExclWhere = "And E.RN_MO # '" + m.cJournalOp + "' And B.RN_MO # '" + m.cJournalOp + "'"
   EndIf

   * Каталог ХО
   If !Empty(m.cCatEO)
     cExclWhere = m.cExclWhere + " And E.PARENT_RN # '" + m.cCatEO + "'"
   EndIf

   * ОО ХО
   If !Empty(m.cRN_Mark)
     cExclWhere = m.cExclWhere + " And E.MASTER_RN Not In (Select RN From curEopInOper)"
   EndIf

   * Раздел 1
   Select E.Rn_Db As RN, A.Account As Accnt, &cAN_D AS SRN, Nvl(S.SAccount, Space(15)) As SAccount, ;
          SUM(E.SUM_EQUAL) AS SUM, A.IsKL, ;
          Iif(InList(SubStr(B.Account, 19, 5), "40130", "40230"), Val(SubStr(B.Account, 21, 1)), 0) As LKorr ;
     From EopSpMir E ;
       Inner JOIN curAccSpr A ON E.RN_DB = A.RN And A.NotPart3 ;
       Inner JOIN AccBase   B ON E.RN_KR = B.RN ;
       LEFT  JOIN AccSpec   S ON &cAN_D  = S.RN ;
       &cJoinAn_D ;
     Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_D &cExclWhere ;
     Into Cursor curDB Group By 1, 3, 7

   Select E.Rn_Kr As RN, A.Account As Accnt, &cAN_K AS SRN, Nvl(S.SAccount, Space(15)) As SAccount, ;
          SUM(E.SUM_EQUAL) AS SUM, A.IsKL, ;
          Iif(InList(SubStr(B.Account, 19, 5), "40130", "40230"), Val(SubStr(B.Account, 21, 1)), 0) As LKorr ;
     From EopSpMir E ;
       Inner JOIN curAccSpr A ON E.RN_KR = A.RN And A.NotPart3 ;
       Inner JOIN AccBase   B ON E.Rn_DB = B.RN ;
       LEFT  JOIN AccSpec   S ON &cAN_K  = S.RN ;
       &cJoinAn_K ;
     Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_K &cExclWhere ;
     Into Cursor curKR Group By 1, 3, 7

   * Раздел 2
   Select E.Rn_Db As RN, A.Account As Accnt, &cAN_D AS SRN, Nvl(S.SAccount, Space(15)) As SAccount, ;
          SUM(E.SUM_EQUAL) AS SUM, A.IsKL, ;
          Iif(SubStr(B.Account, 19, 5) = "40230", 2, 0) As LKorr ;
     From EopSpMir E ;
       Inner JOIN curAccSpr2 A ON E.RN_DB = A.RN ;
       Inner JOIN AccBase    B ON E.RN_KR = B.RN ;
       LEFT  JOIN AccSpec    S ON &cAN_D  = S.RN ;
       &cJoinAn_D ;
     Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_D &cExclWhere ;
     Into Cursor curDB2 Group By 1, 3, 7

   Select E.Rn_Kr As RN, A.Account As Accnt, &cAN_K AS SRN, Nvl(S.SAccount, Space(15)) As SAccount, ;
          SUM(E.SUM_EQUAL) AS SUM, A.IsKL, ;
          Iif(SubStr(B.Account, 19, 5) = "40230", 2, 0) As LKorr ;
     From EopSpMir E ;
       Inner JOIN curAccSpr2 A ON E.RN_KR = A.RN ;
       Inner JOIN AccBase    B ON E.Rn_DB = B.RN ;
       LEFT  JOIN AccSpec    S ON &cAN_K  = S.RN ;
       &cJoinAn_K ;
     Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_K &cExclWhere ;
     Into Cursor curKR2 Group By 1, 3, 7

   * Раздел 3
   Select A.Account  As Accnt, ;
          S.SAccount As SAccount, ;
          Iif(SubStr(B.Account, 19, 4) = "1096", 4, Iif(SubStr(B.Account, 19, 4) = "1106", 8, 7)) As LKorr, ;
          Nvl(Nvl(L2.Code, L1.Code), "0000  ") As FFunclCode, ;
          Iif(InList(SubStr(B.Account, 19, 4), "1096", "1106"), Left(Nvl(C.SAccount, Replicate("0", 15)), 3), Space(3)) As SCAccount, ;
          SUM(E.SUM_EQUAL) As SUM ;  
     From EopSpMir E ;
       Inner Join curAccSpr A  On E.RN_DB    = A.RN ;
       Inner Join AccBase   B  On E.RN_KR    = B.RN  ;
       Inner Join AccSpec   S  On &cAN_D     = S.RN  ;
       Left  Join AccSpec   C  On &cAN_K     = C.RN  ;       
       Left  Join fSbfBase  F  On B.RN_TFIN  = F.RN  ;
       Left  Join fFuncCl   L1 On F.FKRR_RN  = L1.RN ;
       Left  Join fFuncCl   L2 On F.FKRPR_RN = L2.RN ;
       &cJoinAn_D ;
     Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_D ;
       And A.IsPart3 And Left(S.SAccount, 2) = "13" ;
       And (InList(SubStr(B.Account, 19, 5), "10527", "10537", "10538", "10539") ;
        Or  InList(SubStr(B.Account, 19, 4), "1096", "1106")) &cExclWhere ;
     Into Cursor curDBPart3 Group By 1, 2, 3, 4, 5

   * Обороты для колонок 5 и 6 раздела 3
   Select SubStr(B.Account, 19, 4) As CAccnt, ;
          SubStr(A.Account, 18, 1) As VFO, ;
          Nvl(Nvl(L2.Code, L1.Code), "0000  ") As FFunclCode, ;
          Left(Nvl(S.SAccount, Replicate("0", 15)), 3) As SCAccount, ;
          SUM(E.SUM_EQUAL) As SUM ;
     From EopSpMir E ;
       Inner Join curAccSpr1096 A  On E.RN_DB    = A.RN  ;
       Inner Join AccBase       B  On E.RN_KR    = B.RN  ;
       Left  Join AccSpec       S  On &cAN_D     = S.RN ;
       Left  Join fSbfBase      F  On A.RN_TFIN  = F.RN  ;
       Left  Join fFuncCl       L1 On F.FKRR_RN  = L1.RN ;
       Left  Join fFuncCl       L2 On F.FKRPR_RN = L2.RN ;
       &cJoinAn_D ;
     Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_D ;
       And InList(SubStr(B.Account, 19, 4), "1097", "1098") &cExclWhere ;
     Group By 1, 2, 3, 4 ;
     Into CURSOR curDBPart356

   = CurClose("crsAccSpRN,curEopInOper,curAccSpr1096")

   Create Cursor FormPrint(IsKL N(1), Acc C(41), Sum_DBB N(18,2),   Sum_KRB N(18,2), ;
                           Sum1_DBB  N(18,2), Sum1_KRB  N(18,2), Sum2_DBB N(18,2), ;
                           Sum2_KRB  N(18,2), Bold L, Export L)

   Create Cursor FormPrint2(IsKL N(1), Acc C(41), Sum_DB N(18,2), Sum_KR N(18,2), ;
                            Sum2_DB  N(18,2), Sum2_KR  N(18,2), Bold L)

   Create CURSOR FormPrint3(Acc C(41), Anl C(3), FFunclCode C(6), SCAccount C(3), ;
                            Sum4 N(18,2), Sum5 N(18,2), Sum6 N(18,2), Sum7 N(18,2), Sum8 N(18,2), ;
                            Bold L, Export L)

* Раздел 1
&&21002
   = FillCursorPrnNew('21002')
&&21004
   = FillCursorPrnNew('21004')
&&30404
   = FillCursorPrnNew('30404')
&&30405
   = FillCursorPrnNew('30405')
&&30406
   = FillCursorPrnNew('30406')
&&40110
   = FillCursorPrnNew('40110')
&&40120
   = FillCursorPrnNew('40120')
&&40210
   = FillCursorPrnNew('40210')
&&40220
   = FillCursorPrnNew('40220')
* Раздел 2
&&40210
   = FillCursorPrnNew('40210', .T.)
&&40220
   = FillCursorPrnNew('40220', .T.)
* Раздел 3
   = FillCursorPrnNew('PART3')

   Select * From FormPrint3 ;
     Order By Acc, FFunclCode, SCAccount ;
     Into Cursor FormPrint3 READWRITE

   = FillCursorPrnPart3()

= CurClose("curAccSpr;curDB;curKR;curAccSpr2;curDB2;curKR2;curDBPart3;curDBPart356")

&& Формирую имя файла            
If !Empty(m.cUnlPath)
  Local array aFiles(1)
  Local nNum, cNum, nN
  cUnlPath = Allt(m.cUnlPath)
  cFileName = "210" + Iif(Empty(m.dReoDate), "Y", "R")
  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, nSheet, cVersion, n
oPrint = objCaller.objExcelRep
oPrint.PrintRange("Header")

* Раздел 1
Select FormPrint
Delete For Sum_DBB = 0 And Sum_KRB = 0 And Sum1_DBB = 0 And ;
           Sum1_KRB = 0 And Sum2_DBB = 0 And Sum2_KRB = 0

* доходы
n = 0
Scan For IsKL = 0
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec_0")
EndScan

* расходы
n = 0
Scan For IsKL = 1
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec_1")
EndScan

* источники
n = 0
Scan For IsKL = 2
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec_2")
EndScan

* счета 21002, 21004, 30404, 30405, 30406
n = 0
Scan For IsKL = 4
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec_4")
EndScan

* Раздел 2
Select FormPrint2
Delete For Sum_DB = 0 And Sum_KR = 0 And Sum2_DB = 0 And Sum2_KR = 0

n = 0
For m.i = 0 To 2
  Scan For IsKL = m.i
    n = m.n + 1
    If m.n > 1
      oPrint.InsertRange()   
    EndIf
    oPrint.PrintRange("Spec2")
  EndScan
Next

* Раздел 3
Select FormPrint3
n = 0
Scan For Sum4 # 0 Or Sum5 # 0 Or Sum6 # 0 Or Sum7 # 0 Or Sum8 # 0
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec3")
EndScan

* итоги
oPrint.PrintRange("Footer")

CurClose("FormPrint,FormPrint2,FormPrint3")

* Удаление листа со сценарием выгрузки
If Empty(m.cFileName)
  Local nSheet
  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 CalcSum
  LParameters cCur, cWhere, nLKorr

  cWhere = m.cWhere + " And " + m.cCur + ".LKorr = " + Str(m.nLKorr, 1)

  Local Array aSum(1)

  Select Sum(SUM);
    From &cCur;
    Where &cWhere;
    Into Array aSum

  Return Iif(_Tally > 0, aSum[1], 0)
EndProc

* ШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШ

Procedure FillSums
   LParameters s, cFFunclCode, cSCAccount

   Local cCond

   * Считаем Раздел 3
   If !Empty(m.cFFunclCode)
     cCond = " And FFunclCode = '" + m.cFFunclCode + "' And SCAccount = '" + m.cSCAccount + "'"
     nSumPart3DB4 = CalcSum('curDBPart3' + m.s, m.cAcc + m.cCond, 4)
     nSumPart3DB7 = CalcSum('curDBPart3' + m.s, m.cAcc + m.cCond, 7)
     nSumPart3DB8 = CalcSum('curDBPart3' + m.s, m.cAcc + m.cCond, 8)
   Else 
     nSumDBB = CalcSum('curDB' + m.s, m.cAcc,  0)
     nSumKRB = CalcSum('curKR' + m.s, m.cAcc,  0)
     If !m.L2
       nSum1DBB = CalcSum('curDB' + m.s, m.cAcc,  1)
       nSum1KRB = CalcSum('curKR' + m.s, m.cAcc,  1)
     EndIf
     nSum2DBB = CalcSum('curDB' + m.s, m.cAcc,  2)
     nSum2KRB = CalcSum('curKR' + m.s, m.cAcc,  2)

    Do Case
      Case m.cSubs = '30405'
        nSumKRB   = m.nSumKRB   - m.nSumDBB
        nSum1DBB  = m.nSum1DBB  - m.nSum1KRB
        nSum2DBB  = m.nSum2DBB  - m.nSum2KRB
        Store 0 To nSumDBB, nSum1KRB, nSum2KRB

      Case InList(m.cSubs, '21002', '21004')
        nSumDBB   = m.nSumDBB   - m.nSumKRB
        nSum1KRB  = m.nSum1KRB  - m.nSum1DBB
        nSum2KRB  = m.nSum2KRB  - m.nSum2DBB
        Store 0 To nSumKRB, nSum1DBB, nSum2DBB

      Case InList(m.cSubs, '40110', '40210', '40120', '40220') And m.nNotRollClose = 0
        If m.nSumDBB > m.nSumKRB
          nSumDBB = m.nSumDBB - m.nSumKRB
          nSumKRB = 0
        Else
          nSumKRB = m.nSumKRB - m.nSumDBB
          nSumDBB = 0
        EndIf
        If m.nSum1DBB > m.nSum1KRB
          nSum1DBB = m.nSum1DBB - m.nSum1KRB
          nSum1KRB = 0
        Else
          nSum1KRB = m.nSum1KRB - m.nSum1DBB
          nSum1DBB = 0
        EndIf
        If m.nSum2DBB > m.nSum2KRB
          nSum2DBB = m.nSum2DBB - m.nSum2KRB
          nSum2KRB = 0
        Else
          nSum2KRB = m.nSum2KRB - m.nSum2DBB
          nSum2DBB = 0
        EndIf
    EndCase
  EndIf
EndProc

* ШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШ

Procedure FillCursorPrnNew
 Parameters cSubs, L2

 Private All Like nSum*
 Private cAcc
 Local cAcb, nLen, nLen000, cLen, cAcb000, lBCls, lKosgu, i, cAccTmp, s
 Local cVal, cNameS, j, cCur, cVarSubs, lPart3, cKosgu
 Local ARRAY aLst[1]
 s = Iif(m.L2, "2", "")
 
 cKosgu = ""
 
 lPart3 = m.cSubs == "PART3"
 If m.lPart3
   cSubs  = "4011"
   cKosgu = "13"
 EndIf
 
 cVarSubs = m.cSubs + Iif(m.lPart3, "0", "")
 lBCls    = !Empty(Evaluate("m.cGroupMask" + m.cVarSubs))
 lKosgu   = Evaluate('m.n' + m.cVarSubs + 'K = 1')

 If m.lBCls   && Группировать номер счета
   Local ni, n1, n2, cSub, cS, nLenS
   Local Array arGrpMask(1, 2)
   cSub = Evaluate("m.cGroupMask" + m.cVarSubs)
   ni   = 0
   n1   = Val(m.cSub)
   n2   = 0
   cS   = LTrim(Str(m.n1, 15))
   cSub = SubStr(m.cSub, Len(m.cS) + 2)

   DO While !Empty(m.cSub)
     If m.n2 = 0
       n2   = Val(m.cSub)
       cS   = LTrim(Str(m.n2, 15))
       cSub = SubStr(m.cSub, Len(m.cS) + 2)
       ni   = m.ni + 1
       Dimension arGrpMask(m.ni, 2)
       arGrpMask(m.ni, 1) = m.n1
       arGrpMask(m.ni, 2) = m.n2
     Else
       n1   = Val(m.cSub)
       cS   = LTrim(Str(m.n1, 15))
       cSub = SubStr(m.cSub, Len(m.cS) + 2)
       n2   = 0
     EndIf
   EndDO
   cLen = LTrim(Str(arGrpMask(m.ni, 2) + 1))
 Else
   cLen = "RAT('000', Account)"
 EndIf

 * Для счетов Раздела 3 своя выборка 
 If m.lPart3
   cLen = StrTran(m.cLen, "Account", "Accnt")
   Select Distinct PadR(SubStr(Accnt, 18, &cLen - 18), 9) As Acb, FFunclCode, SCAccount ;
     From curDBPart3 ;
     Into Cursor curAcc18
 Else
   Select Distinct IsKL, "" As FFunclCode, "" As SCAccount, PadR(SubStr(Account, 18, &cLen - 18), 9) As Acb ;
     From curAccSpr&s ;
     Where SubStr(Account, 19, 5) == ?m.cSubs ;
     Order By 1 ;
     Into Cursor curAcc18
 EndIf

 Scan
   cAcb    = RTrim(curAcc18.Acb)
   nLen    = Len(m.cAcb)
   cAcb000 = m.cAcb + Iif(m.lBCls, "", "000")
   nLen000 = Len(m.cAcb000)
   cAcc    = Iif(m.lPart3, '', 'IsKL = ' + Str(curAcc18.IsKL, 1) + ' And ') + 'SubStr(Accnt, 18, ' + LTrim(Str(m.nLen000)) + ') = "' + m.cAcb000 + '"'

   Store 0 To nSumDBB, nSumKRB, nSum1DBB, nSum1KRB, nSum2DBB, nSum2KRB, nSumPart3DB4, nSumPart3DB7, nSumPart3DB8

   = FillSums(m.s, curAcc18.FFunclCode, curAcc18.SCAccount)
   
   If !m.lBCls And !m.lKosgu
     Do Case
       Case m.lPart3
         Insert Into FormPrint3 (Acc, FFunclCode, SCAccount, Sum4, Sum7, Sum8, Bold, Export) ;
            Values (m.cAcb000, curAcc18.FFunclCode, curAcc18.SCAccount, m.nSumPart3DB4, m.nSumPart3DB7, m.nSumPart3DB8, .T., .T.)
       Case m.L2
         Insert Into FormPrint2 (IsKL, Acc, Sum_DB, Sum_KR, Sum2_DB, Sum2_KR, Bold) ;
            Values (curAcc18.IsKL, m.cAcb000, m.nSumDBB, m.nSumKRB, m.nSum2DBB, m.nSum2KRB, .T.)
       Otherwise
         Insert Into FormPrint (IsKL, Acc, Sum_DBB, Sum_KRB, Sum1_DBB, Sum1_KRB, ;
                                Sum2_DBB, Sum2_KRB, Bold, Export) ;
            Values (curAcc18.IsKL, m.cAcb000, m.nSumDBB, m.nSumKRB, m.nSum1DBB, m.nSum1KRB, ;
                    m.nSum2DBB, m.nSum2KRB, .T., .T.)
     EndCase
   Else
     For m.j = 1 To Iif(m.lPart3, 1, 2)   && Обороты по дебету / Обороты по кредиту
       If m.lPart3
         Select *, Space(44) As NameS ;
           From curDBPart3 ;
           Where SubStr(Accnt, 18, ?m.nLen000) = ?m.cAcb000 ;
             And curDBPart3.FFunclCode = curAcc18.FFunclCode ;
             And curDBPart3.SCAccount  = curAcc18.SCAccount ;
           Into Cursor curDBPart31 ReadWrite
       Else
         cCur = Iif(m.j = 1, "curDB", "curKR")

         Select *, Space(44) As NameS ;
           From &cCur&s ;
           Where IsKL = ?curAcc18.IsKL And SubStr(accnt, 18, ?m.nLen000) = ?m.cAcb000 ;
           Into CURSOR &cCur.1 READWRITE
       EndIf

       Scan All
         cNameS = PadR(Replicate("0", 17) + SubStr(Accnt, 18, m.nLen), 29)         
         If m.lBCls          
           nLenS = Len(Accnt)
           For m.i = 1 To m.ni
             If arGrpMask(m.i,1) <= m.nLenS
               cNameS = Iif(arGrpMask(m.i, 1) = 1, "", Left(m.cNameS, arGrpMask(m.i, 1) - 1)) ;
                      + SubStr(PadR(AllTrim(Accnt), 29, "0"), arGrpMask(m.i, 1), arGrpMask(m.i, 2) - arGrpMask(m.i, 1) + 1) ;
                      + SubStr(m.cNameS, arGrpMask(m.i, 2) + 1)
             EndIf           
           EndFor
         EndIf
         Replace NameS With m.cNameS + Iif(m.lKosgu, Iif(nChkAdAn3 = 1, Left(SAccount, 3), SAccount), '000')
       EndScan
     EndFor

     * соберём итог
     If m.lPart3
       Select Distinct NameS, FFunclCode, SCAccount From curDBPart31 Into Array aLst
     Else
       Select NameS From curDB1 ;
       Union ;
       Select NameS From curKR1 ;
         Group By 1 Order By 1;
         Into array aLst
     EndIf

     If _Tally > 0
       For m.i = 1 to ALen(aLst, 1)
         && обороты
         cAcc = 'Names = [' + aLst(m.i,1) + ']'
         Store 0 To nSumDBB, nSumKRB, nSum1DBB, nSum1KRB, nSum2DBB, nSum2KRB, nSumPart3DB4, nSumPart3DB7, nSumPart3DB8
         = FillSums("1", curAcc18.FFunclCode, curAcc18.SCAccount)

         Do Case
           Case m.lPart3
             Insert Into FormPrint3 (Acc, FFunclCode, SCAccount, Sum4, Sum7, Sum8, Export) ;
                Values (AllTrim(Left(aLst(m.i, 1), 29)) + AllTrim(SubStr(aLst(m.i, 1), 30)), ;
                        aLst(m.i,2), aLst(m.i,3), m.nSumPart3DB4, m.nSumPart3DB7, m.nSumPart3DB8, .T.)
           Case m.L2
             Insert Into FormPrint2 (IsKL, Acc, Sum_DB, Sum_KR, Sum2_DB, Sum2_KR) ;
               Values (curAcc18.IsKL, AllTrim(Left(aLst(m.i, 1), 29)) + AllTrim(SubStr(aLst(m.i, 1), 30)), ;
                        m.nSumDBB, m.nSumKRB, m.nSum2DBB, m.nSum2KRB)
           Otherwise
             Insert Into FormPrint (IsKL, Acc, Sum_DBB, Sum_KRB, Sum1_DBB, Sum1_KRB, Sum2_DBB, ;
                                    Sum2_KRB, Export) ;
                Values (curAcc18.IsKL, AllTrim(Left(aLst(m.i, 1), 29)) + AllTrim(SubStr(aLst(m.i, 1), 30)), ;
                        m.nSumDBB, m.nSumKRB, m.nSum1DBB, m.nSum1KRB, m.nSum2DBB,;
                        m.nSum2KRB, .T.)

             If m.lKosgu And (InList(m.cSubs, '40110', '40210') And InList(SubStr(aLst(m.i), 30), '171', '173') Or InList(m.cSubs, '40120', '40220') And SubStr(aLst(m.i), 30) = '273')
               Replace IsKL With 4 In FormPrint
             EndIf
         EndCase
       EndFor
     EndIf
     CurClose("curDB1;curKR1;curDBPart31")
   EndIf
 EndScan

 Use In curAcc18
 
EndProc

* ШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШШ

Procedure FillCursorPrnPart3

 Local nRecNo

 Select VFO, FFunclCode, SCAccount, ;
        Sum(Iif(CAccnt = "1097", Sum, 000000000000000.00)) As Sum5, ;
        Sum(Iif(CAccnt = "1098", Sum, 000000000000000.00)) As Sum6  ;
   From curDBPart356 ;
   Group By 1, 2, 3 ;
   Order By 1, 2, 3 ;
   Into CURSOR curAcc

 Scan
   Select FormPrint3
   nRecNo = 0
   Go Top
   Locate For SubStr(Acc, Iif(Len(AllTrim(Acc)) < 13, 1, 18), 1) = curAcc.VFO And FFunclCode = curAcc.FFunclCode And SCAccount = curAcc.SCAccount
   If Found()
     nRecNo = RecNo()
     Continue
     If Found()
       nRecNo = 0
     EndIf
   EndIf

   If m.nRecNo = 0
     Insert Into FormPrint3 (FFunclCode, SCAccount) Values (curAcc.FFunclCode, curAcc.SCAccount)
   Else
     GoTo m.nRecNo In FormPrint3
   EndIf
   Replace Sum5 With Sum5 + curAcc.Sum5, ;
           Sum6 With Sum6 + curAcc.Sum6 In FormPrint3
 EndScan

 Use In curAcc

EndProc

]]></FPC_></MSE>
  <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T.)
]]></FPC_>
  </печать>
  </отчет>
  <форма>
    <ид>f_0503110_191n_186n_2023</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503110</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503110-191н_ред186н_2023</VFP_свойство>
      <VFP_свойство имя="Height">440</VFP_свойство>
      <VFP_свойство имя="Width">530</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisform
Local oPage1, oPage2, oPage3, oPage4, oObj, i, cVal, cVar, cMask
Local nMinLen, nMaxLen, cSub, n1, n2, nR, cS, lOk
Local c18B, c18r
Local Array aGrp[1]

nMinLen = 23
nMaxLen = 29

oPage1 = oThisForm.PF.Page1
oPage2 = oThisForm.PF.Page2
oPage3 = oThisForm.PF.Page3
oPage4 = oThisForm.PF.Page4

if !empty(oPage1.cntReoDate.Text.Value) and Year(oPage1.cntReoDate.Text.Value) # oPage1.cntSelDate.Value
   =exclmes("Дата реорганизации должна относиться к отчетному году!")
   oThisForm.PF.ActivePage = 1
   oPage1.cntReoDate.Text.SetFocus()
   return .F.
endif
if empty(oPage1.Txt18B1.Value) and empty(oPage1.Txt18B2.Value) and ;
   empty(oPage1.Txt18B3.Value) and empty(oPage1.Txt18B4.Value) and ;   
   empty(oPage1.Txt18B5.Value) and empty(oPage1.Txt18B6.Value) and ;
   empty(oPage1.Txt18B7.Value) and empty(oPage1.Txt18B8.Value) and ;
   empty(oPage1.Txt18B9.Value) and empty(oPage1.Txt18B10.Value) 
   =exclmes("Не указан код вида деятельности для бюджетной деятельности!")
   oThisForm.PF.ActivePage = 1
   oPage1.Txt18B1.SetFocus()
   return .F.
endif
if empty(oPage1.Txt18r1.Value) and empty(oPage1.Txt18r2.Value) and ;
   empty(oPage1.Txt18r3.Value) and empty(oPage1.Txt18r4.Value) and ;   
   empty(oPage1.Txt18r5.Value) and empty(oPage1.Txt18r6.Value) and ;
   empty(oPage1.Txt18r7.Value) and empty(oPage1.Txt18r8.Value) and ;
   empty(oPage1.Txt18r9.Value) and empty(oPage1.Txt18r10.Value) 
   =exclmes("Не указан код вида деятельности для средств во временном распоряжении!")
   oThisForm.PF.ActivePage = 1
   oPage1.Txt18r1.SetFocus()
   return .F.
endif

c21002 = oPage2.Group21002.GetSaveValue()
c21004 = oPage2.Group21004.GetSaveValue()
c30404 = oPage2.Group30404.GetSaveValue()
c30405 = oPage2.Group30405.GetSaveValue()
c30406 = oPage2.Group30406.GetSaveValue()
c40110 = oPage2.Group40110.GetSaveValue()
c40120 = oPage2.Group40120.GetSaveValue()
c40210 = oPage2.Group40210.GetSaveValue()
c40220 = oPage2.Group40220.GetSaveValue()

store "" to cUsl18B, cUsl18r

c18B  = oPage1.Txt18B1.Value + oPage1.Txt18B2.Value + ;
        oPage1.Txt18B3.Value + oPage1.Txt18B4.Value + ;
        oPage1.Txt18B5.Value + oPage1.Txt18B6.Value + ;
        oPage1.Txt18B7.Value + oPage1.Txt18B8.Value + ;
        oPage1.Txt18B9.Value + oPage1.Txt18B10.Value 
c18r  = oPage1.Txt18r1.Value + oPage1.Txt18r2.Value + ;
        oPage1.Txt18r3.Value + oPage1.Txt18r4.Value + ;
        oPage1.Txt18r5.Value + oPage1.Txt18r6.Value + ;
        oPage1.Txt18r7.Value + oPage1.Txt18r8.Value + ;
        oPage1.Txt18r9.Value + oPage1.Txt18r10.Value 

c18B = strtran(c18B, " ", "", 1)
c18r = strtran(c18r, " ", "", 1) 

for i = 1 to len(m.c18B)
    cSymb = substr(m.c18B, m.i, 1)
    cUsl18B = cUsl18B + iif(!empty(cUsl18B), ",'", "'") + cSymb + "'"
endfor
if !empty(cUsl18B)
   cUsl18B = "InList(substr(accbase.account, 18, 1), " + cUsl18B +")"
else
   cUsl18B = ".T."
endif

for i = 1 to len(m.c18r)
    cSymb = substr(m.c18r, m.i, 1)
    cUsl18r = cUsl18r + iif(!empty(cUsl18r), ",'", "'") + cSymb + "'"
endfor
if !empty(cUsl18r)
   cUsl18r = "InList(substr(accbase.account, 18, 1), " + cUsl18r +")"
else
   cUsl18r = ".T."
endif

cWhereDB    = m.cUsl18B
cWhereKontragent = oPage1.OrgFrom.GetCond()
cOrg        = oPage1.OrgFrom.GetSaveValue()
cWhereBalUnitsB  = oPage1.BalunitsB.GetCond()
cWhereBalUnitsR  = oPage1.BalunitsR.GetCond()
cBalUnitsB  = oPage1.BalunitsB.GetSaveValue()
cBalUnitsR  = oPage1.BalunitsR.GetSaveValue()
cWhereR     = m.cUsl18r

If !Empty(m.cWhereBalUnitsB)
  cWhereDB = m.cWhereBalUnitsB + " And " + m.cWhereDB
EndIf
If !Empty(m.cWhereBalUnitsR)
  cWhereR = m.cWhereBalUnitsR + " And " + m.cUsl18r
EndIf

ALines(aGrp, cGroupStr, ";")

For i = 1 To ALen(aGrp)
  oObj   = Eval("oPage2.Group" + AllTrim(aGrp[i]))
  cVar   = "m.c" + Allt(aGrp[i])
  cVal   = Eval(cVar)
  cMask  = "m.cGroupMask" + AllTrim(aGrp[i])
  &cMask = ""
  * Группировка 
  If !Empty(m.cVal) And Len(m.cVal) > 1
     oObj.SetSaveValue(cVal)
     &cMask = oObj.DisplayValue
     &cMask = ChrTran(&cMask, " ", "")
     &cMask = ChrTran(&cMask, ",", ";")
     cSub = Evaluate(cMask)
     n1   = Val(m.cSub)
     n2   = 0
     lOk  = Between(m.n1, 1, m.nMaxLen)
     cS   = LTrim(Str(m.n1, 15))
     cSub = SubStr(m.cSub, Len(m.cS) + 1)
     lOk  = m.lOk And !Empty(m.cSub)
     DO While !Empty(m.cSub) And m.lOk
       cS = Left(m.cSub, 1)
       If m.cS = "-" And m.n1 # 0 And m.n2 = 0
          cSub = SubStr(m.cSub, 2)
          n2   = Val(m.cSub)
          nR   = m.n2
          cS   = LTrim(Str(m.n2, 15))
          cSub = SubStr(m.cSub, Len(m.cS) + 1)
          lOk  = Between(m.n2, m.n1, m.nMaxLen)
       Else
          If m.cS = ";" And m.n1 # 0 And m.n2 # 0
             cSub = SubStr(m.cSub, 2)
             n1   = Val(m.cSub)
             cS   = LTrim(Str(m.n1, 15))
             cSub = SubStr(m.cSub, Len(m.cS) + 1)
             lOk  = Between(m.n1, m.n2 + 1, m.nMaxLen) And !Empty(m.cSub)
             n2   = 0
          Else
             lOk = .F.
          EndIf
       EndIf
     EndDO
     *
     If !m.lOk Or m.nR < m.nMinLen
       = ExclMes("Группировка для счетов '" + Allt(aGrp[i]) + "' задана некорректно!")
       oThisForm.PF.ActivePage = 2
       oObj.SetFocus()
       Return .F.
     EndIf
  EndIf  
EndFor

cCatEO = oPage3.CmbCatEO.Value

* Каталог для выгрузки
cUnlPath = oPage4.Catalog.Text.Value
if !Empty(m.cUnlPath) And !Directory(m.cUnlPath, 1)
   =exclmes("Каталог " + AllTrim(m.cUnlPath) + Chr(13) + "не существует!")
   oThisForm.PF.ActivePage = 3
   oPage4.Catalog.SetFocus()
   return .F.
endif
cDicIsp = oPage4.DicIsp.GetSaveValue()
]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisform
Local oPage1, oPage2, oPage3, oPage4, cIspolnitel
oPage1 = oThisForm.PF.Page1
oPage2 = oThisForm.PF.Page2
oPage3 = oThisForm.PF.Page3
oPage4 = oThisForm.PF.Page4

oPage1.OrgFrom.setsavevalue(m.cOrg)
oPage1.fldBudgetName.setsavevalue(m.cBudgetName)
oPage1.BalunitsB.SetSaveValue(m.cBalUnitsB)
oPage1.BalunitsR.SetSaveValue(m.cBalUnitsR)

oPage2.Group21002.SetSaveValue(m.c21002)
oPage2.Group21004.SetSaveValue(m.c21004)
oPage2.Group30404.SetSaveValue(m.c30404)
oPage2.Group30405.SetSaveValue(m.c30405)
oPage2.Group30406.SetSaveValue(m.c30406)
oPage2.Group40110.SetSaveValue(m.c40110)
oPage2.Group40120.SetSaveValue(m.c40120)
oPage2.Group40210.SetSaveValue(m.c40210)
oPage2.Group40220.SetSaveValue(m.c40220)

oPage3.CmbMark.SetSource(UnitRn("EconOp"))
oPage3.CmbMark.Value = m.cRN_Mark
oPage3.CmbCatEO.UnitCode = "EconOp"
oPage3.CmbCatEO.InitThis(m.cCatEO)
oPage3.JournalOp.Value = m.cJournalOp

oPage4.Catalog.Text.value = m.cUnlPath
cIspolnitel = m.cIspName
oPage4.DicIsp.setsavevalue(m.cDicIsp)
oPage4.fldIspName.Value = m.cIspolnitel

]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">250</VFP_свойство>
        <VFP_свойство имя="Top">403</VFP_свойство>
      </элемент>
      <элемент>
          <VFP_класс>TPageFrame</VFP_класс>
          <VFP_свойство имя="Name">PF</VFP_свойство>
          <VFP_свойство имя="Height">400</VFP_свойство>
          <VFP_свойство имя="Width">530</VFP_свойство>
          <VFP_свойство имя="PageCount">4</VFP_свойство>
          <элемент>
            <VFP_имя>Page1</VFP_имя>
            <VFP_свойство имя="Caption">Параметры формирования</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">170</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">510</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">30</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>tyear</VFP_класс>
              <VFP_свойство имя="Name">cntSelDate</VFP_свойство>
              <VFP_свойство имя="ControlSource">dSelDate</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Дата реорганизации:</VFP_свойство>
              <VFP_свойство имя="Left">290</VFP_свойство>
              <VFP_свойство имя="Top">30</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TdicDate</VFP_класс>
              <VFP_свойство имя="Name">cntReoDate</VFP_свойство>
              <VFP_свойство имя="Left">415</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
              <элемент>
                <VFP_имя>Text</VFP_имя>
                <VFP_свойство имя="ControlSource">dReoDate</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Уровень аналитики КОСГУ:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">60</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TSpinner</VFP_класс>
              <VFP_метод имя="InteractiveChange"><![CDATA[LParam oThis, oThisform
oThisform.Recalc()]]></VFP_метод>
              <VFP_свойство имя="ControlSource">nAnLevel</VFP_свойство>
              <VFP_свойство имя="Increment">1.00</VFP_свойство>
              <VFP_свойство имя="Inputmask">9</VFP_свойство>
              <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
              <VFP_свойство имя="KeyboardLowValue">1</VFP_свойство>
              <VFP_свойство имя="Left">470</VFP_свойство>
              <VFP_свойство имя="Name">aLevel</VFP_свойство>
              <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
              <VFP_свойство имя="SpinnerLowValue">1.00</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
              <VFP_свойство имя="Width">40</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">90</VFP_свойство>
              <VFP_свойство имя="Caption">Бюджетное учреждение:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">85</VFP_свойство>
              <VFP_свойство имя="Width">356</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTS110_186N_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_свойство имя="Caption">Наименование бюджета:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">120</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">fldBudgetName</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">115</VFP_свойство>
              <VFP_свойство имя="Width">356</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">Mubudg</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Mubudg_msc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTSMUB110_186N_2023</VFP_свойство>
              <VFP_свойство имя="ControlSource" тип="C">m.cBudgetName</VFP_свойство>
              <VFP_свойство имя="notempty" тип="L">.F.</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>    
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">150</VFP_свойство>
              <VFP_свойство имя="Caption">Код субъекта отчетности:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">391</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_KSO</VFP_свойство>
              <VFP_свойство имя="Top">145</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">190</VFP_свойство>
              <VFP_свойство имя="Width">510</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">185</VFP_свойство>
              <VFP_свойство имя="Caption">Код вида деятельности</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">205</VFP_свойство>
              <VFP_свойство имя="Caption">Бюджетная деятельность:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">301</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">322</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">343</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">364</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">385</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">406</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">427</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">448</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">469</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">490</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B10</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B10</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">235</VFP_свойство>
              <VFP_свойство имя="Caption">Средства во временном распоряжении:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">301</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">322</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">343</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">364</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">385</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">406</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">427</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">448</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">469</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">490</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18r10</VFP_свойство>
              <VFP_свойство имя="Name">Txt18r10</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">275</VFP_свойство>
              <VFP_свойство имя="Width">510</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">270</VFP_свойство>
              <VFP_свойство имя="Caption">Балансовая единица</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">290</VFP_свойство>
              <VFP_свойство имя="Caption">Бюджетная деятельность:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>S_balunits</VFP_класс>
              <VFP_свойство имя="Name">BalunitsB</VFP_свойство>
              <VFP_свойство имя="Left">235</VFP_свойство>
              <VFP_свойство имя="Top">285</VFP_свойство>
              <VFP_свойство имя="Width">275</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">320</VFP_свойство>
              <VFP_свойство имя="Caption">Средства во временном распоряжении:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>S_balunits</VFP_класс>
              <VFP_свойство имя="Name">BalunitsR</VFP_свойство>
              <VFP_свойство имя="Left">235</VFP_свойство>
              <VFP_свойство имя="Top">315</VFP_свойство>
              <VFP_свойство имя="Width">275</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_имя>Page2</VFP_имя>
            <VFP_свойство имя="caption">Параметры группировки</VFP_свойство>
            <VFP_свойство имя="fontname">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="fontsize">8</VFP_свойство>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">355</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">510</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">28</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">21002000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group21002</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">45</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group21002_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">21004000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group21004</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">75</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group21004_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">30404000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group30404</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">105</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group30404_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>            
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">30405000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group30405</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">135</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group30405_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>                        
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">30406000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">170</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group30406</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">165</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group30406_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>                        
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">40110000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group40110</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">195</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group40110_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>                        
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">40120000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group40120</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group40120_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>            
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">40210000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">260</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group40210</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">255</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group40210_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>                                   
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">40220000</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">290</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">Group40220</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">285</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group40220_110_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>                        
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Разворачивать</VFP_свойство>
              <VFP_свойство имя="Left">150</VFP_свойство>
              <VFP_свойство имя="Top">15</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">по КОСГУ:</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">28</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Группировать номер счета по:</VFP_свойство>
              <VFP_свойство имя="Left">267</VFP_свойство>
              <VFP_свойство имя="Top">28</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="ControlSource">n21002K</VFP_свойство>
              <VFP_свойство имя="Name">chk21002K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <VFP_свойство имя="ControlSource">n21004K</VFP_свойство>
              <VFP_свойство имя="Name">chk21004K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="ControlSource">n30404K</VFP_свойство>
              <VFP_свойство имя="Name">chk30404K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="ControlSource">n30405K</VFP_свойство>
              <VFP_свойство имя="Name">chk30405K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">170</VFP_свойство>
              <VFP_свойство имя="ControlSource">n30406K</VFP_свойство>
              <VFP_свойство имя="Name">chk30406K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="ControlSource">n40110K</VFP_свойство>
              <VFP_свойство имя="Name">chk401011K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="ControlSource">n40120K</VFP_свойство>
              <VFP_свойство имя="Name">chk401012K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>                                            
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">260</VFP_свойство>
              <VFP_свойство имя="ControlSource">n40210K</VFP_свойство>
              <VFP_свойство имя="Name">chk40210K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>                                            
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">290</VFP_свойство>
              <VFP_свойство имя="ControlSource">n40220K</VFP_свойство>
              <VFP_свойство имя="Name">chk40220K</VFP_свойство>
              <VFP_свойство имя="Caption"></VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">320</VFP_свойство>
              <VFP_свойство имя="ControlSource">nItog</VFP_свойство>
              <VFP_свойство имя="Name">chkItog</VFP_свойство>
              <VFP_свойство имя="Caption">Подводить итоги</VFP_свойство>
              <VFP_свойство имя="Visible">.F.</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">320</VFP_свойство>
              <VFP_свойство имя="ControlSource">nChkAdAn3</VFP_свойство>
              <VFP_свойство имя="Name">ChkAdAn3</VFP_свойство>
              <VFP_свойство имя="Caption">Сворачивать КОСГУ до 3-х символов</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">340</VFP_свойство>
              <VFP_свойство имя="ControlSource">nNotRollClose</VFP_свойство>
              <VFP_свойство имя="Name">chkNotRollClose</VFP_свойство>
              <VFP_свойство имя="Caption">Не сворачивать обороты по счетам доходов и расходов, подлежащим закрытию</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_имя>Page3</VFP_имя>
            <VFP_свойство имя="Caption">Обособленные операции</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <VFP_свойство имя="PageOrder">3</VFP_свойство>          
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">510</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>            
              <VFP_свойство имя="Top">5</VFP_свойство>
              <VFP_свойство имя="Caption">Операции межотчетного периода</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
              <VFP_свойство имя="Caption">Особая отметка:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>mark</VFP_класс>
              <VFP_свойство имя="Left">355</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Name">CmbMark</VFP_свойство>
              <VFP_свойство имя="ControlSource">cRN_Mark</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
              <VFP_свойство имя="Caption">Каталог хозяйственных операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>tdictree</VFP_класс>
              <VFP_свойство имя="Left">355</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Name">CmbCatEO</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">45</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">95</VFP_свойство>
              <VFP_свойство имя="Width">510</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">90</VFP_свойство>
              <VFP_свойство имя="Caption">Операции по исправлению ошибок прошлых лет</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Caption">Журнал операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>ordera</VFP_класс>
              <VFP_свойство имя="Left">355</VFP_свойство>
              <VFP_свойство имя="Top">105</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Name">JournalOp</VFP_свойство>
              <VFP_свойство имя="ControlSource">cJournalOp</VFP_свойство>
            </элемент>
          </элемент>                 
          <элемент>
            <VFP_имя>Page4</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">510</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">75</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">435</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">455</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">55</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_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform
= CurOpen("orgbase, person")

If !Empty(oThisForm.PF.Page4.dicIsp.Value)
  = Seek(oThisForm.PF.Page4.dicIsp.Value, "orgbase", "RN")
  If orgbase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом.")
    oThisForm.PF.Page4.dicIsp.Clear()
  Else    
    = Seek(oThisForm.PF.Page4.dicIsp.Value, "person", "RN")
    oThisForm.PF.Page4.fldIspName.Value = Alltrim(person.SURNAME) + " " + Left(Alltrim(person.FIRSTNAME), 1) + "." + Left(Alltrim(person.SECONDNAME), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">dicIsp</VFP_свойство>
              <VFP_свойство имя="Left">255</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <VFP_свойство имя="Width">255</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AgentsIsp110_186N_2023</VFP_свойство>
              <VFP_свойство имя="filter">orgbase.type='2'</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>                
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">ФИО:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">115</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">255</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Width">255</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">255</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">255</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
              <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
            </элемент>
          </элемент>
       </элемент>
    </описание>
  </форма>
</Модуль>
