<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503710-33н_ред183н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503710_183n_2023</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503710_183n_2023</мнемокод>
        <файл>Форма0503710_33н_ред183н_2023.xlt</файл>
      </шаблон>
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503710_183n_2023</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dBalOpen;dSelDate;dReoDate;cOrg;cRN_Found;nAnLevel;nAccType;nRoll17;cComDicGroup;nNotRollClose;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;cTxt18VB1;cTxt18VB2;cTxt18VB3;cTxt18VB4;cTxt18VB5;cTxt18VB6;cTxt18VB7;cTxt18VB8;cTxt18VB9;cTxt18VB10;cRN_Mark;cCatEO;cJournalOp;cUnlPath;cIST;cDicIsp;cIspName;cIspTel</список_переменных>
        <мемофайл>ar_form0503710_33n_183n_2023;ar_form0503710_33n_11n_2020;ar_form0503710_33n_73n_2019</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dBalOpen</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата расчета показателей вступительного баланса-->
      </переменная>
      <переменная>
        <имя>dSelDate</имя>
        <начальное_значение>Year(oSystem.DateBegin)</начальное_значение>
        <!--Год За-->
      </переменная>
      <переменная>
        <имя>dReoDate</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата реорганизации-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Контрагент-->
      </переменная>
      <переменная>
        <имя>cWhereKontragent</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по контрагентам-->
      </переменная>
      <переменная>
        <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
        <!--Глава по БК-->
      </переменная>  
      <переменная>
        <имя>cRN_Found</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учредитель-->
      </переменная>
      <переменная>
        <имя>nAnLevel</имя>
        <начальное_значение>5</начальное_значение>
        <!--Уровень аналитики кодов поступлений (выбытий)-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>nRoll17</имя>
        <начальное_значение>1</начальное_значение>
        <!--Группировать 30404/30406 по коду счета-->
      </переменная>
      <переменная>
        <имя>cComDicGroup</имя>
        <начальное_значение>""</начальное_значение>
        <!--Группировка по символам номера счета-->
      </переменная>
      <переменная>
        <имя>arrGroupMask</имя>
        <начальное_значение>""</начальное_значение>
        <!--Маска для группировки по символам номера счета-->
      </переменная>
      <переменная>
        <имя>nNotRollClose</имя>
        <начальное_значение>0</начальное_значение>
        <!--Не сворачивать обороты по счетам доходов и расходов, подлежащим закрытию-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>"5"</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>"6"</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB1</имя>
        <начальное_значение>"2"</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB2</имя>
        <начальное_значение>"4"</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB3</имя>
        <начальное_значение>"7"</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18VB10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для внебюджета-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата с-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
      <переменная>
        <имя>cWhereRB</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cWhereRVB</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cRN_Mark</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка-->
      </переменная>
      <переменная>
        <имя>cCatEO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог ХО-->
      </переменная>
      <переменная>
        <имя>cJournalOp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Журнал операций-->
      </переменная>      
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,06,30)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>            
    </переменные>
    <запуск_формы>
      <ид>f_0503710_33n_183n_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
dDateBegin = Iif(Empty(m.dBalOpen), DATE(m.dSelDate, 1, 1), m.dBalOpen)
dDateEnd   = Iif(Empty(m.dReoDate), DATE(m.dSelDate, 12,31), m.dReoDate)
   ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
*on error   && !!!!!

Private n19, cJoinAn_D, cJoinAn_K, cOrgPO_D, cOrgPO_K
Local ARRAY arBp(1)
Local cWhAccSpr, cAN, cExclWhere, c19
Store "" To cJoinAn_D, cJoinAn_K, cOrgPO_D, cOrgPO_K, cExclWhere
n19 = Iif(m.nAccType = 1, 19, 2)
c19 = LTrim(Str(m.n19))

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

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

* Уровень аналитики кодов поступлений (выбытий)
cAN = STR(m.nAnLevel, 1)

* Заданы условия для исключения
* ЖО
If !Empty(m.cJournalOp)
  cExclWhere = " And E.RN_MO # '" + m.cJournalOp + "' And B.RN_MO # '" + m.cJournalOp + "'"
EndIf

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

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

  If _Tally # 0
    Index On RN Tag RN
    cExclWhere = m.cExclWhere + " And E.MASTER_RN Not In (Select RN From curEopInOper)"
  EndIf
EndIf

** Раздел 1
* отбор счетов
cWhAccSpr = "(" + m.cWhereRB + " or " + m.cWhereRVB + ") And InList(SubStr(Account, " + m.c19 + ", 5), '30404', '30406', '40110', '40120')" ;
          + Iif(Empty(m.cJournalOp), "", " And AccBase.RN_MO # '" + m.cJournalOp + "'")   && Исключение счетов по ЖО

RepG151.GetComRepPrm151("0503110", @lNoError, "curAccSpr", m.cWhAccSpr)

* Отбор аналитики по контрагенту
= GetCondKontragent("curAccSpr")

* Обороты
Select 1 As Typ, A.Account, ;
       Left(Nvl(S.SAccount, Space(15)), 3) As Anl, ;
       SubStr(B.Account, ?m.n19, 5) = "40130" As Is40130, ;
       SUM_EQUAL As SUM ;
  From EopSpMir E ;
    Inner JOIN curAccSpr A ON E.RN_DB = A.RN ;
    Inner JOIN AccBase   B ON E.Rn_KR = B.RN ;
    LEFT  JOIN AccSpec   S ON E.RN_DB_A&cAN = S.RN ;
    &cJoinAn_D ;
  Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_D &cExclWhere ;
    And !(SubStr(A.Account, ?m.n19, 5) = "30406" And SubStr(B.Account, ?m.n19, 3) = "201") ;
UNION ALL ;
Select 2 As Typ, A.Account, ;
       Left(Nvl(S.SAccount, Space(15)), 3) As Anl, ;
       SubStr(B.Account, ?m.n19, 5) = "40130" As Is40130, ;
       SUM_EQUAL As SUM ;
  From EopSpMir E ;
    Inner JOIN curAccSpr A ON E.RN_KR = A.RN ;
    Inner JOIN AccBase   B ON E.Rn_DB = B.RN ;
    LEFT  JOIN AccSpec   S ON E.RN_KR_A&cAN = S.RN ;
    &cJoinAn_K ;
  Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_K &cExclWhere ;
    And !(SubStr(A.Account, ?m.n19, 5) = "30406" And SubStr(B.Account, ?m.n19, 3) = "201") ;
  Into CURSOR curTurns_

Use In curAccSpr

Select Typ, ;
       Iif(?m.nAccType = 1 And ?m.nRoll17 = 1 And InList(SubStr(Account, 19, 5), "30404", "30406"), Replicate("0", 17) + SubStr(Account, 18), Account) As Account, ;
       Anl, Is40130, ;
       Sum(SUM) As SUM ;
  From curTurns_ ;
  Group By 1, 2, 3, 4 ;
  Into CURSOR curTurns

Use In curTurns_

** Раздел 2
cWhAccSpr = "(" + m.cWhereRB + " or " + m.cWhereRVB + ") And InList(SubStr(Account, " + m.c19 + ", 4), '4011')" ;
          + Iif(Empty(m.cJournalOp), "", " And RN_MO # '" + m.cJournalOp + "'")   && Исключение счетов по ЖО

Select RN, Account From AccBase Where &cWhAccSpr And ?m.lNoError Into CURSOR curAccSprP2 READWRITE
Index On RN Tag RN

* Группировка по символам номера счета
If !Empty(arrGroupMask)
  = GroupAccount("curAccSprP2", "Account")
EndIf

* Отбор аналитики по контрагенту
= GetCondKontragent("curAccSprP2")

* Обороты по дебету счета 4011.13
Select E.RN_KR As RN_Acc, E.RN_KR_A1 As RN_An1, E.RN_KR_A2 As RN_An2, E.RN_KR_A3 As RN_An3, E.RN_KR_A4 As RN_An4, E.RN_KR_A5 As RN_An5, ;
       A.Account As Accnt, ;
       Left(Nvl(S.SAccount, Space(15)), 3) As Anl, ;
       Space(6) As FFunclCode, ;
       SubStr(B.Account, ?m.n19, 5) As CAccnt, ;
       SUM(E.SUM_EQUAL) As SUM ;
  From EopSpMir E ;
    Inner Join curAccSprP2 A  On E.RN_DB     = A.RN  ;
    Inner Join AccBase     B  On E.RN_KR     = B.RN  ;
    Left  Join AccSpec     S  On E.RN_DB_A&cAN = S.RN ;
    &cJoinAn_D ;
  Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_D ;
    And SubStr(S.SAccount, 1, 2) = "13" ;
    And (InList(SubStr(B.Account, ?m.n19, 5), "10527", "10537", "10538", "10539") ;
     Or  InList(SubStr(B.Account, ?m.n19, 4), "1096", "1098", "4012", "1106")) &cExclWhere ;
  Group By 1, 2, 3, 4, 5, 6, 7, 8 ;
  Into CURSOR curDBPart2_ READWRITE

Use In curAccSprP2

= FillFFunclCode("curDBPart2_")

Select E.Accnt, E.Anl, E.FFunclCode, ;
       Iif(InList(E.CAccnt, "1096", "1098", "4012", "1106"), Left(Nvl(C.SAccount, Replicate("0", 15)), 3), Space(3)) As SCAccount, ;
       E.CAccnt, ;
       SUM(E.Sum) As SUM ;
  From curDBPart2_ E ;
    Left  Join AccSpec C On E.RN_An&cAN = C.RN ;       
  Group By 1, 2, 3, 4, 5 ;
  Into CURSOR curDBPart2

Use In curDBPart2_

* Обороты для колонок 5 и 6 раздела 2
cWhAccSpr = "(" + m.cWhereRB + " or " + m.cWhereRVB + ") And InList(SubStr(Account, " + m.c19 + ", 4), '1096')" ;
          + Iif(Empty(m.cJournalOp), "", " And RN_MO # '" + m.cJournalOp + "'")   && Исключение счетов по ЖО

RepG151.GetComRepPrm151("0503110", @lNoError, "curAccSprP1096", m.cWhAccSpr)

* Отбор аналитики по контрагенту
= GetCondKontragent("curAccSprP1096")

* Обороты по дебету счета 1096
Select E.RN_DB As RN_Acc, E.RN_DB_A1 As RN_An1, E.RN_DB_A2 As RN_An2, E.RN_DB_A3 As RN_An3, E.RN_DB_A4 As RN_An4, E.RN_DB_A5 As RN_An5, ;
       SubStr(B.Account, ?m.n19, 4) As CAccnt, ;
       SubStr(A.Account, ?m.n19 - 1, 1) As VFO, ;
       Space(6) As FFunclCode, ;
       Left(Nvl(S.SAccount, Replicate("0", 15)), 3) As SCAccount, ;
       SUM(E.SUM_EQUAL) As SUM ;
  From EopSpMir E ;
    Inner Join curAccSprP1096 A  On E.RN_DB     = A.RN  ;
    Inner Join AccBase        B  On E.RN_KR     = B.RN  ;
    Left  Join AccSpec        S  On E.RN_DB_A&cAN = S.RN ;
    &cJoinAn_D ;
  Where E.Date_EOP BETWEEN ?m.dDateBegin AND ?m.dDateEnd &cOrgPO_D ;
    And InList(SubStr(B.Account, ?m.n19, 4), "1097", "1098") &cExclWhere ;
  Group By 1, 2, 3, 4, 5, 6, 7 ;
  Into CURSOR curDBPart256_ READWRITE

= CurClose("curAccSprP1096;curEopInOper;crsAccSpRN")

= FillFFunclCode("curDBPart256_")

Select VFO, FFunclCode, SCAccount, CAccnt, SUM(Sum) As SUM ;
  From curDBPart256_ ;
  Group By 1, 2, 3, 4 ;
  Into CURSOR curDBPart256

Use In curDBPart256_

Create CURSOR FormPrint  (Acc C(29), Anl C(3), Sum2 N(18,2), Sum3 N(18,2), Sum4 N(18,2), Sum5 N(18,2), Sum6 N(18,2), Sum7 N(18,2), Sum8 N(18,2), Sum9 N(18,2), Sum10 N(18,2), Sum11 N(18,2), Sum12 N(18,2), Sum13 N(18,2))
Create CURSOR FormPrintP2(Acc C(29), Anl C(3), FFunclCode C(6), SCAccount C(3), Sum4 N(18,2), Sum5 N(18,2), Sum6 N(18,2), Sum7 N(18,2), Sum8 N(18,2), Sum9 N(18,2), Sum10 N(18,2))

&& 30404
= FillCursorPrn('30404')
&& 30406
= FillCursorPrn('30406')
&& 40110
= FillCursorPrn('40110')
&& 40120
= FillCursorPrn('40120')

Use In curTurns

If !Empty(arrGroupMask)
  = GroupAccount("FormPrint", "Acc")
  Select Acc, Anl, SubStr(Acc, ?m.n19, 5) As Subs, SubStr(Acc, ?m.n19 - 1, 1) As VFO, Iif(m.nAccType = 1, Left(Acc, 17), Space(17)) As KBK, ;
         Sum(Sum2) As Sum2, Sum(Sum3) As Sum3, Sum(Sum4) As Sum4, Sum(Sum5) As Sum5, Sum(Sum6) As Sum6, Sum(Sum7) As Sum7, Sum(Sum8) As Sum8, ;
         Sum(Sum9) As Sum9, Sum(Sum10) As Sum10, Sum(Sum11) As Sum11, Sum(Sum12) As Sum12, Sum(Sum13) As Sum13 ;
    From FormPrint ;
    Group By 1, 2 ;
    Order By 3, 4, 5, 1, 2 ;
    Into CURSOR FormPrint
EndIf

&& Раздел 2
= FillCursorPrnPart2()
= CurClose("curDBPart2;curDBPart256")

&& Формирую имя файла            
If !Empty(m.cUnlPath)
  Local array aFiles(1)
  Local nNum, cNum, nN, i
  cUnlPath = AllTrim(m.cUnlPath)
  cFileName = "310" + Iif(Empty(m.dReoDate), "Y", "R")
  nNum = 0
  If ADir(aFiles, m.cUnlPath + m.cFileName + "??.txt") # 0
    For m.i = 1 To ALen(aFiles) / 5
      nN = at(".", aFiles(m.i, 1))
      cNum = SubStr(aFiles(m.i, 1), 5, m.nN - 5)
      If m.nNum < Val(m.cNum)
        nNum = Val(m.cNum)
      EndIf 
      If m.nNum = 99
        nNum = 0
      EndIf
    EndFor
  EndIf
  cFileName = m.cUnlPath + m.cFileName + PadL(Int(m.nNum) + 1, 2, "0") + ".txt"
EndIf

* Печать отчета
Local oPrint, nSheet
oPrint = objCaller.objExcelRep

* заголовок
oPrint.PrintRange("Header")

* области печати
Local Array aRepParts(1)
aRepParts[1] = "Spec"

oPrint.ReportPrepare(@aRepParts)

Select FormPrint
Scan
  oPrint.PrintReportPart("Spec")
EndScan

* подвал
oPrint.PrintRange("Footer")

oPrint.ReportFinal()

* Раздел 2
n = 0
Select FormPrintP2
Scan All
  n = m.n + 1
  If m.n > 1
    oPrint.InsertRange()   
  EndIf
  oPrint.PrintRange("Spec2")
EndScan

* подвал
oPrint.PrintRange("Footer2")

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

*oPrint = NULL

CurClose("FormPrint;FormPrintP2")

Return


*********************************************
Procedure FillCursorPrnPart2

 Local nRecNo

 Select Accnt, Anl, FFunclCode, SCAccount, ;
        Sum(Iif(CAccnt = "1096", Sum, 000000000000000.00)) As Sum4, ;
        Sum(Iif(InList(CAccnt, "10527", "10537", "10538", "10539"), Sum, 000000000000000.00)) As Sum7, ;
        Sum(Iif(CAccnt = "1098", Sum, 000000000000000.00)) As Sum8, ;
        Sum(Iif(CAccnt = "4012", Sum, 000000000000000.00)) As Sum9, ;
        Sum(Iif(CAccnt = "1106", Sum, 000000000000000.00)) As Sum10 ;
   From curDBPart2 ;
   Group By 1, 2, 3, 4 ;
   Order By 1, 2, 3, 4 ;
   Into CURSOR curAcc

 Scan
   Insert Into FormPrintP2 (Acc, Anl, FFunclCode, SCAccount, Sum4, Sum7, Sum8, Sum9, Sum10) ;
      Values (curAcc.Accnt, curAcc.Anl, curAcc.FFunclCode, curAcc.SCAccount, curAcc.Sum4, curAcc.Sum7, curAcc.Sum8, curAcc.Sum9, curAcc.Sum10)
 EndScan

 Use In curAcc

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

 Scan
   Select FormPrintP2
   nRecNo = 0
   Go Top
   Locate For SubStr(Acc, m.n19 - 1, 1) = curAcc.VFO And FFunclCode = curAcc.FFunclCode And SCAccount = curAcc.SCAccount
   If Found()
     nRecNo = RecNo()
     Continue
     If Found()
       nRecNo = 0
     EndIf
   EndIf

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

 Use In curAcc

EndProc


*********************************************
Procedure FillCursorPrn
 LParameters cSubs

 Private ALL Like Sum*
 Local lVB

 Select DISTINCT SubStr(Account, ?m.n19 - 1, 1) As VFO, ;
        Iif(m.nAccType = 1, Left(Account, 17), Space(17)) As KBK, ;
        Account, ;
        Iif(?m.cSubs = "30406", Space(3), Anl) As Anl ;
   From curTurns ;
   Where SubStr(Account, ?m.n19, 5) = ?m.cSubs ;
   Order By 1, 2, 4 ;
   Into CURSOR curAcc

 Scan
   lVB = Evaluate(m.cWhereRVB)
   Select Sum(Iif(Typ = 1 And  Is40130, SUM, 000000000000000.00)) As SumDB_40130, ;
          Sum(Iif(Typ = 1 And !Is40130, SUM, 000000000000000.00)) As SumDB_No40130, ;
          Sum(Iif(Typ = 2 And  Is40130, SUM, 000000000000000.00)) As SumKR_40130, ;
          Sum(Iif(Typ = 2 And !Is40130, SUM, 000000000000000.00)) As SumKR_No40130 ;
     From curTurns ;
     Where Account = ?curAcc.Account And (?m.cSubs = "30406" Or Anl = ?curAcc.Anl) ;
     Into CURSOR curTurns1

   If curTurns1.SumDB_40130 # 0 Or curTurns1.SumDB_No40130 # 0 Or curTurns1.SumKR_40130 # 0 Or curTurns1.SumKR_No40130 # 0
     If m.cSubs = "30406"
       Insert Into FormPrint (Acc, Anl) Values (curAcc.Account, "000")
     Else
       Insert Into FormPrint (Acc, Anl) Values (curAcc.Account, curAcc.Anl)
     EndIf

     Select FormPrint
     Scatter MEMVAR Fields Like Sum*
     DO Case
       Case InList(m.cSubs, "30404", "30406") Or m.nNotRollClose = 1
         If !m.lVB
           m.Sum2  = curTurns1.SumDB_No40130
           m.Sum3  = curTurns1.SumKR_No40130
           m.Sum7  = curTurns1.SumKR_40130
           m.Sum10 = curTurns1.SumKR_40130
           m.Sum6  = curTurns1.SumDB_40130
           m.Sum11 = curTurns1.SumDB_40130
         Else
           m.Sum4  = curTurns1.SumDB_No40130
           m.Sum5  = curTurns1.SumKR_No40130
           m.Sum9  = curTurns1.SumKR_40130
           m.Sum12 = curTurns1.SumKR_40130
           m.Sum8  = curTurns1.SumDB_40130
           m.Sum13 = curTurns1.SumDB_40130
         EndIf
       Case InList(m.cSubs, "40110", "40120") And m.nNotRollClose = 0
         If !m.lVB
           m.Sum2  = Max(curTurns1.SumDB_No40130 - curTurns1.SumKR_No40130, 0)
           m.Sum3  = Max(curTurns1.SumKR_No40130 - curTurns1.SumDB_No40130, 0)
           m.Sum6  = Max(curTurns1.SumDB_40130 - curTurns1.SumKR_40130, 0)
           m.Sum7  = Max(curTurns1.SumKR_40130 - curTurns1.SumDB_40130, 0)
           m.Sum10 = Max(curTurns1.SumKR_40130 - curTurns1.SumDB_40130, 0)
           m.Sum11 = Max(curTurns1.SumDB_40130 - curTurns1.SumKR_40130, 0)
         Else
           m.Sum4  = Max(curTurns1.SumDB_No40130 - curTurns1.SumKR_No40130, 0)
           m.Sum5  = Max(curTurns1.SumKR_No40130 - curTurns1.SumDB_No40130, 0)
           m.Sum8  = Max(curTurns1.SumDB_40130 - curTurns1.SumKR_40130, 0)
           m.Sum9  = Max(curTurns1.SumKR_40130 - curTurns1.SumDB_40130, 0)
           m.Sum12 = Max(curTurns1.SumKR_40130 - curTurns1.SumDB_40130, 0)
           m.Sum13 = Max(curTurns1.SumDB_40130 - curTurns1.SumKR_40130, 0)
         EndIf
     EndCase
     Gather MEMVAR Fields Like Sum*
   EndIf
   Use In curTurns1
 EndScan

 Use In curAcc
 
EndProc


*********************************************
Procedure GroupAccount
 LParameters cAlias, cField

 Local ni, cAccount, nLen, cAcc, i
 ni = ALen(arrGroupMask, 1)

 Select &cAlias
 Scan
   cAccount = RTrim(Evaluate(m.cField))
   If Len(m.cAccount) > arrGroupMask(m.ni, 2) + 3
     cAccount = Left(m.cAccount, arrGroupMask(m.ni, 2)) + "000"
   EndIf
   nLen = Len(m.cAccount)
   cAcc = Replicate("0", m.nLen)
   If SubStr(m.cAccount, 8, 1) $ "ADEFGILNPRSTV"
     cAcc = Left(m.cAcc, 4) + SubStr(m.cAccount, 5, 10) + SubStr(m.cAcc, 15)
   EndIf
   For m.i = 1 To m.ni
     cAcc = Iif(arrGroupMask(m.i, 1) = 1, "", Left(m.cAcc, arrGroupMask(m.i, 1) - 1)) + ;
            SubStr(m.cAccount, arrGroupMask(m.i, 1), arrGroupMask(m.i, 2) - arrGroupMask(m.i, 1) + 1) + ;
            SubStr(m.cAcc, arrGroupMask(m.i, 2) + 1)
   Next
   Replace &cField With m.cAcc
 EndScan

EndProc


*********************************************
Procedure GetCondKontragent
* Отбор аналитики по контрагенту
 LParameters cAlias

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

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

EndProc


*********************************************
Procedure FillFFunclCode
 LParameters cAlias

 Local ARRAY arrSbF[1], arrFFunclCode[1]
 Local cFFunclCode, cSbF, cAnl, nLev, cLev

 Select &cAlias
 Scan
   cSbF = ""
   cFFunclCode = "0000"

   If Seek(&cAlias..RN_Acc, "AccBase", "RN")
     If AccBase.TFIN_TYPE = 1
       cSbF = AccBase.RN_TFIN
     Else
       nLev = AT("9", AccBase.SMETA_AN)
       If m.nLev # 0
         cLev = Str(m.nLev, 1)
         cAnl = Evaluate(m.cAlias + ".RN_An" + m.cLev)
         If !Empty(m.cAnl)
           Select RN_TFIN From AccSpec Where RN = ?m.cAnl Into ARRAY arrSbF
           If _Tally # 0
             cSbF = arrSbF[1]
           EndIf
         EndIf
       EndIf
     EndIf

     If !Empty(m.cSbF)
       Select Nvl(Nvl(L2.Code, L1.Code), "0000  ") As Code ;
           From fSbFBase F ;
             Left Join fFuncCl L1 On F.FKRR_RN  = L1.RN ;
             Left Join fFuncCl L2 On F.FKRPR_RN = L2.RN ;       
           Where F.RN = ?m.cSbF ;
           Into ARRAY arrFFunclCode

         If _Tally # 0
           cFFunclCode = arrFFunclCode[1]
         EndIf
     EndIf
   EndIf

   Replace FFunclCode With m.cFFunclCode In &cAlias
 EndScan

EndProc

]]></FPC_></MSE>
  <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T.)
]]></FPC_>
  </печать>
  </отчет>
  <форма>
    <ид>f_0503710_33n_183n_2023</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503710</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503710-33н_ред183н_2023</VFP_свойство>
      <VFP_свойство имя="Height">435</VFP_свойство>
      <VFP_свойство имя="Width">480</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisform
Local oPage1, oPage2, oPage3, cUsl18B, cUsl18VB, c18B, c18VB, nLenVB, i, cSymb, c18Pos, ;
      nMinLen, nMaxLen, cSub, ni, n1, n2, nR, cS, lOk
Dimension arrGroupMask(1, 2)
Store "" To arrGroupMask, cUsl18B, cUsl18VB
nMinLen = 23
nMaxLen = 29
oPage1 = oThisForm.PF.Page1
oPage2 = oThisForm.PF.Page2
oPage3 = oThisForm.PF.Page3


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

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

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

cComDicGroup = oPage1.GroupAcc.GetSaveValue()

* Группировка по символам номера счета
If !Empty(m.cComDicGroup) And Len(m.cComDicGroup) > 1
   oPage1.GroupAcc.SetSaveValue(m.cComDicGroup)
   cSub = oPage1.GroupAcc.DisplayValue
   cSub = ChrTran(m.cSub, " ", "")
   cSub = ChrTran(m.cSub, ",", ";")
   ni   = 0
   n1   = Val(m.cSub)
   n2   = 0
   lOk  = Between(m.n1, 1, m.nMaxLen)
   cS   = LTrim(Str(m.n1, 15))
   cSub = SubStr(m.cSub, Len(m.cS) + 1)
   lOk  = m.lOk And !Empty(m.cSub)
   DO While !Empty(m.cSub) And m.lOk
     cS = Left(m.cSub, 1)
     If m.cS = "-" And m.n1 # 0 And m.n2 = 0
        cSub = SubStr(m.cSub, 2)
        n2   = Val(m.cSub)
        nR   = m.n2
        cS   = LTrim(Str(m.n2, 15))
        cSub = SubStr(m.cSub, Len(m.cS) + 1)
        lOk  = Between(m.n2, m.n1, m.nMaxLen)
        If m.lOk
          ni = m.ni + 1
          Dimension arrGroupMask(m.ni, 2)
          arrGroupMask(m.ni, 1) = m.n1
          arrGroupMask(m.ni, 2) = m.n2
        EndIf
     Else
        If m.cS = ";" And m.n1 # 0 And m.n2 # 0
           cSub = SubStr(m.cSub, 2)
           n1   = Val(m.cSub)
           cS   = LTrim(Str(m.n1, 15))
           cSub = SubStr(m.cSub, Len(m.cS) + 1)
           lOk  = Between(m.n1, m.n2 + 1, m.nMaxLen) And !Empty(m.cSub)
           n2   = 0
        Else
           lOk = .F.
        EndIf
     EndIf
   EndDO
   *
   If !m.lOk Or m.nR < m.nMinLen
      oThisForm.PF.ActivePage = 1
      = ExclMes("Группировка по символам номера счета задана некорректно!")
      oPage1.GroupAcc.SetFocus()
      Return .F.
   EndIf
EndIf

c18B  = oPage1.Txt18B1.Value + oPage1.Txt18B2.Value + ;
        oPage1.Txt18B3.Value + oPage1.Txt18B4.Value + ;
        oPage1.Txt18B5.Value + oPage1.Txt18B6.Value + ;
        oPage1.Txt18B7.Value + oPage1.Txt18B8.Value + ;
        oPage1.Txt18B9.Value + oPage1.Txt18B10.Value 
c18VB = oPage1.Txt18VB1.Value + oPage1.Txt18VB2.Value + ;
        oPage1.Txt18VB3.Value + oPage1.Txt18VB4.Value + ;
        oPage1.Txt18VB5.Value + oPage1.Txt18VB6.Value + ;
        oPage1.Txt18VB7.Value + oPage1.Txt18VB8.Value + ;
        oPage1.Txt18VB9.Value + oPage1.Txt18VB10.Value 

If Empty(m.c18B)
   =ExclMes("Не указан вид финансового обеспечения для деятельности с целевыми средствами!")
   oThisForm.PF.ActivePage = 1
   oPage1.Txt18B1.SetFocus()
   Return .F.
EndIf

If Empty(m.c18VB)
   =ExclMes("Не указан вид финансового обеспечения для деятельности по государственному заданию, приносящей доход деятельности!")
   oThisForm.PF.ActivePage = 1
   oPage1.Txt18VB1.SetFocus()
   Return .F.
EndIf

c18B   = StrTran(c18B,  " ", "")
c18VB  = StrTran(c18VB, " ", "")
nLenVB = Len(m.c18VB)

For m.i = 1 To Len(m.c18B)
  c18VB = StrTran(m.c18VB, SubStr(m.c18B, m.i, 1), "")
Next

If m.nLenVB # Len(m.c18VB)
   =ExclMes("Указан одинаковый вид финансового обеспечения для деятельности с целевыми средствами и деятельности по государственному заданию, приносящей доход деятельности!")
   oThisForm.PF.ActivePage = 1
   oPage1.Txt18B1.SetFocus()
   Return .F.
EndIf

c18Pos = IIF(oPage1.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 + "'"
Next
cUsl18B = "InList(SubStr(Account, " + m.c18Pos + ", 1), " + m.cUsl18B + ")"

For m.i = 1 To Len(m.c18VB)
  cSymb = SubStr(m.c18VB, m.i, 1)
  cUsl18VB = m.cUsl18VB + Iif(!Empty(m.cUsl18VB), ",'", "'") + m.cSymb + "'"
Next
cUsl18VB = "InList(SubStr(Account, " + m.c18Pos + ", 1), " + m.cUsl18VB + ")"

cWhereRB  = m.cUsl18B
cWhereRVB = m.cUsl18VB
cWhereKontragent = oPage1.OrgFrom.GetCond()
cOrg      = oPage1.OrgFrom.GetSaveValue()
cRN_Found = oPage1.Founder.Value

cCatEO = oPage2.CmbCatEO.Value

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

oPage1.OrgFrom.SetSaveValue(m.cOrg)
oPage1.Founder.InitThis(m.cRN_Found)
oPage1.Cmb_AccType.ValueChanged()
oPage1.GroupAcc.SetSaveValue(m.cComDicGroup)

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

oPage3.Catalog.Text.Value = m.cUnlPath
cIspolnitel = m.cIspName
oPage3.DicIsp.SetSaveValue(m.cDicIsp)
oPage3.fldIspName.Value = m.cIspolnitel
]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">200</VFP_свойство>
        <VFP_свойство имя="Top">398</VFP_свойство>
      </элемент>
      <элемент>
          <VFP_класс>TPageFrame</VFP_класс>
          <VFP_свойство имя="Name">PF</VFP_свойство>
          <VFP_свойство имя="Height">395</VFP_свойство>
          <VFP_свойство имя="Width">480</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">265</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">460</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_класс>TdicDate</VFP_класс>
              <VFP_свойство имя="Name">cntBalOpen</VFP_свойство>
              <VFP_свойство имя="Left">365</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_класс>tyear</VFP_класс>
              <VFP_свойство имя="Name">cntSelDate</VFP_свойство>
              <VFP_свойство имя="ControlSource">dSelDate</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Дата реорганизации:</VFP_свойство>
              <VFP_свойство имя="Left">250</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TdicDate</VFP_класс>
              <VFP_свойство имя="Name">cntReoDate</VFP_свойство>
              <VFP_свойство имя="Left">365</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <элемент>
                <VFP_имя>Text</VFP_имя>
                <VFP_свойство имя="ControlSource">dReoDate</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">85</VFP_свойство>
              <VFP_свойство имя="Caption">Бюджетное учреждение:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <VFP_свойство имя="Width">305</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTS710_183N_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">115</VFP_свойство>
              <VFP_свойство имя="Caption">Учредитель:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">Founder</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Width">305</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_FOUND710_183N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Уровень аналитики кодов поступлений (выбытий):</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TSpinner</VFP_класс>
              <VFP_свойство имя="ControlSource">nAnLevel</VFP_свойство>
              <VFP_свойство имя="Increment">1.00</VFP_свойство>
              <VFP_свойство имя="Inputmask">9</VFP_свойство>
              <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
              <VFP_свойство имя="KeyboardLowValue">1</VFP_свойство>
              <VFP_свойство имя="Left">420</VFP_свойство>
              <VFP_свойство имя="Name">aLevel</VFP_свойство>
              <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
              <VFP_свойство имя="SpinnerLowValue">1.00</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">40</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">175</VFP_свойство>
              <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
            </элемент>            
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">340</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_метод имя="ValueChanged"><![CDATA[LParam oThis, oThisForm
oThis.Parent.chkRoll17.Enabled = oThis.Value = 1
]]></VFP_метод>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">200</VFP_свойство>
              <VFP_свойство имя="ControlSource">nRoll17</VFP_свойство>
              <VFP_свойство имя="Name">chkRoll17</VFP_свойство>
              <VFP_свойство имя="Caption">Группировать 30404/30406 по коду счета</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Caption">Группировать по символам номера счета:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform  
=CurOpen("ComDicBS;ComDicTp")
If !Empty(oThis.Value) and Seek(oThis.Value, "ComDicBS", "RN") and Seek(ComDicBS.ComDicTp_RN, "ComDicTp", "RN") and ComDicTp.Num # oThis.AddInfo
  =ExclMes("Выбранная позиция относится к некорректному разделу!")  
  oThis.Clear()  
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">GroupAcc</VFP_свойство>
              <VFP_свойство имя="Left">270</VFP_свойство>
              <VFP_свойство имя="Top">220</VFP_свойство>
              <VFP_свойство имя="Width">190</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">ComDicBs</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">ComDic_mc</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Code</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_Group769_183N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">ComDicBs.code</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">ComDicBs.ComDicBs_RN</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="addinfo" тип="N">120</VFP_свойство>
              <VFP_свойство имя="runfromexe" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">250</VFP_свойство>
              <VFP_свойство имя="ControlSource">nNotRollClose</VFP_свойство>
              <VFP_свойство имя="Name">chkNotRollClose</VFP_свойство>
              <VFP_свойство имя="Caption">Не сворачивать обороты по счетам доходов и расходов, подлежащим закрытию</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">285</VFP_свойство>
              <VFP_свойство имя="Width">460</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">280</VFP_свойство>
              <VFP_свойство имя="Caption">Вид финансового обеспечения</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">300</VFP_свойство>
              <VFP_свойство имя="Caption">Деятельность с целевыми средствами:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">251</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">272</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">293</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">314</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">335</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">356</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">377</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">398</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">419</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">440</VFP_свойство>
              <VFP_свойство имя="Top">295</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">325</VFP_свойство>
              <VFP_свойство имя="Caption">Деятельность по государственному</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">338</VFP_свойство>
              <VFP_свойство имя="Caption">заданию, приносящая доход деятельность:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">251</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">272</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">293</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">314</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">335</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">356</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">377</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">398</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">419</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">440</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18VB10</VFP_свойство>
              <VFP_свойство имя="Name">Txt18VB10</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_имя>Page2</VFP_имя>
            <VFP_свойство имя="Caption">Обособленные операции</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <VFP_свойство имя="PageOrder">2</VFP_свойство>          
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">460</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>            
              <VFP_свойство имя="Top">5</VFP_свойство>
              <VFP_свойство имя="Caption">Операции межотчетного периода</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
              <VFP_свойство имя="Caption">Особая отметка:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>mark</VFP_класс>
              <VFP_свойство имя="Left">305</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Name">CmbMark</VFP_свойство>
              <VFP_свойство имя="ControlSource">cRN_Mark</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
              <VFP_свойство имя="Caption">Каталог хозяйственных операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>tdictree</VFP_класс>
              <VFP_свойство имя="Left">305</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Name">CmbCatEO</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">45</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">95</VFP_свойство>
              <VFP_свойство имя="Width">460</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">90</VFP_свойство>
              <VFP_свойство имя="Caption">Операции по исправлению ошибок прошлых лет</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Caption">Журнал операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>ordera</VFP_класс>
              <VFP_свойство имя="Left">305</VFP_свойство>
              <VFP_свойство имя="Top">105</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Name">JournalOp</VFP_свойство>
              <VFP_свойство имя="ControlSource">cJournalOp</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">460</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">380</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">405</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">210</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_AgentsIsp710_183N_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">210</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">210</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">250</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
              <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
            </элемент>
          </элемент>
       </элемент>
    </описание>
  </форма>
</Модуль>
