<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503779-33н_ред73н_2019</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503779_73n_2019</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503779_73n_2019</мнемокод>
        <файл>Форма0503779_33н_ред73н_2019.xlt</файл>
      </шаблон>
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503779_73n_2019</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dBalOpen;dSelDate;dReoDate;cOrg;nAnLevel;cVFO;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;cBalUnits;nAccType;cUnlPath;cIST;cDicIsp;cIspName;cIspTel;cUnlPath4;cIdReceiver;cIdReceiverMain;cRN_Found;cAgent_RN;cAgentDoc</список_переменных>
        <мемофайл>ar_form0503779_33n_73n_2019</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dBalOpen</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата расчета показателей вступительного баланса-->
      </переменная>
      <переменная>
        <имя>dSelDate</имя>
        <начальное_значение>oSystem.Date</начальное_значение>
        <!--Отчетный период-->
      </переменная>
      <переменная>
        <имя>dReoDate</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата реорганизации-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата с-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учреждение-->
      </переменная>
      <переменная>
        <имя>cWhereKontragent</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по учреждениям-->
      </переменная>
      <переменная>
        <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
        <!--Глава по БК-->
      </переменная>
      <переменная>
        <имя>nAnLevel</имя>
        <начальное_значение>0</начальное_значение>
        <!--Уровень аналитики для определения номера банковского (лицевого) счета"-->
      </переменная>
      <переменная>
        <имя>cVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--вид деятельности-->
      </переменная>
      <переменная>
        <имя>arrVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Массив видов деятельности-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для кода вида финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>cWhereRB</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Балансовые единицы-->
      </переменная>
      <переменная>
        <имя>cWhereBalUnits</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие по балансовым единицам-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cFormCode</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код формы-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
        <имя>cUnlPath4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки в ГНИ 4-->
      </переменная>
      <переменная>
        <имя>cFileId4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Идентификатор файла-->
      </переменная>
      <переменная>
        <имя>cFileName4</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки в ГНИ 4-->
      </переменная>
      <переменная>
        <имя>cIdReceiver</имя>
        <начальное_значение>""</начальное_значение>
        <!--Идентификатор получателя информации-->
      </переменная>
      <переменная>
        <имя>cIdReceiverMain</имя>
        <начальное_значение>""</начальное_значение>
        <!--Идентификатор конечного получателя информации-->
      </переменная>
      <переменная>
        <имя>cRN_Found</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учредитель-->
      </переменная>
      <переменная>
        <имя>cAgent_RN</имя>
        <начальное_значение>""</начальное_значение>
        <!--Уполномоченный представитель-->
      </переменная>
      <переменная>
        <имя>cAgentDoc</имя>
        <начальное_значение>""</начальное_значение>
        <!--Наименование документа, подтверждающего полномочия представителя-->
      </переменная>
      <переменная>
        <имя>arrOutMF1</имя>
        <начальное_значение>0</начальное_значение>
        <!--Массив для динамического формирования сценария выгрузки-->
      </переменная>
      <переменная>
        <имя>arrOutMF2</имя>
        <начальное_значение>0</начальное_значение>
        <!--Массив для динамического формирования сценария выгрузки-->
      </переменная>
      <переменная>
        <имя>arrOutMF3</имя>
        <начальное_значение>0</начальное_значение>
        <!--Массив для динамического формирования сценария выгрузки-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2019,06,30)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>            
    </переменные>
    <запуск_формы>
      <ид>f_0503779_33n_73n_2019</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <FPC_><![CDATA[*[VFP]
dDateEnd   = Iif(Empty(m.dReoDate), DOX(m.dSelDate, 4), m.dReoDate)
dDateBegin = Iif(Empty(m.dBalOpen), DOX(m.dDateEnd, 1), m.dBalOpen)
      ]]></FPC_>
    </вычисление>
    <печать>
      <!--Печать отчета--><MSE>
        <!--Печать в MS Excel-->
        <FPC_><![CDATA[*[VFP]
*ON ERROR

** Раздел 1. Счета в кредитных организациях
* остаток средств на счете (гр. 3, 5)
= FormRests(m.dDateBegin,   ["20121", "20122", "20126", "20127", "21003"], 3)
= FormRests(m.dDateEnd + 1, ["20121", "20122", "20126", "20127", "21003"], 5)
* средства в пути (гр. 4, 6)
= FormRests(m.dDateBegin,   ["20123"], 4)
= FormRests(m.dDateEnd + 1, ["20123"], 6)

Create CURSOR curSpec1 (ACC C(9), SACC C(80), ISO C(3), SUM3 N(18,2), SUM4 N(18,2), SUM5 N(18,2), SUM6 N(18,2))
Index On ACC + SACC + ISO Tag T1

= FormCursor(1, 3)
= FormCursor(1, 4)
= FormCursor(1, 5)
= FormCursor(1, 6)

** Раздел 2. Счета в финансовом органе
* остаток средств на счете (гр. 3, 5)
= FormRests(m.dDateBegin,   ["20111"], 3)
= FormRests(m.dDateEnd + 1, ["20111"], 5)
* средства в пути (гр. 4, 6)
= FormRests(m.dDateBegin,   ["20113"], 4)
= FormRests(m.dDateEnd + 1, ["20113"], 6)

Create CURSOR curSpec2 (ACC C(9), SACC C(80), ISO C(3), SUM3 N(18,2), SUM4 N(18,2), SUM5 N(18,2), SUM6 N(18,2))
Index On ACC + SACC + ISO Tag T1

= FormCursor(2, 3)
= FormCursor(2, 4)
= FormCursor(2, 5)
= FormCursor(2, 6)

** Раздел 3. Средства в Кассе учреждения
* остаток средств на счете (гр. 3, 5)
= FormRests(m.dDateBegin,   ["20134"], 3, .T.)
= FormRests(m.dDateEnd + 1, ["20134"], 5, .T.)

Create CURSOR curSpec3 (ACC C(9), SACC C(80), SUM3 N(18,2), SUM5 N(18,2))
Index On ACC + SACC Tag T1

= FormCursor(3, 3, .T.)
= FormCursor(3, 5, .T.)

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

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

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

&& Формирую имя файла для выгрузки в ГНИ 4
If !Empty(m.cUnlPath4) And !Empty(m.cVFO)
  Local Array aFiles(1), arrSender(1)
  Local cOrgRN, cSender, nNum
  cUnlPath4 = AllTrim(m.cUnlPath4)
  cFileId4  = "NO_BOUCHR10." + m.cVFO + "_" + PadL(AllTrim(m.cIdReceiver), 4, "0") + "_" + PadL(AllTrim(m.cIdReceiverMain), 4, "0")
  * отправитель информации
  cOrgRN = Iif(m.cOrg # "|" And Len(m.cOrg) == 4, m.cOrg, PadR(oSystem.OwnerOrgRn, 4))
  Select TYPE, INN From OrgBase Where RN = ?m.cOrgRN Into ARRAY arrSender
  If _Tally = 0
    cSender = Replicate("0", 19)
  Else
    If arrSender(1) = "1"   && юр. лицо
      cSender = PadR(StrTran(AllTrim(arrSender(2)), "/", ""), 19, "0")
    Else                    && физ. лицо
      cSender = PadR(AllTrim(arrSender(2)), 12, "0")
    EndIf
  EndIf
  cFileId4 = m.cFileId4 + "_" + m.cSender + "_" + DToS(oSystem.Date) + "_"
  nNum = 1
  DO While ADir(aFiles, m.cUnlPath4 + m.cFileId4 + LTRim(Str(m.nNum, 36)) + ".xml") # 0
    nNum = m.nNum + 1
  EndDO
  cFileId4 = m.cFileId4 + LTRim(Str(m.nNum, 36))
  cFileName4 = m.cUnlPath4 + m.cFileId4 + ".xml"
EndIf

* Печать отчета
Local oPrint, nSheet, i, j, s, nALen1, nALen2, nALen3, cFor
Private nI
Dimension arrOutMF1[1], arrOutMF2[1], arrOutMF3[1]

oPrint = objCaller.objExcelRep

oPrint.PrintRange("Header")

For m.j = 1 To 3
  s = Str(m.j, 1)
  cFor = "Sum3 # 0 Or Sum5 # 0" + Iif(m.j = 3, "", " Or Sum4 # 0 Or Sum6 # 0")
  Select Left(ACC, 1) As ACC, 0 As NPOSBEG, 0 As NPOSEND From curSpec&s Where &cFor GROUP BY 1 Into ARRAY arrOutMF&s
  nALen&s = _Tally
  Select curSpec&s
  i = 1
  Scan For &cFor
    If m.i # 1
      oPrint.InsertRange()
    EndIf
    oPrint.PrintRange("Spec" + m.s)
    i = m.i + 1
  EndScan
Next

* Выгрузка в МинФин
If !Empty(m.cFileName)
  For m.j = 1 To 3
    s = Str(m.j, 1)
    * области печати
    Local ARRAY aRepParts( 1 )
    aRepParts[ 1 ] = "OutMF" + m.s
    oPrint.ReportPrepare(@aRepParts)
    For m.nI = 1 To m.nALen&s
      oPrint.PrintReportPart("OutMF" + m.s)
    Next
    oPrint.ReportFinal()
  Next
EndIf

* Выгрузка в ГНИ 4
If !Empty(m.cFileName4)
  For m.j = 1 To 3
    s = Str(m.j, 1)
    Select curSpec&s
    i = 1
    Scan For Sum3 # 0 Or Sum5 # 0 Or m.j # 3 And (Sum4 # 0 Or Sum6 # 0)
      If m.i # 1
        oPrint.InsertRange()
      EndIf
      oPrint.PrintRange("SpecGni" + m.s)
      i = m.i + 1
    EndScan
  Next
EndIf

oPrint.PrintRange("Footer")

= CurClose("curSpec1;curSpec2;curSpec3")

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

* Удаление листа со сценарием выгрузки в ГНИ 4
If Empty(m.cFileName4) Or Empty(m.cVFO)
  = DeleteSheets(oPrint, "Выгрузка в ГНИ 4")
  oPrint.Book.Sheet = 1
EndIf

oPrint = NULL

Return
***


Procedure FormRests
* Формирование остатков
  LParameters dDate, cSubs, n1, l3

  * Переменные
  Local cWhere, n18Pos, n19Pos, dDate1, dDate2, cJoinAcAnRest, cJoinAccSpec, cSAccName, cRestAlias, cJoinAccSpecD, cJoinAccSpecK, cJoinAn, cJoinAn_D, cJoinAn_K, cWhereORG, i, s, cAlias
  cWhere = m.cWhereRB + Iif(Empty(m.cWhereBalUnits), "", " And " + m.cWhereBalUnits)
  n18Pos = IIF(m.nAccType = 1, 18, 1)
  n19Pos = m.n18Pos + 1
  dDate1 = DOX(m.dDate, 3)
  dDate2 = m.dDate - 1
  cAlias = "curRest" + Str(m.n1, 1)

  * Счета
  Select AccBase.RN, SubStr(AccBase.Account, ?m.n18Pos, 9) As ACC ;
    From AccBase ;
      Left Join BalUnit On AccBase.Rn_BalUnit = BalUnit.RN ;
    Where &cWhere And InList(SubStr(AccBase.Account, ?m.n19Pos, 5), &cSubs) ;
    Into CURSOR curAcc

  * Отбор остатков и оборотов по контрагенту
  cJoinAn   = ""
  cWhereORG = ".T."
  If !Empty(m.cWhereKontragent)
    Select AccSpec.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
      cWhereORG =  ".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 AcAnRest.RN_AC_A" + m.s + " = A" + m.s + ".RN "
      Next
      cWhereORG = "(!IsNull(A1.RN) Or !IsNull(A2.RN) Or !IsNull(A3.RN) Or !IsNull(A4.RN) Or !IsNull(A5.RN))"
    EndIf
  EndIf

  * Остаток н/м
  If m.nAnLevel = 0 And Empty(m.cWhereKontragent)
    cJoinAcAnRest = ""
    cRestAlias    = "AcRest"
  Else
    cJoinAcAnRest = "Inner Join AcAnRest On AcRest.RN = AcAnRest.Master_RN"
    cRestAlias    = "AcAnRest"
  EndIf

  If m.nAnLevel = 0
    cJoinAccSpec = ""
    cSAccName    = "Space(80)"
  Else
    cJoinAccSpec = "Left Join AccSpec On AcAnRest.RN_AC_A" + Str(m.nAnLevel, 1) + " = AccSpec.RN"
    cSAccName    = "Nvl(AccSpec.NAME_SACC, Space(80))"
  EndIf

  Select curAcc.ACC, ;
         &cSAccName As SACC, ;
         CurrBase.ISO, ;
         &cRestAlias..SUMM_DB_EQUAL - &cRestAlias..SUMM_KR_EQUAL As SUMM ;
    From curAcc ;
      Inner Join AcRest   On curAcc.RN      = AcRest.RN_ACCOUNT ;
      Inner Join CurrBase On AcRest.RN_CURR = CurrBase.RN ;
      &cJoinAcAnRest ;
      &cJoinAccSpec ;
      &cJoinAn ;
    Where AcRest.DATE_REST = ?m.dDate1 And &cWhereORG ;
    Into CURSOR curRstTmp

  * Обороты с н/м до даты расчета показателей вступительного баланса
  If Day(m.dDate) # 1
    cJoinAccSpecD = StrTran(m.cJoinAccSpec, "AcAnRest", "EopSpMir")
    cJoinAccSpecD = StrTran(m.cJoinAccSpecD, "_AC_", "_DB_")
    cJoinAccSpecK = StrTran(m.cJoinAccSpecD, "_DB_", "_KR_")
    cJoinAn_D     = StrTran(m.cJoinAn, "AcAnRest", "EopSpMir")
    cJoinAn_D     = StrTran(m.cJoinAn_D, "_AC_", "_DB_")
    cJoinAn_K     = StrTran(m.cJoinAn_D, "_DB_", "_KR_")

    Select * From curRstTmp ;
    Union ALL ;
    Select curAcc.ACC, ;
           &cSAccName As SACC, ;
           CurrBase.ISO, ;
           EopSpMir.SUM_EQUAL As SUMM ;
      From curAcc ;
        Inner Join EopSpMir On curAcc.RN      = EopSpMir.RN_DB ;
        Inner Join CurrBase On AcRest.RN_CURR = CurrBase.RN ;
        &cJoinAccSpecD ;
        &cJoinAn_D ;
      Where EopSpMir.DATE_EOP BETWEEN ?m.dDate1 AND ?m.dDate2 And &cWhereORG ;
    Union ALL ;
    Select curAcc.ACC, ;
           &cSAccName As SACC, ;
           CurrBase.ISO, ;
           -EopSpMir.SUM_EQUAL As SUMM ;
      From curAcc ;
        Inner Join EopSpMir On curAcc.RN      = EopSpMir.RN_KR ;
        Inner Join CurrBase On AcRest.RN_CURR = CurrBase.RN ;
        &cJoinAccSpecK ;
        &cJoinAn_K ;
      Where EopSpMir.DATE_EOP BETWEEN ?m.dDate1 AND ?m.dDate2 And &cWhereORG ;
      Into CURSOR curRstTmp
  EndIf

  If m.l3
    Select ACC, SACC, Sum(SUMM) As SUMM ;
      From curRstTmp ;
      Group By 1, 2 ;
      Into CURSOR &cAlias
  Else
    Select ACC, SACC, ISO, Sum(SUMM) As SUMM ;
      From curRstTmp ;
      Group By 1, 2, 3 ;
      Into CURSOR &cAlias
  EndIf

  CurClose("curRstTmp;crsAccSpRN")
EndProc
****


Procedure FormCursor
* Заполнение рабочего курсора
  LParameters n1, n2, l3
  If m.l3
    If RepG151.GetComRepPrm151("_0503779", @lNoError, m.n1, m.n2, m.l3)
      Local cRAlias, cField
      cRAlias = "curRest" + Str(m.n2, 1)
      cField  = "SUM" + Str(m.n2, 1)
      Select &cRAlias
      Scan
        If !Seek(ACC + SACC, "curSpec3")
          Insert Into curSpec3 (ACC, SACC) Values (&cRAlias..ACC, &cRAlias..SACC)
        EndIf
        Replace &cField With &cRAlias..SUMM In curSpec3
      EndScan
    EndIf
  Else
    RepG151.GetComRepPrm151("0503779", @lNoError, m.n1, m.n2)
  EndIf
  Use In ("curRest" + Str(m.n2, 1))
EndProc
****


Procedure DeleteSheets
* Удаление листа из отчета
  Parameters oPrint, cSheetName

  Local nSheet
  nSheet = oPrint.GetSheetNum(m.cSheetName)

  If m.nSheet > 0 
    oPrint.Book.Sheet = m.nSheet
    oPrint.Book.EditDeleteSheets()
  EndIf  
EndProc
]]></FPC_></MSE>
  <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T., !Empty(m.cVFO))
]]></FPC_>
  </печать>
  </отчет>
  <форма>
    <ид>f_0503779_33n_73n_2019</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503779</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503779-33н_ред73н_2019</VFP_свойство>
      <VFP_свойство имя="Height">385</VFP_свойство>
      <VFP_свойство имя="Width">480</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisForm
Local oPg1, oPg2, oPg21, oPg22, cUsl18B, c18B, c18Pos
Store "" To cUsl18B
oPg1 = oThisForm.PF.Page1
oPg2 = oThisForm.PF.Page2

dSelDate = oPg1.cntSelDate.restDate.Value

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

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

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

If !Empty(oPg1.cntBalOpen.Text.Value) And !Empty(oPg1.cntReoDate.Text.Value) And Year(oPg1.cntReoDate.Text.Value) # Year(oPg1.cntBalOpen.Text.Value)
   =ExclMes("Дата расчета показателей вступительного баланса и дата реорганизации должны относиться к одному году!")
   oThisForm.PF.ActivePage = 1
   oPg1.cntBalOpen.Text.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(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)
  cUsl18B = m.cUsl18B + Iif(Empty(m.cUsl18B), "", ",") + "'" + SubStr(m.c18B, m.i, 1) + "'"
Next
cUsl18B = "InList(SubStr(AccBase.Account, " + m.c18Pos + ", 1), " + m.cUsl18B + ")"
*
cWhereRB  = m.cUsl18B

cWhereKontragent = oPg1.OrgFrom.GetCond()
cOrg = oPg1.OrgFrom.GetSaveValue()

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

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

cDicIsp = oPg21.DicIsp.GetSaveValue()

* Каталог для выгрузки в ГНИ 4
oPg22 = oPg2.Export.Page2
cUnlPath4 = oPg22.Catalog4.Text.Value

If !Empty(oPg1.Cmb_VFO.Value)
   If !Empty(m.cUnlPath4) And !Directory(m.cUnlPath4, 1)
      =ExclMes("Каталог " + AllTrim(m.cUnlPath4) + Chr(13) + "не существует!")
      oThisForm.PF.ActivePage = 2
      oPg2.Export.ActivePage = 2
      oPg22.Catalog4.SetFocus()
      Return .F.
   EndIf
EndIf

cRN_Found = oPg22.Founder.Value
cAgent_RN = oPg22.DicAgent4.Value
]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisForm
Dimension arrVFO[6, 3]
*
arrVFO[1, 1] = PadR("Приносящая доход деятельность (собственные доходы учреждения) (код вида - 2)", 80)
arrVFO[1, 2] = "2"
arrVFO[1, 3] = "v"
*
arrVFO[2, 1] = PadR("Средства во временном распоряжении (код вида - 3)", 80)
arrVFO[2, 2] = "3"
arrVFO[2, 3] = "t"
*
arrVFO[3, 1] = PadR("Субсидии на выполнение государственного (муниципального) задания (код вида - 4)", 80)
arrVFO[3, 2] = "4"
arrVFO[3, 3] = "v"
*
arrVFO[4, 1] = PadR("Субсидии на иные цели (код вида - 5)", 80)
arrVFO[4, 2] = "5"
arrVFO[4, 3] = "b"
*
arrVFO[5, 1] = PadR("Субсидии на цели осуществления капитальных вложений (код вида - 6)", 80)
arrVFO[5, 2] = "6"
arrVFO[5, 3] = "b"
*
arrVFO[6, 1] = PadR("Средства по обязательному медицинскому страхованию (код вида - 7)", 80)
arrVFO[6, 2] = "7"
arrVFO[6, 3] = "v"
*

Local cIspolnitel
Local oPg1, oPg2, oPg21, oPg22
oPg1 = oThisForm.PF.Page1
oPg2 = oThisForm.PF.Page2
oPg1.cntSelDate.InitThis(m.dSelDate)
oPg1.cntReoDate.Text.ValueChanged()
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)

oPg21 = oPg2.Export.Page1
cIspolnitel = m.cIspName
oPg21.Catalog.Text.value = m.cUnlPath
oPg21.DicIsp.SetSaveValue(m.cDicIsp)
oPg21.fldIspName.Value = m.cIspolnitel

oPg22 = oPg2.Export.Page2
oPg22.Catalog4.Text.Value = m.cUnlPath4
oPg22.Founder.InitThis(m.cRN_Found)
oPg22.DicAgent4.InitThis(m.cAgent_RN)
oPg22.DicAgent4.AddUpdate()

oPg22.Enabled = !Empty(m.cVFO)
oPg22.AgentDoc.Enabled = !Empty(m.cVFO)
oThisForm.CheckNotEmpty()
]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">200</VFP_свойство>
        <VFP_свойство имя="Top">348</VFP_свойство>
      </элемент>
      <элемент>
          <VFP_класс>TPageFrame</VFP_класс>
          <VFP_свойство имя="Name">PF</VFP_свойство>
          <VFP_свойство имя="Height">345</VFP_свойство>
          <VFP_свойство имя="Width">480</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">300</VFP_свойство>
              <VFP_свойство имя="Left">10</VFP_свойство>
              <VFP_свойство имя="Top">10</VFP_свойство>
              <VFP_свойство имя="Width">460</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">5</VFP_свойство>
              <VFP_свойство имя="Caption">Параметры</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Дата расчета показателей вступительного баланса:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">25</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TdicDate</VFP_класс>
              <VFP_свойство имя="Name">cntBalOpen</VFP_свойство>
              <VFP_свойство имя="Left">365</VFP_свойство>
              <VFP_свойство имя="Top">20</VFP_свойство>
              <элемент>
                <VFP_имя>Text</VFP_имя>
                <VFP_свойство имя="ControlSource">dBalOpen</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Отчетный период:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">55</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>Month_year_m</VFP_класс>
              <VFP_свойство имя="Name">cntSelDate</VFP_свойство>
              <VFP_свойство имя="ControlSource">dSelDate</VFP_свойство>
              <VFP_свойство имя="Left">185</VFP_свойство>
              <VFP_свойство имя="Top">50</VFP_свойство>
              <элемент>
                <VFP_имя>SelYear</VFP_имя>
                <VFP_свойство имя="Left">180</VFP_свойство>
              </элемент>
              <элемент>
                <VFP_имя>lbllYear</VFP_имя>
                <VFP_свойство имя="Left">250</VFP_свойство>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Caption">Дата реорганизации:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">85</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TdicDate</VFP_класс>
              <VFP_свойство имя="Name">cntReoDate</VFP_свойство>
              <VFP_свойство имя="Left">365</VFP_свойство>
              <VFP_свойство имя="Top">80</VFP_свойство>
              <элемент>
                <VFP_имя>Text</VFP_имя>
                <VFP_свойство имя="ControlSource">dReoDate</VFP_свойство>
                <VFP_метод имя="ValueChanged"><![CDATA[LParam oThis, oThisForm
Local oObj
oObj = oThisForm.PF.Page1.cntSelDate
If Empty(oThis.Value)
  oObj.SelMonth.ReceiveMessage(oThisForm, "ReInit")
  oObj.SelYear.ReceiveMessage(oThisForm, "ReInit")
Else
  oObj.ReceiveMessage(oThisForm, "ViewMode")
EndIf
]]></VFP_метод>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">115</VFP_свойство>
              <VFP_свойство имя="Caption">Учреждение:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TDicHist</VFP_класс>
              <VFP_свойство имя="Name">OrgFrom</VFP_свойство>
              <VFP_свойство имя="Left">185</VFP_свойство>
              <VFP_свойство имя="Top">110</VFP_свойство>
              <VFP_свойство имя="Width">275</VFP_свойство>
              <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
              <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
              <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
              <VFP_свойство имя="HistoryName" тип="C">H_AGENTS779_73N_2019</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_свойство имя="Caption">Уровень аналитики для определения номера банковского (лицевого) счета:</VFP_свойство>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">145</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TSpinner</VFP_класс>
              <VFP_свойство имя="ControlSource">nAnLevel</VFP_свойство>
              <VFP_свойство имя="Increment">1.00</VFP_свойство>
              <VFP_свойство имя="Inputmask">9</VFP_свойство>
              <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
              <VFP_свойство имя="KeyboardLowValue">0</VFP_свойство>
              <VFP_свойство имя="Left">420</VFP_свойство>
              <VFP_свойство имя="Name">aLevel</VFP_свойство>
              <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
              <VFP_свойство имя="SpinnerLowValue">0.00</VFP_свойство>
              <VFP_свойство имя="Top">140</VFP_свойство>
              <VFP_свойство имя="Width">40</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">170</VFP_свойство>
              <VFP_свойство имя="Caption">Вид деятельности:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_VFO</VFP_свойство>
              <VFP_свойство имя="Top">185</VFP_свойство>
              <VFP_свойство имя="Height">23</VFP_свойство>
              <VFP_свойство имя="Width">440</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
Local oPg1, oPF
oPg1 = oThisForm.PF.Page1
oPF  = oThisForm.PF.Page2.Export

oPF.Page2.Enabled = !Empty(oThis.Value)
oPF.Page2.AgentDoc.Enabled = !Empty(m.cVFO)
oThisForm.CheckNotEmpty()

If Empty(oThis.Value)
  oPF.ActivePage = 1
Else
  oPg1.Txt18B1.Value = oThis.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 = ""
EndIf
]]></VFP_метод>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">220</VFP_свойство>
              <VFP_свойство имя="Caption">Код вида финансового обеспечения:</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">256</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B1</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B1</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">277</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B2</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B2</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">298</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B3</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B3</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">319</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B4</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B4</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">340</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B5</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B5</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">361</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B6</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B6</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">382</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B7</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B7</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">403</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B8</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B8</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">424</VFP_свойство>
              <VFP_свойство имя="Top">215</VFP_свойство>
              <VFP_свойство имя="Width">16</VFP_свойство>
              <VFP_свойство имя="InputMask">N</VFP_свойство>
              <VFP_свойство имя="ControlSource">cTxt18B9</VFP_свойство>
              <VFP_свойство имя="Name">Txt18B9</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>TTextBox</VFP_класс>
              <VFP_свойство имя="Left">445</VFP_свойство>
              <VFP_свойство имя="Top">215</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">250</VFP_свойство>
            </элемент>
            <элемент>
              <VFP_класс>S_balunits</VFP_класс>
              <VFP_свойство имя="Name">Balunits</VFP_свойство>
              <VFP_свойство имя="Left">215</VFP_свойство>
              <VFP_свойство имя="Top">245</VFP_свойство>
              <VFP_свойство имя="Width">245</VFP_свойство>
              <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
              <VFP_свойство имя="condfield" тип="C">balunit.mnemo</VFP_свойство>
              <VFP_свойство имя="condfieldrn" тип="C">balunit.rn</VFP_свойство>
              <VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
              <элемент>
                <VFP_имя>DicTable</VFP_имя>
                <дополнительно>
                  <отложенная_инициализация/>
                </дополнительно>
              </элемент>
            </элемент>
            <элемент>
              <VFP_класс>TLabel</VFP_класс>
              <VFP_свойство имя="Left">20</VFP_свойство>
              <VFP_свойство имя="Top">280</VFP_свойство>
              <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
            </элемент>            
            <элемент>
              <VFP_класс>TComboBox</VFP_класс>
              <VFP_свойство имя="Left">340</VFP_свойство>
              <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
              <VFP_свойство имя="Top">275</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_имя>Page2</VFP_имя>
            <VFP_свойство имя="Caption">Параметры выгрузки</VFP_свойство>
            <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
            <VFP_свойство имя="FontSize">8</VFP_свойство>
            <элемент>
              <VFP_класс>TPageFrame</VFP_класс>
              <VFP_свойство имя="Name">Export</VFP_свойство>
              <VFP_свойство имя="Height">322</VFP_свойство>
              <VFP_свойство имя="Width">480</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">165</VFP_свойство>
                  <VFP_свойство имя="Left">10</VFP_свойство>
                  <VFP_свойство имя="Top">10</VFP_свойство>
                  <VFP_свойство имя="Width">460</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">5</VFP_свойство>
                  <VFP_свойство имя="Caption">Параметры</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">Каталог:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">25</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TDirSelect</VFP_класс>
                  <VFP_свойство имя="Name">Catalog</VFP_свойство>
                  <VFP_свойство имя="Left">80</VFP_свойство>
                  <VFP_свойство имя="Top">20</VFP_свойство>
                  <VFP_свойство имя="Width">380</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">55</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TTextBox</VFP_класс>
                  <VFP_свойство имя="Left">400</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">210</VFP_свойство>
                  <VFP_свойство имя="Top">80</VFP_свойство>
                  <VFP_свойство имя="Width">250</VFP_свойство>
                  <VFP_свойство имя="AreaName" тип="C">OrgBase</VFP_свойство>
                  <VFP_свойство имя="DictName" тип="C">Agnt_bms</VFP_свойство>
                  <VFP_свойство имя="RetField" тип="C">rmnemo_org</VFP_свойство>
                  <VFP_свойство имя="HistoryName" тип="C">H_AgentsFIO779_73N_2019</VFP_свойство>
                  <VFP_свойство имя="Filter">OrgBase.type='2'</VFP_свойство>
                  <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisForm
= CurOpen("OrgBase, person")
Local oPg21
oPg21 = oThis.Parent
If !Empty(oPg21.dicIsp.Value)
  = Seek(oPg21.dicIsp.Value, "OrgBase", "RN")
  If OrgBase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом!")
    oPg21.dicIsp.Clear()
  Else    
    = Seek(oPg21.dicIsp.Value, "person", "RN")
    oPg21.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">210</VFP_свойство>
                  <VFP_свойство имя="Top">110</VFP_свойство>
                  <VFP_свойство имя="Width">250</VFP_свойство>
                  <VFP_свойство имя="ControlSource">cIspName</VFP_свойство>
                  <VFP_свойство имя="Name">fldIspName</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">Телефон:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">145</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TTextBox</VFP_класс>
                  <VFP_свойство имя="Left">210</VFP_свойство>
                  <VFP_свойство имя="Top">140</VFP_свойство>
                  <VFP_свойство имя="Width">250</VFP_свойство>
                  <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
                  <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
                </элемент>
              </элемент>
              <элемент>
                <VFP_имя>Page2</VFP_имя>
                <VFP_свойство имя="Caption">Выгрузка в ГНИ 4</VFP_свойство>
                <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
                <VFP_свойство имя="FontSize">8</VFP_свойство>
                <элемент>
                  <VFP_класс>T3dShape</VFP_класс>
                  <VFP_свойство имя="Height">210</VFP_свойство>
                  <VFP_свойство имя="Left">10</VFP_свойство>
                  <VFP_свойство имя="Top">10</VFP_свойство>
                  <VFP_свойство имя="Width">460</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">5</VFP_свойство>
                  <VFP_свойство имя="Caption">Параметры</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">Каталог:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">25</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TDirSelect</VFP_класс>
                  <VFP_свойство имя="Name">Catalog4</VFP_свойство>
                  <VFP_свойство имя="Left">80</VFP_свойство>
                  <VFP_свойство имя="Top">20</VFP_свойство>
                  <VFP_свойство имя="Width">380</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">Идентификатор получателя информации:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">55</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TTextBox</VFP_класс>
                  <VFP_свойство имя="Left">400</VFP_свойство>
                  <VFP_свойство имя="Top">50</VFP_свойство>
                  <VFP_свойство имя="Width">60</VFP_свойство>
                  <VFP_свойство имя="MaxLength">4</VFP_свойство>
                  <VFP_свойство имя="ControlSource">cIdReceiver</VFP_свойство>
                  <VFP_свойство имя="Name">Receiver</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">Идентификатор конечного получателя информации:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">85</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TTextBox</VFP_класс>
                  <VFP_свойство имя="Left">400</VFP_свойство>
                  <VFP_свойство имя="Top">80</VFP_свойство>
                  <VFP_свойство имя="Width">60</VFP_свойство>
                  <VFP_свойство имя="MaxLength">4</VFP_свойство>
                  <VFP_свойство имя="ControlSource">cIdReceiverMain</VFP_свойство>
                  <VFP_свойство имя="Name">ReceiverMain</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">115</VFP_свойство>
                  <VFP_свойство имя="Caption">Учредитель:</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TDicHist</VFP_класс>
                  <VFP_свойство имя="Name">Founder</VFP_свойство>
                  <VFP_свойство имя="Left">210</VFP_свойство>
                  <VFP_свойство имя="Top">110</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_FOUND779_73N_2019</VFP_свойство>
                  <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
                  <элемент>
                    <VFP_имя>DicTable</VFP_имя>
                    <дополнительно>
                      <отложенная_инициализация/>
                    </дополнительно>
                  </элемент>
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">Уполномоченный представитель:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">145</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TDicHist</VFP_класс>
                  <VFP_свойство имя="Name">dicAgent4</VFP_свойство>
                  <VFP_свойство имя="Left">210</VFP_свойство>
                  <VFP_свойство имя="Top">140</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_Agents4FIO779_73N_2019</VFP_свойство>
                  <VFP_свойство имя="Filter">OrgBase.type='2'</VFP_свойство>
                  <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisForm
= CurOpen("OrgBase")
If !Empty(oThis.Value)
  = Seek(oThis.Value, "OrgBase", "RN")
  If OrgBase.type # '2'
    ErrMes("Выбранный контрагент не является физическим лицом!")
    oThis.Clear()
  EndIf
EndIf
oThis.Parent.AgentDoc.SetNotEmpty(!Empty(oThis.Value))
oThisForm.CheckNotEmpty()
]]></VFP_метод>
                  <элемент>
                    <VFP_имя>DicTable</VFP_имя>
                    <дополнительно>
                      <отложенная_инициализация/>
                    </дополнительно>
                  </элемент>                
                </элемент>
                <элемент>
                  <VFP_класс>TLabel</VFP_класс>
                  <VFP_свойство имя="Caption">Наименование документа, подтверждающего полномочия представителя:</VFP_свойство>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">170</VFP_свойство>
                </элемент>
                <элемент>
                  <VFP_класс>TTextBox</VFP_класс>
                  <VFP_свойство имя="Left">20</VFP_свойство>
                  <VFP_свойство имя="Top">185</VFP_свойство>
                  <VFP_свойство имя="Width">440</VFP_свойство>
                  <VFP_свойство имя="MaxLength">120</VFP_свойство>
                  <VFP_свойство имя="ControlSource">cAgentDoc</VFP_свойство>
                  <VFP_свойство имя="Name">AgentDoc</VFP_свойство>
                </элемент>
              </элемент>
            </элемент>
          </элемент>
       </элемент>
    </описание>
  </форма>
</Модуль>
