<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503723-33н_ред164н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503723_164n_2023</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503723_164n_2023</мнемокод>
        <файл>Форма0503723_33н_ред164н_2023.xlt</файл>
      </шаблон>
      <!--Отчет формируется по хозяйственным операциям за период-->
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503723_164n_2023</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dBalOpen;dSelDate;dReoDate;cOrg;cRN_Found;cNameBudzh;cRN_MarkVPL;cRN_MarkNOO;cRN_MarkIODS;nAnLevel4;nAnLevelDD;cVFO;cBalUnits;nAccType;lAsInvest;lNoCalc5;cUnlPath;cIST;cDicIsp;cIspName;cIspTel</список_переменных>
        <мемофайл>ar_form0503723_33n_164n_2023;ar_form0503723_33n_183n_2023;ar_form0503723_33n_183n_2022;ar_form0503723_33n_78n_2022;ar_form0503723_33n_170n_2021;ar_form0503723_33n_81n_2021;ar_form0503723_33n_292n_2021;ar_form0503723_33n_11n_2020;ar_form0503723_33n_73n_2019</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dBalOpen</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата расчета показателей вступительного баланса-->
      </переменная>
      <переменная>
        <имя>dSelDate</имя>
        <начальное_значение>oSystem.Date</начальное_значение>
        <!--Отчетный период-->
      </переменная>
      <переменная>
        <имя>dReoDate</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата реорганизации-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата С-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учреждение-->
      </переменная>
      <переменная>
        <имя>cWhereKontragent</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по контрагентам-->
      </переменная>
      <переменная>
        <имя>cRN_Found</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учредитель-->
      </переменная>
      <переменная>
        <имя>cNameBudzh</имя>
        <начальное_значение>""</начальное_значение>
        <!--Наименование бюджета-->
      </переменная>
      <переменная>
        <имя>cRN_MarkVPL</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка (Возвраты прошлых лет)-->
      </переменная>
      <переменная>
        <имя>cRN_MarkNOO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка (Не отражать в отчете)-->
      </переменная>
      <переменная>
        <имя>cRN_MarkIODS</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка (Иные операции с денежными средствами, не отраженные в поступлениях и выбытиях)-->
      </переменная>
      <переменная>
        <имя>nAnLevel4</имя>
        <начальное_значение>4</начальное_значение>
        <!--Уровень аналитики кодов поступлений (выбытий) для счетов денежных средств-->
      </переменная>
      <переменная>
        <имя>nAnLevelDD</имя>
        <начальное_значение>0</начальное_значение>
        <!--Уровень доп. аналитики классификации расходов для счетов денежных средств-->
      </переменная>
      <переменная>
        <имя>cVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Вид финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>arrVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Массив видов финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>cBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Балансовые единицы-->
      </переменная>
      <переменная>
        <имя>cWhereBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>lAsInvest</имя>
        <начальное_значение>.T.</начальное_значение>
        <!--Отражать поступления от реализации материальных запасов как инвестиционные операции-->
      </переменная>
      <переменная>
        <имя>lNoCalc5</имя>
        <начальное_значение>.T.</начальное_значение>
        <!--Не рассчитывать показатели по графе 5 "За аналогичный период прошлого финансового года"-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
         <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
         <!--Глава по БК-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,12,31)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>
      <переменная>
        <имя>cPos18</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cPos19</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
    </переменные>
    <запуск_формы>
      <ид>f_0503723_33n_164n_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
 Local cJoinAn_D, cJoinAn_K, cOrgPO_, cWhereNOO, dDateBeginPast, dDateEndPast, i, cVal
 Local Array arBP[1]
*ON ERROR

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

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

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

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

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

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

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

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

 * обороты для всех ячеек
 Select S.*, B.Date_EOP, B.RN_MARK ;
    From EopBase B ;
      Inner JOIN EopSpec S ON B.RN = S.Master_RN ;
      &cJoinAn_D ;
    Where B.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cWhereNOO AND &cOrgPO_ ;
    Into Cursor crEopSpecDB

 Select S.*, B.Date_EOP, B.RN_MARK ;
    From EopBase B ;
      Inner JOIN EopSpec S ON B.RN = S.Master_RN ;
      &cJoinAn_K ;
    Where B.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cWhereNOO AND &cOrgPO_ ;
    Into Cursor crEopSpecKR

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

   Select S.*, B.Date_EOP, B.RN_MARK ;
      From EopBase B ;
        Inner JOIN EopSpec S ON B.RN = S.Master_RN ;
        &cJoinAn_D ;
      Where B.Date_EOP BETWEEN ?m.dDateBeginPast AND ?m.dDateEndPast &cWhereNOO AND &cOrgPO_ ;
      Into Cursor crEopSpecPastDB

   Select S.*, B.Date_EOP, B.RN_MARK ;
      From EopBase B ;
        Inner JOIN EopSpec S ON B.RN = S.Master_RN ;
        &cJoinAn_K ;
      Where B.Date_EOP BETWEEN ?m.dDateBeginPast AND ?m.dDateEndPast &cWhereNOO AND &cOrgPO_ ;
      Into Cursor crEopSpecPastKR
 EndIf

 = CurClose("crsAccSpRN")
                    ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
* Переменные для заполнения отчета
 Private nOptionVPL, cUnitExpKind
 Local cCorrNot

 Private All Like nCol?Row*
 Store 0 To nCol4Row0401, nCol5Row0401, ;
            nCol4Row0402, nCol5Row0402, ;
            nCol4Row0403, nCol5Row0403, ;
            nCol4Row0404, nCol5Row0404, ;
            nCol4Row0405, nCol5Row0405, ;
            nCol4Row0406, nCol5Row0406, ;
            nCol4Row0407, nCol5Row0407, ;
            nCol4Row0408, nCol5Row0408, ;
            nCol4Row0409, nCol5Row0409, ;
            nCol4Row0410, nCol5Row0410, ;
            nCol4Row0411, nCol5Row0411, ;
            nCol4Row0501, nCol5Row0501, ;
            nCol4Row0502, nCol5Row0502, ;
            nCol4Row0503, nCol5Row0503, ;
            nCol4Row0504, nCol5Row0504, ;
            nCol4Row0505, nCol5Row0505, ;
            nCol4Row0506, nCol5Row0506, ;                                                
            nCol4Row0507, nCol5Row0507, ;                                                
            nCol4Row0601, nCol5Row0601, ;
            nCol4Row0602, nCol5Row0602, ;
            nCol4Row0603, nCol5Row0603, ;
            nCol4Row0604, nCol5Row0604, ;
            nCol4Row0605, nCol5Row0605, ;
            nCol4Row0702, nCol5Row0702, ;
            nCol4Row0704, nCol5Row0704, ;
            nCol4Row0705, nCol5Row0705, ;
            nCol4Row0706, nCol5Row0706, ;
            nCol4Row0707, nCol5Row0707, ;
            nCol4Row0708, nCol5Row0708, ;
            nCol4Row0802, nCol5Row0802, ;
            nCol4Row0804, nCol5Row0804, ;
            nCol4Row0805, nCol5Row0805, ;
            nCol4Row0807, nCol5Row0807, ;
            nCol4Row0808, nCol5Row0808, ;
            nCol4Row1201, nCol5Row1201, ;
            nCol4Row1202, nCol5Row1202, ;
            nCol4Row1203, nCol5Row1203, ;           
            nCol4Row1410, nCol5Row1410, ;
            nCol4Row1420, nCol5Row1420, ;
            nCol4Row1430, nCol5Row1430, ;
            nCol4Row1441, nCol5Row1441, ;
            nCol4Row1442, nCol5Row1442, ;
            nCol4Row1443, nCol5Row1443, ;
            nCol4Row1444, nCol5Row1444, ;
            nCol4Row1445, nCol5Row1445, ;
            nCol4Row1446, nCol5Row1446, ;
            nCol4Row1449, nCol5Row1449, ;
            nCol4Row1450, nCol5Row1450, ;
            nCol4Row1610, nCol5Row1610, ;
            nCol4Row1620, nCol5Row1620, ;
            nCol4Row1631, nCol5Row1631, ;
            nCol4Row1632, nCol5Row1632, ;
            nCol4Row1633, nCol5Row1633, ;
            nCol4Row1634, nCol5Row1634, ;
            nCol4Row1635, nCol5Row1635, ;
            nCol4Row1636, nCol5Row1636, ;
            nCol4Row1637, nCol5Row1637, ;
            nCol4Row1900, nCol5Row1900, ;
            nCol4Row1910, nCol5Row1910
 Store 0 To nCol4Row2301, nCol5Row2301, ;
            nCol4Row2302, nCol5Row2302, ;
            nCol4Row2303, nCol5Row2303, ;
            nCol4Row2304, nCol5Row2304, ;
            nCol4Row2401, nCol5Row2401, ;
            nCol4Row2402, nCol5Row2402, ;
            nCol4Row2403, nCol5Row2403, ;
            nCol4Row2404, nCol5Row2404, ;
            nCol4Row2405, nCol5Row2405, ;
            nCol4Row2406, nCol5Row2406, ;
            nCol4Row2407, nCol5Row2407, ;
            nCol4Row2408, nCol5Row2408, ;
            nCol4Row2500, nCol5Row2500, ;
            nCol4Row2601, nCol5Row2601, ;
            nCol4Row2602, nCol5Row2602, ;
            nCol4Row2603, nCol5Row2603, ;
            nCol4Row2604, nCol5Row2604, ;
            nCol4Row2605, nCol5Row2605, ;
            nCol4Row2606, nCol5Row2606, ;
            nCol4Row2607, nCol5Row2607, ;
            nCol4Row2608, nCol5Row2608, ;
            nCol4Row2609, nCol5Row2609, ;
            nCol4Row2611, nCol5Row2611, ;
            nCol4Row2612, nCol5Row2612, ;
            nCol4Row2702, nCol5Row2702, ;
            nCol4Row2703, nCol5Row2703, ;
            nCol4Row2705, nCol5Row2705, ;
            nCol4Row2706, nCol5Row2706, ;
            nCol4Row2802, nCol5Row2802, ;
            nCol4Row2803, nCol5Row2803, ;
            nCol4Row2804, nCol5Row2804, ;
            nCol4Row2805, nCol5Row2805, ;
            nCol4Row2806, nCol5Row2806, ;
            nCol4Row2807, nCol5Row2807
 Store 0 To nCol4Row2900, nCol5Row2900, ;
            nCol4Row2901, nCol5Row2901, ;
            nCol4Row3001, nCol5Row3001, ;
            nCol4Row3002, nCol5Row3002, ;
            nCol4Row3003, nCol5Row3003, ;
            nCol4Row3004, nCol5Row3004, ;
            nCol4Row3005, nCol5Row3005, ;
            nCol4Row3006, nCol5Row3006, ;
            nCol4Row3101, nCol5Row3101, ;
            nCol4Row3102, nCol5Row3102, ;
            nCol4Row3103, nCol5Row3103, ;
            nCol4Row3104, nCol5Row3104, ;
            nCol4Row3105, nCol5Row3105, ;
            nCol4Row3106, nCol5Row3106, ;
            nCol4Row3107, nCol5Row3107, ;
            nCol4Row3108, nCol5Row3108, ;
            nCol4Row3109, nCol5Row3109, ;
            nCol4Row3111, nCol5Row3111, ;
            nCol4Row3112, nCol5Row3112, ;
            nCol4Row3113, nCol5Row3113, ;
            nCol4Row3114, nCol5Row3114, ;
            nCol4Row3115, nCol5Row3115, ;
            nCol4Row3116, nCol5Row3116, ;
            nCol4Row3117, nCol5Row3117, ;
            nCol4Row3310, nCol5Row3310, ;
            nCol4Row3320, nCol5Row3320, ;
            nCol4Row3330, nCol5Row3330, ;
            nCol4Row3347, nCol5Row3347, ;
            nCol4Row3350, nCol5Row3350, ;
            nCol4Row3390, nCol5Row3390
 Store 0 To nCol4Row3410, nCol5Row3410, ;
            nCol4Row3420, nCol5Row3420, ;
            nCol4Row3430, nCol5Row3430, ;
            nCol4Row3431, nCol5Row3431, ;
            nCol4Row3432, nCol5Row3432, ;
            nCol4Row3433, nCol5Row3433, ;
            nCol4Row3434, nCol5Row3434, ;
            nCol4Row3435, nCol5Row3435, ;
            nCol4Row3436, nCol5Row3436, ;
            nCol4Row3437, nCol5Row3437, ;
            nCol4Row3800, nCol5Row3800, ;
            nCol4Row3810, nCol5Row3810
 Store 0 To nCol4Row4210, nCol5Row4210, ;
            nCol4Row4220, nCol5Row4220, ;
            nCol4Row4310, nCol5Row4310, ;
            nCol4Row4320, nCol5Row4320, ;
            nCol4Row4410, nCol5Row4410, ;
            nCol4Row4420, nCol5Row4420, ;
            nCol4Row4510, nCol5Row4510, ;
            nCol4Row4520, nCol5Row4520, ;
            nCol4Row4610, nCol5Row4610, ;
            nCol4Row4620, nCol5Row4620, ;
            nCol4Row4910, nCol5Row4910, ;
            nCol4Row4920, nCol5Row4920, ;
            nCol4Row4930, nCol5Row4930, ;
            nCol4Row4940, nCol5Row4940, ;
            nCol4Row5010, nCol5Row5010, ;
            nCol4Row5020, nCol5Row5020, ;
            nCol4Row5030, nCol5Row5030
 
*ON ERROR
cUnitExpKind = UnitRN("ExpenseKinds")

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

&&0401
=SelAccFromBase(m.cVFO, "2011,2012,20134", "121", m.nAnLevel4, 0401, "OBDB;OBCR", m.cCorrNot)

&&0402
=SelAccFromBase(m.cVFO, "2011,2012,20134", "122", m.nAnLevel4, 0402, "OBDB;OBCR", m.cCorrNot)

&&0403
=SelAccFromBase(m.cVFO, "2011,2012,20134", "123", m.nAnLevel4, 0403, "OBDB;OBCR", m.cCorrNot)

&&0404
=SelAccFromBase(m.cVFO, "2011,2012,20134", "124", m.nAnLevel4, 0404, "OBDB;OBCR", m.cCorrNot)

&&0405
=SelAccFromBase(m.cVFO, "2011,2012,20134", "125", m.nAnLevel4, 0405, "OBDB;OBCR", m.cCorrNot)

&&0406
=SelAccFromBase(m.cVFO, "2011,2012,20134", "126", m.nAnLevel4, 0406, "OBDB;OBCR", m.cCorrNot)

&&0407
=SelAccFromBase(m.cVFO, "2011,2012,20134", "127", m.nAnLevel4, 0407, "OBDB;OBCR", m.cCorrNot)

&&0408
=SelAccFromBase(m.cVFO, "2011,2012,20134", "128", m.nAnLevel4, 0408, "OBDB;OBCR", m.cCorrNot)

&&0409
=SelAccFromBase(m.cVFO, "2011,2012,20134", "129", m.nAnLevel4, 0409, "OBDB;OBCR", m.cCorrNot)

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

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

&&0501
If Empty(m.cVFO) Or m.cVFO = "4"
  =SelAccFromBase("4", "2011,2012,20134", "131",  m.nAnLevel4, 0501, "OBDB;OBCR", m.cCorrNot)
EndIf

&&0502
If Empty(m.cVFO) Or m.cVFO # "4"
  =SelAccFromBase(Iif(Empty(m.cVFO), "!4", m.cVFO), "2011,2012,20134", "131", m.nAnLevel4, 0502, "OBDB;OBCR", m.cCorrNot)
EndIf

&&0503
=SelAccFromBase(m.cVFO, "2011,2012,20134", "132", m.nAnLevel4, 0503, "OBDB;OBCR", m.cCorrNot)

&&0504
=SelAccFromBase(m.cVFO, "2011,2012,20134", "133", m.nAnLevel4, 0504, "OBDB;OBCR", m.cCorrNot)

&&0505
=SelAccFromBase(m.cVFO, "2011,2012,20134", "134", m.nAnLevel4, 0505, "OBDB;OBCR", m.cCorrNot)

&&0506
=SelAccFromBase(m.cVFO, "2011,2012,20134", "135", m.nAnLevel4, 0506, "OBDB;OBCR", m.cCorrNot)

&&0507
=SelAccFromBase(m.cVFO, "2011,2012,20134", "139", m.nAnLevel4, 0507, "OBDB;OBCR", m.cCorrNot)

&&0601
=SelAccFromBase(m.cVFO, "2011,2012,20134", "141", m.nAnLevel4, 0601, "OBDB;OBCR", m.cCorrNot)

&&0602
=SelAccFromBase(m.cVFO, "2011,2012,20134", "142", m.nAnLevel4, 0602, "OBDB;OBCR", m.cCorrNot)

&&0603
=SelAccFromBase(m.cVFO, "2011,2012,20134", "143", m.nAnLevel4, 0603, "OBDB;OBCR", m.cCorrNot)

&&0604
=SelAccFromBase(m.cVFO, "2011,2012,20134", "144", m.nAnLevel4, 0604, "OBDB;OBCR", m.cCorrNot)

&&0605
=SelAccFromBase(m.cVFO, "2011,2012,20134", "145", m.nAnLevel4, 0605, "OBDB;OBCR", m.cCorrNot)

&&0702
=SelAccFromBase(m.cVFO, "2011,2012,20134", "152", m.nAnLevel4, 0702, "OBDB;OBCR", m.cCorrNot)

&&0704
=SelAccFromBase(m.cVFO, "2011,2012,20134", "154", m.nAnLevel4, 0704, "OBDB;OBCR", m.cCorrNot)

&&0705
=SelAccFromBase(m.cVFO, "2011,2012,20134", "155", m.nAnLevel4, 0705, "OBDB;OBCR", m.cCorrNot)

&&0706
=SelAccFromBase(m.cVFO, "2011,2012,20134", "156", m.nAnLevel4, 0706, "OBDB;OBCR", m.cCorrNot)

&&0707
=SelAccFromBase(m.cVFO, "2011,2012,20134", "157", m.nAnLevel4, 0707, "OBDB;OBCR", m.cCorrNot)

&&0708
=SelAccFromBase(m.cVFO, "2011,2012,20134", "158", m.nAnLevel4, 0708, "OBDB;OBCR", m.cCorrNot)

&&0802
=SelAccFromBase(m.cVFO, "2011,2012,20134", "162", m.nAnLevel4, 0802, "OBDB;OBCR", m.cCorrNot)

&&0804
=SelAccFromBase(m.cVFO, "2011,2012,20134", "164", m.nAnLevel4, 0804, "OBDB;OBCR", m.cCorrNot)

&&0805
=SelAccFromBase(m.cVFO, "2011,2012,20134", "165", m.nAnLevel4, 0805, "OBDB;OBCR", m.cCorrNot)

&&0807
=SelAccFromBase(m.cVFO, "2011,2012,20134", "167", m.nAnLevel4, 0807, "OBDB;OBCR", m.cCorrNot)

&&0808
=SelAccFromBase(m.cVFO, "2011,2012,20134", "168", m.nAnLevel4, 0808, "OBDB;OBCR", m.cCorrNot)

&&1201
=SelAccFromBase(m.cVFO, "2011,2012,20134", "181", m.nAnLevel4, 1201, "OBDB;OBCR", m.cCorrNot)

&&1202
=SelAccFromBase(m.cVFO, "2011,2012,20134", "189", m.nAnLevel4, 1202, "OBDB;OBCR", m.cCorrNot)

If !m.lAsInvest
  &&1203
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "44",  m.nAnLevel4, 1203, "OBDB;OBCR", m.cCorrNot)
EndIf

&&1410
=SelAccFromBase(m.cVFO, "2011,2012,20134", "41",  m.nAnLevel4, 1410, "OBDB;OBCR", m.cCorrNot)

&&1420
=SelAccFromBase(m.cVFO, "2011,2012,20134", "42",  m.nAnLevel4, 1420, "OBDB;OBCR", m.cCorrNot)

&&1430
=SelAccFromBase(m.cVFO, "2011,2012,20134", "43",  m.nAnLevel4, 1430, "OBDB;OBCR", m.cCorrNot)

If m.lAsInvest
  &&1441
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "441", m.nAnLevel4, 1441, "OBDB;OBCR", m.cCorrNot)

  &&1442
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "442", m.nAnLevel4, 1442, "OBDB;OBCR", m.cCorrNot)

  &&1443
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "443", m.nAnLevel4, 1443, "OBDB;OBCR", m.cCorrNot)

  &&1444
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "444", m.nAnLevel4, 1444, "OBDB;OBCR", m.cCorrNot)

  &&1445
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "445", m.nAnLevel4, 1445, "OBDB;OBCR", m.cCorrNot)

  &&1446
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "446", m.nAnLevel4, 1446, "OBDB;OBCR", m.cCorrNot)

  &&1449
  =SelAccFromBase(m.cVFO, "2011,2012,20134", "449", m.nAnLevel4, 1449, "OBDB;OBCR", m.cCorrNot)
EndIf

&&1450
=SelAccFromBase(m.cVFO, "2011,2012,20134", "46",  m.nAnLevel4, 1450, "OBDB;OBCR", m.cCorrNot)

&&1610
=SelAccFromBase(m.cVFO, "2011,2012,20134", "62",  m.nAnLevel4, 1610, "OBDB;OBCR", m.cCorrNot)

&&1620
=SelAccFromBase(m.cVFO, "2011,2012,20134", "63",  m.nAnLevel4, 1620, "OBDB;OBCR", m.cCorrNot)

&&1631
=SelAccFromBase(m.cVFO, "2011,2012,20134", "641", m.nAnLevel4, 1631, "OBDB;OBCR", m.cCorrNot)

&&1632
=SelAccFromBase(m.cVFO, "2011,2012,20134", "642", m.nAnLevel4, 1632, "OBDB;OBCR", m.cCorrNot)

&&1633
=SelAccFromBase(m.cVFO, "2011,2012,20134", "643", m.nAnLevel4, 1633, "OBDB;OBCR", m.cCorrNot)

&&1634
=SelAccFromBase(m.cVFO, "2011,2012,20134", "644", m.nAnLevel4, 1634, "OBDB;OBCR", m.cCorrNot)

&&1635
=SelAccFromBase(m.cVFO, "2011,2012,20134", "645", m.nAnLevel4, 1635, "OBDB;OBCR", m.cCorrNot)

&&1636
=SelAccFromBase(m.cVFO, "2011,2012,20134", "646", m.nAnLevel4, 1636, "OBDB;OBCR", m.cCorrNot)

&&1637
=SelAccFromBase(m.cVFO, "2011,2012,20134", "647", m.nAnLevel4, 1637, "OBDB;OBCR", m.cCorrNot)

&&1900
=SelAccFromBase(m.cVFO, "2011,2012,20134", "7",   m.nAnLevel4, 1900, "OBDB;OBCR", m.cCorrNot)

&&1910
=SelAccFromBase(m.cVFO, "2011,2012,20134", "71",  m.nAnLevel4, 1910, "OBDB;OBCR", m.cCorrNot)

&& Раздел 2. Выбытия
*-------------------
&&2301
=SelAccFromBase(m.cVFO, "2011,2012,20134,21003", "211", m.nAnLevel4, 2301, "OBCR;OBDB", m.cCorrNot)

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

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

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

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

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

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

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

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

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

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

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

&&2500
=SelAccFromBase(m.cVFO, "2011,2012,20134,21003", "23",  m.nAnLevel4, 2500, "OBCR;OBDB", m.cCorrNot)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

&&2900
=SelAccFromBase(m.cVFO, "2011,2012,20134,21003", "27",  m.nAnLevel4, 2900, "OBCR;OBDB", m.cCorrNot)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

&&3800
=SelAccFromBase(m.cVFO, "2011,2012,20134,21003", "8",  m.nAnLevel4, 3800, "OBCR;OBDB", m.cCorrNot)

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


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

&&4210
=SelAccFromBase(m.cVFO, "2011,2012,20134",,, 4210, ";OBDB", "!201,21003", 2)

&&4220
=SelAccFromBase(m.cVFO, "2011,2012,20134",,, 4220, "OBCR", "!201,21003", 2)

&&4310
nOptionVPL = 3
=SelAccFromBase(m.cVFO, "20111,20121,20126,20127,20134", "!1,2,3", m.nAnLevel4, 4310, ";OBDB", "21005")

&&4320
=SelAccFromBase(m.cVFO, "20111,20121,20126,20127,20134", "!1,2,3", m.nAnLevel4, 4320, "OBCR", "21005")
nOptionVPL = 0

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

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

&&4510
=SelAccFromBase(m.cVFO, "20111,20113,20121,20123,20127",,, 4510, ";OBDB", "30404")

&&4520
=SelAccFromBase(m.cVFO, "20111,20121,20127",,, 4520, "OBCR", "30404")

&&4610
=SelAccFromBase(m.cVFO, "2011,2012,20134",,, 4610, ";OBDB", "!201,21003", 3)

&&4620
=SelAccFromBase(m.cVFO, "2011,2012,20134",,, 4620, "OBCR", "!201,21003", 3)

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

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

&&4930
=SelAccFromBase(m.cVFO, "2011,20121,20123,20126,20127,20134,21003", "51,61", m.nAnLevel4, 4930, ";OBDB", "30406")

&&4940
=SelAccFromBase(m.cVFO, "2011,20121,20123,20126,20127,20134,21003", "51,61", m.nAnLevel4, 4940, "OBCR", "30406")

&&5010
=SelAccFromBase(m.cVFO, "2011,20121,20123,20126,20127,20134,21003",,, 5010, ";OBDB")

&&5020
=SelAccFromBase(m.cVFO, "2011,20121,20123,20126,20127,20134,21003",,, 5020, "OBCR")

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


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

*7
=SelAccFromBase4("2011,2012,20134,21003", "2,3,53!27", "OBCR;OBDB", m.cCorrNot)

Select A.*, ;
       Left(Nvl(E.Code, Space(8)), 3) As CodeVR, ;
       Nvl(F.Code, Space(6))          As FKR ;
  From curR7 A ;
    Left Join bExpKind E On A.RN_VidR = E.RN ;
    Left Join fFuncCl  F On A.RN_FKR  = F.RN ;
  Order By KOSGU, CodeVR, FKR ;
  Into CURSOR curSpec4


= CurClose("crEopSpecDB;crEopSpecKR;crEopSpecPastDB;crEopSpecPastKR;curR7")

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

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

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

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

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

CurClose("curSpec4")

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

oPrint = NULL

Return


**********************************************************
Procedure SelAccFromBase
  LParameters c18, cAccount, cAnalit, nAnLevel, nRow, cNameProc, cAccCorr, nIsVPL, cMode

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

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

  If !Empty(m.c18)
    cNot = ""
    c_18 = m.c18
    If Left(m.c_18, 1) = "!"
      cNot = "!"
      c_18 = SubStr(m.c_18, 2)
    EndIf
    cWhere = "SubStr(AccBase.Account, " + m.cPos18 + ", 1) " + m.cNot + "= '" + m.c_18 + "' And " + m.cWhere
  EndIf

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

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

  lOk = _Tally # 0

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

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

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

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

    * Иные операции с денежными средствами, не отраженные в поступлениях и выбытиях
    If Empty(m.cRN_MarkIODS)
      If m.nIsVPL = 3
        cWhere = m.cWhere + " And .F."
      EndIf
    Else
      If m.nOptionVPL # 0 Or m.nIsVPL = 3
        cWhere = m.cWhere + " And S.RN_MARK " + Iif(m.nIsVPL = 3, "=", "#") + " '" + m.cRN_MarkIODS + "'"
      Endif
    EndIf

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

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

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

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

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

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

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

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

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

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

  = CurClose("curAcc")
EndProc


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

  Local cLevelDD, cAnalitDD, cAcc, cWhere, cWhereC, lOk, cAccC, cAcc1, cAn1, cAn2, nPos, cNot, cJoinAnKosGU, cJoinCorr, i, c1, cVidR, cFKR, nALen
  Local ARRAY arrProc[2], arrVidR[1], arrAnalit[1], aTmp[1]
  Store "" To cWhere, cWhereC, cJoinAnKosGU, cJoinCorr, cAnalitDD, cNot

  * Курсор для колонки
  Create CURSOR curR7 (KOSGU C(3), RN_VidR C(4), RN_FKR C(4), SUMM N(18, 2))
  Index On KOSGU + RN_VidR + RN_FKR Tag UNI

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

  If !Empty(m.cVFO)
    cWhere = "SubStr(AccBase.Account, " + m.cPos18 + ", 1) = '" + m.cVFO + "' And " + m.cWhere
  EndIf

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

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

  lOk = _Tally # 0

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

  If m.lOk
    * Отбор проводок по КОСГУ
    cWhere = ""
    nPos = AT("!", m.cAnalit)
    cAn1 = Iif(m.nPos = 0, m.cAnalit, Left(m.cAnalit, m.nPos - 1))
    cAn2 = Iif(m.nPos = 0, "", SubStr(m.cAnalit, m.nPos + 1))
    nALen = ALines(aTmp, AllTRim(m.cAn1), ",")
    For m.i = 1 To m.nALen
      cWhere = m.cWhere + " OR Like('" + aTmp[m.i] + "*', AllTrim(An.SAccount))"
    Next
    cWhere = SubStr(m.cWhere, 5)
    If m.nALen > 1
      cWhere = "(" + m.cWhere + ")"
    EndIf
    If !Empty(m.cWhere)
      cWhere = "And " + m.cWhere
    EndIf
    If !Empty(m.cAn2)
      nALen = ALines(aTmp, AllTRim(m.cAn2), ",")
      For m.i = 1 To m.nALen
        cWhere = m.cWhere + " And !Like('" + aTmp[m.i] + "*', AllTrim(An.SAccount))"
      Next
    EndIf
    cJoinAnKosGU = "Inner Join AccSpec An ON S.RN_DB_A" + Str(m.nAnLevel4, 1) + " = An.RN"

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

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

    * Исключение ХО по особой отметке "Иные операции с денежными средствами, не отраженные в поступлениях и выбытиях"
    If !Empty(m.cRN_MarkIODS)
      cWhere = m.cWhere + " And S.RN_MARK # '" + m.cRN_MarkIODS + "'"
    EndIf

    && Привязка к словарям Видов расходов и ШФ
    If m.nAnLevelDD # 0
      cLevelDD  = Str(m.nAnLevelDD, 1)
      cAnalitDD = "S.RN_DB_A" + m.cLevelDD + " As AnDD, "
    EndIf

    CurOpen("AccSpec;fSbFBase")

    Select curAcc

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

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

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

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

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

        If _Tally # 0

          * Определение кода вида расходов
          If m.nAnLevelDD = 0   && Не задан уровень доп. аналитики классификации расходов для счетов денежных средств
            Select F.RN_VidR, F.FKRR_RN, F.FKRPR_RN ;
              From AccBase A ;
                Inner Join fSbFBase F On A.RN_TFIN = F.RN ;
              Where A.RN = ?curAcc.RN ;
              Into ARRAY arrVidR

            cVidR = Iif(_Tally = 0, Space(4), arrVidR[1])
            cFKR  = Iif(_Tally = 0, Space(4), Iif(Empty(arrVidR[3]), arrVidR[2], arrVidR[3]))

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

            Scan
              Select curR7
              If !Seek(curKOSGU.KOSGU + m.cVidR + m.cFKR)
                Insert Into curR7 (KOSGU, RN_VidR, RN_FKR) VALUES (curKOSGU.KOSGU, m.cVidR, m.cFKR)
              EndIf
              Replace SUMM With SUMM + Iif(m.i = 1, curKOSGU.SUMM, -curKOSGU.SUMM)
            EndScan
            USE In curKOSGU
          Else                  && Задан уровень доп. аналитики классификации расходов для счетов денежных средств
            If Seek(curAcc.RN, "AccBase", "RN")
              Select curEopSpec
              Scan
                Store Space(4) To cVidR, cFKR

                Do Case
                  Case AccBase.SLOVAN&cLevelDD._RN = m.cUnitExpKind   && Виды расходов
                    If !Empty(curEopSpec.AnDD)
                      Select SACCOUNT, UNT_COMMON, RN_COMMON From AccSpec ;
                        Where RN = ?curEopSpec.AnDD ;
                        Into ARRAY arrAnalit

                      If _Tally # 0
                        If arrAnalit[2] = m.cUnitExpKind And !Empty(arrAnalit[3])
                          cVidR = arrAnalit[3]
                        Else   && Пытаемся подобрать вид расходов по совпадению кода с кодом аналитики
                          Select RN From bExpKind Where CODE = PadR(Left(AllTrim(?arrAnalit[1]), 3), 8) Into ARRAY arrVidR

                          If _Tally # 0
                            cVidR = arrVidR[1]
                          EndIf
                        EndIf
                      EndIf
                    EndIf

                    If AccBase.TFin_Type = 1 And Seek(AccBase.RN_TFIN, "fSbFBase", "RN")
                      cFKR = Iif(Empty(fSbFBase.FKRPR_RN), fSbFBase.FKRR_RN, fSbFBase.FKRPR_RN)
                    EndIf

                  Case AT("9", AccBase.SMETA_AN) = m.nAnLevelDD       && ШФ
                    If !Empty(curEopSpec.AnDD) And Seek(curEopSpec.AnDD, "AccSpec", "RN") And !Empty(AccSpec.RN_TFIN) And Seek(AccSpec.RN_TFIN, "fSbFBase", "RN")
                      cVidR = fSbFBase.RN_VidR
                      cFKR  = Iif(Empty(fSbFBase.FKRPR_RN), fSbFBase.FKRR_RN, fSbFBase.FKRPR_RN)
                    EndIf
                EndCase

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

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

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

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

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

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

cOrg      = oPage.OrgFrom.GetSaveValue()
cWhereKontragent = oPage.OrgFrom.GetCond()
cRN_Found = oPage.Founder.Value

oPage = oThisForm.PF.Page2
cBalUnits  = oPage.BalUnits.GetSaveValue()
cWhereBalUnits = oPage.BalUnits.GetCond()

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

]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisform
    * Виды финансового обеспечения
    Dimension arrVFO[5, 3]
    arrVFO[1, 1] = PadR("Собственные доходы учреждения (код вида - 2)", 80)
    arrVFO[1, 2] = "2"
    arrVFO[1, 3] = "d"
    arrVFO[2, 1] = PadR("Субсидии на выполнение государственного (муниципального) задания (код вида - 4)", 80)
    arrVFO[2, 2] = "4"
    arrVFO[2, 3] = "z"
    arrVFO[3, 1] = PadR("Субсидии на иные цели (код вида - 5)", 80)
    arrVFO[3, 2] = "5"
    arrVFO[3, 3] = "c"
    arrVFO[4, 1] = PadR("Субсидии на цели осуществления капитальных вложений (код вида - 6)", 80)
    arrVFO[4, 2] = "6"
    arrVFO[4, 3] = "i"
    arrVFO[5, 1] = PadR("Средства по обязательному медицинскому страхованию (код вида - 7)", 80)
    arrVFO[5, 2] = "7"
    arrVFO[5, 3] = "m"

    Local oPage

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

    oPage = oThisForm.PF.Page2
    oPage.Cmb_VFO.RowSource = "arrVFO"
    oPage.Cmb_VFO.BackColor = oPage.Cmb_VFO.SaveBackColor
    oPage.Cmb_VFO.Init()
    oPage.BalUnits.SetSaveValue(m.cBalUnits)
    cIspolnitel = m.cIspName

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

]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">225</VFP_свойство>
        <VFP_свойство имя="Top">358</VFP_свойство>
      </элемент>
      <элемент>
        <VFP_класс>TPageFrame</VFP_класс>
        <VFP_свойство имя="Name">PF</VFP_свойство>
        <VFP_свойство имя="Height">355</VFP_свойство>
        <VFP_свойство имя="Width">500</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">480</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Параметры</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">5</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Дата расчета показателей вступительного баланса:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">25</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TdicDate</VFP_класс>
            <VFP_свойство имя="Name">cntBalOpen</VFP_свойство>
            <VFP_свойство имя="Left">385</VFP_свойство>
            <VFP_свойство имя="Top">20</VFP_свойство>
            <элемент>
              <VFP_имя>Text</VFP_имя>
              <VFP_свойство имя="ControlSource">dBalOpen</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Отчетный период:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>Month_year_m</VFP_класс>
            <VFP_свойство имя="Name">cntSelDate</VFP_свойство>
            <VFP_свойство имя="ControlSource">dSelDate</VFP_свойство>
            <VFP_свойство имя="Left">205</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <элемент>
              <VFP_имя>SelYear</VFP_имя>
              <VFP_свойство имя="Left">180</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_имя>lbllYear</VFP_имя>
              <VFP_свойство имя="Left">250</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Дата реорганизации:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TdicDate</VFP_класс>
            <VFP_свойство имя="Name">cntReoDate</VFP_свойство>
            <VFP_свойство имя="Left">385</VFP_свойство>
            <VFP_свойство имя="Top">80</VFP_свойство>
            <элемент>
              <VFP_имя>Text</VFP_имя>
              <VFP_свойство имя="ControlSource">dReoDate</VFP_свойство>
              <VFP_метод имя="ValueChanged"><![CDATA[LParam oThis, oThisForm
Local oObj
oObj = oThisForm.PF.Page1.cntSelDate
If Empty(oThis.Value)
  oObj.SelMonth.ReceiveMessage(oThisForm, "ReInit")
  oObj.SelYear.ReceiveMessage(oThisForm, "ReInit")
Else
  oObj.ReceiveMessage(oThisForm, "ViewMode")
EndIf
]]></VFP_метод>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
            <VFP_свойство имя="Caption">Учреждение:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
            <VFP_свойство имя="Left">205</VFP_свойство>
            <VFP_свойство имя="Top">110</VFP_свойство>
            <VFP_свойство имя="Width">275</VFP_свойство>
            <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
             <VFP_свойство имя="HistoryName" тип="C">H_AGENTS723_164N_2023</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <VFP_свойство имя="condfield" тип="C">orgbase.rmnemo_org</VFP_свойство>
            <VFP_свойство имя="condfieldrn" тип="C">orgbase.rn</VFP_свойство>
            <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">145</VFP_свойство>
            <VFP_свойство имя="Caption">Учредитель:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">Founder</VFP_свойство>
            <VFP_свойство имя="Left">205</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">275</VFP_свойство>
            <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
            <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
            <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
            <VFP_свойство имя="HistoryName" тип="C">H_FOUND723_164N_2023</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">175</VFP_свойство>
            <VFP_свойство имя="Caption">Наименование бюджета:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">NameBudzh</VFP_свойство>
            <VFP_свойство имя="Left">205</VFP_свойство>
            <VFP_свойство имя="Top">170</VFP_свойство>
            <VFP_свойство имя="Width">275</VFP_свойство>
            <VFP_свойство имя="AreaName" тип="C">Mubudg</VFP_свойство>
            <VFP_свойство имя="DictName" тип="C">Mubudg_msc</VFP_свойство>
            <VFP_свойство имя="RetField" тип="C">mnemo</VFP_свойство>
            <VFP_свойство имя="HistoryName" тип="C">H_AGENTSMUB723_164N_2023</VFP_свойство>
            <VFP_свойство имя="ControlSource" тип="C">m.cNameBudzh</VFP_свойство>
            <VFP_свойство имя="notempty" тип="L">.F.</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <элемент>
            <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">105</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">215</VFP_свойство>
            <VFP_свойство имя="Width">480</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Особые отметки</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">210</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">230</VFP_свойство>
            <VFP_свойство имя="Caption">Возвраты прошлых лет:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>mark</VFP_класс>
            <VFP_свойство имя="Left">325</VFP_свойство>
            <VFP_свойство имя="Top">225</VFP_свойство>
            <VFP_свойство имя="Width">155</VFP_свойство>
            <VFP_свойство имя="Name">CmbMarkVPL</VFP_свойство>
            <VFP_свойство имя="ControlSource">cRN_MarkVPL</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">260</VFP_свойство>
            <VFP_свойство имя="Caption">Не отражать в отчете:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>mark</VFP_класс>
            <VFP_свойство имя="Left">325</VFP_свойство>
            <VFP_свойство имя="Top">255</VFP_свойство>
            <VFP_свойство имя="Width">155</VFP_свойство>
            <VFP_свойство имя="Name">CmbMarkNOO</VFP_свойство>
            <VFP_свойство имя="ControlSource">cRN_MarkNOO</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">285</VFP_свойство>
            <VFP_свойство имя="Caption">Иные операции с денежными средствами,</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">298</VFP_свойство>
            <VFP_свойство имя="Caption">не отраженные в поступлениях и выбытиях:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>mark</VFP_класс>
            <VFP_свойство имя="Left">325</VFP_свойство>
            <VFP_свойство имя="Top">285</VFP_свойство>
            <VFP_свойство имя="Width">155</VFP_свойство>
            <VFP_свойство имя="Name">CmbMarkIODS</VFP_свойство>
            <VFP_свойство имя="ControlSource">cRN_MarkIODS</VFP_свойство>
          </элемент>
        </элемент>
        <элемент>
          <VFP_имя>Page2</VFP_имя>
          <VFP_свойство имя="Caption">Счета и аналитика</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">240</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">10</VFP_свойство>
            <VFP_свойство имя="Width">480</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">nAnLevel4</VFP_свойство>
            <VFP_свойство имя="Increment">1.00</VFP_свойство>
            <VFP_свойство имя="Inputmask">9</VFP_свойство>
            <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
            <VFP_свойство имя="KeyboardLowValue">1</VFP_свойство>
            <VFP_свойство имя="Left">440</VFP_свойство>
            <VFP_свойство имя="Name">aLevel4</VFP_свойство>
            <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
            <VFP_свойство имя="SpinnerLowValue">1.00</VFP_свойство>
            <VFP_свойство имя="Top">20</VFP_свойство>
            <VFP_свойство имя="Width">40</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Уровень доп. аналитики классификации расходов для счетов денежных средств:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TSpinner</VFP_класс>
            <VFP_свойство имя="ControlSource">nAnLevelDD</VFP_свойство>
            <VFP_свойство имя="Increment">1.00</VFP_свойство>
            <VFP_свойство имя="Inputmask">9</VFP_свойство>
            <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
            <VFP_свойство имя="KeyboardLowValue">0</VFP_свойство>
            <VFP_свойство имя="Left">440</VFP_свойство>
            <VFP_свойство имя="Name">aLevelDD</VFP_свойство>
            <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
            <VFP_свойство имя="SpinnerLowValue">0.00</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <VFP_свойство имя="Width">40</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">80</VFP_свойство>
            <VFP_свойство имя="Caption">Вид финансового обеспечения:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_VFO</VFP_свойство>
            <VFP_свойство имя="Top">95</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">460</VFP_свойство>
            <VFP_свойство имя="BoundColumn">2</VFP_свойство>
            <VFP_свойство имя="RowSourceType">5</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="DisplayCount">5</VFP_свойство>
            <VFP_свойство имя="ControlSource">cVFO</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Балансовая единица:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">130</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>S_balunits</VFP_класс>
            <VFP_свойство имя="Name">Balunits</VFP_свойство>
            <VFP_свойство имя="Left">235</VFP_свойство>
            <VFP_свойство имя="Top">125</VFP_свойство>
            <VFP_свойство имя="Width">245</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <VFP_свойство имя="condfield" тип="C">balunit.mnemo</VFP_свойство>
            <VFP_свойство имя="condfieldrn" тип="C">balunit.rn</VFP_свойство>
            <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">160</VFP_свойство>
            <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
          </элемент>            
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="Left">360</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
            <VFP_свойство имя="Top">155</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">120</VFP_свойство>
            <VFP_свойство имя="BoundTo">2</VFP_свойство>
            <VFP_свойство имя="RowSourceType">1</VFP_свойство>
            <VFP_свойство имя="RowSource">26 символов,9 символов</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="ControlSource">nAccType</VFP_свойство>
            <VFP_свойство имя="delenabled">.F.</VFP_свойство>
            <VFP_свойство имя="notempty">.T.</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TCheckBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">185</VFP_свойство>
            <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
            <VFP_свойство имя="Width">460</VFP_свойство>
            <VFP_свойство имя="PicturePosition">0</VFP_свойство>
            <VFP_свойство имя="ControlSource">lAsInvest</VFP_свойство>
            <VFP_свойство имя="Name">chkAsInvest</VFP_свойство>
            <VFP_свойство имя="Caption">Отражать поступления от реализации материальных запасов как инвестиционные операции</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TCheckBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">215</VFP_свойство>
            <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
            <VFP_свойство имя="Width">460</VFP_свойство>
            <VFP_свойство имя="PicturePosition">0</VFP_свойство>
            <VFP_свойство имя="ControlSource">lNoCalc5</VFP_свойство>
            <VFP_свойство имя="Name">chkNoCalc5</VFP_свойство>
            <VFP_свойство имя="Caption">Не рассчитывать показатели по графе 5 "За аналогичный период прошлого финансового года"</VFP_свойство>
          </элемент>
        </элемент>          
        <элемент>
          <VFP_имя>Page3</VFP_имя>
          <VFP_свойство имя="Caption">Параметры выгрузки</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="height">165</VFP_свойство>
            <VFP_свойство имя="left">10</VFP_свойство>
            <VFP_свойство имя="top">10</VFP_свойство>
            <VFP_свойство имя="width">480</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">5</VFP_свойство>
            <VFP_свойство имя="Caption">Параметры</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Каталог:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">25</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDirSelect</VFP_класс>
            <VFP_свойство имя="Name">Catalog</VFP_свойство>
            <VFP_свойство имя="Left">80</VFP_свойство>
            <VFP_свойство имя="Top">20</VFP_свойство>
            <VFP_свойство имя="Width">400</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">420</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <VFP_свойство имя="Width">60</VFP_свойство>
            <VFP_свойство имя="MaxLength">3</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIST</VFP_свойство>
            <VFP_свойство имя="Name">IST</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Исполнитель:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">dicIsp</VFP_свойство>
            <VFP_свойство имя="Left">230</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_AgentsIsp723_164N_2023</VFP_свойство>
            <VFP_свойство имя="filter">orgbase.type='2'</VFP_свойство>
            <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform
= CurOpen("orgbase, person")
If !Empty(oThis.Value)
  = Seek(oThis.Value, "orgbase", "RN")
  If orgbase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом.")
    oThis.Clear()
  Else    
    = Seek(oThis.Value, "person", "RN")
    oThis.Parent.fldIspName.Value = Alltrim(person.SURNAME) + " " + Left(Alltrim(person.FIRSTNAME), 1) + "." + Left(Alltrim(person.SECONDNAME), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>                
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ФИО:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">230</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">230</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">250</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
            <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
          </элемент>
        </элемент>
      </элемент>
    </описание>
  </форма>
</Модуль>
