<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503173-191н_ред186н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503173_186_2023</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503173_186_2023</мнемокод>
        <файл>Форма0503173_191н_ред186н_2023.xlt</файл>
      </шаблон>
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503173_186_2023</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dSelDateS;dDateEnd;cOrg;nAccType;cVFO;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;cBalUnits;nAnLevel;cRN_Mark;cCatEO;cJournalOp;nNoCalcLong;cEOPGroup1;cEOPGroup2;cEOPGroup3;cEOPGroup4;cEOPGroup5;cEOPGroup01;cEOPGroup04;cEOPGroup06;cUnlPath;cIST;cDicIsp;cIspName;cIspTel;nEmptyRows</список_переменных>
        <мемофайл>ar_form0503173_191n_186_2023;ar_form0503173_191n_94_2022;ar_form0503173_191n_217_2021;ar_form0503173_191n_311n_2021;ar_form0503173_191n_311n_2020;ar_form0503173_191n_20191231;ar_form0503173_191n_131n_2019</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dSelDateS</имя>
        <начальное_значение>oSystem.DateBegin</начальное_значение>
        <!--Начало отчётного периода-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Окончание отчётного периода (Дата По)-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учреждение-->
      </переменная>
      <переменная>
        <имя>cWhereKontragent</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по учреждениям-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>cVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--вид деятельности-->
      </переменная>
      <переменная>
        <имя>arrVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Массив видов деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>cUsl18</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Балансовые единицы-->
      </переменная>
      <переменная>
        <имя>cWhereBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
      <переменная>
        <имя>nAnLevel</имя>
        <начальное_значение>0</начальное_значение>
        <!--Уровень аналитики для забалансовых счетов-->
      </переменная>
      <переменная>
        <имя>cRN_Mark</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка-->
      </переменная>
      <переменная>
        <имя>cCatEO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог ХО-->
      </переменная>
      <переменная>
        <имя>cJournalOp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Журнал операций-->
      </переменная>
      <переменная>
        <имя>nNoCalcLong</имя>
        <начальное_значение>0</начальное_значение>
        <!--Не рассчитывать «долгосрочные» показатели-->
      </переменная>
      <переменная>
        <имя>cEOPGroup1</имя>
        <начальное_значение>""</начальное_значение>
        <!--Причины возникновения ошибок прошлых лет 03.1-->
      </переменная>
      <переменная>
        <имя>cEOPGroup2</имя>
        <начальное_значение>""</начальное_значение>
        <!--Причины возникновения ошибок прошлых лет 03.2-->
      </переменная>
      <переменная>
        <имя>cEOPGroup3</имя>
        <начальное_значение>""</начальное_значение>
        <!--Причины возникновения ошибок прошлых лет 03.3-->
      </переменная>
      <переменная>
        <имя>cEOPGroup4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Причины возникновения ошибок прошлых лет 03.4-->
      </переменная>
      <переменная>
        <имя>cEOPGroup5</имя>
        <начальное_значение>""</начальное_значение>
        <!--Причины возникновения ошибок прошлых лет 03.5-->
      </переменная>
      <переменная>
        <имя>cEOPGroup01</имя>
        <начальное_значение>""</начальное_значение>
        <!--Прочие операции 01-->
      </переменная>
      <переменная>
        <имя>cEOPGroup04</имя>
        <начальное_значение>""</начальное_значение>
        <!--Прочие операции 04-->
      </переменная>
      <переменная>
        <имя>cEOPGroup06</имя>
        <начальное_значение>""</начальное_значение>
        <!--Прочие операции 06-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cFormCode</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код формы-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
        <имя>nEmptyRows</имя>
        <начальное_значение>0</начальное_значение>
        <!--Выгружать строки с нулевыми значениями-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,06,30)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>            
    </переменные>
    <запуск_формы>
      <ид>f_0503173_191n_186_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
Private ALL Like nCol?Row*
Private ALL Like nCol??Row*
Private ALL Like nItog0?A*
Private arrRowsDop
Local ARRAY arrRows[1]
Local j, s, nALen
nALen = ALines(arrRows, "010;020;021;040;050;051;070;080;100;101;110;120;130;140;150;160;170;201;203;204;206;207;240;250;251;260;261;270;271;280;282;290;400;401;410;411;420;431;432;433;434;436;437;470;471;510;520;570", ";")
ALines(arrRowsDop, "010;020;021;040;050;051;070;080;100;110;120;130;140;150;160;170;201;203;207;240;250;260;270;280;282;290;400;410;420;431;432;433;434;436;437;470;510;520;570", ";")
For m.j = 1 To m.nALen
  s = arrRows[m.j]
  Store 0 To nCol4Row&s, nCol5Row&s, nCol6Row&s, nCol7Row&s, nCol9Row&s, nCol10Row&s
Next
For m.j = 1 To 36
  If !InList(m.j, 17, 18)
    s = PadL(m.j, 2, "0") + "0"
    Store 0 To nCol5Row&s.Spr, nCol6Row&s.Spr, nCol7Row&s.Spr, nCol8Row&s.Spr, nCol10Row&s.Spr
  EndIf
Next
For m.j = 101 To 105
  If m.j # 103
    s = Str(m.j, 3)
    Store 0 To nCol5Row&s.Spr, nCol6Row&s.Spr, nCol7Row&s.Spr, nCol8Row&s.Spr, nCol10Row&s.Spr
  EndIf
Next
For m.j = 111 To 112
  s = Str(m.j, 3)
    Store 0 To nCol5Row&s.Spr, nCol6Row&s.Spr, nCol7Row&s.Spr, nCol8Row&s.Spr, nCol10Row&s.Spr
Next

Store 0 To nItog01A, nItog03A1, nItog03A2, nItog03A3, nItog03A4, nItog03A5

*ON ERROR
Private dDate1, dDate2, dDate5, dDateL, cSubPos, cWhere5, cListCorr10
dDate5  = m.dSelDateS - 1       && дата операций, связанных с внедрением федеральных стандартов
dDate1  = Dox(m.dDate5, 3)      && начало месяца даты операций, связанных с внедрением федеральных стандартов
dDate2  = Dox(m.dSelDateS, 3)   && начало месяца начала отчетного периода
dDateL  = GoMonth(m.dSelDateS, 12)
cSubPos = Iif(m.nAccType = 1, "19", "2")

* Операции, связанные с внедрением федеральных стандартов
cWhere5 = ""
Do Case
  Case !Empty(m.cRN_Mark) And !Empty(m.cCatEO)
    cWhere5 = "(B.RN_MARK = '" + m.cRN_Mark + "' Or B.PARENT_RN = '" + m.cCatEO + "')"
  Case !Empty(m.cRN_Mark)
    cWhere5 = "B.RN_MARK = '" + m.cRN_Mark + "'"
  Case !Empty(m.cCatEO)
    cWhere5 = "B.PARENT_RN = '" + m.cCatEO + "'"
EndCase

* Исправление ошибок прошлых лет по результатам финансового контроля (Колонка 10)
cListCorr10 = "InList(SubStr(Nvl(C.Account, Space(29)), " + m.cSubPos + ", 5), '30466', '30476', '40116', '40117', '40126', '40127')"

* Изменения в связи с реорганизацией (по коду причины 01)
Create CURSOR cur01 (TYPE C(1), SUBS C(5), Sum N(18,2))
Index On TYPE + SUBS Tag UNI

* Дополнительная информация по коду причины 03
Create CURSOR cur03 (TYPE C(1), SUBS C(6), Sum1 N(18,2), Sum2 N(18,2), Sum3 N(18,2), Sum4 N(18,2), Sum5 N(18,2))
Index On TYPE + SUBS Tag UNI

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

&& 570
= GetSumOther("570", "4013,40116,40126,40117,40127,40118,40128,40119,40129,21082,21092,30466,30476,30486,30496", .T.)

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

* Формирую имя файла
If !Empty(m.cUnlPath)
  Local ARRAY aFiles(1)
  Local nNum, nCNum, nN, i, nFls
  cUnlPath  = AllTrim(m.cUnlPath)
  cFormCode = "273" + Iif(Empty(m.cVFO), "", m.cVFO)
  cFileName = m.cFormCode + "Y"
  nNum = 0
  nFls = ADir(aFiles, m.cUnlPath + m.cFileName + "??.txt")
  For m.i = 1 To m.nFls
    nN    = AT(".", aFiles(m.i, 1))
    nCNum = Val(SubStr(aFiles(m.i, 1), m.nN - 2, 2))
    If m.nNum < m.nCNum
      nNum = m.nCNum
    EndIf 
    If m.nNum = 99
      nNum = 0
    EndIf
  Next
  cFileName = m.cUnlPath + m.cFileName + PadL(Int(m.nNum) + 1, 2, "0") + ".txt"
EndIf

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

oPrint.PrintRange("Header")

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

* 2. Изменения в связи с реорганизацией (по коду причины 01)
For m.j = 1 To 2
  s  = Str(m.j, 1)
  nI = 0
  Select cur01
  Seek m.s
  Scan While TYPE = m.s For Sum # 0
    nI = m.nI + 1
    If m.nI > 1
      oPrint.InsertRange()   
    EndIf
    oPrint.PrintRange("Spec01" + Iif(m.j = 1, "A", "P"))
  EndScan
Next

* 4. Дополнительная информация по коду причины 03
For m.j = 1 To 2
  s  = Str(m.j, 1)
  nI = 0
  Select cur03
  Seek m.s
  Scan While TYPE = m.s For Sum1 # 0 Or Sum2 # 0 Or Sum3 # 0 Or Sum4 # 0 Or Sum5 # 0
    nI = m.nI + 1
    If m.nI > 1
      oPrint.InsertRange()   
    EndIf
    oPrint.PrintRange("Spec03" + Iif(m.j = 1, "A", "P"))
  EndScan
Next

oPrint.PrintRange("Footer")

CurClose("cur01,cur03")

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

oPrint = NULL

Return
****


Procedure PrnSpr
* печать справки (таблица)
  Parameters oPrint

  Select ACC, SAccount, Name_SACC,   ;
         Sum(Sum_Col5)  As Sum_Col5, ;
         Sum(Sum_Col6)  As Sum_Col6, ;
         Sum(Sum_Col7)  As Sum_Col7, ;
         Sum(Sum_Col8)  As Sum_Col8, ;
         Sum(Sum_Col10) As Sum_Col10 ;
    From FormPrint1 ;
    Group By 1, 2 ;
    Order By 1, 2 ;
    Into CURSOR FormPrint

  Use In FormPrint1

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

  CurClose("FormPrint")

EndProc
****


Procedure PrnSpr1
  LParameters cSubs
  Local nI, cS
  nI = 0
  cS = PadR(m.cSubs, 3, "0")
  Select FormPrint
  Scan For ACC = m.cS
    nI = m.nI + 1
    If m.nI > 1
       oPrint.InsertRange()   
    EndIf
    oPrint.PrintRange("Spec" + m.cS + "Spr")
  EndScan
EndProc
***


Procedure zBalSPR
  Local cUslAccSpr, i

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

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

EndProc
****


Procedure GetSumSpr
  LParameters cSubs, cAnalit

  Local cNRow, cUslAccSpr, cUslAnal, cSubs1
  cNRow = Iif(Empty(m.cAnalit), m.cSubs + "0", m.cAnalit)

  Do Case
    Case InList(m.cSubs, "28", "29", "30")
      cSubs1 = Str(Val(m.cSubs) + 1, 2)
    Case InList(m.cSubs, "31", "32", "33")
      cSubs1 = Str(Val(m.cSubs) + 7, 2)
    Case m.cSubs = "34"
      cSubs1 = "42"
    Case m.cSubs = "35"
      cSubs1 = "45"
    Case m.cSubs = "36"
      cSubs1 = "49"
    Otherwise
      cSubs1 = m.cSubs
  EndCase

  cUslAccSpr = " And (AT('з', AccBase.Account) > 0 And SubStr(AccBase.Account,AT('з',AccBase.Account) + 1, 2) = '" + m.cSubs1 + "'" ;
             + " Or AT('з', AccBase.Account) = 0 And SubStr(AccBase.Account, 2, 2) = '" + m.cSubs1 + "') And !AccBase.L_BALANCE"
  If !Empty(m.cAnalit)
    cUslAnal = m.cAnalit + "*"
  EndIf

  = SelAccFromBaseOther(m.cUsl18 + m.cUslAccSpr, @nCol5Row&cNRow.Spr, @nCol6Row&cNRow.Spr, @nCol7Row&cNRow.Spr, @nCol8Row&cNRow.Spr, @nCol10Row&cNRow.Spr, 0, .T., m.cUslAnal)
  = CurClose("curAcc,crsAccSpRN,curZAnalit")

EndProc
****


Procedure GetSumSpr1
  LParameters cSubs

  Local cUslAccSpr, nLen, i, cSubs1, nCol5spr1, nCol6spr1, nCol7spr1, nCol8spr1, nCol10spr1
  Local ARRAY arrAcc[1]
  cUslAccSpr = "(AT('з', A.Account) > 0 And SubStr(A.Account,AT('з', A.Account) + 1, 2) = '" + m.cSubs + "'" ;
             + " Or AT('з', A.Account) = 0 And SubStr(A.Account, 2, 2) = '" + m.cSubs + "')" ;
             + " And !A.L_BALANCE"

  Select A.Account, S.NAME_SACC, S.SAccount ;
    From AccBase A ;
      Inner Join AccSpec S On A.RN = S.Master_RN ;
    Where &cUslAccSpr and S.LEVEL = ?m.nAnLevel ;
    Into ARRAY arrAcc
 
  If _Tally > 0
     nLen = _Tally
     For m.i = 1 To m.nLen
        Store 0 To nCol5spr1, nCol6spr1, nCol7spr1, nCol8spr1, nCol10spr1
        cUslAccSPR = " And AccBase.Account = " + "'" + arrAcc(m.i, 1) + "'"

        = SelAccFromBaseOther(m.cUsl18 + m.cUslAccSpr, @nCol5spr1, @nCol6spr1, @nCol7spr1, @nCol8spr1, @nCol10spr1, 0, .T., arrAcc(m.i, 3))
        = CurClose("curAcc,crsAccSpRN,curZAnalit")

        If m.nCol5spr1 # 0 Or m.nCol6spr1 # 0 Or m.nCol7spr1 # 0 Or m.nCol8spr1 # 0 Or m.nCol10spr1 # 0
           Insert Into FormPrint1 (ACC, NAME_SACC, SAccount, Sum_Col5, Sum_Col6, Sum_Col7, Sum_Col8, Sum_Col10) ;
                       Values (PadR(m.cSubs, 3, "0"), arrAcc(m.i, 2), arrAcc(m.i, 3), m.nCol5spr1, m.nCol6spr1, m.nCol7spr1, m.nCol8spr1, m.nCol10spr1)
        EndIf
     Next
  EndIf 
EndProc
****


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

  Local ARRAY arrSubs[1]
  Local nSubs, cUslAcc, nCol4, nCol5, nCol6, nCol7, nCol9, nCol10, i, s
  cUslAcc = ""

  nSubs = ALines(arrSubs, m.cSubs, ",")
  For m.i = 1 To m.nSubs
    cUslAcc = m.cUslAcc + Iif(m.i = 1, "", " OR ") + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(arrSubs[m.i]))) + ") = '" + arrSubs[m.i] + "'"
  Next
  If m.nSubs > 1
    cUslAcc = "(" + m.cUslAcc + ")"
  EndIf
  cUslAcc = " And " + m.cUslAcc

  * Взаиморасчётные счета
  = SelAccFromBaseDK(m.cUsl18 + m.cUslAcc + " And InList(AccBase.S_ANALITYC, 9, 10, 11, 12)", @nCol4Row&cNRow, @nCol5Row&cNRow, @nCol6Row&cNRow, @nCol7Row&cNRow, @nCol9Row&cNRow, @nCol10Row&cNRow)
  = CurClose("curAcc,crsAccSpRN")
  If m.lLong And m.lRolled
    isPassiv = !m.isPassiv
    = SelAccFromBaseDK(m.cUsl18 + m.cUslAcc + " And InList(AccBase.S_ANALITYC, 9, 10, 11, 12)", @nCol4Row&cNRow, @nCol5Row&cNRow, @nCol6Row&cNRow, @nCol7Row&cNRow, @nCol9Row&cNRow, @nCol10Row&cNRow)
    = CurClose("curAcc,crsAccSpRN")
  EndIf

  * Невзаиморасчётные счета
  If !m.lLong
    Store 0 To nCol4, nCol5, nCol6, nCol7, nCol9, nCol10
    = SelAccFromBaseOther(m.cUsl18 + m.cUslAcc + " And !InList(AccBase.S_ANALITYC, 9, 10, 11, 12)", @nCol4, @nCol5, @nCol6, @nCol7, @nCol9, @nCol10)
    = CurClose("curAcc,crsAccSpRN")
    For m.i = 4 To 10
      If m.i # 8
        s = LTrim(Str(m.i))
        If m.nCol&s > 0
          nCol&s.Row&cNRow = m.nCol&s.Row&cNRow + m.nCol&s
        EndIf
      EndIf
    Next
  EndIf

EndProc
****


Procedure SelAccFromBaseDK
  LParameters cWhere, nVal4, nVal5, nVal6, nVal7, nVal9, nVal10

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

  Local cJoinAn, cWhereBU, cWhereLong, nVal41, nVal51, nVal61, nVal71, nVal91, nVal101, cBM, dDate6, cNCol, i, s, cGrp
  Local ARRAY arrSum[1]
  Store 0  To nVal41, nVal51, nVal61, nVal71, nVal91, nVal101
  Store "" To cJoinAn, cWhereBU
  cBM = Iif(m.isPassiv, "<", ">")
  cWhereLong = Iif(m.lLong, "And D.DATE_END >= ?m.dDateL", "")

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

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

  If m.dDate2 <= m.dDate5   && dSelDateS - не начало месяца
    Scan
      Select Sum(Iif(SP.ACC_TYPE = "D", S.SUM_EQUAL, -S.SUM_EQUAL)) As SUM ;
        From DKSpec SP ;
          Inner Join EopSpec S On SP.RN_EOSpec = S.RN ;
          Inner Join EopBase B On S.Master_RN  = B.RN ;
        Where SP.Master_RN = ?cTmpDK.RN And Between(B.DATE_EOP, ?m.dDate2, ?m.dDate5) ;
        Into ARRAY arrSum

      If _Tally # 0
        Replace SUM6  With SUM6  + arrSum[1], ;
                SUM10 With SUM10 + arrSum[1] In cTmpDK
      EndIf
    EndScan
  EndIf

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

  If _Tally # 0
    Store Iif(m.isPassiv, - arrSum[1], arrSum[1]) To nVal41, nVal51, nVal71, nVal91
    Store -m.nVal51 To nVal61, nVal101
  EndIf

  * Колонки 4, 5, 7, 9
  * Расчетный остаток на конец предыдущего периода
  Select D.RN, Acc.Account, D.SUME_BEGIN As SUM ;
    From DkBase D ;
      Inner Join curAcc A On D.RN_ACC = A.RN ;
      Inner Join AccBase Acc On D.RN_ACC = Acc.RN ;
      &cJoinAn ;
    Where D.Period = ?m.dDate1 &cWhereBU &cWhereLong ;
    Into CURSOR cTmpPast READWRITE

  Scan
    Select Sum(Iif(SP.ACC_TYPE = "D", S.SUM_EQUAL, -S.SUM_EQUAL)) As SUM ;
      From DKSpec SP ;
        Inner Join EopSpec S On SP.RN_EOSpec = S.RN ;
        Inner Join EopBase B On S.Master_RN  = B.RN ;
      Where SP.Master_RN = ?cTmpPast.RN And Between(B.DATE_EOP, ?m.dDate1, ?m.dDate5) ;
      Into ARRAY arrSum

    If _Tally # 0
      Replace SUM With SUM + arrSum[1] In cTmpPast
    EndIf
  EndScan

  * Колонка 5
  * Операции, связанные с внедрением федеральных стандартов
  If !Empty(m.cWhere5)
    Select * From cTmpPast Into CURSOR cTmpPast1 READWRITE

    Scan
      Select Sum(Iif(SP.ACC_TYPE = "D", S.SUM_EQUAL, -S.SUM_EQUAL)) As SUM ;
        From DKSpec SP ;
          Inner Join EopSpec S On SP.RN_EOSpec = S.RN ;
          Inner Join EopBase B On S.Master_RN  = B.RN ;
        Where SP.Master_RN = ?cTmpPast1.RN And B.DATE_EOP = ?m.dDate5 And &cWhere5 ;
        Into ARRAY arrSum

      If _Tally # 0
        Replace SUM With SUM - arrSum[1] In cTmpPast1
      EndIf
    EndScan

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

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

    Use In cTmpPast1
  EndIf

  * Колонки 4, 7, 9
  For m.i = 1 To 3
    s = Iif(m.i = 1, "4", Iif(m.i = 2, "7", "9"))
    cGrp = Str(Val(m.s) - 3, 1)

    If !Empty(m.cEOPGroup0&cGrp)
      Select * From cTmpPast Into CURSOR cTmpPast1 READWRITE
      Index On RN Tag RN

      * Операции...
      Select D.RN, D.Account, S.SUM_EQUAL As SUM ;
        From cTmpPast1 D ;
          Inner Join DKSpec  SP On D.RN = SP.Master_RN ;
          Inner Join EopSpec S  On SP.RN_EOSpec = S.RN ;
          Inner Join EopBase B  On S.Master_RN  = B.RN ;
          Inner Join EOSGrup GS On S.RN = GS.EOS_RN ;
          Inner Join EOBGrup GB On GS.Master_RN = GB.RN ;
        Where B.DATE_EOP = ?m.dDate5 And GB.RN = ?m.cEOPGroup0&cGrp And SP.ACC_TYPE = "D" ;
      UNION ALL ;
      Select D.RN, D.Account, -S.SUM_EQUAL As SUM ;
        From cTmpPast1 D ;
          Inner Join DKSpec  SP On D.RN = SP.Master_RN ;
          Inner Join EopSpec S  On SP.RN_EOSpec = S.RN ;
          Inner Join EopBase B  On S.Master_RN  = B.RN ;
          Inner Join EOSGrup GS On S.RN = GS.EOS_RN ;
          Inner Join EOBGrup GB On GS.Master_RN = GB.RN ;
        Where B.DATE_EOP = ?m.dDate5 And GB.RN = ?m.cEOPGroup0&cGrp And SP.ACC_TYPE = "K" ;
        Into CURSOR cTmp2

      Scan For Seek(cTmp2.RN, "cTmpPast1", "RN")
        Select cTmpPast1
        Replace SUM With SUM - cTmp2.SUM
      EndScan

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

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

      If m.i = 1 And !m.lLong And m.nVal&s.1 # 0
        = Fill_01()
      EndIf

      CurClose("cTmpPast1,cTmp2")
    EndIf
  Next

  Use In cTmpPast

  * Колонки 6, 10
  If Empty(m.cJournalOp)
    Store 0 To nVal61, nVal101
  Else
    Select cTmpDK
    Index On RN Tag RN
    Index On RN_ACC + RN_CURR + RN_AGENT + RN_ORGPU + RN_ACC_A1 + RN_ACC_A2 + RN_ACC_A3 + RN_ACC_A4 + RN_ACC_A5 + ;
             RN_BASE + NUM_BASE + DToS(DATE_BASE) + RN_MARK Tag UNI

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

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

        If _Tally # 0
          If !Seek(RN_ACC + RN_CURR + RN_AGENT + RN_ORGPU + ;
                   RN_ACC_A1 + RN_ACC_A2 + RN_ACC_A3 + RN_ACC_A4 + RN_ACC_A5 + ;
                   RN_BASE + NUM_BASE + DToS(DATE_BASE) + RN_MARK, "cTmpDK", "UNI")
            Insert Into cTmpDK (RN_ACC, RN_CURR, RN_AGENT, RN_ORGPU, ;
                                RN_ACC_A1, RN_ACC_A2, RN_ACC_A3, RN_ACC_A4, RN_ACC_A5, ;
                                RN_BASE, NUM_BASE, DATE_BASE, RN_MARK) ;
               VALUES (cTmpDK2.RN_ACC, cTmpDK2.RN_CURR, cTmpDK2.RN_AGENT, cTmpDK2.RN_ORGPU, ;
                       cTmpDK2.RN_ACC_A1, cTmpDK2.RN_ACC_A2, cTmpDK2.RN_ACC_A3, cTmpDK2.RN_ACC_A4, cTmpDK2.RN_ACC_A5, ;
                       cTmpDK2.RN_BASE, cTmpDK2.NUM_BASE, cTmpDK2.DATE_BASE, cTmpDK2.RN_MARK)
          EndIf

          Replace SUM&cNCol With SUM&cNCol + cTmp2.SUM In cTmpDK
        EndIf

        Use In cTmpDK2
      EndIf
    EndScan

    * Расчетный остаток на начало отчетного периода
    Select Sum(SUM6) As SUM From cTmpDK Where SUM6 &cBM 0 Into ARRAY arrSum

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

    If !m.lLong And m.nVal61 # 0
      = Fill_03()
    EndIf

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

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

    Use In cTmp2
  EndIf

  Use In cTmpDK

  For m.i = 4 To 10
    If m.i # 8
      s = LTrim(Str(m.i))
      nVal&s = m.nVal&s + m.nVal&s.1
    EndIf
  Next

EndProc
****


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

  Local ARRAY arrSubs[1]
  Local nPos, cSubs1, cSubs2, cUslAcc, nSubs, i
  nPos    = AT("!", m.cSubs)
  cSubs1  = Iif(m.nPos = 0, m.cSubs, Left(m.cSubs, m.nPos - 1))
  cSubs2  = Iif(m.nPos = 0, "", SubStr(m.cSubs, m.nPos + 1))
  cUslAcc = ""

  nSubs = ALines(arrSubs, m.cSubs1, ",")
  For m.i = 1 To m.nSubs
    cUslAcc = m.cUslAcc + Iif(m.i = 1, "", " OR ") + "SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(arrSubs[m.i]))) + ") = '" + arrSubs[m.i] + "'"
  Next
  If m.nSubs > 1
    cUslAcc = "(" + m.cUslAcc + ")"
  EndIf
  cUslAcc = " And " + m.cUslAcc

  If !Empty(m.cSubs2)
    nSubs = ALines(arrSubs, m.cSubs2, ",")
    For m.i = 1 To m.nSubs
      cUslAcc = m.cUslAcc + " And SubStr(AccBase.Account, " + m.cSubPos + ", " + LTrim(Str(Len(arrSubs[m.i]))) + ") # '" + arrSubs[m.i] + "'"
    Next
  EndIf

  = SelAccFromBaseOther(m.cUsl18 + m.cUslAcc, @nCol4Row&cNRow, @nCol5Row&cNRow, @nCol6Row&cNRow, @nCol7Row&cNRow, @nCol9Row&cNRow, @nCol10Row&cNRow)
  = CurClose("curAcc,crsAccSpRN")

EndProc
****


Procedure SelAccFromBaseOther
  LParameters cWhere, nVal4, nVal5, nVal6, nVal7, nVal9, nVal10, lZabal, cZAnalit

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

  If m.lZabal
    Local lRightLong, isPassiv
  EndIf

  Local cJoinAnD, cJoinAnK, cWhereBU, cJoinZAnD, cJoinZAnK, nVal41, nVal51, nVal61, nVal71, nVal91, nVal101, i, s, cGrp
  Local ARRAY arrSum[1]
  Store 0  To nVal41, nVal51, nVal61, nVal71, nVal91, nVal101
  Store "" To cJoinAnD, cWhereBU, cJoinZAnD, cJoinZAnK

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

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

  * Колонка 5
  * Операции, связанные с внедрением федеральных стандартов
  If !Empty(m.cWhere5)
    Select S.Master_RN, S.RN, S.SUM_EQUAL As SUM ;
      From EopBase B ;
        Inner Join EopSpec S On B.RN = S.Master_RN ;
        Inner Join curAcc  A On S.RN_DB = A.RN ;
        &cJoinZAnD ;
        &cJoinAnD ;
      Where B.DATE_EOP = ?m.dDate5 And &cWhere5 &cWhereBU ;
    UNION ALL ;
    Select S.Master_RN, S.RN, -S.SUM_EQUAL As SUM ;
      From EopBase B ;
        Inner Join EopSpec S On B.RN = S.Master_RN ;
        Inner Join curAcc  A On S.RN_KR = A.RN ;
        &cJoinZAnK ;
        &cJoinAnK ;
      Where B.DATE_EOP = ?m.dDate5 And &cWhere5 &cWhereBU ;
      Into CURSOR cTmp2 READWRITE

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

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

    If _Tally # 0
      nVal51 = arrSum[1]
    EndIf

    Use In cTmp2
  EndIf

  * Колонки 4, 7, 9
  For m.i = 1 To 3
    s = Iif(m.i = 1, "4", Iif(m.i = 2, "7", "9"))
    cGrp = Str(Val(m.s) - 3, 1)

    If !Empty(m.cEOPGroup0&cGrp)
      Select S.Master_RN, S.RN, DB.Account, S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN = S.Master_RN ;
          Inner Join curAcc  A  On S.RN_DB = A.RN ;
          Inner Join AccBase DB On S.RN_DB = DB.RN ;
          Inner Join EOSGrup GS On S.RN = GS.EOS_RN ;
          Inner Join EOBGrup GB On GS.Master_RN = GB.RN ;
          &cJoinZAnD ;
          &cJoinAnD ;
        Where B.DATE_EOP = ?m.dDate5 And GB.RN = ?m.cEOPGroup0&cGrp &cWhereBU ;
      UNION ALL ;
      Select S.Master_RN, S.RN, KR.Account, -S.SUM_EQUAL As SUM ;
        From EopBase B ;
          Inner Join EopSpec S  On B.RN = S.Master_RN ;
          Inner Join curAcc  A  On S.RN_KR = A.RN ;
          Inner Join AccBase KR On S.RN_KR = KR.RN ;
          Inner Join EOSGrup GS On S.RN = GS.EOS_RN ;
          Inner Join EOBGrup GB On GS.Master_RN = GB.RN ;
          &cJoinZAnK ;
          &cJoinAnK ;
        Where B.DATE_EOP = ?m.dDate5 And GB.RN = ?m.cEOPGroup0&cGrp &cWhereBU ;
        Into CURSOR cTmp2 READWRITE

      If TYPE('m.lRightLong') = 'L' And m.lRightLong   && Долгосрочные права пользования
        = CheckRightLong()
      Else
        If m.i = 1 And !m.lZabal
          = Fill_01()
        EndIf
      EndIf

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

      If _Tally # 0
        nVal&s.1 = arrSum[1]
      EndIf

      Use In cTmp2
    EndIf
  Next

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

    If TYPE('m.lRightLong') = 'L' And m.lRightLong   && Долгосрочные права пользования
      = CheckRightLong()
    Else
      If !m.lZabal
        = Fill_03()
      EndIf
    EndIf

    Select cTmp2
    Scan
      s = Iif(cTmp2.L10, "10", "6")
      nVal&s.1 = m.nVal&s.1 + cTmp2.SUM
    EndScan
    Use In cTmp2
  EndIf

  For m.i = 4 To 10
    If m.i # 8
      s = LTrim(Str(m.i))
      nVal&s = m.nVal&s + Iif(m.isPassiv, - m.nVal&s.1, m.nVal&s.1)
    EndIf
  Next

EndProc
****


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

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

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

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

      If _Tally = 0
        Delete In cTmp2
      EndIf
    EndIf
  EndScan

EndProc
****


* Изменения в связи с реорганизацией (по коду причины 01)
Procedure Fill_01

  If AScan(arrRowsDop, m.cNRow) = 0
    Return
  EndIf

  Local n19Pos, cType, lInvers
  n19Pos = Iif(m.nAccType = 1, 19, 2)
  cType  = Iif(m.cNRow < "400", "1", "2")

  Select SubStr(Account, ?m.n19Pos, 5) As SUBS, Sum(SUM) As Sum ;
    From cTmp2 ;
    Group By 1 ;
    Into CURSOR cTmp01 READWRITE

  Replace For SUBS # "401" SUBS With Left(SUBS, 3)

  Scan For Sum # 0
    If !Seek(m.cType + cTmp01.SUBS, "cur01")
      Insert Into cur01 (TYPE, SUBS) VALUES (m.cType, cTmp01.SUBS)
    EndIf
    lInvers = m.isPassiv Or InList(Val(m.cNRow), 070, 080, 100) And InList(Left(cTmp01.SUBS, 3), "104", "114")
    Replace Sum With Sum + Iif(m.lInvers, -cTmp01.Sum, cTmp01.Sum) In cur01
    If m.cType = "1"   && Счета актива баланса
      nItog01A = m.nItog01A + cTmp01.Sum
    EndIf
  EndSCan

  Use In cTmp01

EndProc
****


* Дополнительная информация по коду причины 03
Procedure Fill_03

  If AScan(arrRowsDop, m.cNRow) = 0
    Return
  EndIf

  Local n18Pos, cType, i, s, lInvers
  n18Pos = Iif(m.nAccType = 1, 18, 1)
  cType  = Iif(m.cNRow < "400", "1", "2")

  For m.i = 1 To 5
    s = Str(m.i, 1)
    If !Empty(m.cEOPGroup&s)
      Select SubStr(S.Account, ?m.n18Pos, 6) As SUBS, Sum(S.SUM) As Sum ;
        From cTmp2 S ;
          Inner Join EOSGrup GS On S.RN = GS.EOS_RN ;
          Inner Join EOBGrup GB On GS.Master_RN = GB.RN ;
        Where GB.RN = ?m.cEOPGroup&s And !S.L10 ;
        Group By 1 ;
        Into CURSOR cTmp03

      Scan For Sum # 0
        If !Seek(m.cType + cTmp03.SUBS, "cur03")
          Insert Into cur03 (TYPE, SUBS) VALUES (m.cType, cTmp03.SUBS)
        EndIf
        lInvers = m.isPassiv Or InList(Val(m.cNRow), 070, 080, 100, 140) And InList(SubStr(cTmp03.SUBS, 2, 3), "104", "114")
        Replace Sum&s With Sum&s + Iif(m.lInvers, -cTmp03.Sum, cTmp03.Sum) In cur03
        If m.cType = "1"   && Счета актива баланса
          nItog03A&s = m.nItog03A&s + cTmp03.Sum
        EndIf
      EndSCan

      Use In cTmp03
    EndIf
  Next

EndProc
****


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

  Local i, s

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

EndProc
]]></FPC_></MSE>
  <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T.)
]]></FPC_>
  </печать>
  </отчет>
  <форма>
    <ид>f_0503173_191n_186_2023</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503173</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503173-191н_ред186н_2023</VFP_свойство>
      <VFP_свойство имя="Height">435</VFP_свойство>
      <VFP_свойство имя="Width">470</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisForm
Local oPg1, oPg2, oPg3, oPg4, c18B, c18Pos, i, j, cExact
Store "" To cUsl18
oPg1 = oThisForm.PF.Page1
oPg2 = oThisForm.PF.Page2
oPg3 = oThisForm.PF.Page3
oPg4 = oThisForm.PF.Page4

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

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

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

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

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

For m.i = 1 to Len(m.c18B)
  cUsl18 = m.cUsl18 + Iif(Empty(m.cUsl18), "", ",") + "'" + SubStr(m.c18B, m.i, 1) + "'"
Next
cUsl18 = "InList(SubStr(AccBase.Account, " + m.c18Pos + ", 1), " + m.cUsl18 + ")"
*
cWhereKontragent = oPg1.OrgFrom.GetCond()
cOrg = oPg1.OrgFrom.GetSaveValue()

cWhereBalUnits = oPg1.BalUnits.GetCond()
cBalUnits = oPg1.BalUnits.GetSaveValue()

cCatEO = oPg2.CmbCatEO.Value

* Причины возникновения ошибок прошлых лет
cEOPGroup1 = oPg2.EOPGroup1.Value
cEOPGroup2 = oPg2.EOPGroup2.Value
cEOPGroup3 = oPg2.EOPGroup3.Value
cEOPGroup4 = oPg2.EOPGroup4.Value
cEOPGroup5 = oPg2.EOPGroup5.Value

For m.i = 1 To 4
  If !Empty(Evaluate("m.cEOPGroup" + Str(m.i, 1)))
    For m.j = m.i + 1 To 5
      If Evaluate("m.cEOPGroup" + Str(m.j, 1)) = Evaluate("m.cEOPGroup" + Str(m.i, 1))
        =ExclMes("Недопустимо указание одной и той же группы проводок более чем для одной причины возникновения ошибок прошлых лет!")
        oThisForm.PF.ActivePage = 2
        Return .F.
      EndIf
    Next
  EndIf
Next

* Прочие операцции
cEOPGroup01 = oPg3.EOPGroup01.Value
cEOPGroup04 = oPg3.EOPGroup04.Value
cEOPGroup06 = oPg3.EOPGroup06.Value

cExact = Set('EXACT')
Set Exact On

If !Empty(m.cEOPGroup01) And InList(m.cEOPGroup01, m.cEOPGroup04, m.cEOPGroup06) Or ;
   !Empty(m.cEOPGroup04) And m.cEOPGroup04 = m.cEOPGroup06
  Set Exact &cExact
  =ExclMes("Недопустимо указание одной и той же группы проводок более чем для одной из прочих операций!")
  oThisForm.PF.ActivePage = 3
  Return .F.
EndIf

For m.i = 1 To 5 
  If !Empty(Evaluate("m.cEOPGroup" + Str(m.i, 1))) And InList(Evaluate("m.cEOPGroup" + Str(m.i, 1)), cEOPGroup01, cEOPGroup04, cEOPGroup06)
    Set Exact &cExact
    =ExclMes("Недопустимо указание одной и той же группы проводок для причин возникновения ошибок прошлых лет и для прочих операций!")
    oThisForm.PF.ActivePage = 2
    Return .F.
  EndIf
Next

Set Exact &cExact

* Каталог для выгрузки
cUnlPath = oPg4.Catalog.Text.Value
If !Empty(m.cUnlPath) And !Directory(m.cUnlPath, 1)
   =ExclMes("Каталог " + AllTrim(m.cUnlPath) + Chr(13) + "не существует!")
   oThisForm.PF.ActivePage = 4
   oPg4.Catalog.SetFocus()
   Return .F.
EndIf
cDicIsp = oPg4.DicIsp.GetSaveValue()
]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisForm
Dimension arrVFO[2, 2]
arrVFO[1, 1] = PadR("Бюджетная", 40)
arrVFO[1, 2] = "b"
arrVFO[2, 1] = PadR("Средства во временном распоряжении", 40)
arrVFO[2, 2] = "t"

Local oPg1, oPg2, oPg3, oPg4
oPg1 = oThisForm.PF.Page1
oPg2 = oThisForm.PF.Page2
oPg3 = oThisForm.PF.Page3
oPg4 = oThisForm.PF.Page4

oPg1.OrgFrom.SetSaveValue(m.cOrg)
oPg1.Cmb_VFO.RowSource = "arrVFO"
oPg1.Cmb_VFO.BackColor = oPg1.Cmb_VFO.SaveBackColor
oPg1.Cmb_VFO.Init()
oPg1.BalUnits.SetSaveValue(m.cBalUnits)

oPg2.CmbMark.SetSource(UnitRN("EconOp"))
oPg2.CmbMark.Value = m.cRN_Mark
oPg2.CmbCatEO.UnitCode = "EconOp"
oPg2.CmbCatEO.InitThis(m.cCatEO)
oPg2.JournalOp.Value = m.cJournalOp
oPg2.EOPGroup1.InitThis(m.cEOPGroup1)
oPg2.EOPGroup2.InitThis(m.cEOPGroup2)
oPg2.EOPGroup3.InitThis(m.cEOPGroup3)
oPg2.EOPGroup4.InitThis(m.cEOPGroup4)
oPg2.EOPGroup5.InitThis(m.cEOPGroup5)

oPg3.EOPGroup01.InitThis(m.cEOPGroup01)
oPg3.EOPGroup04.InitThis(m.cEOPGroup04)
oPg3.EOPGroup06.InitThis(m.cEOPGroup06)

oPg4.Catalog.Text.value = m.cUnlPath
oPg4.DicIsp.SetSaveValue(m.cDicIsp)
oPg4.fldIspName.Value = m.cIspName
]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">190</VFP_свойство>
        <VFP_свойство имя="Top">398</VFP_свойство>
      </элемент>
      <элемент>
          <VFP_класс>TPageFrame</VFP_класс>
          <VFP_свойство имя="Name">PF</VFP_свойство>
          <VFP_свойство имя="Height">395</VFP_свойство>
          <VFP_свойство имя="Width">470</VFP_свойство>
          <VFP_свойство имя="PageCount">4</VFP_свойство>
          <элемент>
            <VFP_имя>Page1</VFP_имя>
            <VFP_свойство имя="Caption">Параметры формирования</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">195</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">450</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_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">c:</VFP_свойство>
              <VFP_свойство имя="Left">155</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TdicDate</VFP_класс>
              <VFP_свойство имя="Name">cntSelDateS</VFP_свойство>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
               <элемент>
                <VFP_имя>Text</VFP_имя>
                <VFP_свойство имя="ControlSource">dSelDateS</VFP_свойство>
                <VFP_свойство имя="NotEmpty">.T.</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">по:</VFP_свойство>
              <VFP_свойство имя="Left">330w</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TdicDate</VFP_класс>
              <VFP_свойство имя="Name">cntDateEnd</VFP_свойство>
              <VFP_свойство имя="Left">355</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
               <элемент>
                <VFP_имя>Text</VFP_имя>
                <VFP_свойство имя="ControlSource">dDateEnd</VFP_свойство>
                <VFP_свойство имя="NotEmpty">.T.</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
              <VFP_свойство имя="Caption">Учреждение:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">275</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTS173_186_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">85</VFP_свойство>
              <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
            </элемент>            
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">330</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
              <VFP_свойство имя="Top">80</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">115</VFP_свойство>
              <VFP_свойство имя="Caption">Вид деятельности:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_VFO</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Width">275</VFP_свойство>
              <VFP_свойство имя="BoundColumn">2</VFP_свойство>
              <VFP_свойство имя="RowSourceType">5</VFP_свойство>
              <VFP_свойство имя="Style">2</VFP_свойство>
              <VFP_свойство имя="DisplayCount">6</VFP_свойство>
              <VFP_свойство имя="ControlSource">cVFO</VFP_свойство>
              <VFP_метод имя="ValueChanged"><![CDATA[LParam oThis, oThisForm
If !Empty(oThis.Value)
  oThis.Parent.Txt18B2.Value = ""
  oThis.Parent.Txt18B3.Value = ""
  oThis.Parent.Txt18B4.Value = ""
  oThis.Parent.Txt18B5.Value = ""
  oThis.Parent.Txt18B6.Value = ""
  oThis.Parent.Txt18B7.Value = ""
  oThis.Parent.Txt18B8.Value = ""
  oThis.Parent.Txt18B9.Value = ""
  oThis.Parent.Txt18B10.Value = ""
  If oThis.Value = "b"
    oThis.Parent.Txt18B1.Value = "1"
  EndIf
  If oThis.Value = "t"
    oThis.Parent.Txt18B1.Value = "3"
  EndIf
EndIf
]]></VFP_метод>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
              <VFP_свойство имя="Caption">Код вида финансового обеспечения:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">246</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">267</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">288</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">309</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">330</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">351</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">372</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">393</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">414</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">435</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B10</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B10</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Балансовая единица:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">175</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>S_balunits</VFP_класс>
              <VFP_свойство имя="Name">Balunits</VFP_свойство>
              <VFP_свойство имя="Left">175</VFP_свойство>
              <VFP_свойство имя="Top">170</VFP_свойство>
              <VFP_свойство имя="Width">275</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">balunit.mnemo</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">balunit.rn</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">45</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">450</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Забалансовые счета</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">210</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Уровень аналитики для забалансовых счетов:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">230</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TSpinner</VFP_класс>
              <VFP_свойство имя="ControlSource">nAnLevel</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Inputmask">9</VFP_свойство>
              <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
              <VFP_свойство имя="KeyboardLowValue">0</VFP_свойство>
              <VFP_свойство имя="Left">410</VFP_свойство>
              <VFP_свойство имя="Name">aLevel</VFP_свойство>
              <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
              <VFP_свойство имя="SpinnerLowValue">0.00</VFP_свойство>
              <VFP_свойство имя="Top">225</VFP_свойство>
              <VFP_свойство имя="Width">40</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">40</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">270</VFP_свойство>
              <VFP_свойство имя="Width">450</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">«Долгосрочные» показатели</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">265</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TCheckBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">285</VFP_свойство>
              <VFP_свойство имя="ControlSource">nNoCalcLong</VFP_свойство>
              <VFP_свойство имя="Name">chkNoCalcLong</VFP_свойство>
              <VFP_свойство имя="Caption">Не рассчитывать «долгосрочные» показатели</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">450</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">295</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">295</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">450</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">295</VFP_свойство>
              <VFP_свойство имя="Top">105</VFP_свойство>
              <VFP_свойство имя="Width">155</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Name">JournalOp</VFP_свойство>
              <VFP_свойство имя="ControlSource">cJournalOp</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">210</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">150</VFP_свойство>
              <VFP_свойство имя="Width">450</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
              <VFP_свойство имя="Caption">Причины возникновения ошибок прошлых лет</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">160</VFP_свойство>
              <VFP_свойство имя="Width">250</VFP_свойство>
              <VFP_свойство имя="Height">28</VFP_свойство>
              <VFP_свойство имя="Caption">Несвоевременное поступление первичных учетных документов:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup1</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">160</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp1_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">190</VFP_свойство>
              <VFP_свойство имя="Width">430</VFP_свойство>
              <VFP_свойство имя="Height">28</VFP_свойство>
              <VFP_свойство имя="Caption">Несвоевременное отражение фактов хозяйственной жизни в регистрах бухгалтерского учета:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup2</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">205</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp2_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">235</VFP_свойство>
              <VFP_свойство имя="Width">250</VFP_свойство>
              <VFP_свойство имя="Height">28</VFP_свойство>
              <VFP_свойство имя="Caption">Ошибки в применении счетов бухгалтерского учета:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup3</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">235</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp3_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">265</VFP_свойство>
              <VFP_свойство имя="Width">430</VFP_свойство>
              <VFP_свойство имя="Height">41</VFP_свойство>
              <VFP_свойство имя="Caption">Ошибки, допущенные при отражении бухгалтерских записей на основании первичного учетного документа (за исключением ошибок в применении счетов бухгалтерского учета):</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup4</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">295</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp4_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">330</VFP_свойство>
              <VFP_свойство имя="Caption">Иные причины:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup5</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">325</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp5_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
          </элемент>
          <элемент>
            <VFP_имя>Page3</VFP_имя>
            <VFP_свойство имя="Caption">Прочие операции</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <элемент>
              <VFP_класс>T3dShape</VFP_класс>
              <VFP_свойство имя="Height">120</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">450</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">5</VFP_свойство>
              <VFP_свойство имя="Caption">Прочие операции</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="WordWrap">.T.</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <VFP_свойство имя="Width">430</VFP_свойство>
              <VFP_свойство имя="Height">28</VFP_свойство>
              <VFP_свойство имя="Caption">Реорганизация (ликвидация) субъекта отчетности, включая изменение типа и/или подведомственности (код 01):</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup01</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">35</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp01_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">70</VFP_свойство>
              <VFP_свойство имя="Caption">Изменение учетной политики (код 04):</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup04</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">65</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp04_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">100</VFP_свойство>
              <VFP_свойство имя="Caption">Иные причины (код 06):</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">EOPGroup06</VFP_свойство>
              <VFP_свойство имя="Left">275</VFP_свойство>
              <VFP_свойство имя="Top">95</VFP_свойство>
              <VFP_свойство имя="Width">175</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">EOBGrup</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">EOBGrup_bm</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">Mnemo</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_EOPGrp05_173_186N_2023</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
          </элемент>
          <элемент>
            <VFP_имя>Page4</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">450</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">370</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">390</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <VFP_свойство имя="Width">60</VFP_свойство>
              <VFP_свойство имя="MaxLength">3</VFP_свойство>
              <VFP_свойство имя="ControlSource">cIST</VFP_свойство>
              <VFP_свойство имя="Name">IST</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Исполнитель:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">85</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisForm
= CurOpen("orgbase, person")
Local oPg
oPg = oThisForm.PF.Page4
If !Empty(oPg.dicIsp.Value)
  = Seek(oPg.dicIsp.Value, "orgbase", "RN")
  If orgbase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом.")
    oPg.dicIsp.Clear()
  Else    
    = Seek(oPg.dicIsp.Value, "person", "RN")
    oPg.fldIspName.Value = AllTrim(Person.SURName) + " " + Left(AllTrim(Person.FIRSTName), 1) + "." + Left(AllTrim(Person.SECONDName), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
              <VFP_свойство имя="Name">dicIsp</VFP_свойство>
              <VFP_свойство имя="Left">200</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_AgentsFIO173_186_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">200</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">200</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_свойство>
            </элемент>
          </элемент>
       </элемент>
    </описание>
  </форма>
</Модуль>
