<?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">
	<интерфейс>
		<отчет>
			<наименование>Форма 0503184-191н_ред157н_2014</наименование>
			<код_раздела>Reports5n</код_раздела>
			<номер_код>ar_form0503184_157n</номер_код>
			<шаблон>
				<тип>MSE</тип>
				<мнемокод>ar_form0503184_157n_2014</мнемокод>
				<файл>Форма0503184_191н_ред157н_2014.xlt</файл>
			</шаблон>
		</отчет>
	</интерфейс>
	<отчет>
		<реализует>ar_form0503184_157n</реализует>
			<дополнительно>
			<запомнить_переменные>
				<список_переменных>dSelDateS;dSelDatePo;cOrg;cBudgetName;cUnlPath;cIST;cDicIsp;cIspName;cIspTel</список_переменных>
				<мемофайл>ar_form0503184_191n_157n_2014</мемофайл>
			</запомнить_переменные>
			</дополнительно>
		<переменные>
			<переменная>
				<имя>dSelDateS</имя>
				<начальное_значение>oSystem.DateBegin</начальное_значение>
				<!--Период формирования-->
			</переменная>
			<переменная>
				<имя>dSelDatePo</имя>
				<начальное_значение>oSystem.Date</начальное_значение>
				<!--Период формирования-->
			</переменная>
      <переменная>
        <имя>dDateBegin</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата С-->
      </переменная>
      <переменная>
        <имя>dDateEnd</имя>
        <начальное_значение>""</начальное_значение>
        <!--Дата По-->
      </переменная>
			<переменная>
				<имя>cOrg</имя>
				<начальное_значение>""</начальное_значение>
				<!--Контрагент-->
			</переменная>
      <переменная>
        <имя>cBudgetName</имя>
        <начальное_значение>""</начальное_значение>
        <!--Наименование бюджета-->
      </переменная>
      <переменная>
        <имя>glBK</имя>
        <начальное_значение>""</начальное_значение>
        <!--Глава по БК-->
      </переменная>
			<переменная>
				<имя>cUnlPath</имя>
				<начальное_значение>""</начальное_значение>
				<!--Каталог выгрузки-->
			</переменная>
			<переменная>
				<имя>cFileName</имя>
				<начальное_значение>""</начальное_значение>
				<!--Файл выгрузки-->
			</переменная>
      <переменная>
        <имя>cIST</имя>
        <начальное_значение>""</начальное_значение>
        <!--ИСТ-->
      </переменная>
      <переменная>
        <имя>cDicIsp</имя>
        <начальное_значение>""</начальное_значение>
        <!--Исполнитель-->
      </переменная>
      <переменная>
        <имя>cIspName</имя>
        <начальное_значение>""</начальное_значение>
        <!--ФИО исполнителя-->
      </переменная>
      <переменная>
        <имя>cIspTel</имя>
        <начальное_значение>""</начальное_значение>
        <!--Телефон исполнителя-->
      </переменная>
		</переменные>
		<запуск_формы>
			<ид>f_0503184_191n_157n_2014</ид>
		</запуск_формы>
		<вычисление>
			<сообщение>Ждите, идет выборка данных ...</сообщение>
			<FPC_><![CDATA[*[VFP]
dDateBegin = DOX(m.dSelDateS, 3)
dDateEnd   = DOX(m.dSelDatePo, 4)
                    ]]></FPC_>

		</вычисление>

		<печать>
			<!--Печать отчета--><MSE>
				<!--Печать в MS Excel-->
				<FPC_><![CDATA[*[VFP]	   

Local oPrint
oPrint = objCaller.objExcelRep

&&Формирую имя файла            
If !Empty(m.cUnlPath)
  Local array aFiles(1)
  Local nNum, cNum, nN, i
  cUnlPath = AllTrim(m.cUnlPath)
  cFileName = "284"
  Do Case
    Case Month(m.dDateEnd + 1) = 1 &&год
      cFileName = m.cFileName + "Y"
    Case InList(Month(m.dDateEnd + 1), 4, 7, 10) &&квартал
      cFileName = m.cFileName + "Q"
    Other &&месяц
      cFileName = m.cFileName + "M"
  EndCase

  nNum = 0
  If ADir(aFiles, m.cUnlPath + m.cFileName + "*.txt") # 0
    For 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 
    EndFor
  EndIf
  cFileName = m.cUnlPath + m.cFileName + Allt(Str(m.nNum + 1)) + ".txt"
EndIf

oPrint.PrintRange("Header")

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

]]></FPC_></MSE>
			<FPC_><![CDATA[*[VFP]
* Выгрузка в Минфин.
If !Empty(m.cFileName) And oConfig.GetValue("PrintToExcel", "L", .T.)
  Local oExcel
  oExcel = oSystem.get_Excel()
  oExcel.ActiveWorkBook.Windows(1).WindowState = -4137
  Do TextOut With "cmdFromRep", Null, "", oExcel
  oExcel = Null
EndIf
]]></FPC_>
		</печать>
	</отчет>
	<форма>
		<ид>f_0503184_191n_157n_2014</ид>
		<тип>XML</тип>
		<описание>
			<дополнительно>
				<desc_version>1.0</desc_version>
			</дополнительно>
			<VFP_свойство имя="Name">f_0503184</VFP_свойство>
			<VFP_свойство имя="caption">Форма 0503184-191н_ред157н_2014</VFP_свойство>
			<VFP_свойство имя="height">250</VFP_свойство>
			<VFP_свойство имя="width">465</VFP_свойство>
			<VFP_метод имя="Valid"><![CDATA[LParam oThis, oThisform
dSelDateS  = oThisForm.PF.Page1.cntSelDateS.restDate.Value
dSelDatePo = oThisForm.PF.Page1.cntSelDatePo.restDate.Value
if m.dSelDateS > m.dSelDatePo
   =exclmes("Неправильно задан диапазон дат!")
   oThisForm.PF.ActivePage = 1
   oThisForm.PF.Page1.cntSelDateS.SetFocus()
   return .F.
endif
cUnlPath = oThisForm.PF.Page2.Catalog.Text.value
If !Empty(m.cUnlPath) And !Directory(m.cUnlPath)
   =exclmes("Каталог " + AllTrim(m.cUnlPath) + Chr(13) + "не существует!")
   oThisForm.PF.ActivePage = 2
   oThisForm.PF.Page2.Catalog.Text.SetFocus()
   return .F.
EndIf
cOrg = oThisForm.PF.Page1.OrgFrom.GetSaveValue()

Local Array arBp(1)
Local cWhereKontragent
cWhereKontragent = oThisForm.PF.Page1.OrgFrom.GetCond()

If !Empty(m.cWhereKontragent)
  Select fBudMg.Rasp_Code ;
    From fBudMg ;
      Inner Join OrgBase On fBudMg.OrgBase_RN = OrgBase.RN ;
    Where &cWhereKontragent ;
    Into Array arBP
Else
  Select fBudMg.Rasp_Code ;
    From fBudMg ;
      Inner Join OrgBase On fBudMg.OrgBase_RN = OrgBase.RN ;
    Where OrgBase.RN = ?oSystem.OwnerOrgRn ;
    Into Array arBP
EndIf

If _Tally > 0
  glBK = arBP(1)  
EndIf 

cDicIsp  = oThisForm.PF.Page2.DicIsp.GetSaveValue()
]]></VFP_метод>
			<VFP_метод имя="PostInit"><![CDATA[LParam oThis, oThisform
Local cIspolnitel
oThisForm.PF.Page1.OrgFrom.setsavevalue(m.cOrg)
oThisForm.PF.Page1.txtNameBudzh.SetSaveValue(m.cBudgetName)
oThisForm.PF.Page1.cntSelDateS.InitThis(m.dSelDateS)
oThisForm.PF.Page1.cntSelDatePo.InitThis(m.dSelDatePo)
cIspolnitel = m.cIspName
oThisForm.PF.Page2.Catalog.Text.value = m.cUnlPath
oThisForm.PF.Page2.DicIsp.setsavevalue(m.cDicIsp)
oThisForm.PF.Page2.fldIspName.Value = m.cIspolnitel
]]></VFP_метод>
			<элемент>
				<VFP_имя>Tbtndialog1</VFP_имя>
				<VFP_свойство имя="Left">185</VFP_свойство>
 				<VFP_свойство имя="Top">213</VFP_свойство>
			</элемент>
	    <элемент>
	      <VFP_класс>TPageFrame</VFP_класс>
	      <VFP_свойство имя="name">PF</VFP_свойство>
	      <VFP_свойство имя="height">210</VFP_свойство>
	      <VFP_свойство имя="width">465</VFP_свойство>
        <VFP_свойство имя="pagecount">2</VFP_свойство>
        <элемент>
	        <VFP_имя>Page1</VFP_имя>
	        <VFP_свойство имя="caption">Параметры формирования</VFP_свойство>
	        <VFP_свойство имя="fontname">MS Sans Serif</VFP_свойство>
	        <VFP_свойство имя="fontsize">8</VFP_свойство>
					<элемент>
						<VFP_класс>T3dShape</VFP_класс>
						<VFP_свойство имя="height">80</VFP_свойство>
						<VFP_свойство имя="left">10</VFP_свойство>
						<VFP_свойство имя="top">10</VFP_свойство>
						<VFP_свойство имя="width">445</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>TLabel</VFP_класс>
						<VFP_свойство имя="Left">25</VFP_свойство>
  					<VFP_свойство имя="Top">5</VFP_свойство>
						<VFP_свойство имя="Caption">Период</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>TLabel</VFP_класс>
						<VFP_свойство имя="Caption">С:</VFP_свойство>
						<VFP_свойство имя="Left">20</VFP_свойство>
						<VFP_свойство имя="Top">30</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>Month_year_m</VFP_класс>
						<VFP_свойство имя="Name">cntSelDateS</VFP_свойство>
						<VFP_свойство имя="ControlSource">dSelDateS</VFP_свойство>
						<VFP_свойство имя="Left">85</VFP_свойство>
						<VFP_свойство имя="Top">25</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>TLabel</VFP_класс>
						<VFP_свойство имя="Caption">По:</VFP_свойство>
						<VFP_свойство имя="Left">20</VFP_свойство>
						<VFP_свойство имя="Top">60</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>Month_year_m</VFP_класс>
						<VFP_свойство имя="Name">cntSelDatePo</VFP_свойство>
						<VFP_свойство имя="ControlSource">dSelDatePo</VFP_свойство>
						<VFP_свойство имя="Left">85</VFP_свойство>
						<VFP_свойство имя="Top">55</VFP_свойство>
					</элемент>
          <элемент>
            <VFP_класс>T3dShape</VFP_класс>
            <VFP_свойство имя="height">75</VFP_свойство>
            <VFP_свойство имя="left">10</VFP_свойство>
            <VFP_свойство имя="top">100</VFP_свойство>
            <VFP_свойство имя="width">445</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">25</VFP_свойство>
            <VFP_свойство имя="Top">95</VFP_свойство>
            <VFP_свойство имя="Caption">Параметры формирования</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">115</VFP_свойство>
            <VFP_свойство имя="Caption">Бюджетное учреждение:</VFP_свойство>
          </элемент>
					<элемент>
						<VFP_класс>TDicHist</VFP_класс>
						<VFP_свойство имя="Name">OrgFrom</VFP_свойство>
						<VFP_свойство имя="Left">166</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_AGENTS184_157N_2014</VFP_свойство>
						<VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
						<VFP_свойство имя="condfield" тип="C">orgbase.rmnemo_org</VFP_свойство>
						<VFP_свойство имя="condfieldrn" тип="C">orgbase.rn</VFP_свойство>
						<VFP_свойство имя="enablewildcards" тип="L">.T.</VFP_свойство>
						<элемент>
							<VFP_имя>DicTable</VFP_имя>
							<дополнительно>
								<отложенная_инициализация/>
							</дополнительно>
						</элемент>
					</элемент>
					<элемент>
						<VFP_класс>TLabel</VFP_класс>
						<VFP_свойство имя="Left">20</VFP_свойство>
						<VFP_свойство имя="Top">145</VFP_свойство>
						<VFP_свойство имя="Caption">Наименование бюджета:</VFP_свойство>
					</элемент>
        	<элемент>
						<VFP_класс>TDicHist</VFP_класс>
						<VFP_свойство имя="Name">txtNameBudzh</VFP_свойство>
						<VFP_свойство имя="Left">166</VFP_свойство>
						<VFP_свойство имя="Top">140</VFP_свойство>
						<VFP_свойство имя="Width">275</VFP_свойство>
						<VFP_свойство имя="AreaName" тип="C">Mubudg</VFP_свойство>
						<VFP_свойство имя="DictName" тип="C">Mubudg_msc</VFP_свойство>
						<VFP_свойство имя="RetField" тип="C">mnemo</VFP_свойство>
						<VFP_свойство имя="HistoryName" тип="C">H_MUBUDG184_157N_2014</VFP_свойство>
						<VFP_свойство имя="ControlSource" тип="C">m.cBudgetName</VFP_свойство>
						<VFP_свойство имя="notempty" тип="L">.F.</VFP_свойство>
						<VFP_свойство имя="sourceIsVar" тип="L">.T.</VFP_свойство>
					  <элемент>
  						<VFP_имя>DicTable</VFP_имя>
	  					<дополнительно>
		  					<отложенная_инициализация/>
			  			</дополнительно>
				  	</элемент>
	        </элемент>
				</элемент>
				<элемент>
					<VFP_имя>Page2</VFP_имя>
					<VFP_свойство имя="caption">Параметры выгрузки</VFP_свойство>
					<VFP_свойство имя="fontname">MS Sans Serif</VFP_свойство>
					<VFP_свойство имя="fontsize">8</VFP_свойство>
					<элемент>
						<VFP_класс>T3dShape</VFP_класс>
						<VFP_свойство имя="height">165</VFP_свойство>
						<VFP_свойство имя="left">10</VFP_свойство>
						<VFP_свойство имя="top">10</VFP_свойство>
						<VFP_свойство имя="width">445</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>TLabel</VFP_класс>
						<VFP_свойство имя="Left">20</VFP_свойство>
						<VFP_свойство имя="Top">5</VFP_свойство>
						<VFP_свойство имя="Caption">Параметры</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>TLabel</VFP_класс>
						<VFP_свойство имя="Caption">Каталог:</VFP_свойство>
						<VFP_свойство имя="Left">20</VFP_свойство>
						<VFP_свойство имя="Top">25</VFP_свойство>
					</элемент>
					<элемент>
						<VFP_класс>TDirSelect</VFP_класс>
						<VFP_свойство имя="Name">Catalog</VFP_свойство>
						<VFP_свойство имя="Left">190</VFP_свойство>
						<VFP_свойство имя="Top">20</VFP_свойство>
						<VFP_свойство имя="Width">250</VFP_свойство>
					</элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">ИСТ:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">55</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TTextBox</VFP_класс>
            <VFP_свойство имя="Left">383</VFP_свойство>
            <VFP_свойство имя="Top">50</VFP_свойство>
            <VFP_свойство имя="Width">57</VFP_свойство>
            <VFP_свойство имя="MaxLength">3</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIST</VFP_свойство>
            <VFP_свойство имя="Name">IST</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TLabel</VFP_класс>
            <VFP_свойство имя="Caption">Исполнитель:</VFP_свойство>
            <VFP_свойство имя="Left">20</VFP_свойство>
            <VFP_свойство имя="Top">85</VFP_свойство>
          </элемент>
          <элемент>
            <VFP_класс>TDicHist</VFP_класс>
            <VFP_метод имя="AddUpdate"><![CDATA[LParam oThis, oThisform
= CurOpen("orgbase, person")
If !Empty(oThisForm.PF.Page2.dicIsp.Value)
  = Seek(oThisForm.PF.Page2.dicIsp.Value, "orgbase", "RN")
  If orgbase.type # '2'
    errmes("Выбранный контрагент не является физическим лицом.")
    oThisForm.PF.Page2.dicIsp.Clear()
  Else    
    = Seek(oThisForm.PF.Page2.dicIsp.Value, "person", "RN")
    oThisForm.PF.Page2.fldIspName.Value = Alltrim(person.SURNAME) + " " + Left(Alltrim(person.FIRSTNAME), 1) + "." + Left(Alltrim(person.SECONDNAME), 1) + "."
  ENDIF
EndIf
]]></VFP_метод>
            <VFP_свойство имя="Name">dicIsp</VFP_свойство>
            <VFP_свойство имя="Left">190</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_AgentsFIO184_157N_2014</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">190</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">190</VFP_свойство>
            <VFP_свойство имя="Top">140</VFP_свойство>
            <VFP_свойство имя="Width">250</VFP_свойство>
            <VFP_свойство имя="ControlSource">cIspTel</VFP_свойство>
            <VFP_свойство имя="Name">fldIspTel</VFP_свойство>
          </элемент>
				</элемент>
			</элемент>
		</описание>
	</форма>
</Модуль>
