<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503168-191н_ред186н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503168_186n_2023</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503168_186n_2023</мнемокод>
        <файл>Форма0503168_191н_ред186н_2023.xlt</файл>
      </шаблон>
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503168_186n_2023</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dSelDateS;dSelDatePo;cOrg;nAccType;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;nOperUpr;nKazna;cBalUnitsB;cExclCode;nSPLevel;cRN_Mark1;nAnLevel;cTxt18ZB1;cTxt18ZB2;cTxt18ZB3;cTxt18ZB4;cTxt18ZB5;cTxt18ZB6;cTxt18ZB7;cTxt18ZB8;cTxt18ZB9;cTxt18ZB10;cRN_Mark;cCatEO;cJournalOp;cUnlPath;cIST;cDicIsp;cIspName;cIspTel;nEmptyRows;glBK</список_переменных>
        <мемофайл>ar_form0503168_191n_186n_2023;ar_form0503168_191n_94n_2022;ar_form0503168_191n_217n_2021;ar_form0503168_191n_311n_2020;ar_form0503168_191n_72n_2019</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dSelDateS</имя>
        <начальное_значение>oSystem.DateBegin</начальное_значение>
        <!--Период формирования-->
      </переменная>
      <переменная>
        <имя>dSelDatePo</имя>
        <начальное_значение>oSystem.Date</начальное_значение>
        <!--Период формирования-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Контрагент-->
      </переменная>
      <переменная>
        <имя>cWhereB</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cWhereOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по контрагентам-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
      </переменная>      
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>"1"</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>nOperUpr</имя>
        <начальное_значение>1</начальное_значение>
        <!--Включать данные по имуществу, закрепленному в оперативное управление-->
      </переменная>
      <переменная>
        <имя>nKazna</имя>
        <начальное_значение>0</начальное_значение>
        <!--Включать данные по имуществу казны-->
      </переменная>
      <переменная>
        <имя>cBalUnitsB</имя>
        <начальное_значение>""</начальное_значение>
        <!--Бал. единицы-->
      </переменная>
      <переменная>
        <имя>cExclCode</имя>
        <начальное_значение>"18-22"</начальное_значение>
        <!--Разряды номера счета для определения внутреннего перемещения-->
      </переменная>
      <переменная>
        <имя>nSPLevel</имя>
        <начальное_значение>5</начальное_значение>
        <!--Уровень аналитики кодов поступлений/выбытий-->
      </переменная>
      <переменная>
        <имя>cRN_Mark1</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка (хищения/недостачи)-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата с-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
      <переменная>
        <имя>nAnLevel</имя>
        <начальное_значение>0</начальное_значение>
        <!--Уровень аналитики для забалансовых счетов-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB1</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18ZB10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>cWhereZB</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
        <!--Глава по БК-->
      </переменная>
      <переменная>
        <имя>cRN_Mark</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка-->
      </переменная>
      <переменная>
        <имя>cCatEO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог ХО-->
      </переменная>
      <переменная>
        <имя>cJournalOp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Журнал операций-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
        <имя>nEmptyRows</имя>
        <начальное_значение>0</начальное_значение>
        <!--Выгружать строки с нулевыми значениями-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,06,30)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>
    </переменные>
    <запуск_формы>
      <ид>f_0503168_191n_186n_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
dDateBegin = DOX(m.dSelDateS,  3)
dDateEnd   = DOX(m.dSelDatePo, 4) + 1
   ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
*ON ERROR
Private ALL Like nCol*
Local cAcc30404, cAcc40110, cAcc4014, cAcc40120

* Особые отметки и корр. счета
Private cSPLevel, dFinish, cOMP, cOIspr, cSubPos
cAcc30404 = Iif(m.nAccType = 1, Replicate("?", 17), "") + "?30404" + "*"
cAcc40110 = Iif(m.nAccType = 1, Replicate("?", 17), "") + "?40110" + "*"
cAcc4014  = Iif(m.nAccType = 1, Replicate("?", 17), "") + "?4014"  + "*"
cAcc40120 = Iif(m.nAccType = 1, Replicate("?", 17), "") + "?40120" + "*"
cSPLevel  = Str(m.nSPLevel, 1)

Select RN From AccBase Where Like(?m.cAcc30404, Account) Into CURSOR crs30404

Select RN From AccBase Where Like(?m.cAcc40110, Account) Into CURSOR crs40110_
Select RN From AccBase Where Like(?m.cAcc4014,  Account) Into CURSOR crs4014_

Select S.RN ;
  From crs40110_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where (Like("191*", S.SAccount) Or Like("192*", S.SAccount) Or Like("193*", S.SAccount) Or Like("194*", S.SAccount) Or Like("195*", S.SAccount) Or Like("196*", S.SAccount) Or Like("197*", S.SAccount) Or Like("198*", S.SAccount)) ;
    And S.Level = ?m.nSPLevel ;
UNION ALL ;
Select S.RN ;
  From crs4014_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where (Like("182*", S.SAccount) Or Like("185*", S.SAccount) Or Like("186*", S.SAccount) Or Like("187*", S.SAccount)) ;
    And S.Level = ?m.nSPLevel ;
  Into CURSOR crs401_6

Select S.RN ;
  From crs40110_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where Like("199*", S.SAccount) And S.Level = ?m.nSPLevel ;
  Into CURSOR crs40110_7

Select S.RN ;
  From crs40110_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where Like("19*", S.SAccount) And S.Level = ?m.nSPLevel ;
  Into CURSOR crs40110_9
Select RN From crs40110_9 ;
UNION ALL ;
Select S.RN ;
  From crs40110_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where Like("15*", S.SAccount) And S.Level = ?m.nSPLevel ;
  Into CURSOR crs40110_9o

Select RN From AccBase Where Like(?m.cAcc40120, Account) Into CURSOR crs40120_

Select S.RN ;
  From crs40120_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where (Like("24*", S.SAccount) Or Like("25*", S.SAccount) Or Like("28*", S.SAccount)) And S.Level = ?m.nSPLevel ;
  Into CURSOR crs40120

Select S.RN ;
  From crs40120_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where Like("274*", S.SAccount) And S.Level = ?m.nSPLevel ;
  Into CURSOR crs40120_5

Select S.RN ;
  From crs40110_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where Like("172*", S.SAccount) And S.Level = ?m.nSPLevel ;
UNION ALL ;
Select S.RN ;
  From crs40120_ A ;
    Inner Join AccSpec S On A.RN = S.Master_RN ;
  Where Like("273*", S.SAccount) And S.Level = ?m.nSPLevel ;
  Into CURSOR crs401_10

CurClose("crs40110_,crs4014_,crs40120_")

Store ".F." To cOMP, cOIspr
cSubPos = Iif(m.nAccType = 1, "19", "2")
dFinish = m.dDateEnd - 1

* Операции межотчетного периода
Do Case
  Case !Empty(m.cRN_Mark) And !Empty(m.cCatEO)
    cOMP = "(B.RN_MARK = '" + m.cRN_Mark + "' Or B.PARENT_RN = '" + m.cCatEO + "')"
  Case !Empty(m.cRN_Mark)
    cOMP = "B.RN_MARK = '" + m.cRN_Mark + "'"
  Case !Empty(m.cCatEO)
    cOMP = "B.PARENT_RN = '" + m.cCatEO + "'"
EndCase

* Операции по исправлению ошибок прошлых лет (периодов)
If !Empty(m.cJournalOp)
  cOIspr = "S.RN_MO = ?m.cJournalOp Or ?A.RN_MO = ?m.cJournalOp Or Nvl(C.RN_MO, Space(4)) = ?m.cJournalOp"
EndIf

** Подсчитаем все переменные
Store 0 To nCol4Row011, nCol5Row011, nCol6Row011, nCol7Row011, nCol8Row011, nCol9Row011, nCol10Row011, nCol11Row011, ;
           nCol4Row012, nCol5Row012, nCol6Row012, nCol7Row012, nCol8Row012, nCol9Row012, nCol10Row012, nCol11Row012, ;
           nCol4Row013, nCol5Row013, nCol6Row013, nCol7Row013, nCol8Row013, nCol9Row013, nCol10Row013, nCol11Row013, ;
           nCol4Row014, nCol5Row014, nCol6Row014, nCol7Row014, nCol8Row014, nCol9Row014, nCol10Row014, nCol11Row014, ;
           nCol4Row015, nCol5Row015, nCol6Row015, nCol7Row015, nCol8Row015, nCol9Row015, nCol10Row015, nCol11Row015, ;
           nCol4Row016, nCol5Row016, nCol6Row016, nCol7Row016, nCol8Row016, nCol9Row016, nCol10Row016, nCol11Row016, ;
           nCol4Row017, nCol5Row017, nCol6Row017, nCol7Row017, nCol8Row017, nCol9Row017, nCol10Row017, nCol11Row017, ;
           nCol4Row018, nCol5Row018, nCol6Row018, nCol7Row018, nCol8Row018, nCol9Row018, nCol10Row018, nCol11Row018

Store 0 To nCol4Row051, nCol8Row051, nCol9Row051, nCol10Row051, nCol11Row051, ;
           nCol4Row052, nCol8Row052, nCol9Row052, nCol10Row052, nCol11Row052, ;
           nCol4Row053, nCol8Row053, nCol9Row053, nCol10Row053, nCol11Row053, ;
           nCol4Row054, nCol8Row054, nCol9Row054, nCol10Row054, nCol11Row054, ;
           nCol4Row055, nCol8Row055, nCol9Row055, nCol10Row055, nCol11Row055, ;
           nCol4Row056, nCol8Row056, nCol9Row056, nCol10Row056, nCol11Row056, ;
           nCol4Row057, nCol8Row057, nCol9Row057, nCol10Row057, nCol11Row057, ;
           nCol4Row058, nCol8Row058, nCol9Row058, nCol10Row058, nCol11Row058

Store 0 To nCol4Row061, nCol5Row061, nCol8Row061, nCol9Row061, nCol10Row061, nCol11Row061, ;
           nCol4Row062, nCol5Row062, nCol8Row062, nCol9Row062, nCol10Row062, nCol11Row062, ;
           nCol4Row063, nCol5Row063, nCol8Row063, nCol9Row063, nCol10Row063, nCol11Row063, ;
           nCol4Row064, nCol5Row064, nCol8Row064, nCol9Row064, nCol10Row064, nCol11Row064, ;
           nCol4Row065, nCol5Row065, nCol8Row065, nCol9Row065, nCol10Row065, nCol11Row065, ;
           nCol4Row066, nCol5Row066, nCol8Row066, nCol9Row066, nCol10Row066, nCol11Row066, ;
           nCol4Row067, nCol5Row067, nCol8Row067, nCol9Row067, nCol10Row067, nCol11Row067, ;
           nCol4Row068, nCol5Row068, nCol8Row068, nCol9Row068, nCol10Row068, nCol11Row068

Store 0 To nCol4Row071, nCol5Row071, nCol6Row071, nCol7Row071, nCol8Row071, nCol9Row071, nCol10Row071, nCol11Row071, ;
           nCol4Row073, nCol5Row073, nCol6Row073, nCol7Row073, nCol8Row073, nCol9Row073, nCol10Row073, nCol11Row073, ;
           nCol4Row074, nCol5Row074, nCol6Row074, nCol7Row074, nCol8Row074, nCol9Row074, nCol10Row074, nCol11Row074, ;
           nCol4Row075, nCol5Row075, nCol6Row075, nCol7Row075, nCol8Row075, nCol9Row075, nCol10Row075, nCol11Row075, ;
           nCol4Row076, nCol5Row076, nCol6Row076, nCol7Row076, nCol8Row076, nCol9Row076, nCol10Row076, nCol11Row076, ;
           nCol4Row081, nCol5Row081, nCol6Row081, nCol7Row081, nCol8Row081, nCol9Row081, nCol10Row081, nCol11Row081, ;
           nCol4Row083, nCol5Row083, nCol6Row083, nCol7Row083, nCol8Row083, nCol9Row083, nCol10Row083, nCol11Row083

Store 0 To nCol4Row111, nCol5Row111, nCol6Row111, nCol7Row111, nCol8Row111, nCol9Row111, nCol10Row111, nCol11Row111, ;
           nCol4Row112, nCol5Row112, nCol6Row112, nCol7Row112, nCol8Row112, nCol9Row112, nCol10Row112, nCol11Row112, ;
           nCol4Row113, nCol5Row113, nCol6Row113, nCol7Row113, nCol8Row113, nCol9Row113, nCol10Row113, nCol11Row113, ;
           nCol4Row114, nCol5Row114, nCol6Row114, nCol7Row114, nCol8Row114, nCol9Row114, nCol10Row114, nCol11Row114, ;
           nCol4Row121,                                        nCol8Row121, nCol9Row121, nCol10Row121, nCol11Row121, ;
           nCol4Row122,                                        nCol8Row122, nCol9Row122, nCol10Row122, nCol11Row122, ;
           nCol4Row123,                                        nCol8Row123, nCol9Row123, nCol10Row123, nCol11Row123, ;
           nCol4Row124,                                        nCol8Row124, nCol9Row124, nCol10Row124, nCol11Row124, ;
           nCol4Row130, nCol5Row130,                           nCol8Row130, nCol9Row130, nCol10Row130, nCol11Row130, ;
           nCol4Row140, nCol5Row140, nCol6Row140, nCol7Row140, nCol8Row140, nCol9Row140, nCol10Row140, nCol11Row140, ;
           nCol4Row145, nCol5Row145, nCol6Row145, nCol7Row145, nCol8Row145, nCol9Row145, nCol10Row145, nCol11Row145

Store 0 To nCol4Row151, nCol5Row151, nCol6Row151, nCol7Row151, nCol8Row151, nCol9Row151, nCol10Row151, nCol11Row151, ;
           nCol4Row152, nCol5Row152, nCol6Row152, nCol7Row152, nCol8Row152, nCol9Row152, nCol10Row152, nCol11Row152, ;
           nCol4Row153, nCol5Row153, nCol6Row153, nCol7Row153, nCol8Row153, nCol9Row153, nCol10Row153, nCol11Row153

Store 0 To nCol4Row161, nCol5Row161, nCol8Row161, nCol9Row161, nCol10Row161, nCol11Row161, ;
           nCol4Row162, nCol5Row162, nCol8Row162, nCol9Row162, nCol10Row162, nCol11Row162, ;
           nCol4Row163, nCol5Row163, nCol8Row163, nCol9Row163, nCol10Row163, nCol11Row163

Store 0 To nCol4Row170, nCol5Row170, nCol6Row170, nCol7Row170, nCol8Row170, nCol9Row170, nCol10Row170, nCol11Row170, ;
           nCol4Row171, nCol5Row171, nCol6Row171, nCol7Row171, nCol8Row171, nCol9Row171, nCol10Row171, nCol11Row171, ;
           nCol4Row172, nCol5Row172, nCol6Row172, nCol7Row172, nCol8Row172, nCol9Row172, nCol10Row172, nCol11Row172, ;
           nCol4Row190, nCol5Row190, nCol6Row190, nCol7Row190, nCol8Row190, nCol9Row190, nCol10Row190, nCol11Row190, ;
           nCol4Row230, nCol5Row230, nCol6Row230, nCol7Row230, nCol8Row230, nCol9Row230, nCol10Row230, nCol11Row230, ;
           nCol4Row250, nCol5Row250, nCol6Row250, nCol7Row250, nCol8Row250, nCol9Row250, nCol10Row250, nCol11Row250, ;
           nCol4Row255, nCol5Row255, nCol6Row255, nCol7Row255, nCol8Row255, nCol9Row255, nCol10Row255, nCol11Row255

Store 0 To nCol4Row261, nCol5Row261, nCol6Row261, nCol7Row261, nCol8Row261, nCol9Row261, nCol10Row261, nCol11Row261, ;
           nCol4Row262, nCol5Row262, nCol6Row262, nCol7Row262, nCol8Row262, nCol9Row262, nCol10Row262, nCol11Row262, ;
           nCol4Row263, nCol5Row263, nCol6Row263, nCol7Row263, nCol8Row263, nCol9Row263, nCol10Row263, nCol11Row263, ;
           nCol4Row264, nCol5Row264, nCol6Row264, nCol7Row264, nCol8Row264, nCol9Row264, nCol10Row264, nCol11Row264, ;
           nCol4Row265, nCol5Row265, nCol6Row265, nCol7Row265, nCol8Row265, nCol9Row265, nCol10Row265, nCol11Row265, ;
           nCol4Row266, nCol5Row266, nCol6Row266, nCol7Row266, nCol8Row266, nCol9Row266, nCol10Row266, nCol11Row266, ;
           nCol4Row267, nCol5Row267, nCol6Row267, nCol7Row267, nCol8Row267, nCol9Row267, nCol10Row267, nCol11Row267, ;
           nCol4Row268, nCol5Row268, nCol6Row268, nCol7Row268, nCol8Row268, nCol9Row268, nCol10Row268, nCol11Row268

Store 0 To nCol4Row271, nCol8Row271, nCol9Row271, nCol10Row271, nCol11Row271, ;
           nCol4Row272, nCol8Row272, nCol9Row272, nCol10Row272, nCol11Row272, ;
           nCol4Row273, nCol8Row273, nCol9Row273, nCol10Row273, nCol11Row273, ;
           nCol4Row274, nCol8Row274, nCol9Row274, nCol10Row274, nCol11Row274, ;
           nCol4Row275, nCol8Row275, nCol9Row275, nCol10Row275, nCol11Row275, ;
           nCol4Row276, nCol8Row276, nCol9Row276, nCol10Row276, nCol11Row276, ;
           nCol4Row277, nCol8Row277, nCol9Row277, nCol10Row277, nCol11Row277, ;
           nCol4Row278, nCol8Row278, nCol9Row278, nCol10Row278, nCol11Row278

Store 0 To nCol4Row280, nCol5Row280,                           nCol8Row280, nCol9Row280, nCol10Row280, nCol11Row280, ;
           nCol4Row291, nCol5Row291, nCol6Row291, nCol7Row291, nCol8Row291, nCol9Row291, nCol10Row291, nCol11Row291, ;
           nCol4Row292, nCol5Row292, nCol6Row292, nCol7Row292, nCol8Row292, nCol9Row292, nCol10Row292, nCol11Row292, ;
           nCol4Row293, nCol5Row293, nCol6Row293, nCol7Row293, nCol8Row293, nCol9Row293, nCol10Row293, nCol11Row293, ;
           nCol4Row294, nCol5Row294, nCol6Row294, nCol7Row294, nCol8Row294, nCol9Row294, nCol10Row294, nCol11Row294, ;
           nCol4Row301,                                        nCol8Row301, nCol9Row301, nCol10Row301, nCol11Row301, ;
           nCol4Row302,                                        nCol8Row302, nCol9Row302, nCol10Row302, nCol11Row302, ;
           nCol4Row303,                                        nCol8Row303, nCol9Row303, nCol10Row303, nCol11Row303, ;
           nCol4Row304,                                        nCol8Row304, nCol9Row304, nCol10Row304, nCol11Row304, ;
           nCol4Row310, nCol5Row310,                           nCol8Row310, nCol9Row310, nCol10Row310, nCol11Row310, ;
           nCol4Row320, nCol5Row320, nCol6Row320, nCol7Row320, nCol8Row320, nCol9Row320, nCol10Row320, nCol11Row320

Store 0 To nCol4Row331, nCol5Row331, nCol6Row331, nCol7Row331, nCol8Row331, nCol9Row331, nCol10Row331, nCol11Row331, ;
           nCol4Row332, nCol5Row332, nCol6Row332, nCol7Row332, nCol8Row332, nCol9Row332, nCol10Row332, nCol11Row332, ;
           nCol4Row333, nCol5Row333, nCol6Row333, nCol7Row333, nCol8Row333, nCol9Row333, nCol10Row333, nCol11Row333, ;
           nCol4Row334, nCol5Row334, nCol6Row334, nCol7Row334, nCol8Row334, nCol9Row334, nCol10Row334, nCol11Row334, ;
           nCol4Row335, nCol5Row335, nCol6Row335, nCol7Row335, nCol8Row335, nCol9Row335, nCol10Row335, nCol11Row335, ;
           nCol4Row336, nCol5Row336, nCol6Row336, nCol7Row336, nCol8Row336, nCol9Row336, nCol10Row336, nCol11Row336, ;
           nCol4Row337, nCol5Row337, nCol6Row337, nCol7Row337, nCol8Row337, nCol9Row337, nCol10Row337, nCol11Row337, ;
           nCol4Row338, nCol5Row338, nCol6Row338, nCol7Row338, nCol8Row338, nCol9Row338, nCol10Row338, nCol11Row338, ;
           nCol4Row339, nCol5Row339, nCol6Row339, nCol7Row339, nCol8Row339, nCol9Row339, nCol10Row339, nCol11Row339, ;
           nCol4Row340, nCol5Row340,                           nCol8Row340, nCol9Row340, nCol10Row340, nCol11Row340, ;
           nCol4Row350, nCol5Row350, nCol6Row350, nCol7Row350, nCol8Row350, nCol9Row350, nCol10Row350, nCol11Row350, ;
           nCol4Row360, nCol5Row360, nCol6Row360, nCol7Row360, nCol8Row360, nCol9Row360, nCol10Row360, nCol11Row360

Store 0 To nCol4Row400, nCol5Row400, nCol6Row400, nCol7Row400, nCol8Row400, nCol9Row400, nCol10Row400, nCol11Row400, ;
           nCol4Row410,                                        nCol8Row410, nCol9Row410, nCol10Row410, nCol11Row410, ;
           nCol4Row420, nCol5Row420,                           nCol8Row420, nCol9Row420, nCol10Row420, nCol11Row420, ;
           nCol4Row440, nCol5Row440, nCol6Row440, nCol7Row440, nCol8Row440, nCol9Row440, nCol10Row440, nCol11Row440, ;
           nCol4Row450,                                        nCol8Row450, nCol9Row450, nCol10Row450, nCol11Row450, ;
           nCol4Row460, nCol5Row460, nCol6Row460, nCol7Row460, nCol8Row460, nCol9Row460, nCol10Row460, nCol11Row460, ;
           nCol4Row470, nCol5Row470,                           nCol8Row470, nCol9Row470, nCol10Row470, nCol11Row470, ;
           nCol4Row480, nCol5Row480,                           nCol8Row480, nCol9Row480, nCol10Row480, nCol11Row480, ;
           nCol4Row490, nCol5Row490, nCol6Row490, nCol7Row490, nCol8Row490, nCol9Row490, nCol10Row490, nCol11Row490, ;
           nCol4Row500,                                        nCol8Row500, nCol9Row500, nCol10Row500, nCol11Row500, ;
           nCol4Row505, nCol5Row505,                           nCol8Row505, nCol9Row505, nCol10Row505, nCol11Row505, ;
           nCol4Row510, nCol5Row510, nCol6Row510, nCol7Row510, nCol8Row510, nCol9Row510, nCol10Row510, nCol11Row510, ;
           nCol4Row515, nCol5Row515,                           nCol8Row515, nCol9Row515, nCol10Row515, nCol11Row515, ;
           nCol4Row520, nCol5Row520, nCol6Row520, nCol7Row520, nCol8Row520, nCol9Row520, nCol10Row520, nCol11Row520, ;
           nCol4Row525, nCol5Row525,                           nCol8Row525, nCol9Row525, nCol10Row525, nCol11Row525, ;
           nCol4Row530, nCol5Row530, nCol6Row530, nCol7Row530, nCol8Row530, nCol9Row530, nCol10Row530, nCol11Row530, ;
           nCol4Row535, nCol5Row535,                           nCol8Row535, nCol9Row535, nCol10Row535, nCol11Row535

Store 0 To nCol4Row541, nCol5Row541, nCol6Row541, nCol7Row541, nCol8Row541, nCol9Row541, nCol10Row541, nCol11Row541, ;
           nCol4Row542, nCol5Row542, nCol6Row542, nCol7Row542, nCol8Row542, nCol9Row542, nCol10Row542, nCol11Row542, ;
           nCol4Row543, nCol5Row543, nCol6Row543, nCol7Row543, nCol8Row543, nCol9Row543, nCol10Row543, nCol11Row543, ;
           nCol4Row544, nCol5Row544, nCol6Row544, nCol7Row544, nCol8Row544, nCol9Row544, nCol10Row544, nCol11Row544, ;
           nCol4Row550,                                        nCol8Row550, nCol9Row550, nCol10Row550, nCol11Row550, ;
           nCol4Row560, nCol5Row560, nCol6Row560, nCol7Row560, nCol8Row560, nCol9Row560, nCol10Row560, nCol11Row560, ;
           nCol4Row561, nCol5Row561, nCol6Row561, nCol7Row561, nCol8Row561, nCol9Row561, nCol10Row561, nCol11Row561

Store 0 To nCol4Row800, nCol5Row800, nCol6Row800, nCol7Row800, ;
           nCol4Row801, nCol5Row801, nCol6Row801, nCol7Row801, ;
           nCol4Row802, nCol5Row802, nCol6Row802, nCol7Row802, ;
           nCol4Row804, nCol5Row804, nCol6Row804, nCol7Row804, ;
           nCol4Row810, nCol5Row810, nCol6Row810, nCol7Row810, ;
           nCol4Row811, nCol5Row811, nCol6Row811, nCol7Row811, ;
           nCol4Row812, nCol5Row812, nCol6Row812, nCol7Row812, ;
           nCol4Row820, nCol5Row820, nCol6Row820, nCol7Row820, ;
           nCol4Row830, nCol5Row830, nCol6Row830, nCol7Row830, ;
           nCol4Row831, nCol5Row831, nCol6Row831, nCol7Row831, ;
           nCol4Row833, nCol5Row833, nCol6Row833, nCol7Row833, ;
           nCol4Row840, nCol5Row840, nCol6Row840, nCol7Row840, ;
           nCol4Row850, nCol5Row850, nCol6Row850, nCol7Row850, ;
           nCol4Row852, nCol5Row852, nCol6Row852, nCol7Row852, ;
           nCol4Row860, nCol5Row860, nCol6Row860, nCol7Row860

Store 0 To nCol4Row861, nCol5Row861, nCol6Row861, nCol7Row861, ;
           nCol4Row863, nCol5Row863, nCol6Row863, nCol7Row863, ;
           nCol4Row880, nCol5Row880, nCol6Row880, nCol7Row880, ;
           nCol4Row881, nCol5Row881, nCol6Row881, nCol7Row881, ;
           nCol4Row882, nCol5Row882, nCol6Row882, nCol7Row882, ;
           nCol4Row884, nCol5Row884, nCol6Row884, nCol7Row884, ;
           nCol4Row886, nCol5Row886, nCol6Row886, nCol7Row886, ;
           nCol4Row888, nCol5Row888, nCol6Row888, nCol7Row888, ;
           nCol4Row889, nCol5Row889, nCol6Row889, nCol7Row889, ;
           nCol4Row890, nCol5Row890, nCol6Row890, nCol7Row890, ;
           nCol4Row891, nCol5Row891, nCol6Row891, nCol7Row891, ;
           nCol4Row892, nCol5Row892, nCol6Row892, nCol7Row892, ;
           nCol4Row894, nCol5Row894, nCol6Row894, nCol7Row894, ;
           nCol4Row896, nCol5Row896, nCol6Row896, nCol7Row896, ;
           nCol4Row898, nCol5Row898, nCol6Row898, nCol7Row898

Store 0 To nCol4Row900, nCol5Row900, nCol6Row900, nCol7Row900, ;
           nCol4Row901, nCol5Row901, nCol6Row901, nCol7Row901, ;
           nCol4Row902, nCol5Row902, nCol6Row902, nCol7Row902, ;
           nCol4Row903, nCol5Row903, nCol6Row903, nCol7Row903, ;
           nCol4Row905, nCol5Row905, nCol6Row905, nCol7Row905, ;
           nCol4Row907, nCol5Row907, nCol6Row907, nCol7Row907, ;
           nCol4Row909, nCol5Row909, nCol6Row909, nCol7Row909, ;
           nCol4Row910, nCol5Row910, nCol6Row910, nCol7Row910, ;
           nCol4Row911, nCol5Row911, nCol6Row911, nCol7Row911, ;
           nCol4Row912, nCol5Row912, nCol6Row912, nCol7Row912, ;
           nCol4Row914, nCol5Row914, nCol6Row914, nCol7Row914, ;
           nCol4Row916, nCol5Row916, nCol6Row916, nCol7Row916, ;
           nCol4Row918, nCol5Row918, nCol6Row918, nCol7Row918

Store 0 To nCol4Row930, nCol5Row930, nCol6Row930, nCol7Row930, ;
           nCol4Row931, nCol5Row931, nCol6Row931, nCol7Row931, ;
           nCol4Row940, nCol5Row940, nCol6Row940, nCol7Row940, ;
           nCol4Row941, nCol5Row941, nCol6Row941, nCol7Row941, ;
           nCol4Row942, nCol5Row942, nCol6Row942, nCol7Row942, ;
           nCol4Row950, nCol5Row950, nCol6Row950, nCol7Row950, ;
           nCol4Row951, nCol5Row951, nCol6Row951, nCol7Row951, ;
           nCol4Row960, nCol5Row960, nCol6Row960, nCol7Row960, ;
           nCol4Row961, nCol5Row961, nCol6Row961, nCol7Row961, ;
           nCol4Row970, nCol5Row970, nCol6Row970, nCol7Row970, ;
           nCol4Row971, nCol5Row971, nCol6Row971, nCol7Row971, ;
           nCol4Row972, nCol5Row972, nCol6Row972, nCol7Row972, ;
           nCol4Row973, nCol5Row973, nCol6Row973, nCol7Row973, ;
           nCol4Row974, nCol5Row974, nCol6Row974, nCol7Row974

* 1. Нефинансовые активы
If m.nOperUpr = 1
  && 011 - 018
  =SelAccFromBase("011", "101?1")
  =SelAccFromBase("012", "101?2")
  =SelAccFromBase("013", "101?3")
  =SelAccFromBase("014", "101?4")
  =SelAccFromBase("015", "101?5")
  =SelAccFromBase("016", "101?6")
  =SelAccFromBase("017", "101?7")
  =SelAccFromBase("018", "101?8")

  && 051 - 058
  =SelAccFromBase("051", "104?1!10441,10451",, 1)
  =SelAccFromBase("052", "104?2!10442,10452",, 1)
  =SelAccFromBase("053", "104?3",, 1)
  =SelAccFromBase("054", "104?4!10444,10454",, 1)
  =SelAccFromBase("055", "104?5!10445",, 1)
  =SelAccFromBase("056", "104?6!10446",, 1)
  =SelAccFromBase("057", "104?7!10447",, 1)
  =SelAccFromBase("058", "104?8!10448",, 1)

  && 061 - 068
  =SelAccFromBase("061", "114?1!11451,11471",, 2)
  =SelAccFromBase("062", "114?2!11452,11472",, 2)
  =SelAccFromBase("063", "114?3!11453,11473",, 2)
  =SelAccFromBase("064", "114?4!11454",, 2)
  =SelAccFromBase("065", "114?5!11455",, 2)
  =SelAccFromBase("066", "114?6!11456",, 2)
  =SelAccFromBase("067", "114?7!11457,11487",, 2)
  =SelAccFromBase("068", "114?8!11488",, 2)

  && 071 - 076
  =SelAccFromBase("071", "10611")
  =SelAccFromBase("073", "10631")
  =SelAccFromBase("074", "10641")
  =SelAccFromBase("075", "10691")
  =SelAccFromBase("076", "10692")

  && 081 - 083
  =SelAccFromBase("081", "10711")
  =SelAccFromBase("083", "10731")

  && 111 - 114
  =SelAccFromBase("111", "1023N")
  =SelAccFromBase("112", "1023R")
  =SelAccFromBase("113", "1023I")
  =SelAccFromBase("114", "1023D")

  && 121 - 124
  =SelAccFromBase("121", "1043N",, 1)
  =SelAccFromBase("122", "1043R",, 1)
  =SelAccFromBase("123", "1043I,1049I",, 1)
  =SelAccFromBase("124", "1043D",, 1)

  && 130
  =SelAccFromBase("130", "1143N,1143R,1143I,1143D",, 2)

  && 140, 145
  =SelAccFromBase("140", "1063N,1063R,1063I,1063D,1069I")
  =SelAccFromBase("145", "1069I")

  && 151 - 153
  =SelAccFromBase("151", "103?1")
  =SelAccFromBase("152", "103?2")
  =SelAccFromBase("153", "103?3")

  && 161 - 163
  =SelAccFromBase("161", "11471",, 2)
  =SelAccFromBase("162", "11472",, 2)
  =SelAccFromBase("163", "11473",, 2)

  && 170 - 172
  =SelAccFromBase("170", "10613,10633,10695")
  =SelAccFromBase("171", "10613")
  =SelAccFromBase("172", "10695")

  && 190
  =SelAccFromBase("190", "105")

  && 230
  =SelAccFromBase("230", "10634")

  && 250
  =SelAccFromBase("250", "107?3")

  && 255
  =SelAccFromBase("255", "1148")

  && 261 - 268
  =SelAccFromBase("261", "11141")
  =SelAccFromBase("262", "11142")
  =SelAccFromBase("263", "11144")
  =SelAccFromBase("264", "11145")
  =SelAccFromBase("265", "11146")
  =SelAccFromBase("266", "11147")
  =SelAccFromBase("267", "11148")
  =SelAccFromBase("268", "11149")

  && 271 - 278
  =SelAccFromBase("271", "10441",, 1)
  =SelAccFromBase("272", "10442",, 1)
  =SelAccFromBase("273", "10444",, 1)
  =SelAccFromBase("274", "10445",, 1)
  =SelAccFromBase("275", "10446",, 1)
  =SelAccFromBase("276", "10447",, 1)
  =SelAccFromBase("277", "10448",, 1)
  =SelAccFromBase("278", "10449",, 1)

  && 280
  =SelAccFromBase("280", "1144")

  && 291 - 294
  =SelAccFromBase("291", "1116N")
  =SelAccFromBase("292", "1116R")
  =SelAccFromBase("293", "1116I")
  =SelAccFromBase("294", "1116D")

  && 301 - 304
  =SelAccFromBase("301", "1046N",, 1)
  =SelAccFromBase("302", "1046R",, 1)
  =SelAccFromBase("303", "1046I",, 1)
  =SelAccFromBase("304", "1046D",, 1)

  && 310
  =SelAccFromBase("310", "1146",, 2)

  && 320
  =SelAccFromBase("320", "1066")

  && 331 - 339
  =SelAccFromBase("331", "113?1")
  =SelAccFromBase("332", "113?2")
  =SelAccFromBase("333", "113?3")
  =SelAccFromBase("334", "113?4")
  =SelAccFromBase("335", "113?5")
  =SelAccFromBase("336", "113?6")
  =SelAccFromBase("337", "113?7")
  =SelAccFromBase("338", "113?8")
  =SelAccFromBase("339", "113?9")

  && 340
  =SelAccFromBase("340", "1149",, 2)

  && 350
  =SelAccFromBase("350", "106?7")

  && 360
  =SelAccFromBase("360", "107?4")
EndIf

* 2. Нефинансовые активы, составляющие имущество казны
If m.nKazna = 1
  && 400
  =SelAccFromBase("400", "10851")

  && 410
  =SelAccFromBase("410", "10451",, 1)

  && 420
  =SelAccFromBase("420", "11451",, 2)

  && 440
  =SelAccFromBase("440", "10852")

  && 450
  =SelAccFromBase("450", "10452",, 1)

  && 460
  =SelAccFromBase("460", "10853")

  && 470
  =SelAccFromBase("470", "11452",, 2)

  && 480
  =SelAccFromBase("480", "11453",, 2)

  && 490
  =SelAccFromBase("490", "10854")

  && 500
  =SelAccFromBase("500", "10454",, 1)

  && 505
  =SelAccFromBase("505", "11454",, 2)

  && 510
  =SelAccFromBase("510", "10855")

  && 515
  =SelAccFromBase("515", "11455",, 2)

  && 520
  =SelAccFromBase("520", "10856")

  && 525
  =SelAccFromBase("525", "11456",, 2)

  && 530
  =SelAccFromBase("530", "10857")

  && 535
  =SelAccFromBase("535", "11457",, 2)

  && 541 - 544
  =SelAccFromBase("541", "10891")
  =SelAccFromBase("542", "10892")
  =SelAccFromBase("543", "1089I")
  =SelAccFromBase("544", "10895")

  && 550
  =SelAccFromBase("550", "10459,1045I",, 1)

  && 560
  =SelAccFromBase("560", "1065")

  && 561
  =SelAccFromBase("561", "10651")
EndIf

CurClose("crsAccount;crsAnOrg;crsDb;crsKr")
CurClose("crs30404;crs401_6;crs40110_7;crs40110_9;crs40110_9o;crs40120;crs40120_5;crs401_10")

* 3. Движение материальных ценностей на забалансовых счетах
If m.nOperUpr = 1
  && 800
  =SelAccFromBase("800", "01",,, .T.)
  =SelAccFromBase("800", "01", "!57,93,012,016",, .T.)
  =SelAccFromBase("801", "01", "011,491,801",, .T.)
  =SelAccFromBase("802", "01", "802",, .T.)
  =SelAccFromBase("804", "01", "804",, .T.)

  && 810
  =SelAccFromBase("810", "02",,, .T.)
  =SelAccFromBase("810", "02", "!58,94",, .T.)
  =SelAccFromBase("811", "02", "501,811",, .T.)
  =SelAccFromBase("812", "02", "502,812",, .T.)

  && 820
  =SelAccFromBase("820", "03",,, .T.)
  *****

  && 830
  =SelAccFromBase("830", "05",,, .T.)
  =SelAccFromBase("831", "05", "051,511,831",, .T.)
  =SelAccFromBase("833", "05", "054,512,833",, .T.)

  && 840
  =SelAccFromBase("840", "07",,, .T.)
  *****

  && 850
  =SelAccFromBase("850", "21",,, .T.)
  =SelAccFromBase("852", "21", "212,512,852",, .T.)

  && 860
  =SelAccFromBase("860", "22",,, .T.)
  =SelAccFromBase("861", "22", "221,521,861",, .T.)
  =SelAccFromBase("863", "22", "224,523,863",, .T.)

  && 880
  =SelAccFromBase("880", "24",,, .T.)
  =SelAccFromBase("880", "24", "!59,95",, .T.)
  =SelAccFromBase("881", "24", "241,881",, .T.)
  =SelAccFromBase("882", "24", "242,541,542,882",, .T.)
  =SelAccFromBase("884", "24", "244,544,884",, .T.)
  =SelAccFromBase("886", "24", "246,546,886",, .T.)
  =SelAccFromBase("888", "24", "248,548,888",, .T.)
  =SelAccFromBase("884", "24", "249,549,889",, .T.)

  && 890
  =SelAccFromBase("890", "25",,, .T.)
  =SelAccFromBase("890", "25", "!60,96",, .T.)
  =SelAccFromBase("891", "25", "251,551,891",, .T.)
  =SelAccFromBase("892", "25", "252,552,892",, .T.)
  =SelAccFromBase("894", "25", "254,554,894",, .T.)
  =SelAccFromBase("896", "25", "256,556,896",, .T.)
  =SelAccFromBase("898", "25", "258,558,898",, .T.)

  && 900
  =SelAccFromBase("900", "26",,, .T.)
  =SelAccFromBase("900", "26", "!61,97",, .T.)
  =SelAccFromBase("901", "26", "561",, .T.)
  =SelAccFromBase("902", "26", "261,58,902",, .T.)
  =SelAccFromBase("903", "26", "562,562,903",, .T.)
  =SelAccFromBase("905", "26", "264,905",, .T.)
  =SelAccFromBase("907", "26", "266,907",, .T.)
  =SelAccFromBase("909", "26", "268,610,909",, .T.)
  =SelAccFromBase("910", "26", "563",, .T.)
  =SelAccFromBase("911", "26", "63,911",, .T.)
  =SelAccFromBase("912", "26", "564,912",, .T.)
  =SelAccFromBase("914", "26", "64,914",, .T.)
  =SelAccFromBase("916", "26", "65,916",, .T.)
  =SelAccFromBase("918", "26", "66,918",, .T.)
EndIf

* 3.1. Движение материальных ценностей имущества казны на забалансовых счетах
If m.nKazna = 1
  && 930
  =SelAccFromBase("930", "01", "57,93,012,016",, .T.)
  =SelAccFromBase("931", "01", "012,571,931",, .T.)

  && 940
  =SelAccFromBase("940", "02", "58,94",, .T.)
  =SelAccFromBase("941", "02", "581,941",, .T.)
  =SelAccFromBase("942", "02", "582,942",, .T.)

  && 950
  =SelAccFromBase("950", "24", "59,95",, .T.)
  =SelAccFromBase("951", "24", "591,951",, .T.)

  && 960
  =SelAccFromBase("960", "25", "60,96",, .T.)
  =SelAccFromBase("961", "25", "601,961",, .T.)

  && 970
  =SelAccFromBase("970", "26", "61,97",, .T.)
  =SelAccFromBase("971", "26", "611,971",, .T.)
  =SelAccFromBase("972", "26", "612,972",, .T.)
  =SelAccFromBase("973", "26", "613,973",, .T.)
  =SelAccFromBase("974", "26", "614,974",, .T.)
EndIf

&& Формирую имя файла
If !Empty(m.cUnlPath)
  Local Array aFiles(1)
  Local nNum, cNum, nN, i
  cUnlPath = AllTrim(m.cUnlPath)
  cFileName = "268BY"
  nLen = Len(m.cFileName) + 1
  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), m.nLen, m.nN - m.nLen)
      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

If !Empty(m.cUnlPath)
  cTmpWhere  = IIF(!Empty(cWhereOrg), cWhereOrg, " OrgBase.RN = oSystem.OwnerOrgRN ")
  * Глава по БК
  If !Empty(cWhereOrg)
    Select fBudMg.Rasp_Code From fBudMg ;
       Inner Join Orgbase On fBudMg.OrgBase_RN = Orgbase.RN ;
       Where &cTmpWhere Into Array arBP
    If _Tally > 0
      glBK = arBP[1]
    EndIf 
  EndIf   
EndIf

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

oPrint.PrintRange("Header")
oPrint.PrintRange("Footer")

* Удаление листа со сценарием выгрузки
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 cNLine, cAcc, cAnl, lIsExcl, lZabal
* cNLine  - код строки
* cAcc    - код счета бюджетного учета
* cAnl    - код аналитики
* lIsExcl - признак амортизации
* lZabal  - вызов из Справки (забалансовые счета)

lIsExcl = Iif(Type("m.lIsExcl")= "N", m.lIsExcl, 0)

Local ARRAY aSum[1]
Local cPerem, cUslAcc, i, s, cInitPos, lOrgPO, cWhereAnPU, cJoinAnRst, cJoinAnalit, cJoinAnalitDb, cJoinAnalitKr, cJoinAnPU, cJoinAnDB, cJoinAnKR, ;
      dStart, cAlias, cWhereExcl, cWhereMark, cAnalit, n1, n2, nPos, cSubs1, cSubs2, cSubsS, lZpt, lNot, cS, cOrgAnDB, cOrgAnKR, cKBKAnDB, cKBKAnKR
Store "" To cWhereAnPU, cJoinAnRst, cJoinAnalit, cJoinAnalitDb, cJoinAnalitKr, cJoinAnPU, cJoinAnDB, cJoinAnKR, cWhereMark, cAnalit, cOrgAnDB, cOrgAnKR, cKBKAnDB, cKBKAnKR
lOrgPO = !Empty(m.cWhereOrg)

* развязки для короткого и длинного плана счетов и условия отбора
If m.lZabal
  cUslAcc = m.cWhereZB + ;
           " And (AT('з', AccBase.Account) # 0 And SubStr(AccBase.Account, AT('з', AccBase.Account) + 1, 2) = '" + m.cAcc + "'" + ;
           " Or AT('з', AccBase.Account) = 0 And SubStr(AccBase.Account, 2, 2) = '" + m.cAcc + "')"
Else
  nPos    = AT("!", m.cAcc)
  cSubs1  = Iif(m.nPos = 0, m.cAcc, Left(m.cAcc, m.nPos - 1))
  cSubs2  = Iif(m.nPos = 0, "", SubStr(m.cAcc, m.nPos + 1))
  cUslAcc = ""

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

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

  cUslAcc = m.cWhereB + m.cUslAcc
EndIf

RepG151.GetComRepPrm151("_0503168", @lNoError, .T., m.cUslAcc)

If !m.lNoError
  Return
EndIf

* Выборка счетов
Select AccBase.RN, AccBase.Account, AccBase.RN_MO, ;
       Iif(?m.lOrgPO, AT("1", AccBase.Org_An), 0) As Org_Level, ;
       Iif(AT("9", AccBase.SMETA_AN) # 0, AT("9", AccBase.Smeta_An), AT("3", AccBase.Org_An)) As KBK_Level ;
  From AccBase ;
    Left Join BalUnit On AccBase.Rn_BalUnit = BalUnit.RN ;
  Where &cUslAcc ;
  Into CURSOR crsAccount

If _Tally = 0
  Return
EndIf

* Аналитика для справки
If m.lZabal And !IsNull(m.cAnl) And !Empty(m.cAnl)
  lNot = Left(m.cAnl, 1) = "!"

  If m.nAnLevel = 0
    Return
  EndIf

  If m.lNot
    cAnl = SubStr(m.cAnl, 2)
  EndIf

  lZpt = .F.
  cUslAcc =  ""

  Do While "," $ m.cAnl
    nPos    = AT(",", m.cAnl)
    cSubsS  = Left(m.cAnl, m.nPos - 1)
    cAnl    = SubStr(m.cAnl, m.nPos + 1)
    cUslAcc = m.cUslAcc + "Left(AllTrim(S.SAccount), " + LTrim(Str(Len(m.cSubsS))) + ") == '" + m.cSubsS + "' OR "
    lZpt    = .T.
  EndDo
  cUslAcc = m.cUslAcc + "Left(AllTrim(S.SAccount), " + LTrim(Str(Len(m.cAnl))) + ") == '" + m.cAnl + "'"
  If m.lZpt
    cUslAcc = "(" + m.cUslAcc + ")"
  EndIf

  Select S.RN, S.Master_RN ;
    From crsAccount A ;
      Inner Join AccSpec S On A.RN = S.Master_RN ;
    Where S.Level = ?m.nAnLevel And &cUslAcc ;
    Into CURSOR crsAnalit

  If _Tally = 0
    Return
  EndIf

  Select * From crsAccount Where RN In (Select Master_RN From crsAnalit) Into CURSOR crsAccount

  Select RN From crsAnalit Into CURSOR crsAnalit
  Index On RN Tag RN

  cJoinAnRst    = "Inner Join AcAnRest S On R.RN = S.Master_RN"
  cJoinAnalit   = "Inner Join crsAnalit Anl On S.RN_AC_A" + Str(m.nAnLevel, 1) + " = Anl.RN"
  cJoinAnalitDb = StrTran(m.cJoinAnalit, "RN_AC_A", "RN_DB_A")
  cJoinAnalitKr = StrTran(m.cJoinAnalit, "RN_AC_A", "RN_KR_A")
  cAnalit       = "S.RN_DB_A" + Str(m.nAnLevel, 1) + " As RN_DB_ANL, S.RN_KR_A" + Str(m.nAnLevel, 1) + " As RN_KR_ANL,"
EndIf

* Аналитические счета для бюджетных учреждений
If m.lOrgPO
  Select S.RN, S.Master_RN ;
    From crsAccount A ;
      Inner Join AccSpec S On A.RN = S.Master_RN ;
      Inner Join OrgBase   On S.RN_TOrg = OrgBase.RN ;
    Where &cWhereOrg And S.Level = A.Org_Level ;
    Into CURSOR crsAnOrg

  If _Tally = 0
    Return
  EndIf

  Select * From crsAccount Where RN In (Select Master_RN From crsAnOrg) Into CURSOR crsAccount

  Select RN From crsAnOrg Into CURSOR crsAnOrg
  Index On RN Tag RN

  cJoinAnRst = "Inner Join AcAnRest S On R.RN = S.Master_RN"
  For m.i = 1 To 5
    s = Str(m.i, 1)
    cJoinAnPU = m.cJoinAnPU + "Left Join crsAnOrg An" + m.s + " On S.RN_AC_A" + m.s + " = An" + m.s + ".RN "
    cOrgAnDB  = m.cOrgAnDB + "Iif(A.Org_Level = " + m.s + ", S.RN_DB_A" + m.s + ", "
  Next
  cJoinAnDB  = StrTran(m.cJoinAnPU, "RN_AC_A", "RN_DB_A")
  cJoinAnKR  = StrTran(m.cJoinAnPU, "RN_AC_A", "RN_KR_A")
  cOrgAnDB   = m.cOrgAnDB + "Space(4)))))) As RN_DB_ORG,"
  cOrgAnKR   = StrTran(m.cOrgAnDB, "DB", "KR")
  cWhereAnPU = " And (!IsNull(An1.RN) OR !IsNull(An2.RN) OR !IsNull(An3.RN) OR !IsNull(An4.RN) OR !IsNull(An5.RN))"
EndIf

* ШФ/КБК (для короткого плана счетов)
If m.nAccType = 2
  For m.i = 1 To 5
    s = Str(m.i, 1)
    cKBKAnDB = m.cKBKAnDB + "Iif(A.KBK_Level = " + m.s + ", S.RN_DB_A" + m.s + ", "
  Next
  cKBKAnDB = m.cKBKAnDB + "Space(4)))))) As RN_DB_KBK,"
  cKBKAnKR = StrTran(m.cKBKAnDB, "DB", "KR")
EndIf

Select crsAccount
Index On RN Tag RN

** Колонка 4 - наличие на начало года (периода)
** Колонка 11 (7) - наличие на конец года (периода)
For m.i = 1 To 2
  cPerem = "nCol" +  Iif(m.i = 1, "4", Iif(m.lZabal, "7", "11")) + "Row" + m.cNLine
  dStart = Iif(m.i = 1, m.dDateBegin, m.dDateEnd)
  cAlias = Iif(Empty(m.cJoinAnRst), "R", "S")

  Select Sum(&cAlias..SUMM_DB_EQUAL - &cAlias..SUMM_KR_EQUAL) As SUMM ;
    From crsAccount A ;
      Inner Join AcRest R On A.RN = R.RN_Account ;
      &cJoinAnRst ;
      &cJoinAnalit ;
      &cJoinAnPU ;
    Where R.DATE_REST = ?m.dStart &cWhereAnPU ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = &cPerem + Iif(m.lIsExcl = 0 And !m.lNot, aSum[1], -aSum[1])
  EndIf
Next

** Обороты по дебету
Select S.SUM_EQUAL, S.RN_DB, A.Account As DB, S.RN_DB_A&cSPLevel As RN_DB_AN, ;
       S.RN_KR, Nvl(C.Account, Space(29)) As KR, S.RN_KR_A&cSPLevel As RN_KR_AN, B.RN_MARK, ;
       &cAnalit ;
       &cOrgAnDB &cOrgAnKR ;
       &cKBKAnDB &cKBKAnKR ;
       &cOMP And B.Date_EOP = ??m.dFinish As L_OMP, ;
       &cOIspr As L_Ispr ;
  From EopBase B ;
    Inner Join EopSpec    S On B.RN = S.Master_RN ;
    Inner Join crsAccount A On S.RN_DB = A.RN ;
    &cJoinAnalitDB ;
    &cJoinAnDB ;
    Left  Join AccBase    C On S.RN_KR = C.RN ;
  Where Between(B.Date_EOP, ?m.dDateBegin, ?m.dFinish) &cWhereAnPU ;
  Into CURSOR crsDb READWRITE

** Обороты по кредиту
Select S.SUM_EQUAL, S.RN_KR, A.Account As KR, S.RN_KR_A&cSPLevel As RN_KR_AN, ;
       S.RN_DB, Nvl(C.Account, Space(29)) As DB, S.RN_DB_A&cSPLevel As RN_DB_AN, B.RN_MARK, ;
       &cAnalit ;
       &cOrgAnDB &cOrgAnKR ;
       &cKBKAnDB &cKBKAnKR ;
       &cOMP And B.Date_EOP = ??m.dFinish As L_OMP, ;
       &cOIspr As L_Ispr ;
  From EopBase B ;
    Inner Join EopSpec    S On B.RN = S.Master_RN ;
    Inner Join crsAccount A On S.RN_KR = A.RN ;
    &cJoinAnalitKR ;
    &cJoinAnKR ;
    Left  Join AccBase    C On S.RN_DB = C.RN ;
  Where Between(B.Date_EOP, ?m.dDateBegin, ?m.dFinish) &cWhereAnPU ;
  Into CURSOR crsKr READWRITE

* Операции по исправлению ошибок прошлых лет (периодов)
If m.cOIspr # ".F."
  cPerem = "nCol4Row" + m.cNLine

  Select Sum(SUM_EQUAL) As SUMM From crsDb Where L_Ispr Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + Iif(m.lIsExcl = 0 And !m.lNot, aSum[1], -aSum[1])
  EndIf

  Select Sum(SUM_EQUAL) As SUMM From crsKr Where L_Ispr Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + Iif(m.lIsExcl = 0 And !m.lNot, -aSum[1], aSum[1])
  EndIf
EndIf

* Операции межотчетного периода
If m.cOMP # ".F."
  cPerem = "nCol" +  Iif(m.lZabal, "7", "11") + "Row" + m.cNLine

  Select Sum(SUM_EQUAL) As SUMM From crsDb Where L_OMP Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + Iif(m.lIsExcl = 0 And !m.lNot, -aSum[1], aSum[1])
  EndIf

  Select Sum(SUM_EQUAL) As SUMM From crsKr Where L_OMP Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + Iif(m.lIsExcl = 0 And !m.lNot, aSum[1], -aSum[1])
  EndIf
EndIf

* Удаляем обособленные операции из курсоров
If m.cOIspr # ".F." Or m.cOMP # ".F."
  Select crsDb
  Delete For L_Ispr Or L_OMP
  Select crsKr
  Delete For L_Ispr Or L_OMP
EndIf

* Исключать обороты по коду счета при внутреннем перемещении
If !Empty(m.cExclCode)
  n1 = Val(m.cExclCode)
  n2 = Val(SubStr(m.cExclCode, AT("-", m.cExclCode) + 1)) - m.n1 + 1
  cWhereExcl = "SubStr(DB," + Str(m.n1, 2) + "," + Str(m.n2, 2) + ") # SubStr(KR," + Str(m.n1, 2) + "," + Str(m.n2, 2) + ")"
Else
  cWhereExcl = "RN_DB = RN_KR"
  If m.lOrgPO
    cWhereExcl = m.cWhereExcl + " And RN_DB_ORG = RN_KR_ORG"
  EndIf
  If m.lZabal And !Empty(m.cAnalit)
    cWhereExcl = m.cWhereExcl + " And RN_DB_ANL = RN_KR_ANL"
  EndIf
  If !m.lZabal
    cWhereExcl = m.cWhereExcl + " And RN_DB_AN = RN_KR_AN"
    If m.nAccType = 2   && короткий план счетов
      cWhereExcl = m.cWhereExcl + " And RN_DB_KBK = RN_KR_KBK"
    EndIf
  EndIf
  cWhereExcl = "!(" + m.cWhereExcl + ")"
EndIf

* Колонка 5 - поступление всего
cPerem = "nCol5Row" + m.cNLine
If m.lIsExcl = 0
  Select Sum(SUM_EQUAL) As SUMM From crsDb Where &cWhereExcl Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + Iif(m.lNot, -aSum[1], aSum[1])
  EndIf
EndIf

If m.lIsExcl = 2   && Обесценение
  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsKr S ;
      Inner Join crs40120_5 C On S.RN_DB_AN = C.RN ;
    Where &cWhereExcl And SUM_EQUAL < 0 ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = aSum[1]
  EndIf
EndIf

* Колонка 8 (6) - выбытие всего
cPerem = "nCol" + Iif(m.lZabal, "6", "8") + "Row" + m.cNLine

If m.lIsExcl # 2
  Select Sum(SUM_EQUAL) As SUMM From crsKr Where &cWhereExcl Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + Iif(m.lNot, -aSum[1], aSum[1])
  EndIf
EndIf

If m.lZabal   && Для Справки дальше не считаем
  Return
EndIf

If m.lIsExcl # 0   && Амортизация и Обесценение
  Select Sum(SUM_EQUAL) As SUMM From crsDb Where &cWhereExcl Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem - aSum[1]
  EndIf
EndIf

If m.lIsExcl = 2   && Обесценение
  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsKr S ;
      Inner Join crs40120_5 C On S.RN_DB_AN = C.RN ;
    Where &cWhereExcl And SUM_EQUAL > 0 ;
    Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + aSum[1]
  EndIf

  Select Sum(SUM_EQUAL) As SUMM ;
    From crsKr ;
    Where &cWhereExcl And RN_DB_AN Not In (Select RN From crs40120_5) ;
    Into ARRAY aSum
  If _Tally # 0
    &cPerem = &cPerem + aSum[1]
  EndIf
EndIf

If !Empty(m.cRN_Mark1)
  cWhereMark = "Where S.RN_MARK # ?m.cRN_Mark1"
EndIf

* Колонка 6 - приобретено безвоздмездно
If m.lIsExcl = 0
  cPerem = "nCol6Row" + m.cNLine

  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsDb S ;
      Inner Join crs30404 C On S.RN_KR = C.RN ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = aSum[1]
  EndIf

  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsDb S ;
      Inner Join crs401_6 C On S.RN_KR_AN = C.RN ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = &cPerem + aSum[1]
  EndIf
EndIf

* Колонка 9 - передано безвоздмездно
cPerem = "nCol9Row" + m.cNLine

Select Sum(S.SUM_EQUAL) As SUMM ;
  From crsKr S ;
    Inner Join crs30404 C On S.RN_DB = C.RN ;
  &cWhereMark ;
  Into ARRAY aSum

If _Tally # 0
  &cPerem = aSum[1]
EndIf

If m.lIsExcl # 0   && Амортизация и Обесценение
  cS = Iif(m.lIsExcl = 2, "o", "")
  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsKr S ;
      Inner Join crs40110_9&cS C On S.RN_DB_AN = C.RN ;
    &cWhereMark ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = &cPerem + aSum[1]
  EndIf

  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsDb S ;
      Inner Join crs30404 C On S.RN_KR = C.RN ;
    &cWhereMark ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = &cPerem - aSum[1]
  EndIf

  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsDb S ;
      Inner Join crs40120 C On S.RN_KR_AN = C.RN ;
    &cWhereMark ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = &cPerem - aSum[1]
  EndIf
Else
  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsKr S ;
      Inner Join crs40120 C On S.RN_DB_AN = C.RN ;
    &cWhereMark ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = &cPerem + aSum[1]
  EndIf
EndIf

* Колонка 7 - излишки
If m.lIsExcl = 0
  cPerem = "nCol7Row" + m.cNLine
  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsDb S ;
      Inner Join crs40110_7 C On S.RN_KR_AN = C.RN ;
    Into ARRAY aSum
  If _Tally # 0
    &cPerem = aSum[1]
  EndIf
EndIf

If Empty(m.cRN_Mark1)
  Return
EndIf

* Колонка 10 - хищения, недостачи
cPerem = "nCol10Row" + m.cNLine

Select Sum(S.SUM_EQUAL) As SUMM ;
  From crsKr S ;
    Inner Join crs401_10 C On S.RN_DB_AN = C.RN ;
  Where S.RN_MARK = ?m.cRN_Mark1 ;
  Into ARRAY aSum

If _Tally # 0
  &cPerem = aSum[1]
EndIf

If m.lIsExcl # 0   && Амортизация и Обесценение
  Select Sum(S.SUM_EQUAL) As SUMM ;
    From crsDb S ;
      Inner Join crs401_10 C On S.RN_KR_AN = C.RN ;
    Where S.RN_MARK = ?m.cRN_Mark1 ;
    Into ARRAY aSum

  If _Tally # 0
    &cPerem = &cPerem - aSum[1]
  EndIf
EndIf

EndProc

]]></FPC_></MSE>
  <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T.)
]]></FPC_>
  </печать>
  </отчет>
  <форма>
    <ид>f_0503168_191n_186n_2023</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503168</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503168-191н_ред186н_2023</VFP_свойство>
      <VFP_свойство имя="Height">410</VFP_свойство>
      <VFP_свойство имя="Width">560</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisForm

Local oPage, cUsl18B, cWhereBalB, nSymbPos, nPos, c18B, cSymb, i, lOk, cSub, n1, n2, cS

oPage  = oThisForm.PF.Page1

If oPage.chkOperUpr.Value = 0 And oPage.chkKazna.Value = 0
  =exclmes("Не установлен ни один из флагов для включения в отчет данных по имуществу!")
  oThisForm.PF.ActivePage = 1
  oPage.chkOperUpr.SetFocus()
  Return .F.
EndIf

dSelDateS  = oPage.cntSelDateS.RestDate.Value
dSelDatePo = oPage.cntSelDatePo.RestDate.Value

If m.dSelDateS > m.dSelDatePo
   =ExclMes("Неправильно задан диапазон дат!")
   oThisForm.PF.ActivePage = 1
   oPage.cntSelDateS.SetFocus()
   Return .F.
EndIf

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

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

c18B = ChrTran(m.c18B,  " ", "")

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

nSymbPos = IIF(m.nAccType = 1, "18", "1")

* cUsl18B - строка с условиями отбора по мнемокоду счёта по маске 18-го (1-го для короткого плана счетов) символа
cUsl18B = IIF(!Empty(cUsl18B),  " InList(SubStr(AccBase.Account, " + m.nSymbPos + ", 1), " + m.cUsl18B +") ", ".T. ")

oPage = oThisForm.PF.Page1

cWhereB    = m.cUsl18B

cWhereBalB = oPage.BalunitsB.GetCond()

cBalUnitsB = oPage.BalunitsB.GetSaveValue()

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

cWhereB  = IIF(!Empty(m.cWhereBalB),  m.cWhereBalB  + " And ", "") + m.cWhereB

* Разряды номера счета для определения внутреннего перемещения
If !Empty(m.cExclCode)
  cSub = m.cExclCode
  n1   = Val(m.cSub)
  n2   = 0
  lOk  = Between(m.n1, 1, 29)
  cS   = LTrim(Str(m.n1))
  cSub = SubStr(m.cSub, Len(m.cS) + 1)
  lOk  = m.lOk And !Empty(m.cSub)
  cS   = Left(m.cSub, 1)
  If m.lOk And m.cS = "-" And m.n1 # 0 And m.n2 = 0
    cSub = SubStr(m.cSub, 2)
    n2   = Val(m.cSub)
    cS   = LTrim(Str(m.n2, 15))
    cSub = SubStr(m.cSub, Len(m.cS) + 1)
    lOk  = Between(m.n2, m.n1, 29) And Empty(m.cSub)
  Else
    lOk = .F.
  EndIf
  *
  If !m.lOk
    = ExclMes("Диапазон разрядов номера счета для определения внутреннего перемещения задан некорректно!")
    oThisForm.PF.ActivePage = 1
    oPage.ExclCode.SetFocus()
    Return .F.
  EndIf
EndIf

oPage = oThisForm.PF.Page2

* З.С.
c18B = oPage.Txt18ZB1.Value  + oPage.Txt18ZB2.Value  + oPage.Txt18ZB3.Value  + oPage.Txt18ZB4.Value + ;
       oPage.Txt18ZB5.Value  + oPage.Txt18ZB6.Value  + oPage.Txt18ZB7.Value  + oPage.Txt18ZB8.Value + ;
       oPage.Txt18ZB9.Value  + oPage.Txt18ZB10.Value 

c18B = ChrTran(m.c18B,  " ", "")

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

cWhereZB = "!AccBase.L_Balance"

If !Empty(m.cUsl18B)
   cWhereZB = m.cWhereZB + " And (AT('з', AccBase.Account) > 1 And InList(SubStr(AccBase.Account, AT('з', AccBase.Account) - 1, 1), " + m.cUsl18B + ")" ;
            + " Or AT('з', AccBase.Account) = 0 And InList(Left(AccBase.Account, 1), " + m.cUsl18B +"))"
EndIf

cCatEO = oPage.CmbCatEO.Value

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

cDicIsp = oThisForm.PF.Page3.DicIsp.GetSaveValue()

]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisForm
Local cStr

cStr = "oThisForm.PF.Page1"
&cStr..OrgFrom.SetSaveValue(m.cOrg)
&cStr..cntSelDateS.InitThis(m.dSelDateS)
&cStr..cntSelDatePo.InitThis(m.dSelDatePo)
&cStr..BalunitsB.SetSaveValue(m.cBalUnitsB)
&cStr..CmbMark1.SetSource(UnitRN("EconOp"))

cStr = "oThisForm.PF.Page2"
&cStr..CmbMark.SetSource(UnitRn("EconOp"))
&cStr..CmbMark.Value = m.cRN_Mark
&cStr..CmbCatEO.UnitCode = "EconOp"
&cStr..CmbCatEO.InitThis(m.cCatEO)
&cStr..JournalOp.Value = m.cJournalOp

cStr = "oThisForm.PF.Page3"
&cStr..Catalog.Text.Value = m.cUnlPath
&cStr..DicIsp.SetSaveValue(m.cDicIsp)
&cStr..fldIspName.Value = m.cIspName
]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">280</VFP_свойство>
        <VFP_свойство имя="Top">373</VFP_свойство>
      </элемент>
      <элемент>
          <VFP_класс>TPageFrame</VFP_класс>
          <VFP_свойство имя="Name">PF</VFP_свойство>
          <VFP_свойство имя="Height">370</VFP_свойство>
          <VFP_свойство имя="Width">560</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">325</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">540</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_класс>Month_year_m</VFP_класс>
              <VFP_свойство имя="Name">cntSelDateS</VFP_свойство>
              <VFP_свойство имя="ControlSource">dSelDateS</VFP_свойство>
              <VFP_свойство имя="Left">165</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <элемент>
                <VFP_имя>SelYear</VFP_имя>
                <VFP_свойство имя="Left">280</VFP_свойство>
              </элемент>
              <элемент>
                <VFP_имя>LbllYear</VFP_имя>
                <VFP_свойство имя="Left">354</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">По:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>Month_year_m</VFP_класс>
              <VFP_свойство имя="Name">cntSelDatePo</VFP_свойство>
              <VFP_свойство имя="ControlSource">dSelDatePo</VFP_свойство>
              <VFP_свойство имя="Left">165</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <элемент>
                <VFP_имя>SelYear</VFP_имя>
                <VFP_свойство имя="Left">280</VFP_свойство>
              </элемент>
              <элемент>
                <VFP_имя>LbllYear</VFP_имя>
                <VFP_свойство имя="Left">354</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">85</VFP_свойство>
              <VFP_свойство имя="Caption">Бюджетное учреждение:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
              <VFP_свойство имя="Left">165</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <VFP_свойство имя="Width">376</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTS168_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">orgbase.rmnemo_org</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">orgbase.rn</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">115</VFP_свойство>
              <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
            </элемент>            
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">420</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
              <VFP_свойство имя="Top">110</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_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
              <VFP_свойство имя="Caption">Вид финансового обеспечения (деятельности):</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">331</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">352</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">373</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">394</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">415</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">436</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">457</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">478</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">499</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">520</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B10</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B10</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">170</VFP_свойство>
              <VFP_свойство имя="ControlSource">nOperUpr</VFP_свойство>
              <VFP_свойство имя="Name">chkOperUpr</VFP_свойство>
              <VFP_свойство имя="Caption">Включать данные по имуществу, закрепленному в оперативное управление</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">190</VFP_свойство>
              <VFP_свойство имя="ControlSource">nKazna</VFP_свойство>
              <VFP_свойство имя="Name">chkKazna</VFP_свойство>
              <VFP_свойство имя="Caption">Включать данные по имуществу казны</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Caption">Балансовая единица:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>S_balunits</VFP_класс>
              <VFP_свойство имя="Name">BalunitsB</VFP_свойство>
              <VFP_свойство имя="Left">165</VFP_свойство>
              <VFP_свойство имя="Top">210</VFP_свойство>
              <VFP_свойство имя="Width">376</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">balunit.mnemo</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">balunit.rn</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Разряды номера счета для определения внутреннего перемещения:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">245</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">480</VFP_свойство>
              <VFP_свойство имя="Top">240</VFP_свойство>
              <VFP_свойство имя="Width">60</VFP_свойство>
              <VFP_свойство имя="MaxLength">5</VFP_свойство>
              <VFP_свойство имя="ControlSource">cExclCode</VFP_свойство>
              <VFP_свойство имя="Name">ExclCode</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Уровень аналитики кодов поступлений/выбытий:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">275</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TSpinner</VFP_класс>
              <VFP_свойство имя="ControlSource">nSPLevel</VFP_свойство>
              <VFP_свойство имя="Increment">1.00</VFP_свойство>
              <VFP_свойство имя="Inputmask">9</VFP_свойство>
              <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
              <VFP_свойство имя="KeyboardLowValue">1</VFP_свойство>
              <VFP_свойство имя="Left">500</VFP_свойство>
              <VFP_свойство имя="Name">aLevelK</VFP_свойство>
              <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
              <VFP_свойство имя="SpinnerLowValue">1.00</VFP_свойство>
              <VFP_свойство имя="Top">270</VFP_свойство>
              <VFP_свойство имя="Width">40</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">305</VFP_свойство>
              <VFP_свойство имя="Caption">Особая отметка (хищения/недостачи):</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>mark</VFP_класс>
              <VFP_свойство имя="Left">385</VFP_свойство>
              <VFP_свойство имя="Top">300</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Name">CmbMark1</VFP_свойство>
              <VFP_свойство имя="ControlSource">cRN_Mark1</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_имя>Page2</VFP_имя>
            <VFP_свойство имя="Caption">Детализация</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">540</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Забалансовые счета</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Уровень аналитики:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TSpinner</VFP_класс>
              <VFP_свойство имя="ControlSource">nAnLevel</VFP_свойство>
              <VFP_свойство имя="Increment">1.00</VFP_свойство>
              <VFP_свойство имя="Inputmask">9</VFP_свойство>
              <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
              <VFP_свойство имя="KeyboardLowValue">0</VFP_свойство>
              <VFP_свойство имя="Left">500</VFP_свойство>
              <VFP_свойство имя="Name">aLevel</VFP_свойство>
              <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
              <VFP_свойство имя="SpinnerLowValue">0.00</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">40</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
              <VFP_свойство имя="Caption">Вид финансового обеспечения (деятельности):</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">331</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">352</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">373</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">394</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">415</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">436</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">457</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">478</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">499</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">520</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18ZB10</VFP_свойство>
              <VFP_свойство имя="Name">Txt18ZB10</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">75</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">95</VFP_свойство>
              <VFP_свойство имя="Width">540</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_класс>mark</VFP_класс>
              <VFP_свойство имя="Left">385</VFP_свойство>
              <VFP_свойство имя="Top">105</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">140</VFP_свойство>
              <VFP_свойство имя="Caption">Каталог хозяйственных операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>tdictree</VFP_класс>
              <VFP_свойство имя="Left">385</VFP_свойство>
              <VFP_свойство имя="Top">135</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Name">CmbCatEO</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">45</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">180</VFP_свойство>
              <VFP_свойство имя="Width">540</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">175</VFP_свойство>
              <VFP_свойство имя="Caption">Операции по исправлению ошибок прошлых лет</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">195</VFP_свойство>
              <VFP_свойство имя="Caption">Журнал операций:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>ordera</VFP_класс>
              <VFP_свойство имя="Left">385</VFP_свойство>
              <VFP_свойство имя="Top">190</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">190</VFP_свойство>
              <VFP_свойство имя="left">10</VFP_свойство>
              <VFP_свойство имя="top">10</VFP_свойство>
              <VFP_свойство имя="width">540</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">70</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">470</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">483</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">57</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
Local cStr
cStr = "oThisForm.PF.Page3"
If !Empty(oThisForm.PF.Page3.dicIsp.Value)
  = Seek(&cStr..dicIsp.Value, "OrgBase", "RN")
  If OrgBase.Type # '2'
    ErrMes("Выбранный контрагент не является физическим лицом.")
    &cStr..dicIsp.Clear()
  Else    
    &cStr..fldIspName.Value = PERSON_PAD(&cStr..dicIsp.Value,, "ф.")
  EndIf
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">dicIsp</VFP_свойство>
              <VFP_свойство имя="Left">290</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_Agents168_186N_2023</VFP_свойство>
              <VFP_свойство имя="Filter">orgbase.type='2'</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>                
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">ФИО:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">115</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">290</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">290</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">250</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
              <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">175</VFP_свойство>
              <VFP_свойство имя="ControlSource">nEmptyRows</VFP_свойство>
              <VFP_свойство имя="Name">chkEmptyRows</VFP_свойство>
              <VFP_свойство имя="Caption">Выгружать строки с нулевыми значениями</VFP_свойство>
            </элемент>
          </элемент>
       </элемент>
    </описание>
  </форма>
</Модуль>
