Не выводится сумма

////////////////////////////////////////////////////////////////////////////////
// ПЕРЕМЕННЫЕ МОДУЛЯ
//
Перем ТаблицаПечФорм;  // список печатных форм документа
Перем НомерТекущейФормы;
Перем НачальнаяДатаДокумента;
Перем Сч01, Сч02, Сч010;
Перем Новый;
Перем СписокДействий;
Перем тЗаголовок;

//******************************************************************************
Функция ИтоговаяСтрока()
   Стр = "Итого: " + СокрЛП(Формат(Итог("Стоимость"),"Ч20.2-'"));
   Стр = Стр+"; Кол-во голов: "+Итог("Количество"); 
   Стр = Стр+"; Масса: "+Итог("Масса")+" кг";
   Возврат Стр;
КонецФункции // ИтоговаяСтрока  

//******************************************************************************
Процедура Подбор()
   Если ПустоеЗначение(МестоХранения)=1 Тогда
      Предупреждение("Выберите ферму");
      Возврат;
   КонецЕсли;
   Если РежимДокумента=Перечисление.РежимыДокументовСкотаИЖивотных.ПродуктивныйСкот Тогда
      ОткрытьПодбор("Справочник.ОсновныеСредства","ДляВыбора");
   Иначе
      глОбъект = СоздатьОбъект("СписокЗначений");
      
      сп = СоздатьОбъект("СписокЗначений");
      сп.Установить("ИмяОтбора",      "ВидСельскохозяйственнойПродукции");
      сп.Установить("ЗначениеОтбора", Перечисление.ВидыСельскохозяйственнойПродукции.Животные);
      глОбъект.Установить("Отбор",    сп);
      глОбъект.Установить("Родитель", "");
      
      КонтекстФормыПодбора = СоздатьОбъект("СписокЗначений");
      КонтекстФормыПодбора.ДобавитьЗначение(Контекст, "Контекст");
      КонтекстФормыПодбора.ДобавитьЗначение(МестоХранения, "МестоХранения");
      ОткрытьПодбор("Справочник.Номенклатура", "ДляПодбора", КонтекстФормыПодбора);
   КонецЕсли;
КонецПроцедуры  

//******************************************************************************
// ПриВыбореЖивотного()
//
Процедура ПриВыбореЖивотного()
   БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
   БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения, МестоХранения, 2);
   
   Если РежимДокумента=Перечисление.РежимыДокументовСкотаИЖивотных.ПродуктивныйСкот Тогда
      Если ОсновноеСредство.Выбран() = 0 Тогда Возврат; КонецЕсли;
      
      БухИт.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, ОсновноеСредство, 2);
      Если Выбран() = 1 Тогда
           БухИт.ВыполнитьЗапрос(ТекущийДокумент(),, "Г01,М01");
      Иначе БухИт.ВыполнитьЗапрос(, ДатаДок, "Г01,М01"); 
      КонецЕсли;
      
      БухИт.ВыбратьСчета();
      Пока БухИт.ПолучитьСчет()=1 Цикл
         Если БухИт.Счет = СчетПоКоду("Г01") Тогда
            Количество = ?(Выбран() = 1, БухИт.СНД("К"), БухИт.СКД("К"));
         ИначеЕсли БухИт.Счет = СчетПоКоду("М01") Тогда
            Масса = ?(Выбран() = 1, БухИт.СНД("К"), БухИт.СКД("К"));
         КонецЕсли;
      КонецЦикла;
      
      Если (Количество = 0) или (Масса = 0) Тогда
         Сообщить("Для скота: " + ОсновноеСредство + РазделительСтрок +
                "по данным учета количество или масса равна нулю!");
      КонецЕсли;
      
   Иначе
      Если Номенклатура.Выбран() = 0 Тогда Возврат; КонецЕсли;
      
      ТекстСообщения = "";
      СчетЖивотных = ОпределитьСубсчет11(Номенклатура, ТекстСообщения);
      Если СчетЖивотных = 0 Тогда
         Предупреждение(ТекстСообщения);
         Номенклатура = "";
         Возврат;
      КонецЕсли;   
      
      БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура,Номенклатура,2);  
      
      БухИт_11 = СоздатьОбъект("БухгалтерскиеИтоги");
      БухИт_11.ИспользоватьСубконто(ВидыСубконто.МестаХранения, МестоХранения, 2);
      БухИт_11.ИспользоватьСубконто(ВидыСубконто.Номенклатура, Номенклатура, 2);
      Если Выбран() = 1 Тогда
         БухИт.ВыполнитьЗапрос(ТекущийДокумент(),, "К11"); 
         БухИт_11.ВыполнитьЗапрос(ТекущийДокумент(),, СчетЖивотных);
         Масса      = БухИт_11.СНД("К");
         Количество = БухИт.СНД("К");
         
      Иначе
         БухИт.ВыполнитьЗапрос(, ДатаДок, "К11");
         БухИт_11.ВыполнитьЗапрос(, ДатаДок, СчетЖивотных);
         Масса      = БухИт_11.СКД("К");
         Количество = БухИт.СКД("К");
      КонецЕсли;
      
      Если (Количество = 0) или (Масса = 0) Тогда
         Сообщить("Для животного: " + Номенклатура + РазделительСтрок +
                "по данным учета количество или масса равна нулю!");
      КонецЕсли;
   КонецЕсли;
КонецПроцедуры   //   ПриВыбореЖивотного()

//******************************************************************************
// ОбработкаПодбора()
//
Процедура ОбработкаПодбора(ВыбрОС)
   Если РежимДокумента = Перечисление.РежимыДокументовСкотаИЖивотных.ПродуктивныйСкот Тогда
      Если ВыбрОС.Группа <> Перечисление.ГруппыОС.ПродуктивныйСкот Тогда
          Предупреждение("ОС не относится к группе 'Продуктивный скот'");
         Возврат;
      КонецЕсли;
      
      ВыбратьСтроки();
      Пока ПолучитьСтроку() = 1 Цикл
         Если ОсновноеСредство.Код = ВыбрОС.Код Тогда
            Предупреждение("Основное средство уже выбрано", 10);
            Возврат;
         КонецЕсли;
      КонецЦикла;
      
      НоваяСтрока();
      ОсновноеСредство = ВыбрОС;
      ПриВыбореЖивотного();
      
   Иначе 
      НоваяСтрока();
      Номенклатура = ВыбрОС;
      ПриВыбореЖивотного();
   КонецЕсли;
   
   АктивизироватьСтроку();
КонецПроцедуры   //ОбработкаПодбора()

//******************************************************************************
Процедура УправлениеДиалогом(УстановитьРеквизиты=0)
   
   Форма.Закладки.УдалитьВсе();
   Форма.Закладки.ДобавитьЗначение(1, "Вид списания");
   Если (ТипСписания = 1) Тогда
      Форма.Закладки.ДобавитьЗначение(2, "Выход продукции");
   КонецЕсли;
   Форма.ИспользоватьСлой("Основной, Шапка", 2);

   Позиция = Форма.Закладки.НайтиЗначение(2);
   Если ТипСписания = 2 Тогда
      Если Позиция > 0 Тогда
         Форма.Закладки.УдалитьЗначение(2);
      КонецЕсли;
      
   Иначе
      Если Позиция = 0 Тогда
         Форма.Закладки.ДобавитьЗначение(2, "Выход продукции");
         Форма.ИспользоватьСлой("Основной, Шапка", 2);
      КонецЕсли;
   КонецЕсли;
   
//   УправлениеКурсом(УстановитьРеквизиты);
   
КонецПроцедуры // УправлениеДиалогом()

Процедура Заполнить()  
   Если ПустоеЗначение(МестоХранения)=1 Тогда
      Предупреждение("Выберите ферму");
      Возврат;
   КонецЕсли;
   Если РежимДокумента=Перечисление.РежимыДокументовСкотаИЖивотных.ПродуктивныйСкот Тогда
      БухИт=СоздатьОбъект("БухгалтерскиеИтоги");
      БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения,МестоХранения,2); 
      БухИт.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства,,1); 
      Если Выбран()=1 Тогда
         БухИт.ВыполнитьЗапрос(ТекущийДокумент(),,"Г01,М01"); 
      Иначе
         БухИт.ВыполнитьЗапрос(,ДатаДок,"Г01,М01"); 
      КонецЕсли;
      НачОС = "";                            
      СписокКодов = СоздатьОбъект("СписокЗначений");
      Если КоличествоСтрок() = 0 Тогда
         ВвестиЗначение(НачОС,"Выберите элемент, входящий в группу однотипных основных средств","Справочник.ОсновныеСредства");
         Если ПустоеЗначение(НачОС) = 1 Тогда
            Возврат;
         Иначе
            НоваяСтрока();
            ОсновноеСредство = НачОС;
         КонецЕсли;
      КонецЕсли;
      ВыбратьСтроки();
      ПолучитьСтроку();
      НаимОС = ОсновноеСредство.Наименование;       
      СписокКодов.ДобавитьЗначение(ОсновноеСредство.Код);
      ОСРодитель = ОсновноеСредство.Родитель;
      КС = КоличествоСтрок();
      Пока ПолучитьСтроку() = 1 Цикл
         Если ОсновноеСредство.Наименование <> НаимОС Тогда
            Предупреждение("В табличной части указаны объекты с разными наименованиями."+
            РазделительСтрок+"                Заполнение отменено",60);
            Возврат;
         Иначе
            СписокКодов.ДобавитьЗначение(ОсновноеСредство.Код);
         КонецЕсли;
      КонецЦикла;
      Спр = СоздатьОбъект("Справочник.ОсновныеСредства");
      Спр.ИспользоватьРодителя(ОСРодитель);
      Спр.ВыбратьЭлементы(1);
      Пока Спр.ПолучитьЭлемент() = 1 Цикл
         Если Спр.ЭтоГруппа() = 1 Тогда
            Продолжить;
         КонецЕсли;
         Если Спр.Наименование <> НаимОС Тогда
            Продолжить;
         КонецЕсли;
         Если СписокКодов.НайтиЗначение(Спр.Код) = 0 Тогда
            НоваяСтрока();
            ОсновноеСредство = Спр.ТекущийЭлемент(); 
            Если БухИт.ПолучитьСубконто(2,,ОсновноеСредство)=1 Тогда
               БухИт.ВыбратьСчета();
               Пока БухИт.ПолучитьСчет()=1 Цикл
                  Если БухИт.Счет=СчетПоКоду("Г01") Тогда
                     Если Выбран()=1 Тогда
                        Количество=БухИт.СНД("К");
                     Иначе
                        Количество=БухИт.СКД("К");
                     КонецЕсли; 
                  Иначе          
                     Если Выбран()=1 Тогда
                        Масса=БухИт.СНД("К");
                     Иначе
                        Масса=БухИт.СКД("К");
                     КонецЕсли; 
                  КонецЕсли;
               КонецЦикла;
            КонецЕсли;   
         КонецЕсли;
      КонецЦикла;
      Если КС = КоличествоСтрок() Тогда
         Предупреждение("Других объектов с указанным наименованием не найдено",60);
      КонецЕсли;
   Иначе
      Если глОчиститьТабличнуюЧасть(Контекст)=0 Тогда
         Возврат;
      КонецЕсли;   
      БухИт=СоздатьОбъект("БухгалтерскиеИтоги");
      БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения,МестоХранения,2); 
      БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура,,1);  
      БухИт_11=СоздатьОбъект("БухгалтерскиеИтоги");
      БухИт_11.ИспользоватьСубконто(ВидыСубконто.МестаХранения,МестоХранения,2); 
      БухИт_11.ИспользоватьСубконто(ВидыСубконто.Номенклатура,,1); 
      Если Выбран()=1 Тогда
         БухИт.ВыполнитьЗапрос(ТекущийДокумент(),,"К11"); 
      Иначе
         БухИт.ВыполнитьЗапрос(,ДатаДок,"К11"); 
      КонецЕсли;  
      БухИт=СоздатьОбъект("БухгалтерскиеИтоги");
      БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения,МестоХранения,2); 
      БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура,,1); 
      Если Выбран()=1 Тогда
         БухИт.ВыполнитьЗапрос(ТекущийДокумент(),,"К11"); 
      Иначе
         БухИт.ВыполнитьЗапрос(,ДатаДок,"К11"); 
      КонецЕсли; 
      
      БухИт.ВыбратьСубконто(2);
      Пока БухИт.ПолучитьСубконто(2)=1 Цикл
          ТекстСообщения="";
         СчетЖивотных=ОпределитьСубсчет11(БухИт.Субконто(2),ТекстСообщения);
         Если СчетЖивотных=0 Тогда
            Сообщить(ТекстСообщения);
            Продолжить;
         КонецЕсли;   
         
         НоваяСтрока();
         Номенклатура=БухИт.Субконто(2);
         Если Выбран()=1 Тогда
            Количество=БухИт.СНД("К");
         Иначе
            Количество=БухИт.СКД("К");
         КонецЕсли;
         
         Если Выбран()=1 Тогда
            БухИт_11.ВыполнитьЗапрос(ТекущийДокумент(),,СчетЖивотных); 
            Масса=БухИт_11.СНД("К");
         Иначе
            БухИт_11.ВыполнитьЗапрос(,ДатаДок,СчетЖивотных);
            Масса=БухИт_11.СКД("К");
         КонецЕсли;  
      КонецЦикла; 
   КонецЕсли;
КонецПроцедуры

//_____________________________________________________________________________
Процедура ПриВыбореРежима(Реж=0)
   Если Реж = 0 Тогда
      Если КоличествоСтрок() > 0 Тогда
         Предупреждение("ВНИМАНИЕ! Табличная часть будет очищена!", 30);
         УдалитьСтроки();
      КонецЕсли;
   КонецЕсли;
   
    ТаблицаПечФорм.УдалитьСтроки();
   Если РежимДокумента = Перечисление.РежимыДокументовСкотаИЖивотных.Животные Тогда
      Форма.ОсновноеСредство.Видимость(0); 
      Форма.тИнвНомер.Видимость(0);
      Форма.Номенклатура.Видимость(1);
      
      Дост = 1;
      тЗаголовок="Акт на списание животных №"; 
      
      // добавим информацию о встроенной форме
      ТаблицаПечФорм.НоваяСтрока();
      ТаблицаПечФорм.Название = "Акт на списание животных";
      ТаблицаПечФорм.Кнопка   = "СП-54";
   
   Иначе                            
      Форма.ОсновноеСредство.Видимость(1);
      Форма.тИнвНомер.Видимость(1);    
      Форма.Номенклатура.Видимость(0);
      
      Дост = ТипСписания;
      тЗаголовок="Акт на списание скота №";
      
      // добавим информацию о встроенной форме
      ТаблицаПечФорм.НоваяСтрока();
      ТаблицаПечФорм.Название = "Акт на списание основных средств";
      ТаблицаПечФорм.Кнопка   = "Акт ОС-4";
   КонецЕсли;
   
   Форма.рАналитикаЗатрат.Видимость(Дост);
   Форма.тВидНоменклатуры.Видимость(Дост); 
   Форма.ВидНоменклатуры.Видимость(Дост);
   Форма.тПодразделение.Видимость(Дост);
   Форма.Подразделение.Видимость(Дост);
   Форма.СтатьяЗатрат.Видимость(Дост);
   Форма.тСтатьяЗатрат.Видимость(Дост);
   
   // Заполним таблицу для выбора печатной формы
   НомерТекущейФормы = глУстановкаКнопкиПечать(Контекст, "Документ." + Вид(),ТаблицаПечФорм);
КонецПроцедуры //ПриВыбореРежима

//_____________________________________________________________________________
Процедура Печать()
   Если Проведен()=0 Тогда
     Предупреждение("Документ не проведен");
     Возврат;
   КонецЕсли;
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("ОС-4");
   Организация = СокрЛП(Константа.НазваниеОрганизации);
   Подразделение = ОсновноеСредство.Подразделение.Получить(ДатаДок-1);
   МОЛ = ОсновноеСредство.МОЛ.Получить(ДатаДок-1); 
   Руководитель = "("+ФИО(Константа.Руководитель.Получить(ДатаДок))+")";
   НаимОС = СокрЛП(ОсновноеСредство.Наименование);
   ДатаВвода = ОсновноеСредство.ДатаВводаВЭксплуатацию;
   ИнвНомер = ОсновноеСредство.Код; 
   ГлавБух = "("+ФИО(Константа.ГлБухгалтер.Получить(ДатаДок))+")";
   Экспл = СоздатьОбъект("Периодический");
   Экспл.ИспользоватьОбъект("Состояние", ОсновноеСредство);
   СрокЭкспл=0;
   НачалоЭкспл =0;
   Экспл.ВыбратьЗначения(ДатаВвода, ДатаДок-1);
   Пока Экспл.ПолучитьЗначение() = 1 Цикл
      Если Экспл.Значение = Перечисление.СостоянияОС.В_Эксплуатации Тогда
         СрокЭкспл= СрокЭкспл + ?(НачалоЭкспл=0,0,Экспл.ДатаЗнач - НачалоЭкспл);
         НачалоЭкспл = Экспл.ДатаЗнач;
      Иначе
         СрокЭкспл= СрокЭкспл + ?(НачалоЭкспл=0,0,Экспл.ДатаЗнач - НачалоЭкспл);
         НачалоЭкспл = 0;
      КонецЕсли;
   КонецЦикла;
   СрокЭкспл = СрокЭкспл + ?(НачалоЭкспл=0,0,ДатаДок - НачалоЭкспл);
   СрокЭкспл = ?(Окр(СрокЭкспл/30.5,0,1)>0,Строка(Окр(СрокЭкспл/30.5,0,1))+" мес.","");
   НачСтоимость = "";
   НачАмортизация = 0;
   ОстСтоимость = Стоимость; 
   Таб.Вывести();
   Таб.Опции(0,0,0,0,"ОпцииПечатиОС_4","ОкноОС_4");
   Таб.ТолькоПросмотр(1);
   Таб.ПараметрыСтраницы(2);
   
   Если (ОсновноеСредство.Группа = Перечисление.ГруппыОС.ТранспортныеСредства) Тогда
      Таб.Показать("ОС-4а");
   Иначе
      Таб.Показать("ОС-4");
   КонецЕсли;
КонецПроцедуры //Печать

//******************************************************************************
// ПечатьСП54()
//
Процедура ПечатьСП54()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("СП-54");
   
   Таб.ВывестиСекцию("Шапка");
   
   ВыбратьСтроки();
   Пока ПолучитьСтроку() = 1 Цикл 
       Таб.ВывестиСекцию("Строка");
   КонецЦикла;   
      
   Таб.ВывестиСекцию("Подвал");
   Таб.НоваяСтраница();
   Таб.ВывестиСекцию("ШапкаОборот");
   ВыбратьСтроки();
   Пока ПолучитьСтроку() = 1 Цикл 
      Если ПустоеЗначение(Товар)=0 Тогда
          Таб.ВывестиСекцию("СтрокаОборот");
      КонецЕсли;
   КонецЦикла;   
   
   Таб.ВывестиСекцию("ПодвалОборот");
   
   Таб.Опции(0,0,0,0);
   Таб.ПараметрыСтраницы(2);
   Таб.Показать("Акт выбытия животных ...");
КонецПроцедуры   //   ПечатьСП54()

//******************************************************************************
// ПоКнопкеПечать()
// 
// Вызывается из формул элементов диалога:
//  Кнопка "кнПечать".
//
// Описание:
//  Определяется соответствующая печатная форма.
//    
Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)
   
   Если  ПустоеЗначение(НомерТекущейФормы) = 1  Тогда
      НомерТекущейФормы = 1;
      Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
   КонецЕсли;
   
   Если ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка") = "Акт ОС-4" Тогда   
      Печать(); 
      
   ИначеЕсли ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка") = "СП-54" Тогда      
      ПечатьСП54(); 
      
   Иначе
      Параметры = СоздатьОбъект("СписокЗначений");
      Параметры.ДобавитьЗначение(Контекст, "Контекст");
      Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
      Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");
      ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
   КонецЕсли;
   
КонецПроцедуры // ПоКнопкеПечать()

//******************************************************************************
// ПоКнопкеВыборПечатнойФормы()
//
// Вызывается из формул элементов диалога:
//  Кнопка "кнВыбПечать".
//
// Описание:
//  - открывает список для выбора способа печати. 
//  - формирует таблицу по выбранному способу.
//
Процедура ПоКнопкеВыборПечатнойФормы()
   
    ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);
   Если ВыбНомер > 0 Тогда
      НомерТекущейФормы = ВыбНомер;
      Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
      ПоКнопкеПечать();
   КонецЕсли;

КонецПроцедуры // ПоКнопкеВыборПечатнойФормы()

//_____________________________________________________________________________
Процедура ВводНового(Копирование) //предопределенная
   Новый = 1;
   Если Копирование = 1 Тогда Возврат; КонецЕсли;
   
   ТипСписания = 1;  
   РежимДокумента = Перечисление.РежимыДокументовСкотаИЖивотных.ПродуктивныйСкот;
КонецПроцедуры //ВводНового

//******************************************************************************
// ПриВводеСтроки()
//
Процедура ПриВводеСтроки()
   Если МестоХранения.Выбран() = 0 Тогда
      Предупреждение("Выберите ферму!");
      Статусвозврата(0);
   КонецЕсли;   
КонецПроцедуры   //   ПриВводеСтроки()

//******************************************************************************
// ПриРедактированииНовойСтроки()
//
Процедура ПриРедактированииНовойСтроки() //предопределенная
   Если Константа.МетодУчетаЖивотных.Получить(ДатаДок) = 1 Тогда Количество = 1; КонецЕсли;
КонецПроцедуры   //   ПриРедактированииНовойСтроки()

//******************************************************************************
// ПроверитьУчетЖивотных()
//
Процедура ПроверитьУчетЖивотных()
   Форма.Количество.Доступность(?(Константа.МетодУчетаЖивотных.Получить(ДатаДок) = 1, 0, 1));
КонецПроцедуры   //   ПроверитьУчетЖивотных()

//******************************************************************************

Процедура ПриВыбореЗакладки(НомерЗакладки, ЗначениеЗакладки)   Если НомерЗакладки = 1 Тогда
      Форма.ИспользоватьСлой("Основной, Шапка", 2);   
      Форма.Товар.Видимость(0); 
      Форма.КоличествоТовара.Видимость(0);
      Форма.СуммаТовара.Видимость(0);
      
      Форма.МестоПродукции.Видимость(0); 
      Форма.ДвижениеПродукции.Видимость(0);
      
      Форма.Номенклатура.Видимость(1);
      Форма.Количество.Видимость(1);
      Форма.Масса.Видимость(1);
      Форма.Стоимость.Видимость(1); 
      Активизировать("НомерСтроки");
   Иначе
      Форма.ИспользоватьСлой("Основной, ВыходПродукции", 2);
      Форма.Номенклатура.Видимость(0);
      Форма.ОсновноеСредство.Видимость(0);
      Форма.тИнвНомер.Видимость(0);
      Форма.Количество.Видимость(0);
      Форма.Масса.Видимость(0);
      Форма.Стоимость.Видимость(0);   
      
      Форма.Товар.Видимость(1); 
      Форма.КоличествоТовара.Видимость(1);
      Форма.СуммаТовара.Видимость(1); 
      
      Форма.МестоПродукции.Видимость(1); 
      Форма.ДвижениеПродукции.Видимость(1);
      Активизировать("НомерСтроки");
   КонецЕсли;
КонецПроцедуры

// ПриОткрытии()
//
Процедура ПриОткрытии() //предопределенная
   НачальнаяДатаДокумента = ДатаДок;
   ПриЗаписиПерепроводить(1);
   глПроверкаРазрешенияРедактирования(Контекст);
   Если Форма.ТолькоПросмотр() = 1 Тогда
      Форма.КнопкаЗаписать.Доступность(0);
      Форма.КнопкаОК.Доступность(0);
   КонецЕсли;
   Если Проведен() = 1 Тогда Форма.РежимДокумента.Доступность(0); КонецЕсли;
   
   Форма.Номенклатура.ВыполнятьФормулуТолькоПриИзменении(1);
   Форма.ОсновноеСредство.ВыполнятьФормулуТолькоПриИзменении(1);
   
   Сч01 = СчетПоКоду("01.1");
   
   ПриВыбореРежима(1);
   
   ПроверитьУчетЖивотных(); 
   
   Форма.ИспользоватьЗакладки(1);
   УправлениеДиалогом(0); 
   ПриВыбореЗакладки(1,"Шапка");
   Активизировать("НомерДок",);
КонецПроцедуры //ПриОткрытии

//******************************************************************************
// ПриЗаписи()
//
Процедура ПриЗаписи() //предопределенная
   Если глМожноЗаписатьДокумент(Контекст) = 0 Тогда
      СтатусВозврата(0);
      Возврат;
   ИначеЕсли глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента) = 1 Тогда
      СтатусВозврата(0);
      Возврат;
   КонецЕсли;
   
   Если РежимДокумента = Перечисление.РежимыДокументовСкотаИЖивотных.ПродуктивныйСкот Тогда
        Операция.Содержание = "Списание продуктивного скота";
   Иначе Операция.Содержание = "Списание животных";
   КонецЕсли;
КонецПроцедуры //ПриЗаписи

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриНачалеВыбораЗначения(Эл, Флаг)
   Если Эл = "Номенклатура" Тогда
      глОбъект = СоздатьОбъект("СписокЗначений");
      
      сп = СоздатьОбъект("СписокЗначений");
      сп.Установить("ИмяОтбора",      "ВидСельскохозяйственнойПродукции");
      сп.Установить("ЗначениеОтбора", Перечисление.ВидыСельскохозяйственнойПродукции.Животные);
      глОбъект.Установить("Отбор",    сп);
      глОбъект.Установить("Родитель", "");
   КонецЕсли;
КонецПроцедуры // ПриНачалеВыбораЗначения()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриЗакрытии()   
   глОткрытьЖурнал(Контекст, Новый);
КонецПроцедуры // ПриЗакрытии()

//*****************************************************************************
Новый = 0;

ТаблицаПечФорм      = СоздатьОбъект("ТаблицаЗначений");
ТаблицаПечФорм.НоваяКолонка("Название","Строка",,,,30);
ТаблицаПечФорм.НоваяКолонка("Файл","Строка",,,"Файл",10);
ТаблицаПечФорм.НоваяКолонка("Кнопка","Строка",,,,10); 
ТаблицаПечФорм.НоваяКолонка("ФайлОписания","Строка");
   
СписокДействий = СоздатьОбъект("СписокЗначений");
СписокДействий.ДобавитьЗначение("Отчет о движениях документа");
СписокДействий.ДобавитьЗначение("Структура подчиненности");
СписокДействий.ДобавитьЗначение("Ввести на основании"); 
СписокДействий.ДобавитьЗначение("Перейти  в журнал");
.