<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503130-191н_ред186н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503130_186n_2023</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503130_186n_2023</мнемокод>
        <файл>Форма0503130_191н_ред186н_2023.xlt</файл>
      </шаблон>
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503130_186n_2023</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dSelDateS;dSelDatePo;cNameBudzh;cKSO;cOrg;nAccType;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;cTxt18R1;cTxt18R2;cTxt18R3;cTxt18R4;cTxt18R5;cTxt18R6;cTxt18R7;cTxt18R8;cTxt18R9;cTxt18R10;cBalUnitsB;cBalUnitsR;cRN_Mark;cCatEO;cJournalOp;nNoCalcLong;cUnlPath;cIST;cDicIsp;cIspName;cIspTel;nAnLevel;cTxt18ZB1;cTxt18ZB2;cTxt18ZB3;cTxt18ZB4;cTxt18ZB5;cTxt18ZB6;cTxt18ZB7;cTxt18ZB8;cTxt18ZB9;cTxt18ZB10;nEmptyRows;cUnlPath4;cIdReceiver;cKodB;cIdReceiverMain</список_переменных>
        <мемофайл>ar_form0503130_191n_186n_2023;ar_form0503130_191n_217n_2021;ar_form0503130_191n_311n_2020;ar_form0503130_191n_13n_2020;ar_form0503130_191n_131n_2019</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dSelDateS</имя>
        <начальное_значение>oSystem.DateBegin</начальное_значение>
        <!--Период формирования-->
      </переменная>
      <переменная>
        <имя>dSelDatePo</имя>
        <начальное_значение>oSystem.Date</начальное_значение>
        <!--Период формирования-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Контрагент-->
      </переменная>
      <переменная>
        <имя>cWhereKontragent</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по контрагентам-->
      </переменная>
      <переменная>
        <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
        <!--Глава по БК-->
      </переменная>
      <переменная>
        <имя>cNameBudzh</имя>
        <начальное_значение>&quot;&quot;</начальное_значение>
        <!--Наименование бюджета-->
      </переменная>
      <переменная>
        <имя>cKodB</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код бюджета-->
      </переменная>
      <переменная>
        <имя>cKSO</имя>
        <начальное_значение>"ПБС"</начальное_значение>
        <!--Код субъекта отчетности-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>"1"</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18R1</имя>
        <начальное_значение>"3"</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R2</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R3</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R4</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R5</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R6</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R7</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R8</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R9</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>CTxt18R10</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cBalUnitsB</имя>
        <начальное_значение>""</начальное_значение>
        <!--Бал. единицы-->
      </переменная>
      <переменная>
        <имя>cBalUnitsR</имя>
        <начальное_значение>""</начальное_значение>
        <!--Бал. единицы-->
      </переменная>
      <переменная>
        <имя>cWhereBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата с-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
      <переменная>
        <имя>cWhereRB</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cWhereRR</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cUsl18B</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cRN_Mark</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка-->
      </переменная>
      <переменная>
        <имя>cCatEO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог ХО-->
      </переменная>
      <переменная>
        <имя>cJournalOp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Журнал операций-->
      </переменная>
      <переменная>
        <имя>nNoCalcLong</имя>
        <начальное_значение>0</начальное_значение>
        <!--Не рассчитывать «долгосрочные» показатели на начало отчетного периода-->
      </переменная>
      <переменная>
        <имя>aSbfRN</имя>
        <начальное_значение>""</начальное_значение>
        <!--массив для GetCommonRepParams2015-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
        <имя>nEmptyRows</имя>
        <начальное_значение>0</начальное_значение>
        <!--Выгружать строки с нулевыми значениями-->
      </переменная>
      <переменная>
        <имя>nAnLevel</имя>
        <начальное_значение>0</начальное_значение>
        <!--Уровень аналитики-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB1</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>cWhereBSPR</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cUnlPath4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки в ГНИ 4-->
      </переменная>
      <переменная>
        <имя>cFileId4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Идентификатор файла-->
      </переменная>
      <переменная>
        <имя>cFileName4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки в ГНИ 4-->
      </переменная>
      <переменная>
        <имя>cIdReceiver</имя>
        <начальное_значение>""</начальное_значение>
        <!--Идентификатор получателя информации-->
      </переменная>
      <переменная>
        <имя>cIdReceiverMain</имя>
        <начальное_значение>""</начальное_значение>
        <!--Идентификатор конечного получателя информации-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,06,30)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>            
    </переменные>
    <запуск_формы>
      <ид>f_0503130_191n_186n_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
dDateBegin = DOX(m.dSelDateS, 3)
dDateEnd   = DOX(m.dSelDatePo, 4) + 1
                    ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
*ON ERROR

* Операции межотчетного периода
Private dDate5, cWhere5, cSubPos, cUnitEO, cUnitInv, cUnitEF
cSubPos = Iif(m.nAccType = 1, "19", "2")
cWhere5 = ""
Do Case
  Case !Empty(m.cRN_Mark) And !Empty(m.cCatEO)
    cWhere5 = "(B.RN_MARK = '" + m.cRN_Mark + "' Or B.PARENT_RN = '" + m.cCatEO + "')"
  Case !Empty(m.cRN_Mark)
    cWhere5 = "B.RN_MARK = '" + m.cRN_Mark + "'"
  Case !Empty(m.cCatEO)
    cWhere5 = "B.PARENT_RN = '" + m.cCatEO + "'"
EndCase
dDate5 = m.dDateEnd - 1

cUnitEO  = UnitRN("EconOp")       && Хозяйственные операции
cUnitInv = UnitRN("Inventory")    && Инвентарная картотека
cUnitEF  = UnitRN("ExpsFuture")   && Картотека операций будущих периодов

* Суммы для отчета
Private ALL Like nCol?Row*
Store 0 To nCol3Row010, nCol4Row010, nCol6Row010, nCol7Row010, ;
           nCol3Row020, nCol4Row020, nCol6Row020, nCol7Row020, ;
           nCol3Row021, nCol4Row021, nCol6Row021, nCol7Row021, ;
           nCol3Row040, nCol4Row040, nCol6Row040, nCol7Row040, ;
           nCol3Row041, nCol4Row041, nCol6Row041, nCol7Row041, ;
           nCol3Row050, nCol4Row050, nCol6Row050, nCol7Row050, ;
           nCol3Row051, nCol4Row051, nCol6Row051, nCol7Row051, ;
           nCol3Row070, nCol4Row070, nCol6Row070, nCol7Row070, ;
           nCol3Row080, nCol4Row080, nCol6Row080, nCol7Row080, ;
           nCol3Row100, nCol4Row100, nCol6Row100, nCol7Row100, ;
           nCol3Row101, nCol4Row101, nCol6Row101, nCol7Row101, ;
           nCol3Row110, nCol4Row110, nCol6Row110, nCol7Row110, ;
           nCol3Row120, nCol4Row120, nCol6Row120, nCol7Row120, ;
           nCol3Row130, nCol4Row130, nCol6Row130, nCol7Row130, ;
           nCol3Row140, nCol4Row140, nCol6Row140, nCol7Row140, ;
           nCol3Row150, nCol4Row150, nCol6Row150, nCol7Row150, ;
           nCol3Row160, nCol4Row160, nCol6Row160, nCol7Row160, ;
           nCol3Row170, nCol4Row170, nCol6Row170, nCol7Row170, ;
           nCol3Row201, nCol4Row201, nCol6Row201, nCol7Row201, ;
           nCol3Row203, nCol4Row203, nCol6Row203, nCol7Row203, ;
           nCol3Row204, nCol4Row204, nCol6Row204, nCol7Row204, ;
           nCol3Row206, nCol4Row206, nCol6Row206, nCol7Row206, ;
           nCol3Row207, nCol4Row207, nCol6Row207, nCol7Row207, ;
           nCol3Row240, nCol4Row240, nCol6Row240, nCol7Row240, ;
           nCol3Row241, nCol4Row241, nCol6Row241, nCol7Row241, ;
           nCol3Row250, nCol4Row250, nCol6Row250, nCol7Row250, ;
           nCol3Row251, nCol4Row251, nCol6Row251, nCol7Row251, ;
           nCol3Row260, nCol4Row260, nCol6Row260, nCol7Row260, ;
           nCol3Row261, nCol4Row261, nCol6Row261, nCol7Row261, ;
           nCol3Row270, nCol4Row270, nCol6Row270, nCol7Row270, ;
           nCol3Row271, nCol4Row271, nCol6Row271, nCol7Row271, ;
           nCol3Row280, nCol4Row280, nCol6Row280, nCol7Row280, ;
           nCol3Row282, nCol4Row282, nCol6Row282, nCol7Row282, ;
           nCol3Row290, nCol4Row290, nCol6Row290, nCol7Row290

Store 0 To nCol3Row400, nCol4Row400, nCol6Row400, nCol7Row400, ;
           nCol3Row401, nCol4Row401, nCol6Row401, nCol7Row401, ;
           nCol3Row410, nCol4Row410, nCol6Row410, nCol7Row410, ;
           nCol3Row411, nCol4Row411, nCol6Row411, nCol7Row411, ;
           nCol3Row420, nCol4Row420, nCol6Row420, nCol7Row420, ;
           nCol3Row431, nCol4Row431, nCol6Row431, nCol7Row431, ;
           nCol3Row432, nCol4Row432, nCol6Row432, nCol7Row432, ;
           nCol3Row433, nCol4Row433, nCol6Row433, nCol7Row433, ;
           nCol3Row434, nCol4Row434, nCol6Row434, nCol7Row434, ;
           nCol3Row436, nCol4Row436, nCol6Row436, nCol7Row436, ;
           nCol3Row437, nCol4Row437, nCol6Row437, nCol7Row437, ;
           nCol3Row470, nCol4Row470, nCol6Row470, nCol7Row470, ;
           nCol3Row471, nCol4Row471, nCol6Row471, nCol7Row471, ;
           nCol3Row510, nCol4Row510, nCol6Row510, nCol7Row510, ;
           nCol3Row520, nCol4Row520, nCol6Row520, nCol7Row520, ;
           nCol3Row570, nCol4Row570, nCol6Row570, nCol7Row570

Store 0 To nCol4Row010Spr, nCol5Row010Spr, ;
           nCol4Row020Spr, nCol5Row020Spr, ;
           nCol4Row030Spr, nCol5Row030Spr, ;
           nCol4Row040Spr, nCol5Row040Spr, ;
           nCol4Row050Spr, nCol5Row050Spr, ;
           nCol4Row060Spr, nCol5Row060Spr, ;
           nCol4Row070Spr, nCol5Row070Spr, ;
           nCol4Row080Spr, nCol5Row080Spr, ;
           nCol4Row090Spr, nCol5Row090Spr, ;
           nCol4Row100Spr, nCol5Row100Spr, ;
           nCol4Row101Spr, nCol5Row101Spr, ;
           nCol4Row102Spr, nCol5Row102Spr, ;
           nCol4Row104Spr, nCol5Row104Spr, ;
           nCol4Row105Spr, nCol5Row105Spr, ;
           nCol4Row110Spr, nCol5Row110Spr, ;
           nCol4Row111Spr, nCol5Row111Spr, ;
           nCol4Row112Spr, nCol5Row112Spr, ;
           nCol4Row120Spr, nCol5Row120Spr, ;
           nCol4Row130Spr, nCol5Row130Spr, ;
           nCol4Row140Spr, nCol5Row140Spr, ;
           nCol4Row150Spr, nCol5Row150Spr, ;
           nCol4Row160Spr, nCol5Row160Spr, ;
                           nCol5Row171Spr, ;
                           nCol5Row172Spr, ;
                           nCol5Row173Spr, ;
                           nCol5Row182Spr, ;
                           nCol5Row183Spr, ;
           nCol4Row190Spr, nCol5Row190Spr, ;
           nCol4Row200Spr, nCol5Row200Spr, ;
           nCol4Row210Spr, nCol5Row210Spr, ;
           nCol4Row220Spr, nCol5Row220Spr, ;
           nCol4Row230Spr, nCol5Row230Spr, ;
           nCol4Row240Spr, nCol5Row240Spr, ;
           nCol4Row250Spr, nCol5Row250Spr, ;
           nCol4Row260Spr, nCol5Row260Spr, ;
           nCol4Row270Spr, nCol5Row270Spr, ;
           nCol4Row280Spr, nCol5Row280Spr, ;
           nCol4Row290Spr, nCol5Row290Spr, ;
           nCol4Row300Spr, nCol5Row300Spr, ;
           nCol4Row310Spr, nCol5Row310Spr, ;
           nCol4Row320Spr, nCol5Row320Spr, ;
           nCol4Row330Spr, nCol5Row330Spr, ;
           nCol4Row340Spr, nCol5Row340Spr, ;
           nCol4Row350Spr, nCol5Row350Spr, ;
           nCol4Row360Spr, nCol5Row360Spr

*** АКТИВ
&& 010
= GetSumOther("010", "101")

&& 020
= GetSumOther("020", "1141,1143!1143N,1143R,1143I,1143D", .T.)

&& 021
= GetSumOther("021", "1041,1043,1049!1043N,1043R,1043I,1043D,1049I", .T.)

&& 040
= GetSumOther("040", "102")

&& 050
= GetSumOther("050", "1143N,1143R,1143I,1143D", .T.)

&& 051
= GetSumOther("051", "1043N,1043R,1043I,1043D,1049I", .T.)

&& 070
= GetSumOther("070", "103,1147")

&& 080
= GetSumOther("080", "105,1148")

&& 100
= GetSumOther("100", "111,1044,1046,1144,1146")

&& 101
= GetSumRightLong("101", "111", "1044,1046,1144,1146")
If m.nNoCalcLong = 0
  = GetSumOther("101", "111,1044,1046,1144,1146", .F., .T.)
EndIf

&& 110
= GetSumOther("110", "113")

&& 120
= GetSumOther("120", "106")

&& 130
= GetSumOther("130", "107")

&& 140
= GetSumOther("140", "108,1045,1145")

&& 150
= GetSumOther("150", "109")

&& 160
= GetSumOther("160", "4015")

&& 170
= GetSumOther("170", "110")

&& 201
= GetSumOther("201", "2011")

&& 203
= GetSumOther("203", "2012")

&& 204
= GetSumOther("204", "20122")

&& 206
= GetSumOther("206", "20127")

&& 207
= GetSumOther("207", "2013")

&& 240
= GetSumOther("240", "204")

&& 240
= GetSumOther("241", "20433")

&& 250
= GetSumDK("250", "205,209")

&& 251
= GetSumDK("251", "205,209", .F., .T.)

&& 260
= GetSumOther("260", "206")
= GetSumDK("260", "208,303")

&& 261
= GetSumDK("261", "206", .F., .T., .T.)
= GetSumDK("261", "208,303", .F., .T.)

&& 270
= GetSumOther("270", "207")

&& 271
= GetSumDK("271", "207", .F., .T., .T.)

&& 280
= GetSumOther("280", "210!2101")

&& 282
= GetSumDK("282", "2101")

&& 290
= GetSumOther("290", "215")

*** ПАССИВ
&& 400
= GetSumOther("400", "301", .T.)

&& 401
= GetSumDK("401", "301", .T., .T., .T.)

&& 410
= GetSumOther("410", "302,30402,30403", .T.)
= GetSumDK("410", "208", .T.)

&& 411
= GetSumDK("411", "302,30402,30403", .T., .T., .T.)
= GetSumDK("411", "208", .T., .T.)

&& 420
= GetSumDK("420", "303", .T.)

&& 431
= GetSumOther("431", "30401", .T.)

&& 432
= GetSumOther("432", "30404", .T.)

&& 433
= GetSumOther("433", "30406", .T.)

&& 434
= GetSumDK("434", "2101", .T.)

&& 436
= GetSumOther("436", "304Т6,304T6", .T.)

&& 437
= GetSumOther("437", "30407", .T.)

&& 470
= GetSumDK("470", "205,209", .T.)

&& 471
= GetSumDK("471", "205,209", .T., .T.)

&& 510
= GetSumOther("510", "4014", .T.)

&& 520
= GetSumOther("520", "4016", .T.)

&& 570
= GetSumOther("570", "4013", .T.)

* Справка по забалансовым счетам
= zBalSPR()

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

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

* Формирую имя файла для выгрузки в ГНИ 4
If !Empty(m.cUnlPath4)
  Local Array aFiles(1), aFilesS(1), arrSender(1)
  Local cOrgRN, cSender, nNum

  cUnlPath4 = AllTrim(m.cUnlPath4)
  cFileId4  = "NO_BOBUDG_" + PadL(AllTrim(m.cIdReceiver), 4, "0") + "_" + PadL(AllTrim(m.cIdReceiverMain), 4, "0")
  
  * отправитель информации
  cOrgRN = Iif(m.cOrg # "|" And Len(m.cOrg) == 4, m.cOrg, PadR(oSystem.OwnerOrgRn, 4))
  Select TYPE, INN From OrgBase Where RN = ?m.cOrgRN Into ARRAY arrSender
  If _Tally = 0
    cSender = Replicate("0", 19)
  Else
    If arrSender(1) = "1"   && юр. лицо
      cSender = PadR(StrTran(AllTrim(arrSender(2)), "/", ""), 19, "0")
    Else                    && физ. лицо
      cSender = PadR(AllTrim(arrSender(2)), 12, "0")
    EndIf
  EndIf
  cFileId4 = m.cFileId4 + "_" + m.cSender + "_" + DToS(oSystem.Date) + "_"
  nNum = 1
  DO While ADir(aFiles, m.cUnlPath4 + m.cFileId4 + LTRim(Str(m.nNum, 36)) + ".xml") # 0
    nNum = m.nNum + 1
  EndDO
  cFileId4 = m.cFileId4 + LTRim(Str(m.nNum, 36))
  cFileName4 = m.cUnlPath4 + m.cFileId4 + ".xml"
EndIf

* Печать отчета
Local oPrint, nSheet
oPrint = objCaller.objExcelRep
oPrint.PrintRange("Header")

If m.nAnLevel # 0
  = PrnSpr(oPrint)
EndIf

oPrint.PrintRange("Footer")

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

* Удаление листа со сценарием выгрузки в ГНИ 4
If Empty(m.cFileName4)
  = DeleteSheets(oPrint, "Выгрузка в ГНИ 4")
  oPrint.Book.Sheet = 1
EndIf

oPrint = NULL
Return
****


Procedure DeleteSheets
* Удаление листа из отчета
  Parameters oPrint, cSheetName

  Local nSheet
  nSheet = oPrint.GetSheetNum(m.cSheetName)

  If m.nSheet > 0 
    oPrint.Book.Sheet = m.nSheet
    oPrint.Book.EditDeleteSheets()
  EndIf  
EndProc
****


Procedure PrnSpr
* печать справки
   Parameters oPrint

   Select ACC, SACCOUNT, Name_SACC, ;
          Sum(Sum_Col4) As Sum_Col4,;
          Sum(Sum_Col5) As Sum_Col5 ;
     From FormPrint1 ;
     Group By 1, 2, 3;
     Order By 1, 2, 3;
     Into CURSOR FormPrint

   Use In FormPrint1

   = PrnSpr1("04")
   = PrnSpr1("20")

   Use In FormPrint

EndProc
****


Procedure PrnSpr1
  LParameters cSubs
  Local n, cS
  n  = 0
  cS = PadR(m.cSubs, 3, "0")
  Select FormPrint
  Scan For ACC = m.cS
    n = m.n + 1
    If m.n > 1
       oPrint.InsertRange()   
    EndIf
    oPrint.PrintRange("SpecYear" + m.cS)
  EndScan
  
  * Выгрузка в ГНИ 4
  If !Empty(m.cFileName4)
    n = 0
    Select FormPrint
    Scan For ACC = m.cS
      n = m.n + 1
      If m.n > 1
        oPrint.InsertRange()   
      ENDIF
      oPrint.PrintRange("SpecYearGni" + m.cS)
    EndScan
  EndIf

EndProc
****


Procedure zBalSPR

Local cUslAccSpr, i

For m.i = 1 To 36
  If !InList(m.i, 17, 18)
     = GetSumSpr(PadL(m.i, 2, "0"))
  EndIf
Next

If m.nAnLevel # 0
   Create Cursor FormPrint1(ACC C(3), NAME_SACC C(80), SACCOUNT C(15), Sum_Col4 N(18,2), Sum_Col5 N(18,2))
   = GetSumSpr1("04")
   = GetSumSpr ("10", "101")
   = GetSumSpr ("10", "102")
   = GetSumSpr ("10", "104")
   = GetSumSpr ("10", "105")
   = GetSumSpr ("11", "111")
   = GetSumSpr ("11", "112")
   = GetSumSpr1("20")
EndIf

CurOpen("BKlsDoh")

&&170
cUslAccSpr  = " and (AT('з',accbase.account) > 0 and SUBS(accbase.account,AT('з',accbase.account)+1,2)='17'"
cUslAccSpr  = cUslAccSpr +" or AT('з',accbase.account) = 0 and SUBS(accbase.account,2,2)='17')"
=SelAccFromBase1(1, m.cWhereBSPR + m.cUslAccSPR, @nCol5Row171Spr, "OBDB;OBCR", m.dDateBegin, m.dDateEnd-1)
=SelAccFromBase1(2, m.cWhereBSPR + m.cUslAccSPR, @nCol5Row172Spr, "OBDB;OBCR", m.dDateBegin, m.dDateEnd-1)
=SelAccFromBase1(3, m.cWhereBSPR + m.cUslAccSPR, @nCol5Row173Spr, "OBDB;OBCR", m.dDateBegin, m.dDateEnd-1)

&&180 Выбытие: ОSCR - OSDB
cUslAccSpr  = " and (AT('з',accbase.account) > 0 and SUBS(accbase.account,AT('з',accbase.account)+1,2)='18'"
cUslAccSpr  = cUslAccSpr +" or AT('з',accbase.account) = 0 and SUBS(accbase.account,2,2)='18')"
=SelAccFromBase1(2, m.cWhereBSPR + m.cUslAccSPR, @nCol5Row182Spr, "OBCR;OBDB", m.dDateBegin, m.dDateEnd-1)
=SelAccFromBase1(3, m.cWhereBSPR + m.cUslAccSPR, @nCol5Row183Spr, "OBCR;OBDB", m.dDateBegin, m.dDateEnd-1)

EndProc
****


Procedure GetSumSpr
  LParameters cSubs, cAnalit
  Local cNRow, cUslAccSpr, cUslAnal, cSubs1
  cNRow = Iif(Empty(m.cAnalit), m.cSubs + "0", m.cAnalit)
  Do Case
    Case InList(m.cSubs, "28", "29", "30")
      cSubs1 = Str(Val(m.cSubs) + 1, 2)
    Case InList(m.cSubs, "31", "32", "33")
      cSubs1 = Str(Val(m.cSubs) + 7, 2)
    Case m.cSubs = "31"
      cSubs1 = "40"
    Case m.cSubs = "34"
      cSubs1 = "42"
    Case m.cSubs = "35"
      cSubs1 = "45"
    Case m.cSubs = "36"
      cSubs1 = "49"
    Otherwise
      cSubs1 = m.cSubs
  EndCase
  cUslAccSpr = " and (AT('з', accbase.account) > 0 and SubStr(accbase.account,AT('з',accbase.account) + 1, 2) = '" + m.cSubs1 + "'"
  cUslAccSpr = m.cUslAccSpr + " or AT('з', accbase.account) = 0 and SubStr(accbase.account, 2, 2) = '" + m.cSubs1 + "')"
  If !Empty(m.cAnalit)
    cUslAnal = m.cAnalit + "*"
  EndIf

  = SelAccFromBaseOther(m.cWhereBSPR  + m.cUslAccSPR, @nCol4Row&cNRow.Spr,, .T., m.cUslAnal)
  = SelAccFromBaseOther(m.cWhereBSPR  + m.cUslAccSPR, @nCol5Row&cNRow.Spr, .T., .T., m.cUslAnal)
  = CurClose("curAcc,crsAccSpRN,curZAnalit")
EndProc
****


Procedure GetSumSpr1
  LParameters cSubs, cAnNot
  Local cUslAccSpr, cUslAnNot, nLen, i, nCol4spr1, nCol5spr1, cSubs1
  Local ARRAY arAcc[1]
  cSubs1 = m.cSubs
  cUslAccSpr = "(AT('з', A.account) > 0 and SubStr(A.account,AT('з', A.account) + 1, 2) = '" + m.cSubs1 + "'"
  cUslAccSpr = m.cUslAccSpr + " or AT('з', A.account) = 0 and SubStr(A.account, 2, 2) = '" + m.cSubs1 + "')"
  cUslAccSpr = m.cUslAccSpr + " and !A.L_BALANCE"
  cUslAnNot  = Iif(Empty(m.cAnNot), "", "and !InList(Left(S.SAccount, 3)," + m.cAnNot + ")")

  Select A.ACCOUNT, A.NAME_ACC, S.NAME_SACC, S.SACCOUNT ;
    FROM AccBase A ;
      Inner Join AccSpec S On A.RN = S.Master_RN ;
    Where &cUslAccSpr and S.LEVEL = ?m.nAnLevel &cUslAnNot ;
    Order BY 4 ;
    Into ARRAY arAcc
 
  If _Tally > 0
     nLen = _Tally
     For m.i = 1 To m.nLen
        Store 0 to nCol4spr1, nCol5spr1
        cUslAccSPR = " and accbase.account = " + "'" + arAcc(m.i,1) + "'"

        = SelAccFromBaseOther(m.cWhereBSPR + m.cUslAccSPR, @nCol4spr1,, .T., arAcc(m.i,4))
        = SelAccFromBaseOther(m.cWhereBSPR + m.cUslAccSPR, @nCol5spr1, .T., .T., arAcc(m.i,4))
        = CurClose("curAcc,crsAccSpRN,curZAnalit")

        If m.nCol4spr1 # 0 or m.nCol5spr1 # 0
           Insert Into FormPrint1 (ACC, NAME_SACC, SACCOUNT, Sum_Col4, Sum_Col5) ;
                       Values (PadR(m.cSubs, 3, "0"), arAcc(m.i,3), arAcc(m.i,4), m.nCol4spr1, m.nCol5spr1)
        EndIf
     Next
  EndIf 
EndProc
****


Procedure SelAccFromBase1
  LParameters nType, cWhere, cPerem, cAllNameProc, cDateB, cDateE

  If !m.lNoError
     Return
  EndIf

  Local cWhereKnt, lOrgPO, nAnalit, k, i, j, lOK, cAnAcc, nAn, nSF, nAnalitSF, nVal
  Local ARRAY aAcc(1)

  Select Dist AccBase.Account From AccBase Where &cWhere Into ARRAY aAcc

  If _Tally = 0
     Return
  EndIf

  lOrgPO = !Empty(m.cWhereKontragent)

  For m.j = 1 To 2 
     cNameProc = Upper(Iif(m.j = 1, Left(m.cAllNameProc, 4), Right(m.cAllNameProc, 4)))

     * цикл по счетам
     For m.i = 1 To ALen(aAcc) 
        Local ARRAY aAccSpSF(1), aAccSpRN(1)
        Store "" To aAccSpSF, aAccSpRN
        Store 0 To nAnalitSF, nAnalit
        lOK = .F.

        * отбор по классификатору доходов
        If m.nType # 2
           * сначала смотрим в счете
           lOK = Seek(aAcc(m.i), "AccBase", "SUBS") And !Empty(AccBase.RN_KLSDOH)
           If m.lOK And !(Seek(AccBase.RN_KLSDOH, "BKlsDoh", "RN") And Iif(m.nType = 1, BKlsDoh.KLS_TYPE = 0, BKlsDoh.KLS_TYPE > 0))
             Loop
           EndIf

           * если в счете нет ссылки на кл.дох., смотрим в аналитике
           If !m.lOK and Seek(aAcc(m.i), "AccBase", "SUBS") And '3' $ AccBase.ORG_AN
              nAnalitSF = At("3", AccBase.Org_AN)
              Select S.SAccount ;
                From AccSpec S ;
                  Inner Join BKlsDoh B On S.RN_KLSDOH = B.RN ;
                Where S.Master_RN = ?AccBase.RN And ;
                      S.Level = ?m.nAnalitSF And Iif(?m.nType = 1, B.KLS_TYPE = 0, B.KLS_TYPE > 0) ;
                Into Array aAccSpSF

              lOK = _Tally # 0
           EndIf

           If !m.lOK
              Loop
           EndIf
        EndIf

        lOK = .F.
        * отбор по шаблону финансирования для счетов доходов
        If m.nType = 2
           * сначала смотрим в счете
           lOK = Seek(aAcc(m.i), "AccBase", "SUBS") And AccBase.TFIN_TYPE = 1 And !Empty(AccBase.Rn_TFin)
        
           * если в счете нет ссылки на ш.фин., смотрим в аналитике
           If !m.lOK And Seek(aAcc(m.i), "AccBase", "SUBS") And '9' $ AccBase.SMETA_AN
              nAnalitSF = At("9", AccBase.SMETA_AN)
              Select SAccount ;
                From AccSpec ;
                Where Master_RN = AccBase.RN And ;
                      Level = ?nAnalitSF And !Empty(RN_TFIN) ;
                Into Array aAccSpSF

              lOK = _Tally # 0
           EndIf

           If !m.lOK
              Loop
           EndIf
        EndIf

        * отбор по бюджетному учреждению
        If m.lOrgPO And SEEK(aAcc(m.i), "AccBase", "SUBS")
           nAnalit = At("1", AccBase.Org_An)

           If m.nAnalit = 0
              Loop
           EndIf

           cWhereKnt = "AccSpec.Master_Rn = '" + AccBase.RN + "' And AccSpec.Level = " + Str(m.nAnalit, 1) + " And " + m.cWhereKontragent

           Select AccSpec.SAccount ;
             From AccSpec ;
               Inner Join OrgBase On OrgBase.RN = AccSpec.RN_TOrg ;
             Where &cWhereKnt ;
             Into Array aAccSpRN

           If _Tally = 0
              Loop
           EndIf
        EndIf

        * цикл по аналитическим счетам
        For m.nAn = 1 To ALen(aAccSpRN)
           For m.nSF = 1 To ALen(aAccSpSF)
              cAnAcc = ""
              If m.nAnalit # 0 Or m.nAnalitSF # 0
                 cAnAcc = "[,,,,,]"
                 If m.nAnalit # 0
                    cAnAcc = Left(m.cAnAcc, AT(",", m.cAnAcc, m.nAnalit)) + aAccSpRN[m.nAn] + SubStr(m.cAnAcc, At(",", m.cAnAcc, m.nAnalit) + 1)
                 EndIf
                 If m.nAnalitSF # 0
                    cAnAcc = Left(m.cAnAcc, AT(",", m.cAnAcc, m.nAnalitSF)) + aAccSpSF[m.nSF] + SubStr(m.cAnAcc, At(",", m.cAnAcc, m.nAnalitSF) + 1)
                 EndIf
              EndIf

              If InList(m.cNameProc, "OBDB", "OBCR")
                 nVal   = Solver.&cNameProc.(aAcc(m.i) + m.cAnAcc, m.cDateB, m.cDateE)
                 cPerem = m.cPerem + Iif(m.j = 1, m.nVal, - m.nVal)
              EndIf
           Next
        Next
     Next

     If !(";" $ m.cAllNameProc)   && 1 оборот
        Exit
     EndIf
  Next

  cPerem = Round(m.cPerem, 2)

EndProc
***


* Показатели по активно-пассивным счетам / Долгосрочная задолженность
Procedure GetSumDK
  Parameters cNRow, cSubs, isPassiv, lLong, lRolled

  Local nPos, cSubsS, cUslAcc, lZpt
  cUslAcc = ""

  Do While "," $ m.cSubs
    nPos    = AT(",", m.cSubs)
    cSubsS  = Left(m.cSubs, m.nPos - 1)
    cSubs   = SubStr(m.cSubs, m.nPos + 1)
    cUslAcc = m.cUslAcc + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubsS))) + ") = '" + m.cSubsS + "' OR "
    lZpt    = .T.
  EndDo
  cUslAcc = m.cUslAcc + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubs))) + ") = '" + m.cSubs + "'"
  If m.lZpt
    cUslAcc = "(" + m.cUslAcc + ")"
  EndIf
  cUslAcc = " And " + m.cUslAcc

  * Взаиморасчётные счета
  = SelAccFromBaseDK(m.cWhereRB + m.cUslAcc, @nCol3Row&cNRow)
  = SelAccFromBaseDK(m.cWhereRR + m.cUslAcc, @nCol4Row&cNRow)
  = SelAccFromBaseDK(m.cWhereRB + m.cUslAcc, @nCol6Row&cNRow, .T.)
  = SelAccFromBaseDK(m.cWhereRR + m.cUslAcc, @nCol7Row&cNRow, .T.)
  If m.lLong And m.lRolled
    isPassiv = !m.isPassiv
    = SelAccFromBaseDK(m.cWhereRB + m.cUslAcc, @nCol3Row&cNRow)
    = SelAccFromBaseDK(m.cWhereRR + m.cUslAcc, @nCol4Row&cNRow)
    = SelAccFromBaseDK(m.cWhereRB + m.cUslAcc, @nCol6Row&cNRow, .T.)
    = SelAccFromBaseDK(m.cWhereRR + m.cUslAcc, @nCol7Row&cNRow, .T.)
  EndIf

  * Невзаиморасчётные счета
  If !m.lLong
    = SelAccFromBaseNoDK(m.cWhereRB + m.cUslAcc, @nCol3Row&cNRow)
    = SelAccFromBaseNoDK(m.cWhereRR + m.cUslAcc, @nCol4Row&cNRow)
    = SelAccFromBaseNoDK(m.cWhereRB + m.cUslAcc, @nCol6Row&cNRow, .T.)
    = SelAccFromBaseNoDK(m.cWhereRR + m.cUslAcc, @nCol7Row&cNRow, .T.)
  EndIf

  = CurClose("curAcc,crsAccSpRN")
EndProc
****


Procedure SelAccFromBaseDK
  LParameters cWhere, nVal, lEnd

  If !RepG151.GetComRepPrm151("0503773", @lNoError, m.cWhere + " And InList(AccBase.S_ANALITYC, 9, 10, 11, 12)")
    Return
  EndIf

  Local cJoinAn, cWhereBU, dDate1, dDateL, cWhereLong, nVal1, cBM, dDate6
  Local ARRAY arrSum[1]
  Store 0  To nVal1
  Store "" To cJoinAn, cWhereBU
  cBM = Iif(m.isPassiv, "<", ">")

  * Отбор записей по контрагенту
  If !SetFilterByBU(@cJoinAn, @cWhereBU)
    Return
  EndIf

  * Долгосрочная задолженность
  dDateL = Iif(m.lEnd, GoMonth(m.dDateEnd, 12), m.dDateEnd)
  cWhereLong = Iif(m.lLong, "And D.DATE_END >= ?m.dDateL", "")

  * Даты (период)
  If !m.lEnd
    dDate1 = m.dDateBegin
  Else
    dDate1 = m.dDateEnd
  EndIf

  * Хранимый остаток на начало периода
  Select D.RN, D.RN_ACC, D.RN_AGENT, ;
         D.RN_CURR, D.RN_ORGPU, D.RN_ACC_A1, D.RN_ACC_A2, D.RN_ACC_A3, D.RN_ACC_A4, D.RN_ACC_A5, ;
         D.RN_BASE, D.NUM_BASE, D.DATE_BASE, D.RN_MARK, ;
         D.SUME_BEGIN As SUM ;
    From DkBase D ;
      Inner Join curAcc A On D.RN_ACC = A.RN ;
      &cJoinAn ;
    Where D.Period = ?m.dDate1 &cWhereBU &cWhereLong ;
    Into CURSOR cTmpDK READWRITE

  * Обособленные операции
  If !Empty(Iif(m.lEnd, m.cWhere5, m.cJournalOp))
    Select cTmpDK
    Index On RN Tag RN
    Index On RN_CURR + RN_AGENT + RN_ORGPU + RN_ACC_A1 + RN_ACC_A2 + RN_ACC_A3 + RN_ACC_A4 + RN_ACC_A5 + ;
             RN_BASE + NUM_BASE + DToS(DATE_BASE) + RN_MARK Tag UNI

    * Операции по исправлению ошибок прошлых лет (периодов)
    If !m.lEnd And !Empty(m.cJournalOp)
      Select B.DATE_EOP, SP.Master_RN As RN, S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN    = S.Master_RN ;
          Inner Join curAcc  A  On S.RN_DB = A.RN ;
          Inner Join DKSpec  SP On S.RN    = SP.RN_EOSpec ;
          Left  Join AccBase DB On S.RN_DB = DB.RN ;
          Left  Join AccBase KR On S.RN_KR = KR.RN ;
        Where Between(B.DATE_EOP, ?m.dDateBegin, ?m.dDate5) ;
          And SP.ACC_TYPE = "D" ;
          And (S.RN_MO = ?m.cJournalOp Or Nvl(DB.RN_MO, Space(4)) = ?m.cJournalOp Or Nvl(KR.RN_MO, Space(4)) = ?m.cJournalOp) ;
      UNION ALL ;
      Select B.DATE_EOP, SP.Master_RN As RN, -S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN    = S.Master_RN ;
          Inner Join curAcc  A  On S.RN_KR = A.RN ;
          Inner Join DKSpec  SP On S.RN    = SP.RN_EOSpec ;
          Left  Join AccBase DB On S.RN_DB = DB.RN ;
          Left  Join AccBase KR On S.RN_KR = KR.RN ;
        Where Between(B.DATE_EOP, ?m.dDateBegin, ?m.dDate5) ;
          And SP.ACC_TYPE = "K" ;
          And (S.RN_MO = ?m.cJournalOp Or Nvl(DB.RN_MO, Space(4)) = ?m.cJournalOp Or Nvl(KR.RN_MO, Space(4)) = ?m.cJournalOp) ;
        Into CURSOR cTmp2
    EndIf

    * Операции межотчетного периода
    If m.lEnd And !Empty(m.cWhere5)
      Select SP.Master_RN As RN, -S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN    = S.Master_RN ;
          Inner Join curAcc  A  On S.RN_DB = A.RN ;
          Inner Join DKSpec  SP On S.RN    = SP.RN_EOSpec ;
        Where B.DATE_EOP = ?m.dDate5 And SP.ACC_TYPE = "D" And &cWhere5 ;
      UNION ALL ;
      Select SP.Master_RN As RN, S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN    = S.Master_RN ;
          Inner Join curAcc  A  On S.RN_KR = A.RN ;
          Inner Join DKSpec  SP On S.RN    = SP.RN_EOSpec ;
        Where B.DATE_EOP = ?m.dDate5 And SP.ACC_TYPE = "K" And &cWhere5 ;
        Into CURSOR cTmp2
    EndIf

    Scan
      dDate6 = DOX(Iif(m.lEnd, m.dDate5, DATE_EOP), 3)
      If m.dDate6 = m.dDate1
        If Seek(RN, "cTmpDK", "RN")
          Replace SUM With SUM + cTmp2.SUM In cTmpDK
        EndIf
      Else
        Select D.RN_AGENT, ;
               D.RN_CURR, D.RN_ORGPU, D.RN_ACC_A1, D.RN_ACC_A2, D.RN_ACC_A3, D.RN_ACC_A4, D.RN_ACC_A5, ;
               D.RN_BASE, D.NUM_BASE, D.DATE_BASE, D.RN_MARK ;
          From DkBase D ;
            &cJoinAn ;
          Where D.RN = ?cTmp2.RN &cWhereBU ;
          Into CURSOR cTmpDK2

        If _Tally # 0
          If !Seek(RN_CURR + RN_AGENT + RN_ORGPU + ;
                   RN_ACC_A1 + RN_ACC_A2 + RN_ACC_A3 + RN_ACC_A4 + RN_ACC_A5 + ;
                   RN_BASE + NUM_BASE + DToS(DATE_BASE) + RN_MARK, "cTmpDK", "UNI") And !m.lLong
            Insert Into cTmpDK (RN_CURR, RN_AGENT, RN_ORGPU, ;
                                RN_ACC_A1, RN_ACC_A2, RN_ACC_A3, RN_ACC_A4, RN_ACC_A5, ;
                                RN_BASE, NUM_BASE, DATE_BASE, RN_MARK) ;
               VALUES (cTmpDK2.RN_CURR, cTmpDK2.RN_AGENT, cTmpDK2.RN_ORGPU, ;
                       cTmpDK2.RN_ACC_A1, cTmpDK2.RN_ACC_A2, cTmpDK2.RN_ACC_A3, cTmpDK2.RN_ACC_A4, cTmpDK2.RN_ACC_A5, ;
                       cTmpDK2.RN_BASE, cTmpDK2.NUM_BASE, cTmpDK2.DATE_BASE, cTmpDK2.RN_MARK)
          EndIf
          Replace SUM With SUM + cTmp2.SUM In cTmpDK
        EndIf

        Use In cTmpDK2
      EndIf
    EndScan

    Use In cTmp2
  EndIf

  Select Sum(SUM) As SUM From cTmpDK Where SUM &cBM 0 Into ARRAY arrSum

  If _Tally # 0
    nVal1 = Iif(m.isPassiv, - arrSum[1], arrSum[1])
  EndIf

  Use In cTmpDK

*  nVal1 = Round(m.nVal1, 2)

  nVal = m.nVal + m.nVal1

EndProc
****


Procedure SelAccFromBaseNoDK
  LParameters cWhere, nVal, lEnd

  If !RepG151.GetComRepPrm151("0503773", @lNoError, m.cWhere + " And !InList(AccBase.S_ANALITYC, 9, 10, 11, 12)")
    Return
  EndIf

  Local cJoinAn, cJoinAnD, cJoinAnK, cWhereBU, nVal1, dDate1
  Local ARRAY arrSum[1]
  Store "" To cJoinAn, cWhereBU

  * Даты (период)
  If !m.lEnd
    dDate1 = m.dDateBegin
  Else
    dDate1 = m.dDateEnd
  EndIf

  * Отбор записей по контрагенту
  If !SetFilterByBU(@cJoinAn, @cWhereBU)
    Return
  EndIf
  cJoinAn  = StrTran(m.cJoinAn, "D.RN_ACC_A", "S.RN_AC_A")
  cJoinAnD = StrTran(m.cJoinAn, "RN_AC_A", "RN_DB_A")
  cJoinAnK = StrTran(m.cJoinAn, "RN_AC_A", "RN_KR_A")

  Select curAcc
  Scan
    Store 0 To nVal1

    If Empty(m.cWhereKontragent)
      Select Sum(SUMM_DB_EQUAL - SUMM_KR_EQUAL) As SUM ;
        From AcRest ;
        Where DATE_REST = ?m.dDate1 And RN_ACCOUNT = ?curAcc.RN ;
        Into ARRAY arrSum
    Else
      Select Sum(S.SUMM_DB_EQUAL - S.SUMM_KR_EQUAL) As SUM ;
        From AcRest R ;
          Inner Join AcAnRest S On R.RN = S.MASTER_RN ;
          &cJoinAn ;
        Where R.DATE_REST = ?m.dDate1 And R.RN_ACCOUNT = ?curAcc.RN &cWhereBU ;
        Into ARRAY arrSum
    EndIf

    If _Tally # 0
      nVal1 = arrSum[1]
    EndIf

    * Операции по исправлению ошибок прошлых лет
    If !m.lEnd And !Empty(m.cJournalOp)
      Select S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN = S.Master_RN ;
          Left  Join AccBase DB On S.RN_DB = DB.RN ;
          Left  Join AccBase KR On S.RN_KR = KR.RN ;
          &cJoinAnD ;
        Where Between(B.DATE_EOP, ?m.dDateBegin, ?m.dDate5) And S.RN_DB = ?curAcc.RN &cWhereBU ;
          And (S.RN_MO = ?m.cJournalOp Or Nvl(DB.RN_MO, Space(4)) = ?m.cJournalOp Or Nvl(KR.RN_MO, Space(4)) = ?m.cJournalOp) ;
      UNION ALL ;
      Select -S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN = S.Master_RN ;
          Left  Join AccBase DB On S.RN_DB = DB.RN ;
          Left  Join AccBase KR On S.RN_KR = KR.RN ;
          &cJoinAnK ;
        Where Between(B.DATE_EOP, ?m.dDateBegin, ?m.dDate5) And S.RN_KR = ?curAcc.RN &cWhereBU ;
          And (S.RN_MO = ?m.cJournalOp Or Nvl(DB.RN_MO, Space(4)) = ?m.cJournalOp Or Nvl(KR.RN_MO, Space(4)) = ?m.cJournalOp) ;
        Into CURSOR cTmp2

      Select Sum(SUM) As SUM From cTmp2 Into ARRAY arrSum

      If _Tally # 0
        nVal1 = m.nVal1 + arrSum[1]
      EndIf

      Use In cTmp2
    EndIf

    * Операции межотчетного периода
    If m.lEnd And !Empty(m.cWhere5)
      Select S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S On B.RN = S.Master_RN ;
          &cJoinAnD ;
        Where B.DATE_EOP = ?m.dDate5 And &cWhere5 And S.RN_DB = ?curAcc.RN &cWhereBU ;
      UNION ALL ;
      Select -S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S On B.RN = S.Master_RN ;
          &cJoinAnK ;
        Where B.DATE_EOP = ?m.dDate5 And &cWhere5 And S.RN_KR = ?curAcc.RN &cWhereBU ;
        Into CURSOR cTmp2

      Select Sum(SUM) As SUM From cTmp2 Into ARRAY arrSum

      If _Tally # 0
        nVal1 = m.nVal1 - arrSum[1]
      EndIf

      Use In cTmp2
    EndIf

    nVal1 = Iif(m.isPassiv, - m.nVal1, m.nVal1)
*    nVal1 = Round(m.nVal1, 2)

    If m.nVal1 > 0
      nVal = m.nVal + m.nVal1
    EndIf
  EndScan

EndProc
****


* Долгосрочные права пользования
Procedure GetSumRightLong
  Parameters cNRow, cSubs, cSubs2

  Private cUslAcc, cUslAcc2
  Local nPos, cSubsS, lZpt
  Store "" To cUslAcc, cUslAcc2

  CurOpen("OrgBase")

  * Список счетов для Инвентарной картотеки
  Do While "," $ m.cSubs
    nPos    = AT(",", m.cSubs)
    cSubsS  = Left(m.cSubs, m.nPos - 1)
    cSubs   = SubStr(m.cSubs, m.nPos + 1)
    cUslAcc = m.cUslAcc + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubsS))) + ") = '" + m.cSubsS + "' OR "
    lZpt    = .T.
  EndDo
  cUslAcc = m.cUslAcc + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubs))) + ") = '" + m.cSubs + "'"
  If m.lZpt
    cUslAcc = "(" + m.cUslAcc + ")"
  EndIf
  cUslAcc = " And " + m.cUslAcc

  * Список счетов для Картотеки операций будущих периодов
  lZpt = .F.
  Do While "," $ m.cSubs2
    nPos     = AT(",", m.cSubs2)
    cSubsS   = Left(m.cSubs2, m.nPos - 1)
    cSubs2   = SubStr(m.cSubs2, m.nPos + 1)
    cUslAcc2 = m.cUslAcc2 + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubsS))) + ") = '" + m.cSubsS + "' OR "
    lZpt     = .T.
  EndDo
  cUslAcc2 = m.cUslAcc2 + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubs2))) + ") = '" + m.cSubs2 + "'"
  If m.lZpt
    cUslAcc2 = "(" + m.cUslAcc2 + ")"
  EndIf
  cUslAcc2 = " And " + m.cUslAcc2

  If m.nNoCalcLong = 0
    * Востанавливаем состояние инвентарной картотеки на начало года
    = Inv_Rest(Dox(m.dDateBegin, 1) - 1)

    = SelAccFromBaseRightLong(m.cWhereRB, @nCol3Row&cNRow)
    = SelAccFromBaseRightLong(m.cWhereRR, @nCol4Row&cNRow)
    = CurClose("crsInvRest")
  EndIf

  * Востанавливаем состояние инвентарной картотеки на начало следующего года
  = Inv_Rest(m.dDateEnd - 1)

  = SelAccFromBaseRightLong(m.cWhereRB,  @nCol6Row&cNRow, .T.)
  = SelAccFromBaseRightLong(m.cWhereRR,  @nCol7Row&cNRow, .T.)

  = CurClose("crsInvRest,curAcc,crsAccSpRN")

EndProc
****


Procedure SelAccFromBaseRightLong
  LParameters cWhere, nVal, lEnd

  If !RepG151.GetComRepPrm151("0503773", @lNoError, m.cWhere + m.cUslAcc)
    Return
  EndIf

  Local ARRAY arrOrgPU[1], arrSum[1]
  Local nVal1, nRstSum,  cOrgPU, cJoinAn, cJoinAnD, cJoinAnK, cWhereBU, dDate1, dDateL
  Store "" To cJoinAn, cWhereBU
  dDate1 = Iif(m.lEnd, m.dDateEnd, Dox(m.dDateBegin, 1))
  dDateL = GoMonth(m.dDate1, 12)
  nVal1  = 0

  Select curAcc
  Index On RN Tag RN

  Select crsInvRest
  Scan For Seek(Rn_Account, "curAcc") And Seek (RN, "InBase", "RN") And GoMonth(InBase.Date_In, InBase.Srok) >= m.dDateL
    cOrgPU  = InBase.RN_OrgPU
    nRstSum = InBase.IN_SUM - InBase.IN_WEAR - InBase.SUMMA_AMORT - InBase.SUMMA_MCST

    Select RN_PU_NEW, InSum_New, Wear_New, Sum_Mcst_New ;
      From InSpec ;
      Where Master_RN = ?InBase.RN And Date < m.dDate1 ;
      Order By RN DESCENDING ;
      Into ARRAY arrOrgPU

      If _Tally # 0
        cOrgPU  = arrOrgPU[1]
        nRstSum = arrOrgPU[2] - arrOrgPU[3] - arrOrgPU[4]
      EndIf

    * Отбор по контрагенту
    If !Empty(m.cWhereKontragent)
      If Empty(m.cOrgPU) Or !Seek(m.cOrgPU, "OrgBase", "RN") Or !Evaluate(m.cWhereKontragent)
        Loop
      EndIf
    EndIf

    nVal1 = m.nVal1 + m.nRstSum
  EndScan

  * Картотека операций будущих периодов
  If SetFilterByBU(@cJoinAn, @cWhereBU)   && Отбор записей по контрагенту
    cJoinAn = StrTran(m.cJoinAn, "D.RN_ACC_A", "D.AN")
    cJoinAn = StrTran(m.cJoinAn, " =", "_RN =")

    Select D.RN, D.SUM_N_EQUAL ;
      From ExpsFutD D ;
        Inner Join curAcc A On D.ACC_RN = A.RN ;
        &cJoinAn ;
      Where D.Beg_Date_To < ?m.dDate1 And D.End_Date >= ?m.dDateL And D.KIND = 1 And D.SUM_N_EQUAL > 0 ;
      Into CURSOR curExpF

    If _Tally # 0
      * Сумма начислений
      Select Sum(SUM_N_EQUAL) As SUM From curExpF Into ARRAY arrSum

      If _Tally # 0
        nVal1 = m.nVal1 + arrSum[1]
      EndIf

      * Список счетов для отчислений
      Use In curAcc
      Store "" To cJoinAnD, cJoinAnK, cWhereBU

      * проверяем наличие отчислений
      If RepG151.GetComRepPrm151("0503773", @lNoError, m.cWhere + m.cUslAcc2) And SetFilterByBU(@cJoinAnD, @cWhereBU)
        cJoinAnD = StrTran(m.cJoinAnD, "D.RN_ACC_A", "S.RN_DB_A")
        cJoinAnK = StrTran(m.cJoinAnD, "S.RN_DB_A", "S.RN_KR_A")

        Select S.SUM_EQUAL As SUM ;
          From curExpF D ;
            Inner Join Unit_Ref U On D.RN = U.PARENT_RN ;
            Inner Join EopBase  B On U.CHILD_RN = B.RN ;
            Inner Join EopSpec  S On B.RN = S.Master_RN ;
            Inner Join curAcc   A On S.RN_DB = A.RN ;
            &cJoinAnD ;
          Where U.PARENT_UNT = ?m.cUnitEF And U.CHILD_UNT = ?m.cUnitEO And B.DATE_EOP < ?m.dDate1 And !Empty(U.PARENT_RN_EXT) &cWhereBU ;
        UNION ALL ;
        Select -S.SUM_EQUAL As SUM ;
          From curExpF D ;
            Inner Join Unit_Ref U On D.RN = U.PARENT_RN ;
            Inner Join EopBase  B On U.CHILD_RN = B.RN ;
            Inner Join EopSpec  S On B.RN = S.Master_RN ;
            Inner Join curAcc   A On S.RN_KR = A.RN ;
            &cJoinAnK ;
          Where U.PARENT_UNT = ?m.cUnitEF And U.CHILD_UNT = ?m.cUnitEO And B.DATE_EOP < ?m.dDate1 And !Empty(U.PARENT_RN_EXT) &cWhereBU ;
          Into CURSOR cTmp2

        Select Sum(SUM) As SUM From cTmp2 Into ARRAY arrSum

        If _Tally # 0
          nVal1 = nVal1 + arrSum[1]
        EndIf
      EndIf
    EndIf

    = CurClose("curExpF,cTmp2")
  EndIf

*  nVal1 = Round(m.nVal1, 2)

  nVal = m.nVal + m.nVal1

EndProc
****


* Прочие показатели
Procedure GetSumOther
  Parameters cNRow, cSubs, isPassiv, lRightLong

  Local nPos, cSubs1, cSubs2, cSubsS, cUslAcc, lZpt
  nPos    = AT("!", m.cSubs)
  cSubs1  = Iif(m.nPos = 0, m.cSubs, Left(m.cSubs, m.nPos - 1))
  cSubs2  = Iif(m.nPos = 0, "", SubStr(m.cSubs, m.nPos + 1))
  cUslAcc = ""

  Do While "," $ m.cSubs1
    nPos    = AT(",", m.cSubs1)
    cSubsS  = Left(m.cSubs1, m.nPos - 1)
    cSubs1  = SubStr(m.cSubs1, m.nPos + 1)
    cUslAcc = m.cUslAcc + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubsS))) + ") = '" + m.cSubsS + "' OR "
    lZpt    = .T.
  EndDo
  cUslAcc = m.cUslAcc + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubs1))) + ") = '" + m.cSubs1 + "'"
  If m.lZpt
    cUslAcc = "(" + m.cUslAcc + ")"
  EndIf
  cUslAcc = " And " + m.cUslAcc

  If !Empty(m.cSubs2)
    Do While "," $ m.cSubs2
      nPos    = AT(",", m.cSubs2)
      cSubsS  = Left(m.cSubs2, m.nPos - 1)
      cSubs2  = SubStr(m.cSubs2, m.nPos + 1)
      cUslAcc = m.cUslAcc + " And SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubsS))) + ") # '" + m.cSubsS + "'"
    EndDo
    cUslAcc = m.cUslAcc + " And SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(m.cSubs2))) + ") # '" + m.cSubs2 + "'"
  EndIf

  * начало периода
  = SelAccFromBaseOther(m.cWhereRB + m.cUslAcc, @nCol3Row&cNRow)
  = SelAccFromBaseOther(m.cWhereRR + m.cUslAcc, @nCol4Row&cNRow)

  * конец периода
  If !m.lRightLong
    = SelAccFromBaseOther(m.cWhereRB + m.cUslAcc, @nCol6Row&cNRow, .T.)
    = SelAccFromBaseOther(m.cWhereRR + m.cUslAcc, @nCol7Row&cNRow, .T.)
  EndIf

  = CurClose("curAcc,crsAccSpRN")

EndProc
****


Procedure SelAccFromBaseOther
  LParameters cWhere, nVal, lEnd, lZabal, cZAnalit

  If !RepG151.GetComRepPrm151("0503773", @lNoError, m.cWhere)
    Return
  EndIf

  If m.lZabal
    Local lRightLong, isPassiv
  EndIf
  lEnd = Iif(IsNull(m.lEnd), .F., m.lEnd)

  Local cJoinAn, cJoinAnD, cJoinAnK, cWhereBU, cWhereZAn, cJoinZAn, cJoinZAnD, cJoinZAnK, nVal1, dDate1
  Local ARRAY arrSum[1]
  Store 0  To nVal1
  Store "" To cJoinAn, cWhereBU, cJoinZAn, cJoinZAnD, cJoinZAnK

  * Даты (период)
  dDate1 = Iif(m.lEnd, m.dDateEnd, m.dDateBegin)

  * Отбор записей по аналитике
  If m.lZabal And !Empty(m.cZAnalit)
    cWhereZAn = Iif(Right(m.cZAnalit, 1) = "*", "Like (?m.cZAnalit, AllTrim(S.SAccount))", "S.SAccount = ?m.cZAnalit")
    Select S.RN ;
      From curAcc A ;
        Inner Join AccSpec S On A.RN = S.Master_RN ;
      Where S.Level = ?m.nAnLevel And &cWhereZAn ;
    Into CURSOR curZAnalit  

    If _Tally = 0
      Return
    Else
      Index On RN Tag RN
      cJoinZAn = "Inner Join curZAnalit zA On S.RN_AC_A" + Str(m.nAnLevel, 1) + " = zA.RN "
      cJoinZAnD = StrTran(m.cJoinZAn, "RN_AC_A", "RN_DB_A")
      cJoinZAnK = StrTran(m.cJoinZAn, "RN_AC_A", "RN_KR_A")
    EndIf
  EndIf
  
  * Отбор записей по контрагенту
  If !SetFilterByBU(@cJoinAn, @cWhereBU)
    Return
  EndIf
  cJoinAn  = StrTran(m.cJoinAn, "D.RN_ACC_A", "S.RN_AC_A")
  cJoinAnD = StrTran(m.cJoinAn, "RN_AC_A", "RN_DB_A")
  cJoinAnK = StrTran(m.cJoinAn, "RN_AC_A", "RN_KR_A")

  If !m.lRightLong
    * остатки на начало месяца
    If Empty(m.cWhereKontragent) And Empty(m.cJoinZAn)
      Select Sum(R.SUMM_DB_EQUAL - R.SUMM_KR_EQUAL) As SUM ;
        From curAcc A ;
          Inner Join AcRest R On A.RN = R.RN_ACCOUNT ;
        Where R.DATE_REST = ?m.dDate1 ;
        Into ARRAY arrSum
    Else
      Select Sum(S.SUMM_DB_EQUAL - S.SUMM_KR_EQUAL) As SUM ;
        From curAcc A ;
          Inner Join AcRest R On A.RN = R.RN_ACCOUNT ;
          Inner Join AcAnRest S On R.RN = S.MASTER_RN ;
          &cJoinZAn ;
          &cJoinAn ;
        Where R.DATE_REST = ?m.dDate1 &cWhereBU ;
        Into ARRAY arrSum
    EndIf

    If _Tally # 0
      nVal1 = arrSum[1]
    EndIf
  EndIf

  * Операции по исправлению ошибок прошлых лет
  If !m.lEnd And !Empty(m.cJournalOp)
    Select S.Master_RN, S.RN, S.SUM_EQUAL As SUM ;
      From EopBase B ;
        Inner Join EopSpec S  On B.RN = S.Master_RN ;
        Inner Join curAcc  A  On S.RN_DB = A.RN ;
        Left  Join AccBase DB On S.RN_DB = DB.RN ;
        Left  Join AccBase KR On S.RN_KR = KR.RN ;
        &cJoinZAnD ;
        &cJoinAnD ;
      Where Between(B.DATE_EOP, ?m.dDateBegin, ?m.dDate5) &cWhereBU ;
        And (S.RN_MO = ?m.cJournalOp Or Nvl(DB.RN_MO, Space(4)) = ?m.cJournalOp Or Nvl(KR.RN_MO, Space(4)) = ?m.cJournalOp) ;
    UNION ALL ;
    Select S.Master_RN, S.RN, -S.SUM_EQUAL As SUM ;
      From EopBase B ;
        Inner Join EopSpec S  On B.RN = S.Master_RN ;
        Inner Join curAcc  A  On S.RN_KR = A.RN ;
        Left  Join AccBase DB On S.RN_DB = DB.RN ;
        Left  Join AccBase KR On S.RN_KR = KR.RN ;
        &cJoinZAnK ;
        &cJoinAnK ;
      Where Between(B.DATE_EOP, ?m.dDateBegin, ?m.dDate5) &cWhereBU ;
        And (S.RN_MO = ?m.cJournalOp Or Nvl(DB.RN_MO, Space(4)) = ?m.cJournalOp Or Nvl(KR.RN_MO, Space(4)) = ?m.cJournalOp) ;
      Into CURSOR cTmp2 READWRITE

    If m.lRightLong   && Долгосрочные права пользования
      = CheckRightLong()
    EndIf

    Select Sum(SUM) As SUM From cTmp2 Into ARRAY arrSum

    If _Tally # 0
      nVal1 = m.nVal1 + arrSum[1]
    EndIf

    Use In cTmp2
  EndIf

  * Операции межотчетного периода
  If m.lEnd And !Empty(m.cWhere5)
    Select S.SUM_EQUAL As SUM ;
      From EopBase B ;
        Inner Join EopSpec S On B.RN = S.Master_RN ;
        Inner Join curAcc  A On S.RN_DB = A.RN ;
        &cJoinZAnD ;
        &cJoinAnD ;
      Where B.DATE_EOP = ?m.dDate5 And &cWhere5 &cWhereBU ;
    UNION ALL ;
    Select -S.SUM_EQUAL As SUM ;
      From EopBase B ;
        Inner Join EopSpec S On B.RN = S.Master_RN ;
        Inner Join curAcc  A On S.RN_KR = A.RN ;
        &cJoinZAnK ;
        &cJoinAnK ;
      Where B.DATE_EOP = ?m.dDate5 And &cWhere5 &cWhereBU ;
      Into CURSOR cTmp2

    Select Sum(SUM) As SUM From cTmp2 Into ARRAY arrSum

    If _Tally # 0
      nVal1 = m.nVal1 - arrSum[1]
    EndIf

    Use In cTmp2
  EndIf

*  nVal1 = Round(m.nVal1, 2)

  nVal = m.nVal + Iif(m.isPassiv, - m.nVal1, m.nVal1)

EndProc
****


* Долгосрочные права пользования
Procedure CheckRightLong

  Local dDateL
  dDateL = GoMonth(Dox(m.dDateBegin, 1), 12)

  Select cTmp2
  Scan
    * Ищем связь проводки с ИК
    Select S.RN ;
      From Unit_Ref U ;
        Inner Join InSpec S On U.Parent_RN = S.RN ;
        Inner Join InBase I On S.Master_RN = I.RN ;
      Where U.Parent_Unt = ?m.cUnitInv And U.Child_Unt = ?m.cUnitEO And U.Child_RN = ?cTmp2.Master_RN ;
        And U.Child_RN_Ext = PadR(?cTmp2.RN, 8) And (AllTrim(U.Code) == "HIST" Or AllTrim(U.Code) == "EOP_HIST") ;
        And S.Code = 1 And GoMonth(S.Date, I.Srok) >= ?m.dDateL ;
      To SCREEN NOCONSOLE

    If _Tally = 0
      * Ищем связь проводки со спецификацией картотеки операций будущих периодов
      Select S.RN ;
        From Unit_Ref U ;
          Inner Join ExpsFutS S On Left(U.Parent_RN_Ext, 4) = S.RN ;
          Inner Join ExpsFutD D On U.Parent_RN = D.RN ;
        Where U.Parent_Unt = ?m.cUnitEF And U.Child_Unt = ?m.cUnitEO And U.Child_RN = ?cTmp2.Master_RN ;
          And D.End_Date >= ?m.dDateL ;
      To SCREEN NOCONSOLE

      If _Tally = 0
        Delete In cTmp2
      EndIf
    EndIf
  EndScan

EndProc
****


Procedure SetFilterByBU
* Отбор аналитических счетов по контрагенту
  LParameters cJoinAn, cWhereBU

  Local i, s

  If !Empty(m.cWhereKontragent)
    Select AccSpec.RN, AccSpec.Master_RN ;
      From curAcc ;
        Inner Join AccSpec On curAcc.RN = AccSpec.Master_RN ;
        Inner Join OrgBase On AccSpec.RN_TOrg = OrgBase.RN ;
      Where &cWhereKontragent ;
      Into CURSOR crsAccSpRN
     
    If _Tally = 0
      Return .F.
    Else
      Index On RN Tag RN
      For m.i = 1 To 5
        s = Str(m.i, 1)
        cJoinAn = m.cJoinAn + "Left Join crsAccSpRN A" + m.s + " On D.RN_ACC_A" + m.s + " = A" + m.s + ".RN "
      Next
      cWhereBU  = "And (!IsNull(A1.RN) Or !IsNull(A2.RN) Or !IsNull(A3.RN) Or !IsNull(A4.RN) Or !IsNull(A5.RN)) "
      Select RN From curAcc Where RN In (Select Master_RN From crsAccSpRN) Into CURSOR curAcc
    EndIf
  EndIf

EndProc
****
]]></FPC_></MSE>
  <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T., .T.)
]]></FPC_>
  </печать>
  </отчет>
  <форма>
    <ид>f_0503130_191n_186n_2023</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503130</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503130-191н_ред186н_2023</VFP_свойство>
      <VFP_свойство имя="Height">450</VFP_свойство>
      <VFP_свойство имя="Width">565</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisform
Local oPg1, oPg2, oPg3
oPg1 = oThisForm.PF.Page1
oPg2 = oThisForm.PF.Page2
oPg3 = oThisForm.PF.Page3

if empty(oPg1.Txt18B1.Value) and empty(oPg1.Txt18B2.Value) and ;
   empty(oPg1.Txt18B3.Value) and empty(oPg1.Txt18B4.Value) and ;   
   empty(oPg1.Txt18B5.Value) and empty(oPg1.Txt18B6.Value) and ;
   empty(oPg1.Txt18B7.Value) and empty(oPg1.Txt18B8.Value) and ;
   empty(oPg1.Txt18B9.Value) and empty(oPg1.Txt18B10.Value) 
   =exclmes("Не указан код вида деятельности для бюджетной деятельности!")
   oThisForm.PF.ActivePage = 1
   oPg1.Txt18B1.SetFocus()
   return .F.
endif

if empty(oPg1.Txt18R1.Value) and empty(oPg1.Txt18R2.Value) and ;
   empty(oPg1.Txt18R3.Value) and empty(oPg1.Txt18R4.Value) and ;   
   empty(oPg1.Txt18R5.Value) and empty(oPg1.Txt18R6.Value) and ;
   empty(oPg1.Txt18R7.Value) and empty(oPg1.Txt18R8.Value) and ;
   empty(oPg1.Txt18R9.Value) and empty(oPg1.Txt18R10.Value) 
   =exclmes("Не указан код вида деятельности для средств во временном распоряжении!")
   oThisForm.PF.ActivePage = 1
   oPg1.Txt18R1.SetFocus()
   return .F.
endif

dSelDateS  = oPg1.cntSelDateS.restDate.Value
dSelDatePo = oPg1.cntSelDatePo.restDate.Value

if m.dSelDateS > m.dSelDatePo
   =exclmes("Неправильно задан диапазон дат!")
   oThisForm.PF.ActivePage = 1
   oPg1.cntSelDateS.SetFocus()
   return .F.
endif

Local cUsl18R, nPos, c18B, c18R, nLenR, c18Pos, cWhereBalUnitsB, cWhereBalUnitsR
store "" to cUsl18B, cUsl18R

* забалансовые счета
Local cUsl18ZB, c18ZB, ctmp
Store "" To cUsl18ZB, c18ZB

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

c18R  = oPg1.Txt18R1.Value + oPg1.Txt18R2.Value + ;
        oPg1.Txt18R3.Value + oPg1.Txt18R4.Value + ;
        oPg1.Txt18R5.Value + oPg1.Txt18R6.Value + ;
        oPg1.Txt18R7.Value + oPg1.Txt18R8.Value + ;
        oPg1.Txt18R9.Value + oPg1.Txt18R10.Value 

* забалансовые счета
c18ZB  = oPg2.Txt18ZB1.Value + oPg2.Txt18ZB2.Value + ;
         oPg2.Txt18ZB3.Value + oPg2.Txt18ZB4.Value + ;
         oPg2.Txt18ZB5.Value + oPg2.Txt18ZB6.Value + ;
         oPg2.Txt18ZB7.Value + oPg2.Txt18ZB8.Value + ;
         oPg2.Txt18ZB9.Value + oPg2.Txt18ZB10.Value 

c18B = strtran(m.c18B, " ", "", 1)
c18R = strtran(m.c18R, " ", "", 1)
nLenR = len(m.c18R)

* з.с.
c18ZB = strtran(m.c18ZB, " ", "", 1)

for m.i = 1 to Len(m.c18B)
    c18R = strtran(m.c18R, substr(m.c18B, m.i, 1), "")
endfor

if m.nLenR # len(m.c18R)
   =exclmes("Указан одинаковый код вида деятельности для бюджетной деятельности и средств во временном распоряжении!")
   oPg1.Txt18B1.SetFocus()
   return .F.
endif

c18Pos = IIF(oPg1.Cmb_AccType.Value = 1, "18", "1")

for m.i = 1 to Len(m.c18B)
    cSymb = substr(m.c18B, m.i, 1)
    cUsl18B = m.cUsl18B + iif(!empty(m.cUsl18B), ",'", "'") + m.cSymb + "'"
endfor

if !empty(cUsl18B)
   cUsl18B = "inli(substr(accbase.account, " + m.c18Pos + ", 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 = "inli(substr(accbase.account, " + m.c18Pos + ", 1), " + cUsl18R +")"
else
   cUsl18R = ".T."
endif

* з.с.
If !Empty(m.c18ZB)
   for i = 1 to len(m.c18ZB)
       cSymb = substr(m.c18ZB, m.i, 1)
       cUsl18ZB = cUsl18ZB + iif(!empty(cUsl18ZB), ",'", "'") + cSymb + "'"
   endfor
Endif

if !empty(cUsl18ZB)
   ctmp = "(AT('з',accbase.account) > 1 and inli(SUBS(accbase.account,AT('з',accbase.account)-1,1), " + cUsl18ZB +")"
   ctmp = m.ctmp + " or AT('з',accbase.account) = 0 and inli(substr(accbase.account, 1, 1), " + cUsl18ZB +"))"
   cUsl18ZB = m.ctmp + " and !accbase.l_balance"
else
   cUsl18ZB = "!accbase.l_balance"
endif

cWhereRB = m.cUsl18B
cWhereRR = m.cUsl18R

*з.с.
cWhereBSPR = m.cUsl18ZB

cWhereKontragent = oPg1.OrgFrom.GetCond()
cOrg             = oPg1.OrgFrom.GetSaveValue()
cWhereBalUnitsB  = oPg1.BalunitsB.GetCond()
cWhereBalUnitsR  = oPg1.BalUnitsR.GetCond()
cBalUnitsB       = oPg1.BalunitsB.GetSaveValue()
cBalUnitsR       = oPg1.BalUnitsR.GetSaveValue()

If !Empty(m.cWhereBalUnitsB)
  cWhereRB = m.cWhereBalUnitsB + " And " + m.cWhereRB
EndIf

If !Empty(m.cWhereBalUnitsR)
  cWhereRR = "(" + m.cWhereBalUnitsR + ") And " + m.cWhereRR
EndIf

cCatEO = oPg2.CmbCatEO.Value

Dimension aSbfRN[1]   && массив для GetCommonRepParams2014 - НЕ ТРОГАТЬ!

* Каталог для выгрузки
cUnlPath = oPg3.Catalog.Text.Value
if !Empty(m.cUnlPath) And !Directory(m.cUnlPath, 1)
   =exclmes("Каталог " + AllTrim(m.cUnlPath) + Chr(13) + "не существует!")
   oThisForm.PF.ActivePage = 3
   oPg3.Catalog.SetFocus()
   return .F.
EndIf

cUnlPath4 = oPg3.Catalog4.Text.Value
If !Empty(m.cUnlPath4) And !Directory(m.cUnlPath4, 1)
   =exclmes("Каталог " + AllTrim(m.cUnlPath4) + Chr(13) + "не существует!")
   oThisForm.PF.ActivePage = 3
   oPg3.Catalog4.SetFocus()
   return .F.
EndIf

cDicIsp = oPg3.DicIsp.GetSaveValue()
]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisform
Local oPg1, oPg2, oPg3
oPg1 = oThisForm.PF.Page1
oPg2 = oThisForm.PF.Page2
oPg3 = oThisForm.PF.Page3

oPg1.OrgFrom.setsavevalue(m.cOrg)
oPg1.fldBudgetName.setsavevalue(m.cNameBudzh)
oPg1.cntSelDateS.InitThis(m.dSelDateS)
oPg1.cntSelDatePo.InitThis(m.dSelDatePo)
oPg1.BalunitsB.SetSaveValue(m.cBalUnitsB)
oPg1.BalunitsR.SetSaveValue(m.cBalUnitsR)

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

oPg3.Catalog.Text.value = m.cUnlPath
oPg3.Catalog4.Text.value = m.cUnlPath4
oPg3.DicIsp.setsavevalue(m.cDicIsp)
oPg3.fldIspName.Value = m.cIspName
]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">285</VFP_свойство>
        <VFP_свойство имя="Top">413</VFP_свойство>
      </элемент>
      <элемент>
          <VFP_класс>TPageFrame</VFP_класс>
          <VFP_свойство имя="Name">PF</VFP_свойство>
          <VFP_свойство имя="Height">410</VFP_свойство>
          <VFP_свойство имя="Width">565</VFP_свойство>
          <VFP_свойство имя="PageCount">3</VFP_свойство>
          <элемент>
            <VFP_имя>Page1</VFP_имя>
            <VFP_свойство имя="Caption">Параметры формирования</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">195</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">25</VFP_свойство>
              <VFP_свойство имя="Top">5</VFP_свойство>
              <VFP_свойство имя="Caption">Параметры</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">С:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>Month_year_m</VFP_класс>
              <VFP_свойство имя="Name">cntSelDateS</VFP_свойство>
              <VFP_свойство имя="ControlSource">dSelDateS</VFP_свойство>
              <VFP_свойство имя="Left">170</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <элемент>
                <VFP_имя>SelYear</VFP_имя>
                <VFP_свойство имя="Left">280</VFP_свойство>
              </элемент>
              <элемент>
                <VFP_имя>LbllYear</VFP_имя>
                <VFP_свойство имя="Left">354</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">По:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>Month_year_m</VFP_класс>
              <VFP_свойство имя="Name">cntSelDatePo</VFP_свойство>
              <VFP_свойство имя="ControlSource">dSelDatePo</VFP_свойство>
              <VFP_свойство имя="Left">170</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <элемент>
                <VFP_имя>SelYear</VFP_имя>
                <VFP_свойство имя="Left">280</VFP_свойство>
              </элемент>
              <элемент>
                <VFP_имя>LbllYear</VFP_имя>
                <VFP_свойство имя="Left">354</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">85</VFP_свойство>
              <VFP_свойство имя="Caption">Учреждение:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
              <VFP_свойство имя="Left">170</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <VFP_свойство имя="Width">375</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTS130_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">115</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">fldBudgetName</VFP_свойство>
              <VFP_свойство имя="Left">170</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Width">375</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">Mubudg</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Mubudg_msc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTSMUB130_186N_2023</VFP_свойство>
              <VFP_свойство имя="ControlSource" тип="C">m.cNameBudzh</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
              <VFP_свойство имя="Caption">Код бюджета:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">105</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">120</VFP_свойство>
              <VFP_свойство имя="MaxLength">8</VFP_свойство>           
              <VFP_свойство имя="ControlSource">cKodB</VFP_свойство>
              <VFP_свойство имя="Name">fldKodB</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">280</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
              <VFP_свойство имя="Caption">Код субъекта отчетности:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">425</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_KSO</VFP_свойство>
              <VFP_свойство имя="Top">140</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_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">175</VFP_свойство>
              <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
            </элемент>            
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">425</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
              <VFP_свойство имя="Top">170</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Width">120</VFP_свойство>
              <VFP_свойство имя="BoundTo">2</VFP_свойство>
              <VFP_свойство имя="RowSourceType">1</VFP_свойство>
              <VFP_свойство имя="RowSource">26 символов,9 символов</VFP_свойство>
              <VFP_свойство имя="Style">2</VFP_свойство>
              <VFP_свойство имя="ControlSource">nAccType</VFP_свойство>
              <VFP_свойство имя="Delenabled">.F.</VFP_свойство>
              <VFP_свойство имя="NotEmpty">.T.</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">210</VFP_свойство>
              <VFP_свойство имя="Caption">Код вида деятельности</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
              <VFP_свойство имя="Caption">Бюджетная:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">336</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">357</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">378</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">399</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">420</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">441</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">462</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">483</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">504</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">525</VFP_свойство>
              <VFP_свойство имя="Top">225</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">260</VFP_свойство>
              <VFP_свойство имя="Caption">Средства во временном распоряжении:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">336</VFP_свойство>
              <VFP_свойство имя="Top">255</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18R1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18R1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">357</VFP_свойство>
              <VFP_свойство имя="Top">255</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18R2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18R2</VFP_свойство>
            </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">378</VFP_свойство>
             <VFP_свойство имя="Top">255</VFP_свойство>
             <VFP_свойство имя="Width">16</VFP_свойство>
             <VFP_свойство имя="InputMask">N</VFP_свойство>
             <VFP_свойство имя="ControlSource">cTxt18R3</VFP_свойство>
             <VFP_свойство имя="Name">Txt18R3</VFP_свойство>
           </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">399</VFP_свойство>
             <VFP_свойство имя="Top">255</VFP_свойство>
             <VFP_свойство имя="Width">16</VFP_свойство>
             <VFP_свойство имя="InputMask">N</VFP_свойство>
             <VFP_свойство имя="ControlSource">cTxt18R4</VFP_свойство>
             <VFP_свойство имя="Name">Txt18R4</VFP_свойство>
           </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">420</VFP_свойство>
             <VFP_свойство имя="Top">255</VFP_свойство>
             <VFP_свойство имя="Width">16</VFP_свойство>
             <VFP_свойство имя="InputMask">N</VFP_свойство>
             <VFP_свойство имя="ControlSource">cTxt18R5</VFP_свойство>
             <VFP_свойство имя="Name">Txt18R5</VFP_свойство>
           </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">441</VFP_свойство>
             <VFP_свойство имя="Top">255</VFP_свойство>
             <VFP_свойство имя="Width">16</VFP_свойство>
             <VFP_свойство имя="InputMask">N</VFP_свойство>
             <VFP_свойство имя="ControlSource">cTxt18R6</VFP_свойство>
             <VFP_свойство имя="Name">Txt18R6</VFP_свойство>
           </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">462</VFP_свойство>
             <VFP_свойство имя="Top">255</VFP_свойство>
             <VFP_свойство имя="Width">16</VFP_свойство>
             <VFP_свойство имя="InputMask">N</VFP_свойство>
             <VFP_свойство имя="ControlSource">cTxt18R7</VFP_свойство>
             <VFP_свойство имя="Name">Txt18R7</VFP_свойство>
           </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">483</VFP_свойство>
             <VFP_свойство имя="Top">255</VFP_свойство>
             <VFP_свойство имя="Width">16</VFP_свойство>
             <VFP_свойство имя="InputMask">N</VFP_свойство>
             <VFP_свойство имя="ControlSource">cTxt18R8</VFP_свойство>
             <VFP_свойство имя="Name">Txt18R8</VFP_свойство>
           </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">504</VFP_свойство>
             <VFP_свойство имя="Top">255</VFP_свойство>
             <VFP_свойство имя="Width">16</VFP_свойство>
             <VFP_свойство имя="InputMask">N</VFP_свойство>
             <VFP_свойство имя="ControlSource">cTxt18R9</VFP_свойство>
             <VFP_свойство имя="Name">Txt18R9</VFP_свойство>
           </элемент>
           <элемент>
             <VFP_класс>TTextBox</VFP_класс>
             <VFP_свойство имя="Left">525</VFP_свойство>
             <VFP_свойство имя="Top">255</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">300</VFP_свойство>
              <VFP_свойство имя="width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Caption">Балансовая единица</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">315</VFP_свойство>
              <VFP_свойство имя="Caption">Бюджетная деятельность:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>S_balunits</VFP_класс>
              <VFP_свойство имя="Name">BalunitsB</VFP_свойство>
              <VFP_свойство имя="Left">235</VFP_свойство>
              <VFP_свойство имя="Top">310</VFP_свойство>
              <VFP_свойство имя="Width">310</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_свойство имя="Caption">Средства во временном распоряжении:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">345</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>S_balunits</VFP_класс>
              <VFP_свойство имя="Name">BalunitsR</VFP_свойство>
              <VFP_свойство имя="Left">235</VFP_свойство>
              <VFP_свойство имя="Top">340</VFP_свойство>
              <VFP_свойство имя="Width">310</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">45</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Забалансовые счета</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Уровень аналитики:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TSpinner</VFP_класс>
              <VFP_свойство имя="ControlSource">nAnLevel</VFP_свойство>
              <VFP_свойство имя="Height">24</VFP_свойство>
              <VFP_свойство имя="Increment">1.00</VFP_свойство>
              <VFP_свойство имя="Inputmask">9</VFP_свойство>
              <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
              <VFP_свойство имя="KeyboardLowValue">0</VFP_свойство>
              <VFP_свойство имя="Left">135</VFP_свойство>
              <VFP_свойство имя="Name">aLevel</VFP_свойство>
              <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
              <VFP_свойство имя="SpinnerLowValue">0.00</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">40</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">200</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
              <VFP_свойство имя="Caption">Код вида деятельности:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">336</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">357</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">378</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">399</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">420</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">441</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">462</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">483</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">504</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">525</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB10</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB10</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">65</VFP_свойство>
              <VFP_свойство имя="Width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">60</VFP_свойство>
              <VFP_свойство имя="Caption">Операции межотчетного периода</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <VFP_свойство имя="Caption">Особая отметка:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>mark</VFP_класс>
              <VFP_свойство имя="Left">390</VFP_свойство>
              <VFP_свойство имя="Top">75</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">110</VFP_свойство>
              <VFP_свойство имя="Caption">Каталог хозяйственных операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>tdictree</VFP_класс>
              <VFP_свойство имя="Left">390</VFP_свойство>
              <VFP_свойство имя="Top">105</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Name">CmbCatEO</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">45</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">150</VFP_свойство>
              <VFP_свойство имя="Width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
              <VFP_свойство имя="Caption">Операции по исправлению ошибок прошлых лет</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">165</VFP_свойство>
              <VFP_свойство имя="Caption">Журнал операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>ordera</VFP_класс>
              <VFP_свойство имя="Left">390</VFP_свойство>
              <VFP_свойство имя="Top">160</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Name">JournalOp</VFP_свойство>
              <VFP_свойство имя="ControlSource">cJournalOp</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">40</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">205</VFP_свойство>
              <VFP_свойство имя="Width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">«Долгосрочные» показатели</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">220</VFP_свойство>
              <VFP_свойство имя="ControlSource">nNoCalcLong</VFP_свойство>
              <VFP_свойство имя="Name">chkNoCalcLong</VFP_свойство>
              <VFP_свойство имя="Caption">Не рассчитывать «долгосрочные» показатели на начало отчетного периода</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_имя>Page3</VFP_имя>
            <VFP_свойство имя="Caption">Параметры выгрузки</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">185</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">545</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">120</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">425</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">490</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.Page3.dicIsp.Value)
  = Seek(oThisForm.PF.Page3.dicIsp.Value, "orgbase", "RN")
  If orgbase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом.")
    oThisForm.PF.Page3.dicIsp.Clear()
  Else    
    = Seek(oThisForm.PF.Page3.dicIsp.Value, "person", "RN")
    oThisForm.PF.Page3.fldIspName.Value = Alltrim(person.SURNAME) + " " + Left(Alltrim(person.FIRSTNAME), 1) + "." + Left(Alltrim(person.SECONDNAME), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">dicIsp</VFP_свойство>
              <VFP_свойство имя="Left">295</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <VFP_свойство имя="Width">250</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AgentsFIO130_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">295</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Width">250</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIspName</VFP_свойство>
              <VFP_свойство имя="Name">fldIspName</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Телефон:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">295</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">250</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
              <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">170</VFP_свойство>
              <VFP_свойство имя="ControlSource">nEmptyRows</VFP_свойство>
              <VFP_свойство имя="Name">chkEmptyRows</VFP_свойство>
              <VFP_свойство имя="Caption">Выгружать строки с нулевыми значениями</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">105</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">205</VFP_свойство>
              <VFP_свойство имя="Width">545</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="Caption">Выгрузка в ГНИ 4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Каталог:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">220</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDirSelect</VFP_класс>
              <VFP_свойство имя="Name">Catalog4</VFP_свойство>
              <VFP_свойство имя="Left">120</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">425</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Идентификатор получателя информации:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">250</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">485</VFP_свойство>
              <VFP_свойство имя="Top">245</VFP_свойство>
              <VFP_свойство имя="Width">60</VFP_свойство>
              <VFP_свойство имя="MaxLength">4</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIdReceiver</VFP_свойство>
              <VFP_свойство имя="Name">Receiver</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Идентификатор конечного получателя информации:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">280</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">485</VFP_свойство>
              <VFP_свойство имя="Top">275</VFP_свойство>
              <VFP_свойство имя="Width">60</VFP_свойство>
              <VFP_свойство имя="MaxLength">4</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIdReceiverMain</VFP_свойство>
              <VFP_свойство имя="Name">ReceiverMain</VFP_свойство>
            </элемент>
          </элемент>
       </элемент>
    </описание>
  </форма>
</Модуль>
