<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503790-33н_ред164н_2023</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503790_164n_2023</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503790_164n_2023</мнемокод>
        <файл>Форма0503790_33н_ред164н_2023.xlt</файл>
      </шаблон>
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503790_164n_2023</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dSelDate;cOrg;cRN_Found;cBalUnits;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;nAccType;cMOLInvestRN;cJournalOp;cUnlPath;cIST;cDicIsp;cIspName;cIspTel</список_переменных>
        <мемофайл>ar_form0503790_33n_164n_2023;ar_form0503790_33n_183n_2022;ar_form0503790_33n_170n_2021;ar_form0503790_33n_189n_2017</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dSelDate</имя>
        <начальное_значение>oSystem.Date</начальное_значение>
        <!--Отчетный период-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учреждение-->
      </переменная>
      <переменная>
        <имя>cWhereOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по БУ-->
      </переменная>
      <переменная>
        <имя>cRN_Found</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учредитель-->
      </переменная>
      <переменная>
        <имя>cBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Балансовые единицы-->
      </переменная>
      <переменная>
        <имя>cWhereBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>"2"</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>"4"</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>"5"</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>"6"</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>"7"</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код вида деятельности-->
      </переменная>
      <переменная>
        <имя>cUsl18B</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие для кода вида деятельности-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>cPos19</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cMOLInvestRN</имя>
        <начальное_значение>""</начальное_значение>
        <!--Лицо, ответственное за реализацию инвестиционного проекта-->
      </переменная>
      <переменная>
        <имя>cJournalOp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Журнал операций-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
         <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
         <!--Глава по БК-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2023,12,31)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>
    </переменные>
    <запуск_формы>
      <ид>f_0503790_33n_164n_2023</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
 * Глава по БК
 Local ARRAY arBP[1]

 If !Empty(m.cWhereOrg)
   Select fBudMG.Rasp_Code ;
     From OrgBase ;
       Inner Join fBudMG On OrgBase.RN = fBudMG.OrgBase_RN ;
     Where &cWhereOrg And !Empty(fBudMG.Rasp_Code);
     Into Array arBP
   *
   If _Tally > 0
     glBK = arBP(1)
   EndIf 
 EndIf 

 If Empty(m.glBK)
   Select Rasp_Code ;
     From fBudMG ;
     Where OrgBase_RN = ?oSystem.OwnerOrgRn And !Empty(Rasp_Code);
     Into Array arBP
   *
   If _Tally > 0
     glBK = arBP(1)
   EndIf 
 EndIf
   ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
*ON ERROR
Local lOrgPO, cJoinPU, cWhere, cJoinNomn, cNumcl, oREC, dDateBegin, dDateEnd, nSelYear, lOk, cRZakDcUnitRN, cObligUnitRN, cContRN, nRecNo, nI
Local ARRAY arrYear[1]
Store "" To cJoinPU
dDateBegin = DOX(m.dSelDate, 1)
dDateEnd   = DOX(m.dSelDate, 4)
nSelYear   = Year(m.dSelDate)

* Вспомогательная таблица
Create CURSOR crsTemp (RN_NUMCL C(4), Year_Begin N(4), SmetStoim N(18,2), FactBegin N(18,2), FactIncr N(18,2), FactDecr N(18,2), KassaALL N(18,2), KassaFed N(18,2))
Index On RN_NUMCL Tag RN

* Отбор контрагентов по бюджетному учреждению
lOrgPO = !Empty(m.cWhereOrg)

If m.lOrgPO
  Select RN From OrgBase Where &cWhereOrg Into Cursor crsOrgPU
  Index On RN Tag RN
EndIf

lOk = RepG151.GetComRepPrm151("0503790", m.lNoError, m.glBK, m.cUsl18B, m.cWhereBalUnits)

* Список счетов
cWhere = m.cUsl18B + " And InList(SubStr(Account, " + m.cPos19 + ", 5), '10611', '10691') And ?m.lOk"
If !Empty(m.cWhereBalUnits)
  cWhere = m.cWhere + " And " + m.cWhereBalUnits
EndIf

Select AccBase.RN, AccBase.RN_MO, ;
       Between(AccBase.S_ANALITYC, 1, 5) As LTMC, ;
       AT("1", AccBase.ORG_AN) As OrgLevel, ;
       AT("2", AccBase.ORG_AN) As NomLevel  ;
  From AccBase ;
    Left Join BalUnit On AccBase.RN_BalUnit = BalUnit.RN ;
  Where &cWhere ;
  Into CURSOR curAcc

** Остатки мат. ценностей
If m.lOrgPO
  cJoinPU = "Inner Join BOrgSpec BS On N.RN_MOL = BS.OrgBase_RN " ;
          + "Inner Join BOrgBase BB On BS.Master_RN = BB.BOrg_RN " ;
          + "Inner Join crsOrgPU PU On BB.OrgBase_RN = PU.RN"
EndIf

Select N.RN_NUMCL, N.SUM_EQUAL ;
  From curAcc A ;
    Inner Join NomRest N On A.RN = N.RN_ACCOUNT ;
    &cJoinPU ;
  Where A.LTMC And N.DATE_REST = ?m.dDateBegin ;
  Into CURSOR curRestTMC

** Остатки по аналитическим счетам
Create CURSOR curRestAn (RN_NUMCL C(4), SUM_EQUAL N(18,2))

Select curAcc
Scan For !LTMC And !(m.lOrgPO And OrgLevel = 0)
  * Отбор бюджетному учреждению
  If m.lOrgPO
    cJoinPU = "Inner Join AccSpec AnPU On S.RN_AC_A" + Str(OrgLevel, 1) + " = AnPU.RN " ;
            + "Inner Join crsOrgPU PU On AnPU.RN_TORG = PU.RN"
  EndIf

  * Номенклатура
  If NomLevel = 0
    Store "" To cJoinNomn
    cNumcl = "Space(4)"
  Else
    cJoinNomn = "Left Join AccSpec AnN On S.RN_AC_A" + Str(NomLevel, 1) + " = AnN.RN "
    cNumcl = "NVL(AnN.RN_NoBase, Space(4))"
  EndIf

  Select &cNumcl As RN_NUMCL, S.SUMM_DB_EQUAL - S.SUMM_KR_EQUAL As SUM_EQUAL ;
  From AcRest R ;
    Inner Join AcAnRest S On R.RN = S.Master_RN ;
    &cJoinPU &cJoinNomn ;
  Where R.RN_ACCOUNT = ?curAcc.RN And R.DATE_REST = ?m.dDateBegin ;
  Into CURSOR curRestAn_

  Scan
    Scatter NAME oREC
    Insert Into curRestAn From NAME oREC
  EndScan

  USE In curRestAn_
EndScan

* Объединяем остатки ТМЦ с остатками по аналитическим счетам
Select * From curRestTMC UNION ALL Select * From curRestAn Into CURSOR curRest_
USE In curRestTMC
USE In curRestAn

Select RN_NUMCL, Sum(SUM_EQUAL) As FactBegin ;
  From curRest_ ;
  Group By 1 ;
  Into CURSOR curRest

USE In curRest_

* Сбрасываем данные во вспомогательную таблицу
Select curRest
Scan For FactBegin # 0
  Scatter NAME oREC
  Insert Into crsTemp From NAME oREC
EndScan

USE In curRest

** Хоз. операции
Create CURSOR curEOP_ (RN_NUMCL C(4), FactBegin N(18,2), FactIncr N(18,2), FactDecr N(18,2))

Select curAcc
Scan For !(m.lOrgPO And OrgLevel = 0)
  * Отбор бюджетному учреждению
  If m.lOrgPO
    cJoinPU = "Inner Join AccSpec AnPU On S.RN_DB_A" + Str(OrgLevel, 1) + " = AnPU.RN " ;
            + "Inner Join crsOrgPU PU On AnPU.RN_TORG = PU.RN"
  EndIf

  * Номенклатура
  Store "" To cJoinNomn
  If LTMC
    cNumcl = "S.RN_NUMCL"
  Else
    If NomLevel = 0
      cNumcl = "Space(4)"
    Else
      cJoinNomn = "Left Join AccSpec AnN On S.RN_DB_A" + Str(NomLevel, 1) + " = AnN.RN "
      cNumcl = "NVL(AnN.RN_NoBase, Space(4))"
    EndIf
  EndIf

  * Обороты по дебету
  Select &cNumcl As RN_NUMCL, S.SUM_EQUAL, ;
         !Empty(?m.cJournalOp) And (S.RN_MO = ?m.cJournalOp Or Nvl(C.RN_MO, Space(4)) = ?m.cJournalOp Or ?curAcc.RN_MO = ?m.cJournalOp) As IsIsprav ;
    From EopBase B ;
      Inner Join EopSpec S ON B.RN = S.Master_RN ;
      Inner Join AccBase C On S.RN_KR = C.RN ;
      &cJoinPU &cJoinNomn ;
    Where B.Date_EOP Between ?m.dDateBegin AND ?m.dDateEnd And S.RN_DB = ?curAcc.RN ;
    Into CURSOR curDB_

  Select RN_NUMCL, ;
         Iif(IsIsprav, SUM_EQUAL, 000000000000000.00) As FactBegin, ;
         Iif(IsIsprav, 000000000000000.00, SUM_EQUAL) As FactIncr, ;
         000000000000000.00 As FactDecr ;
    From curDB_ ;
    Into CURSOR curDB

  Use In curDB_

  Select curDB
  Scan
    Scatter NAME oREC
    Insert Into curEOP_ From NAME oREC
  EndScan

  USE In curDB

  * Обороты по кредету
  cJoinPU   = StrTran(m.cJoinPU, "_DB_", "_KR_")
  cJoinNomn = StrTran(m.cJoinNomn, "_DB_", "_KR_")

  Select &cNumcl As RN_NUMCL, S.SUM_EQUAL, ;
         !Empty(?m.cJournalOp) And (S.RN_MO = ?m.cJournalOp Or Nvl(C.RN_MO, Space(4)) = ?m.cJournalOp Or ?curAcc.RN_MO = ?m.cJournalOp) As IsIsprav ;
    From EopBase B ;
      Inner Join EopSpec S ON B.RN = S.Master_RN ;
      Inner Join AccBase C On S.RN_DB = C.RN ;
      &cJoinPU &cJoinNomn ;
    Where B.Date_EOP Between ?m.dDateBegin AND ?m.dDateEnd And S.RN_KR = ?curAcc.RN ;
    Into CURSOR curKR_

  Select RN_NUMCL, ;
         Iif(IsIsprav, -SUM_EQUAL, 000000000000000.00) As FactBegin, ;
         000000000000000.00 As FactIncr, ;
         Iif(IsIsprav, 000000000000000.00, SUM_EQUAL) As FactDecr ;
    From curKR_ ;
    Into CURSOR curKR

  Use In curKR_

  Select curKR
  Scan
    Scatter NAME oREC
    Insert Into curEOP_ From NAME oREC
  EndScan

  USE In curKR
EndScan

USE In curAcc

* Объединяем обороты
Select RN_NUMCL, Sum(FactBegin) As FactBegin, Sum(FactIncr) As FactIncr, Sum(FactDecr) As FactDecr ;
  From curEOP_ ;
  Group By 1 ;
  Into CURSOR curEOP

USE In curEOP_

* Сбрасываем данные во вспомогательную таблицу
Select curEOP
Scan For FactBegin # 0 Or FactIncr # 0 Or FactDecr # 0
  Scatter NAME oREC
  Insert Into crsTemp From NAME oREC
EndScan

USE In curEOP

** Бюджетные обязательства
If m.lOrgPO
  cJoinPU = "Inner Join crsOrgPU PU On B.OrgPU_RN = PU.RN"
EndIf

Select B.RN, 0000 As Year_Begin ;
  From ObligBs B ;
    &cJoinPU ;
  Where B.DATE_DOC <= ?m.dDateEnd And B.DOC_TYPE = 1 And B.Use_Spec And Year(B.CURR_YEAR) = ?m.nSelYear And B.CUR_SUM_EQUAL > 0  And ?m.lOk ;
    And (Empty(B.DateClose) Or B.DateClose > ?m.dDateEnd) And !Empty(B.Link_EO) ;
  Into CURSOR curObligBs READWRITE

CurClose("crsOrgPU")

* действующие версии госконтрактов
cRZakDcUnitRN = UnitRN("ReestrZak")
cObligUnitRN  = UnitRN("Obligation")

CurOpen("RZakDc")

Select curObligBs
Scan
  * ищем связь с госконтрактом
  cContRN = ""
  If Seek(curObligBs.RN, "ObligBs", "RN")
    nRecNo = RecNo("ObligBs")
    Do While ObligBs.IsCorr And Seek(ObligBs.SOURCE_RN, "ObligBs", "RN") Or !Empty(ObligBs.PrevBO_RN) And Seek(ObligBs.PrevBO_RN, "ObligBs", "RN")
      nRecNo = RecNo("ObligBs")
    EndDo
    Goto m.nRecNo In ObligBs
    = CheckParentRef(m.cObligUnitRN, ObligBS.RN, m.cRZakDcUnitRN, @cContRN, "RZakMakeOblig")
  EndIf

  * теперь находим действующую версию госконтракта
  If !Empty(m.cContRN) And Seek(m.cContRN, "RZakDc", "RN")
    Do RZakDC_SeekActual
    Replace Year_Begin With Year(RZakDc.Date_BK) In curObligBs
  EndIf
EndScan

* Данные из расшифровки БО
Select B.*, S.RN_FAIP As RN_NUMCL, ;
       S.SUM_ISPP_EQ + S.SUM_M1_EQ + S.SUM_M2_EQ + S.SUM_M3_EQ + S.SUM_M4_EQ + S.SUM_M5_EQ + S.SUM_M6_EQ + ;
       S.SUM_M7_EQ + S.SUM_M8_EQ + S.SUM_M9_EQ + S.SUM_M10_EQ + S.SUM_M11_EQ + S.SUM_M12_EQ + ;
       S.SUM_YEAR1_EQ + S.SUM_YEAR2_EQ + S.SUM_YEAR3_EQ + S.SUM_YEAR4_EQ + S.SUM_YEAR5_EQ As SmetStoim, ;
       S.SUM_ISP_EQ + S.SUM_ISPP_EQ As KassaALL, ;
       Iif(F.TYPE = 0, S.SUM_ISP_EQ + S.SUM_ISPP_EQ, 000000000000000.00) As KassaFed ;
  From curObligBs B ;
    Inner Join ObligSp  S On B.RN = S.Master_RN ;
    Inner Join fSbSSpec C On S.FSbSSpec_RN = C.RN ;
    Inner Join fSbFBase F On S.FSbFBase_RN = F.RN ;
    Inner Join bExpKind E On F.RN_VidR = E.RN ;
  Where S.SUM_ISP_EQ + S.SUM_ISPP_EQ > 0 And (InList(Left(E.Code, 3), '407', '411', '412', '413', '414', '415') Or Left(E.Code, 2) = '06') ;
  Into CURSOR curObligSp

USE In curObligBs

* группируем
Select RN_NUMCL, Year_Begin, Sum(SmetStoim) As SmetStoim, Sum(KassaALL) As KassaALL, Sum(KassaFed) As KassaFed ;
  From curObligSp ;
  Group By 1, 2 ;
  Into CURSOR curOblig

USE In curObligSp

* Сбрасываем данные во вспомогательную таблицу
Select curOblig
Scan For SmetStoim # 0 Or KassaALL # 0 Or KassaFed # 0
  Scatter NAME oREC
  Insert Into crsTemp From NAME oREC
EndScan

USE In curOblig

** Обработка данных во вспомогательной таблице
Select DIST RN_NUMCL From crsTemp Into CURSOR curNUMCL2

Scan
  Select Min(Year_Begin) As Year_Begin From crsTemp Where RN_NUMCL = ?curNUMCL2.RN_NUMCL And !Empty(Year_Begin) Into ARRAY arrYear
  If _Tally # 0
    Select crsTemp
    Replace Year_Begin With arrYear[1] For RN_NUMCL = curNUMCL2.RN_NUMCL
  EndIf
EndScan

* группируем
Select RN_NUMCL, Year_Begin, ;
       Sum(SmetStoim) As SmetStoim, ;
       Sum(FactBegin) As FactBegin, ;
       Sum(FactIncr)  As FactIncr,  ;
       Sum(FactDecr)  As FactDecr,  ;
       Sum(KassaALL)  As KassaALL,  ;
       Sum(KassaFed)  As KassaFed   ;
  From crsTemp ;
  Group By 1, 2 ;
  Into CURSOR crs790

USE In crsTemp

&& Формирую имя файла для выгрузки в МинФин
If !Empty(m.cUnlPath)
  Local Array aFiles(1)
  Local nNum, cNum, nN, i, nFls
  cUnlPath  = AllTrim(m.cUnlPath)
  cFormCode = "390"
  cFileName = m.cFormCode
  Do Case
    Case Month(m.dDateEnd + 1) = 1            && год
      cFileName = m.cFileName + "Y"
    Case Month(m.dDateEnd + 1) = 7            && полугодие
      cFileName = m.cFileName + "P"
    Case InList(Month(m.dDateEnd + 1), 4, 10) && квартал
      cFileName = m.cFileName + "Q"
    Otherwise                                 && месяц
      cFileName = m.cFileName + "M"
  EndCase
  nNum = 0
  nFls = ADir(aFiles, m.cUnlPath + m.cFileName + "??.txt")
  For m.i = 1 To m.nFls
    nN    = AT(".", aFiles(m.i, 1))
    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

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

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

Select crs790
nI = 1
Scan
  * Печать строки
  If m.nI > 1
    oPrint.InsertRange()
  EndIf
  oPrint.PrintRange("Spec")
  nI = m.nI + 1
EndScan

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

CurClose("crs790")

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

oPrint = NULL

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

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

If Empty(oPage.Txt18B1.Value) and Empty(oPage.Txt18B2.Value) and ;
   Empty(oPage.Txt18B3.Value) and Empty(oPage.Txt18B4.Value) and ;   
   Empty(oPage.Txt18B5.Value) and Empty(oPage.Txt18B6.Value) and ;
   Empty(oPage.Txt18B7.Value) and Empty(oPage.Txt18B8.Value) and ;
   Empty(oPage.Txt18B9.Value) and Empty(oPage.Txt18B10.Value) 
   =ExclMes("Не указан код вида деятельности!")
   oThisForm.PF.ActivePage = 1
   oPage.Txt18B1.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 

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

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

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

cUsl18B = "InList(SubStr(AccBase.Account, " + m.cPos18 + ", 1), " + m.cUsl18B + ")"

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

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

]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisform
    Local oPage
    oPage = oThisForm.PF.Page1
    oPage.cntSelDate.InitThis(m.dSelDate)
    oPage.OrgFrom.SetSaveValue(m.cOrg)
    oPage.Founder.InitThis(m.cRN_Found)
    oPage.BalUnits.SetSaveValue(m.cBalUnits)
    oPage.dicMOLInvest.InitThis(m.cMOLInvestRN)
    oPage.JournalOp.Value = m.cJournalOp

    oPage = oThisForm.PF.Page2
    oPage.Catalog.Text.Value = m.cUnlPath
    oPage.DicIsp.setsavevalue(m.cDicIsp)
    oPage.fldIspName.Value = m.cIspName
]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">190</VFP_свойство>
        <VFP_свойство имя="Top">328</VFP_свойство>
      </элемент>
      <элемент>
        <VFP_класс>TPageFrame</VFP_класс>
        <VFP_свойство имя="Name">PF</VFP_свойство>
        <VFP_свойство имя="Height">325</VFP_свойство>
        <VFP_свойство имя="Width">465</VFP_свойство>
        <VFP_свойство имя="PageCount">2</VFP_свойство>
        <элемент>
          <VFP_имя>Page1</VFP_имя>
          <VFP_свойство имя="Caption">Параметры формирования</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">225</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">10</VFP_свойство>
            <VFP_свойство имя="Width">445</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_класс>Month_year_m</VFP_класс>
            <VFP_свойство имя="Name">cntSelDate</VFP_свойство>
            <VFP_свойство имя="ControlSource">dSelDate</VFP_свойство>
            <VFP_свойство имя="Left">170</VFP_свойство>
            <VFP_свойство имя="Top">20</VFP_свойство>
            <элемент>
              <VFP_имя>SelYear</VFP_имя>
              <VFP_свойство имя="Left">180</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_имя>lbllYear</VFP_имя>
              <VFP_свойство имя="Left">250</VFP_свойство>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
            <VFP_свойство имя="Caption">Учреждение:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
            <VFP_свойство имя="Left">170</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_AGENTS790_164N_2023</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <VFP_свойство имя="condfield" тип="C">orgbase.rmnemo_org</VFP_свойство>
            <VFP_свойство имя="condfieldrn" тип="C">orgbase.rn</VFP_свойство>
            <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
            <VFP_свойство имя="Caption">Учредитель:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">Founder</VFP_свойство>
            <VFP_свойство имя="Left">170</VFP_свойство>
            <VFP_свойство имя="Top">80</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_FOUND790_164N_2023</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Балансовая единица:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>S_balunits</VFP_класс>
            <VFP_свойство имя="Name">Balunits</VFP_свойство>
            <VFP_свойство имя="Left">170</VFP_свойство>
            <VFP_свойство имя="Top">110</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_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">145</VFP_свойство>
            <VFP_свойство имя="Caption">Вид финансового обеспечения:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">236</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">257</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">278</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">299</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">320</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">341</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">362</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">383</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">404</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">425</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_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">175</VFP_свойство>
            <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
          </элемент>            
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="Left">325</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
            <VFP_свойство имя="Top">170</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">120</VFP_свойство>
            <VFP_свойство имя="BoundTo">2</VFP_свойство>
            <VFP_свойство имя="RowSourceType">1</VFP_свойство>
            <VFP_свойство имя="RowSource">26 символов,9 символов</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="ControlSource">nAccType</VFP_свойство>
            <VFP_свойство имя="delenabled">.F.</VFP_свойство>
            <VFP_свойство имя="notempty">.T.</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">200</VFP_свойство>
            <VFP_свойство имя="Caption">Лицо, ответственное за реализацию</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">213</VFP_свойство>
            <VFP_свойство имя="Caption">инвестиционного проекта:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">dicMOLInvest</VFP_свойство>
            <VFP_свойство имя="Left">293</VFP_свойство>
            <VFP_свойство имя="Top">200</VFP_свойство>
            <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
            <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
            <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
            <VFP_свойство имя="HistoryName" тип="C">H_MOLInvest790_164N_2023</VFP_свойство>
            <VFP_свойство имя="filter">orgbase.type='2'</VFP_свойство>
            <VFP_свойство имя="ControlSource" тип="C">m.cMOLInvestRN</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>                
          </элемент>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">45</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">445</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">240</VFP_свойство>
            <VFP_свойство имя="Caption">Операции по исправлению ошибок прошлых лет</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">260</VFP_свойство>
            <VFP_свойство имя="Caption">Журнал операций:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>ordera</VFP_класс>
            <VFP_свойство имя="Left">290</VFP_свойство>
            <VFP_свойство имя="Top">255</VFP_свойство>
            <VFP_свойство имя="Width">155</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Name">JournalOp</VFP_свойство>
            <VFP_свойство имя="ControlSource">cJournalOp</VFP_свойство>
          </элемент>
        </элемент>
        <элемент>
          <VFP_имя>Page2</VFP_имя>
          <VFP_свойство имя="Caption">Параметры выгрузки</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="height">165</VFP_свойство>
            <VFP_свойство имя="left">10</VFP_свойство>
            <VFP_свойство имя="top">10</VFP_свойство>
            <VFP_свойство имя="width">445</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">365</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">385</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <VFP_свойство имя="Width">60</VFP_свойство>
            <VFP_свойство имя="MaxLength">3</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIST</VFP_свойство>
            <VFP_свойство имя="Name">IST</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Исполнитель:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">dicIsp</VFP_свойство>
            <VFP_свойство имя="Left">195</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_AgentsIsp790_164N_2023</VFP_свойство>
            <VFP_свойство имя="filter">orgbase.type='2'</VFP_свойство>
            <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform
= CurOpen("orgbase, person")
If !Empty(oThis.Value)
  = Seek(oThis.Value, "orgbase", "RN")
  If orgbase.type # '2'
    ErrMes("Выбранный контрагент не является физическим лицом.")
    oThis.Clear()
  Else    
    = Seek(oThis.Value, "person", "RN")
    oThis.Parent.fldIspName.Value = Alltrim(person.SURNAME) + " " + Left(Alltrim(person.FIRSTNAME), 1) + "." + Left(Alltrim(person.SECONDNAME), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>                
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ФИО:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">195</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">195</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">250</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
            <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
          </элемент>
        </элемент>
      </элемент>
    </описание>
  </форма>
</Модуль>
