<?xml version="1.0" encoding="windows-1251"?>
<registry>
	<node path="%root%\Ресурсы\Макросы\Слои\РОмск.ПланированиеБА.ФормыВвода.СводнаяФорма">
		<value type="7" name="ЗаполнитьЛС">/*********ФОРМИРОВАНИЕ СВОДА ДЛЯ ВЫГРУЗКИ В АС БЮДЖЕТ БР ГРБС (20140123-9:40)***********/

включить "\библиотеки\libru.lib"; 
включить "\библиотеки\Reports.lib";
включить "\Макросы\Слои\ВспомогательныеФункции.abl";

ЗаполнитьЛС(Параметры: IVariables);

переменные
  Датасет: СтатическиеДанные;
  ТипУчреждения: ЦЕЛОЕ;
начало
  Датасет := Параметры.Values('LayerData');
  Датасет.ВНачало ;
  пока не Датасет.ВКонце делать
  начало
     ТипУчреждения := Датасет.Поле("ЛицевойСчетСвод").КакЦелое ост 10 ;
       если (ТипУчреждения=8 или ТипУчреждения=9) и 
          (Датасет.Поле("Код_ТипСредств").КакЦелое&lt;&gt;10193) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10011;
       если (ТипУчреждения=8 или ТипУчреждения=9) и 
          (Датасет.Поле("Код_ТипСредств").КакЦелое&lt;&gt;10293) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10011;
       если (ТипУчреждения=8 или ТипУчреждения=9) и 
          (Датасет.Поле("Код_ТипСредств").КакЦелое&lt;&gt;10292) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10011;
       если (ТипУчреждения=8 или ТипУчреждения=9) и 
          (Датасет.Поле("Код_ТипСредств").КакЦелое&lt;&gt;10192) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10011;
       если /*(ТипУчреждения=8 или ТипУчреждения=9) и */ 
          (Датасет.Поле("Код_ТипСредств").КакЦелое=10193) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10014;
       если /*(ТипУчреждения=8 или ТипУчреждения=9) и */ 
          (Датасет.Поле("Код_ТипСредств").КакЦелое=10293) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10014;
       если /*(ТипУчреждения=8 или ТипУчреждения=9) и */
          (Датасет.Поле("Код_ТипСредств").КакЦелое=10292) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10014;
        если /*(ТипУчреждения=8 или ТипУчреждения=9) и */ 
          (Датасет.Поле("Код_ТипСредств").КакЦелое=10192) тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := (Датасет.Поле("ЛицевойСчетСвод").КакЦелое цел 1000000)*1000000+10014;     
     Датасет.Следующая ;
  конец;
  Датасет.ВНачало ;
  пока не Датасет.ВКонце делать
  начало
     если  Датасет.Поле("ЛицевойСчет").Пустое тогда
           Датасет.Поле("ЛицевойСчет").КакЦелое := Датасет.Поле("ЛицевойСчетСвод").КакЦелое ;
     Датасет.следующая ;
  конец ;   
конец.
</value>
		<param value="ЗаполнитьЛС" type="1" name="AccessCount">29</param>
		<param value="ЗаполнитьЛС" type="2" name="AccessDate">41662,4033913542</param>
	</node>
</registry>
