<?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">
  <интерфейс>
    <отчет>
      <наименование>Форма 0503725-33н_ред243н_2018</наименование>
      <код_раздела>Reports5n</код_раздела>
      <номер_код>f0503725_243n_2018</номер_код>
      <шаблон>
        <тип>MSE</тип>
        <мнемокод>ar_form0503725_243n_2018</мнемокод>
        <файл>Форма0503725_33н_ред243н_2018.xlt</файл>
      </шаблон>
      <!--Отчет формируется по хозяйственным операциям за период-->
    </отчет>
  </интерфейс>
  <отчет>
    <реализует>f0503725_243n_2018</реализует>
      <дополнительно>
      <запомнить_переменные>
        <список_переменных>dBalOpen;dSelDate;dReoDate;cAccR;cOrg;cRN_Found;nAccType;nAnLevel;cVFO;cTxt18B1;cTxt18B2;cTxt18B3;cTxt18B4;cTxt18B5;cTxt18B6;cTxt18B7;cTxt18B8;cTxt18B9;cTxt18B10;cMarkRN;nSort;cKorrSMask;nRollAcc;nFormKorrS;cUnlPath;cIST;cDicIsp;cIspName;cIspTel</список_переменных>
        <мемофайл>ar_form0503725_33n_243n_2018</мемофайл>
      </запомнить_переменные>
      </дополнительно>
    <переменные>
      <переменная>
        <имя>dBalOpen</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата расчета показателей вступительного баланса-->
      </переменная>
      <переменная>
        <имя>dSelDate</имя>
        <начальное_значение>oSystem.Date</начальное_значение>
        <!--Отчетный период-->
      </переменная>
      <переменная>
        <имя>dReoDate</имя>
        <начальное_значение>{}</начальное_значение>
        <!--Дата реорганизации-->
      </переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cAccR</имя>
        <начальное_значение>""</начальное_значение>
        <!--Счета расходов-->
      </переменная>
      <переменная>
        <имя>arrAccR</имя>
        <начальное_значение>""</начальное_значение>
        <!--Массив кодов бюджетного учета-->
      </переменная>
      <переменная>
        <имя>cOrg</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учреждение-->
      </переменная>
      <переменная>
        <имя>cWhereBU</имя>
        <начальное_значение>""</начальное_значение>
      </переменная>
      <переменная>
        <имя>cRN_Found</имя>
        <начальное_значение>""</начальное_значение>
        <!--Учредитель-->
      </переменная>
      <переменная>
        <имя>nAccType</имя>
        <начальное_значение>1</начальное_значение>
        <!--Размерность плана счетов-->
      </переменная>
      <переменная>
        <имя>nAnLevel</имя>
        <начальное_значение>5</начальное_значение>
        <!--Уровень аналитики-->
      </переменная>
      <переменная>
        <имя>cVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Вид финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>arrVFO</имя>
        <начальное_значение>""</начальное_значение>
        <!--Массив видов финансового обеспечения-->
      </переменная>
      <переменная>
        <имя>CTxt18B1</имя>
        <начальное_значение>"1"</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B2</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B3</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B4</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B5</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B6</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B7</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B8</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B9</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>CTxt18B10</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак для бюджета-->
      </переменная>
      <переменная>
        <имя>c18B</имя>
        <начальное_значение>""</начальное_значение>
        <!--18 знак (для выгрузки)-->
      </переменная>
      <переменная>
        <имя>cUsl18B</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие для 18 знака счета-->
      </переменная>
      <переменная>
        <имя>cMarkRN</имя>
        <начальное_значение>""</начальное_значение>
        <!--Особая отметка-->
      </переменная>
      <переменная>
        <имя>nSort</имя>
        <начальное_значение>1</начальное_значение>
        <!--Сортировать по-->
      </переменная>
      <переменная>
        <имя>CWhereMark</имя>
        <начальное_значение>""</начальное_значение>
        <!--Условие для особой отметки-->
      </переменная>
      <переменная>
        <имя>cKorrSMask</имя>
        <начальное_значение>"20121*;20122*;20123*;20127*"</начальное_значение>
        <!--Маски корреспондирующих счетов денежных расчетов-->
      </переменная>
      <переменная>
        <имя>nRollAcc</имя>
        <начальное_значение>0</начальное_значение>
        <!--Отображать полную БК в итогах по номерам счетов по коду 030404000-->
      </переменная>
      <переменная>
        <имя>nFormKorrS</имя>
        <начальное_значение>0</начальное_значение>
        <!--Формировать по номеру корреспондирующего счета-->
      </переменная>
      <переменная>
        <имя>cUnlPath</имя>
        <начальное_значение>""</начальное_значение>
        <!--Каталог выгрузки-->
      </переменная>
      <переменная>
        <имя>cFileName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Файл выгрузки-->
      </переменная>
      <переменная>
        <имя>cFormCode</имя>
        <начальное_значение>""</начальное_значение>
        <!--Код формы-->
      </переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСП-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
      <переменная>
        <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
        <!--Глава по БК-->
      </переменная>
      <переменная>
        <имя>RepG151</имя>
        <начальное_значение>CreateObject("form0503buxrepd")</начальное_значение>
      </переменная>
      <переменная>
        <имя>dReportDate</имя>
        <начальное_значение>Date(2018,12,31)</начальное_значение>
      </переменная>
      <переменная>
        <имя>lNoError</имя>
        <начальное_значение>.T.</начальное_значение>
      </переменная>            
    </переменные>
    <запуск_формы>
      <ид>f_0503725_33n_243n_2018</ид>
    </запуск_формы>
    <вычисление>
      <сообщение>Ждите, идет выборка данных ...</сообщение>
      <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]
Local cAnalit_D, cAnalit_K, cAnKorr_D, cAnKorr_K, cAcc, cLen, cWhereAcc, cWhereAn, cJoinAn_D, cJoinAn_K, cWhereOrg, cOrder, cOrderAcc, cOrderIt, cNote, nPos, n18, n19, ;
      cWhereIsMoney, cKorrSMask1, nPos, cMask
Local Array arBp(1)
n18 = Iif(m.nAccType = 1, 18, 1)
n19 = Iif(m.nAccType = 1, 19, 2)
*ON ERROR

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

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

* подготовка данных
= CurClose("crTurns;crItog;crItogAcc;crItogMoney;crItogNoMoney")
Create CURSOR crTurns2 (RN_AGENT C(4), KBK C(17), Account C(29), RN_ANL C(4), SAccount C(15), KBKK C(17), AccKorr C(29), AnKorr C(15), Agent C(240), PodrCode C(20), ObDb N(18,2), ObKr N(18,2), IsMoney L)

&& Счета
cAcc = SubStr(m.cAccR, 2, 5)
DO While Right(m.cAcc, 1) = "0"
  cAcc = Left(m.cAcc, Len(m.cAcc) - 1)
EndDO
cLen = Str(Len(m.cAcc), 1)

cWhereAcc = m.cUsl18B + " And SubStr(AccBase.Account, " + LTrim(Str(m.n19)) + ", " + m.cLen + ") = '" + m.cAcc + "'"
cWhereAn  = Iif(SubStr(m.cAccR, 7, 3) = "000", "", " And Left(N.SAccount, 3) = '" + SubStr(m.cAccR, 7, 3) + "'")

Select Account, RN From AccBase ;
  Where &cWhereAcc ;
  Into cursor crAccBase

Index On RN Tag RN

&& аналитика для бюджетного учреждения
Store "" To cJoinAn_D, cJoinAn_K, cWhereOrg

If !Empty(m.cWhereBU)
   Select S.Rn ;
     From crAccBase A ;
       Inner Join AccSpec S On A.Rn = S.Master_Rn ;
       Inner Join OrgBase O On S.Rn_TOrg = O.Rn ;
     Where &cWhereBU ;
     Into Cursor crsAccSpRN

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

* Денежные / неденежные
cKorrSMask1 = AllTrim(m.cKorrSMask)
cWhereIsMoney = ""
Do While !Empty(m.cKorrSMask1)
   nPos = AT(";", m.cKorrSMask1)
   If m.nPos = 0
      cMask = m.cKorrSMask1
      cKorrSMask1 = ""
   Else
      cMask = Left(m.cKorrSMask1, m.nPos - 1)
      cKorrSMask1 = SubStr(m.cKorrSMask1, m.nPos + 1)
   EndIf
   If !Empty(m.cMask)
      If !Empty(m.cWhereIsMoney)
         cWhereIsMoney = m.cWhereIsMoney + " OR "
      EndIf
      cMask = Bracket(AllTrim(m.cMask))
      If "*" $ m.cMask Or "?" $ m.cMask
         cWhereIsMoney = m.cWhereIsMoney + "Like(" + m.cMask + ", SubStr(B.AccKorr, 2))"
      Else
         cWhereIsMoney = m.cWhereIsMoney + "SubStr(B.AccKorr, 2) = " + m.cMask
      EndIf
   EndIf
EndDO
If Empty(m.cWhereIsMoney)
   cWhereIsMoney = ".F."
EndIf

&& обороты по дебету + обороты по кредиту
Store "S.RN_DB_A" + Str(m.nAnLevel, 1) To cAnalit_D, cAnKorr_D
Store "S.RN_KR_A" + Str(m.nAnLevel, 1) To cAnalit_K, cAnKorr_K

Select Iif(SubStr(C.Account, ?m.n19, 3) = "104" Or SubStr(C.Account, ?m.n19, 1) = "3", B.RN_ORGFR, B.RN_ORGTO) As RN_AGNT, ;
       Iif(m.nAccType = 1, Left(A.Account, 17), Space(17)) As KBK, ;
       SubStr(A.Account, ?m.n18) As Account, ;
       &cAnalit_D  As RN_ANL,     ;
       NVL(N.SAccount, Space(15)) As SAccount, ;
       Iif(m.nAccType = 1 And m.nFormKorrS = 1, Left(Nvl(C.Account, Space(29)), 17), Space(17)) As KBKK, ;
       SubStr(Nvl(C.Account, Space(29)), ?m.n18) As AccKorr, ;
       Nvl(L.SAccount, Space(15)) As AnKorr, ;
       S.Sum_Equal As ObDb,       ;
       000000000000000.00 As ObKr ;
  From EopBase B ;
    Inner Join EopSpec   S On B.RN       = S.Master_RN ;
    Inner Join crAccBase A On S.RN_DB    = A.RN ;
    Left  Join AccSpec   N On &cAnalit_D = N.RN ;
    Left  Join AccBase   C On S.RN_KR    = C.RN ;
    Left Join  AccSpec   L On &cAnKorr_K = L.RN ;
    &cJoinAn_D ;
  Where Between(B.DATE_EOP, ?dDateBegin, ?dDateEnd) &cWhereMark &cWhereOrg &cWhereAn ;
    And SubStr(C.Account, ?m.n19, 5) # "40130" ;
Union All ;
Select Iif(SubStr(C.Account, ?m.n19, 3) = "104" Or SubStr(C.Account, ?m.n19, 1) = "3", B.RN_ORGTO, B.RN_ORGFR) As RN_AGNT, ;
       Iif(m.nAccType = 1, Left(A.Account, 17), Space(17)) As KBK, ;
       SubStr(A.Account, ?m.n18) As Account, ;
       &cAnalit_K  As RN_ANL,     ;
       NVL(N.SAccount, Space(15)) As SAccount, ;
       Iif(m.nAccType = 1 And m.nFormKorrS = 1, Left(Nvl(C.Account, Space(29)), 17), Space(17)) As KBKK, ;
       SubStr(Nvl(C.Account, Space(29)), ?m.n18) As AccKorr, ;
       Nvl(L.SAccount, Space(15)) As AnKorr, ;
       000000000000000.00 As ObDb,;
       S.Sum_Equal As ObKr        ;
  From EopBase B ;
    Inner Join EopSpec   S On B.RN       = S.Master_RN ;
    Inner Join crAccBase A On S.RN_KR    = A.RN ;
    Left  Join AccSpec   N On &cAnalit_K = N.RN ;
    Left  Join AccBase   C On S.RN_DB    = C.RN ;
    Left Join  AccSpec   L On &cAnKorr_D = L.RN ;
    &cJoinAn_K ;
  Where Between(B.DATE_EOP, ?dDateBegin, ?dDateEnd) &cWhereMark &cWhereOrg &cWhereAn ;
    And SubStr(C.Account, ?m.n19, 5) # "40130" ;
  Into Cursor crTurns0

= CurClose("crsAccSpRN")

&& замена МОЛ на бюджетное учреждение или "МЫ"
Select Iif(Nvl(O.Type, "1") = "1", B.RN_AGNT, Nvl(U.OrgBase_RN, ?oSystem.OwnerOrgRn)) As RN_AGENT, ;
       B.* ;
  From crTurns0 B ;
    Left Join OrgBase  O On B.RN_AGNT   = O.RN ;
    Left Join BOrgSpec M On B.RN_AGNT   = M.OrgBase_RN ;
    Left Join BOrgBase U On M.Master_RN = U.BORG_RN ;
  Into Cursor crTurns1

Use In crTurns0

&& группировка оборотов и заполнение полей для отчета
RepG151.GetComRepPrm151("0503725", @lNoError, m.cWhereIsMoney)

Use In crAccBase
Use In crTurns1

* заполнение кода подразделения
If m.cAccR # "030406000"
  Select crTurns2
  Scan For Seek(RN_AGENT, "OrgBase", "RN")
    cNote = AllTrim(OrgBase.Note)
    nPos  = AT("//", m.cNote)
    If nPos # 0
      cNote = SubStr(m.cNote, m.nPos + 2)
      nPos  = AT("//", m.cNote)
      If nPos # 0
        cNote = AllTrim(Left(m.cNote, m.nPos - 1))
        Replace PodrCode With m.cNote
      EndIf
    EndIf
  EndScan
EndIf

&& сортировка записей
Do Case
  Case m.nSort = 1   && по номеру счета
    cOrder    = "KBK, Account, SAccount, PodrCode, Agent, KBKK, AccKorr, AnKorr"
    cOrderAcc = "2,3,4,1"
    cOrderIt  = "2,3,4,1,5,6,7"
  Case m.nSort = 2   && по контрагенту
    cOrder    = "PodrCode, Agent, KBK, Account, SAccount, KBKK, AccKorr, AnKorr"
    cOrderAcc = "1,2,3,4"
    cOrderIt  = "1,2,3,4,5,6,7"
  Otherwise          && по коду счета
    cOrder    = "Account, SAccount, KBK, PodrCode, Agent, AccKorr, AnKorr, KBKK"
    cOrderAcc = "3,4,2,1"
    cOrderIt  = "3,4,2,1,6,7,5"
EndCase

&& Обороты
Select RN_AGENT, Agent, PodrCode, ;
       KBK, Account, RN_ANL, SAccount, ObDb, ObKr, KBKK, AccKorr, AnKorr ;
  From crTurns2 ;
  Order By &cOrder ;
  Into Cursor crTurns

&& Особенности формирования отчета по конкретным кодам
&& ---------------------------------------------------
Do Case
  Case m.cAccR = "030404000"
    && в том числе по номеру (коду) счета
    Select Space(20) As PodrCode, ;
           Iif(?m.nAccType = 1 And ?m.nRollAcc = 0, Replicate("0", 17), KBK) As KBK, ;
           Account, ;
           SAccount, ;
           Sum(ObDb) As ObDb, ;
           Sum(ObKr) As ObKr  ;
      From crTurns2 ;
      Group By 1, 2, 3, 4 ;
      Order By &cOrderAcc ;
      Into Cursor crItogAcc

    && для денежных и неденежных расчетов всегда развернутые счета
    Select PodrCode, ;
           KBK, Account, SAccount, KBKK, AccKorr, AnKorr, ;
           IsMoney, ;
           Sum(ObDb) As ObDb, ;
           Sum(ObKr) As ObKr  ;
      From crTurns2 ;
      Group By 1, 2, 3, 4, 5, 6, 7 ;
      Into Cursor crItog1

  Case m.cAccR = "030406000"
    && в том числе по номеру (коду) счета
    Select PodrCode, ;
           Iif(?m.nAccType = 1, Replicate("0", 17), KBK) As KBK, ;
           Account, SAccount, ;
           Sum(ObDb) As ObDb, ;
           Sum(ObKr) As ObKr  ;
      From crTurns2 ;
      Group By 1, 2, 3, 4 ;
      Order By &cOrderAcc ;
      Into Cursor crItogAcc

    && для неденежных расчетов всегда развернутые счета
    Select PodrCode, ;
           KBK, Account, SAccount, KBKK, AccKorr, AnKorr, ;
           IsMoney, ;
           Sum(ObDb) As ObDb, ;
           Sum(ObKr) As ObKr  ;
      From crTurns2 ;
      Group By 1, 2, 3, 4, 5, 6, 7 ;
      Into Cursor crItog1

    && денежные расчеты
    Select PodrCode, ;
           Iif(?m.nAccType = 1, Replicate("0", 17), KBK) As KBK, ;
           Account, SAccount, KBKK, AccKorr, AnKorr, ;
           Sum(ObDb) As ObDb, ;
           Sum(ObKr) As ObKr  ;
      From crTurns2 ;
      Where IsMoney ;
      Group By 1, 2, 3, 4, 5, 6, 7 ;
      Order By &cOrderIt ;
      Into Cursor crItogMoney  
EndCase

&& денежные расчеты
If m.cAccR # "030406000"
  Select * ;
    From crItog1 ;
    Where IsMoney ;
    Order By &cOrderIt ;
    Into Cursor crItogMoney  
EndIf

&& неденежные расчеты
Select * ;
  From crItog1 ;
  Where !IsMoney ;
  Order By &cOrderIt ;
  Into Cursor crItogNoMoney

&& Строки "Итогo"
Select Sum(ObDb) As ObDb, ;
       Sum(ObKr) As ObKr  ;
  From crItogAcc ;
  Into Cursor crItog

&& 18-й знак для выгрузки
If Empty(m.c18B)
  Local ARRAY arrC18_(1)
  Select DIST Left(Account, 1) As C18_ From crItogAcc Into ARRAY arrC18_
  If _Tally # 0
    c18B = arrC18_(1)
  Else
    c18B = "0"
  EndIf
EndIf

= CurClose("crTurns2;crItog1")

Local oPrint
oPrint = objCaller.objExcelRep
oPrint.PrintRange("Header")

&&Формирую имя файла            
If !Empty(m.cUnlPath)
  Local Array aFiles(1)
  Local nNum, cNum, nN, i
  cUnlPath = AllTrim(m.cUnlPath)
  cFormCode = "325" + Iif(Empty(m.cVFO), "", RTrim(arrVFO(AScan(arrVFO, m.cVFO) + 1)))
  cFileName = m.cFormCode
  Do Case
    Case !Empty(m.dReoDate)                   && реорганизация
      cFileName = m.cFileName + "R"
    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
  If ADir(aFiles, m.cUnlPath + m.cFileName + "??.txt") # 0
    For m.i = 1 To ALen(aFiles) / 5
      nN = At(".", aFiles(m.i, 1))
      cNum = SubStr(aFiles(m.i, 1), 5, m.nN - 5)
      If m.nNum < Val(m.cNum)
        nNum = Val(m.cNum)
      EndIf 
      If m.nNum = 99
        nNum = 0
      EndIf
    EndFor
  EndIf
  cFileName = m.cUnlPath + m.cFileName + PadL(Int(m.nNum) + 1, 2, "0") + ".txt"
EndIf

&& Обороты
Select * From crTurns Into Cursor crTurns Where ObDb # 0 Or ObKr # 0
Scan
   if recno() > 1
     oPrint.InsertRange()
   endif
   oPrint.PrintRange("Spec")
EndScan

&& Итоги по счетам
If Used("crItogAcc")
  Select * From crItogAcc Into Cursor crItogAcc Where ObDb # 0 Or ObKr # 0
  Scan
     if recno() > 1
       oPrint.InsertRange()
     endif
     oPrint.PrintRange("SpecAcc")
  EndScan
EndIf

If Used("crItogMoney")
  && денежные расчеты
  Select * From crItogMoney Into Cursor crItogMoney Where ObDb # 0 Or ObKr # 0
  Scan
     if recno() > 1
       oPrint.InsertRange()
     endif
     oPrint.PrintRange("SpecMoney")
  EndScan
EndIf

&& неденежные расчеты
If Used("crItogNoMoney")
  Select * From crItogNoMoney Into Cursor crItogNoMoney Where ObDb # 0 Or ObKr # 0
  Scan
     if recno() > 1
       oPrint.InsertRange()
     endif
     oPrint.PrintRange("SpecNoMoney")
  EndScan
EndIf

oPrint.PrintRange("Footer")

= CurClose("crTurns;crItog;crItogAcc;crItogMoney;crItogNoMoney")

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

oPrint = NULL

Return
]]></FPC_></MSE>
      <FPC_><![CDATA[*[VFP]
RepG151.GetOutS(.T.)
]]></FPC_>
    </печать>
  </отчет>
  <форма>
    <ид>f_0503725_33n_243n_2018</ид>
    <тип>XML</тип>
    <описание>
      <дополнительно>
        <desc_version>1.0</desc_version>
      </дополнительно>
      <VFP_свойство имя="Name">f_0503725</VFP_свойство>
      <VFP_свойство имя="Caption">Форма 0503725-33н_ред243н_2018</VFP_свойство>
      <VFP_свойство имя="Height">385</VFP_свойство>
      <VFP_свойство имя="Width">500</VFP_свойство>
      <VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisForm
Local oObj, cSymb, c18, i
oObj = oThisForm.PF.Page1
dSelDate = oObj.cntSelDate.restDate.Value
cUsl18B  = ""

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

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

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

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

c18 = oObj.Txt18B1.Value + oObj.Txt18B2.Value + ;
      oObj.Txt18B3.Value + oObj.Txt18B4.Value + ;
      oObj.Txt18B5.Value + oObj.Txt18B6.Value + ;
      oObj.Txt18B7.Value + oObj.Txt18B8.Value + ;
      oObj.Txt18B9.Value + oObj.Txt18B10.Value 

If Empty(m.c18)
  c18 = oObj.Cmb_VFO.Value
EndIf

c18 = StrTran(m.c18, " ", "")
for m.i = 1 to len(m.c18)
    cSymb   = SubStr(m.c18, m.i, 1)
    cUsl18B = m.cUsl18B + Iif(!Empty(m.cUsl18B), ",'", "'") + m.cSymb + "'"
endfor
c18B = Left(m.c18, 1)
If !Empty(m.cUsl18B)
   cUsl18B = "InList(SubStr(AccBase.Account, " + Iif(oObj.Cmb_AccType.Value = 1, "18", "1") + ", 1), " + m.cUsl18B + ")"
EndIf

cOrg       = oObj.BOrg.GetSaveValue()
cWhereBU   = oObj.BOrg.GetCond()
cRN_Found  = oObj.Founder.Value
cWhereMark = oObj.CmbMark.GetCond()
If !Empty(m.cWhereMark)
   cWhereMark = " And !" + m.cWhereMark
EndIf
oObj = oThisForm.PF.Page3
cUnlPath = oObj.Catalog.Text.value
cDicIsp  = oObj.DicIsp.GetSaveValue()
]]></VFP_метод>
      <VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisForm
Local oObj, cAccCode

* Коды счетов бюджетного учета
cAccCode = "030404000,030406000"
Dimension arrAccR[1]
ALines(arrAccR, m.cAccCode, ",")

* Виды финансового обеспечения
Dimension arrVFO[5, 3]
arrVFO[1, 1] = PadR("Собственные доходы учреждения (код вида - 2)", 80)
arrVFO[1, 2] = "2"
arrVFO[1, 3] = "d"
arrVFO[2, 1] = PadR("Субсидия на выполнение государственного (муниципального) задания (код вида - 4)", 80)
arrVFO[2, 2] = "4"
arrVFO[2, 3] = "z"
arrVFO[3, 1] = PadR("Субсидии на иные цели (код вида - 5)", 80)
arrVFO[3, 2] = "5"
arrVFO[3, 3] = "c"
arrVFO[4, 1] = PadR("Субсидии на цели осуществления капитальных вложений (код вида - 6)", 80)
arrVFO[4, 2] = "6"
arrVFO[4, 3] = "i"
arrVFO[5, 1] = PadR("Средства по обязательному медицинскому страхованию (код вида - 7)", 80)
arrVFO[5, 2] = "7"
arrVFO[5, 3] = "m"

oObj = oThisForm.PF.Page1
oObj.cntSelDate.InitThis(m.dSelDate)
oObj.cntReoDate.Text.ValueChanged()
oObj.Cmb_Account.RowSource = "arrAccR"
oObj.Cmb_Account.BackColor = oObj.Cmb_Account.SaveBackColor
oObj.Cmb_Account.Init()
oObj.BOrg.setsavevalue(m.cOrg)
oObj.Founder.InitThis(m.cRN_Found)
oObj.Cmb_VFO.RowSource = "arrVFO"
oObj.Cmb_VFO.BackColor = oObj.Cmb_VFO.SaveBackColor
oObj.Cmb_VFO.Init()
oObj.Cmb_AccType.ValueChanged()
oObj.CmbMark.SetSource(UnitRn("EconOp"))
oObj.CmbMark.Value = m.cMarkRN
cIspolnitel = m.cIspName
oObj = oThisForm.PF.Page3
oObj.Catalog.Text.value = m.cUnlPath
oObj.DicIsp.setsavevalue(m.cDicIsp)
oObj.fldIspName.Value = m.cIspolnitel
]]></VFP_метод>
      <элемент>
        <VFP_имя>Tbtndialog1</VFP_имя>
        <VFP_свойство имя="Left">222</VFP_свойство>
        <VFP_свойство имя="Top">348</VFP_свойство>
      </элемент>
      <элемент>
        <VFP_класс>TPageFrame</VFP_класс>
        <VFP_свойство имя="name">PF</VFP_свойство>
        <VFP_свойство имя="Height">345</VFP_свойство>
        <VFP_свойство имя="Width">500</VFP_свойство>
        <VFP_свойство имя="PageCount">3</VFP_свойство>
        <элемент>
           <VFP_имя>Page1</VFP_имя>
          <VFP_свойство имя="Caption">Параметры формирования</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">300</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">10</VFP_свойство>
            <VFP_свойство имя="Width">480</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_класс>TdicDate</VFP_класс>
            <VFP_свойство имя="Name">cntBalOpen</VFP_свойство>
            <VFP_свойство имя="Left">385</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">205</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">140</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">255</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
            <VFP_свойство имя="Caption">Код бюджетного учета:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="ControlSource">cAccR</VFP_свойство>
            <VFP_свойство имя="Left">385</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_Account</VFP_свойство>
            <VFP_свойство имя="Top">80</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">95</VFP_свойство>
            <VFP_свойство имя="RowSourceType">5</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="DisplayCount">4</VFP_свойство>
            <VFP_свойство имя="notempty">.T.</VFP_свойство>
            <VFP_метод имя="ValueChanged"><![CDATA[LParam oThis, oThisForm
oThis.Parent.Cmb_AccType.ValueChanged()
]]></VFP_метод>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
            <VFP_свойство имя="Caption">Учреждение:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">BOrg</VFP_свойство>
            <VFP_свойство имя="Left">205</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_AGENTS725_243N_2018</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <VFP_свойство имя="condfield" тип="C">O.rmnemo_org</VFP_свойство>
            <VFP_свойство имя="condfieldrn" тип="C">O.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_класс>TDicHist</VFP_класс>
            <VFP_свойство имя="Name">Founder</VFP_свойство>
            <VFP_свойство имя="Left">205</VFP_свойство>
            <VFP_свойство имя="Top">140</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_FOUND725_243N_2018</VFP_свойство>
            <VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">175</VFP_свойство>
            <VFP_свойство имя="Caption">Размерность плана счетов:</VFP_свойство>
          </элемент>            
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="Name">Cmb_AccType</VFP_свойство>
            <VFP_свойство имя="Left">170</VFP_свойство>
            <VFP_свойство имя="Top">170</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">105</VFP_свойство>
            <VFP_свойство имя="BoundTo">2</VFP_свойство>
            <VFP_свойство имя="RowSourceType">1</VFP_свойство>
            <VFP_свойство имя="RowSource">26 символов,9 символов</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="ControlSource">nAccType</VFP_свойство>
            <VFP_свойство имя="delenabled">.F.</VFP_свойство>
            <VFP_свойство имя="notempty">.T.</VFP_свойство>
            <VFP_метод имя="ValueChanged"><![CDATA[LParam oThis, oThisForm
Local oObj1, oObj2
oObj1 = oThisForm.PF.Page1
oObj2 = oThisForm.PF.Page2
oObj2.chkRollAcc.Enabled = oThis.Value = 1 And oObj1.Cmb_Account.Value = "030404000"
oObj2.chkFormKorrS.Enabled = oThis.Value = 1
]]></VFP_метод>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Уровень аналитики КОСГУ:</VFP_свойство>
            <VFP_свойство имя="Left">290</VFP_свойство>
            <VFP_свойство имя="Top">175</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TSpinner</VFP_класс>
            <VFP_свойство имя="ControlSource">nAnLevel</VFP_свойство>
            <VFP_свойство имя="Increment">1.00</VFP_свойство>
            <VFP_свойство имя="Inputmask">9</VFP_свойство>
            <VFP_свойство имя="KeyboardHighValue">5</VFP_свойство>
            <VFP_свойство имя="KeyboardLowValue">1</VFP_свойство>
            <VFP_свойство имя="Left">440</VFP_свойство>
            <VFP_свойство имя="Name">aLevel</VFP_свойство>
            <VFP_свойство имя="SpinnerHighValue">5.00</VFP_свойство>
            <VFP_свойство имя="SpinnerLowValue">1.00</VFP_свойство>
            <VFP_свойство имя="Top">170</VFP_свойство>
            <VFP_свойство имя="Width">40</VFP_свойство>
          </элемент>        
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">200</VFP_свойство>
            <VFP_свойство имя="Caption">Вид финансового обеспечения:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_VFO</VFP_свойство>
            <VFP_свойство имя="Top">215</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">460</VFP_свойство>
            <VFP_свойство имя="BoundColumn">2</VFP_свойство>
            <VFP_свойство имя="RowSourceType">5</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="DisplayCount">5</VFP_свойство>
            <VFP_свойство имя="ControlSource">cVFO</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">275</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B1</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B1</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">296</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B2</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B2</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">317</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B3</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B3</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">338</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B4</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B4</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">359</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B5</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B5</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">380</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B6</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B6</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">401</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B7</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B7</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">422</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B8</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B8</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">443</VFP_свойство>
            <VFP_свойство имя="Top">245</VFP_свойство>
            <VFP_свойство имя="Width">16</VFP_свойство>
            <VFP_свойство имя="InputMask">N</VFP_свойство>
            <VFP_свойство имя="ControlSource">cTxt18B9</VFP_свойство>
            <VFP_свойство имя="Name">Txt18B9</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">464</VFP_свойство>
            <VFP_свойство имя="Top">245</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">275</VFP_свойство>
            <VFP_свойство имя="Caption">Исключить обороты</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">288</VFP_свойство>
            <VFP_свойство имя="Caption">по особой отметке:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>mark</VFP_класс>
            <VFP_свойство имя="Left">135</VFP_свойство>
            <VFP_свойство имя="Top">275</VFP_свойство>
            <VFP_свойство имя="Width">120</VFP_свойство>
            <VFP_свойство имя="Name">CmbMark</VFP_свойство>
            <VFP_свойство имя="ControlSource">cMarkRN</VFP_свойство>
            <VFP_свойство имя="condfield" тип="C">B.RN_MARK</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">275</VFP_свойство>
            <VFP_свойство имя="Top">280</VFP_свойство>
            <VFP_свойство имя="Caption">Сортировать по:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TComboBox</VFP_класс>
            <VFP_свойство имя="ControlSource">nSort</VFP_свойство>
            <VFP_свойство имя="Left">370</VFP_свойство>
            <VFP_свойство имя="Name">Cmb_Sort</VFP_свойство>
            <VFP_свойство имя="Top">275</VFP_свойство>
            <VFP_свойство имя="Height">23</VFP_свойство>
            <VFP_свойство имя="Width">110</VFP_свойство>
            <VFP_свойство имя="RowSource">номеру счета,наименованию,коду счета</VFP_свойство>
            <VFP_свойство имя="RowSourceType">1</VFP_свойство>
            <VFP_свойство имя="Style">2</VFP_свойство>
            <VFP_свойство имя="delenabled">.F.</VFP_свойство>
          </элемент>
        </элемент>
        <элемент>
          <VFP_имя>Page2</VFP_имя>
          <VFP_свойство имя="Caption">Итоги</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">10</VFP_свойство>
            <VFP_свойство имя="Height">105</VFP_свойство>
            <VFP_свойство имя="Width">480</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">5</VFP_свойство>
            <VFP_свойство имя="Caption">Итоги</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">25</VFP_свойство>
            <VFP_свойство имя="Caption">Маски корреспондирующих счетов денежных расчетов:</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">40</VFP_свойство>
            <VFP_свойство имя="Width">425</VFP_свойство>
            <VFP_свойство имя="ControlSource">cKorrSMask</VFP_свойство>
            <VFP_свойство имя="MaxLength">240</VFP_свойство>
            <VFP_свойство имя="Name">fldKorrSMask</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TCheckBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">70</VFP_свойство>
            <VFP_свойство имя="ControlSource">nRollAcc</VFP_свойство>
            <VFP_свойство имя="Name">chkRollAcc</VFP_свойство>
            <VFP_свойство имя="Caption">Отображать полную БК в итогах по номерам счетов по коду 030404000</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TCheckBox</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">90</VFP_свойство>
            <VFP_свойство имя="ControlSource">nFormKorrS</VFP_свойство>
            <VFP_свойство имя="Name">chkFormKorrS</VFP_свойство>
            <VFP_свойство имя="Caption">Формировать по номеру корреспондирующего счета</VFP_свойство>
          </элемент>
        </элемент>
        <элемент>
          <VFP_имя>Page3</VFP_имя>
          <VFP_свойство имя="Caption">Параметры выгрузки</VFP_свойство>
          <VFP_свойство имя="FontName">MS Sans Serif</VFP_свойство>
          <VFP_свойство имя="FontSize">8</VFP_свойство>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="Height">165</VFP_свойство>
            <VFP_свойство имя="Left">10</VFP_свойство>
            <VFP_свойство имя="Top">10</VFP_свойство>
            <VFP_свойство имя="Width">480</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">400</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">420</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <VFP_свойство имя="Width">60</VFP_свойство>
            <VFP_свойство имя="MaxLength">3</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIST</VFP_свойство>
            <VFP_свойство имя="Name">IST</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Исполнитель:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
             <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisForm
= CurOpen("orgbase, person")

If !Empty(oThisForm.PF.Page3.dicIsp.Value)
  = Seek(oThisForm.PF.Page3.dicIsp.Value, "orgbase", "RN")
  If orgbase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом.")
    oThisForm.PF.Page3.dicIsp.Clear()
  Else    
    = Seek(oThisForm.PF.Page3.dicIsp.Value, "person", "RN")
    oThisForm.PF.Page3.fldIspName.Value = Alltrim(person.SURNAME) + " " + Left(Alltrim(person.FIRSTNAME), 1) + "." + Left(Alltrim(person.SECONDNAME), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
            <VFP_свойство имя="Name">dicIsp</VFP_свойство>
            <VFP_свойство имя="Left">230</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_AgentIsp725_243N_2018</VFP_свойство>
            <VFP_свойство имя="filter">orgbase.type='2'</VFP_свойство>
            <элемент>
              <VFP_имя>DicTable</VFP_имя>
              <дополнительно>
                <отложенная_инициализация/>
              </дополнительно>
            </элемент>                
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ФИО:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">230</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">230</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">250</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
            <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
          </элемент>
        </элемент>
      </элемент>
    </описание>
  </форма>
</Модуль>
