v7: Акт списания МПЗ для 1с 7.7 УСН

Перем СписокНазначений;

//*******************************************
Процедура ПриВыбореОтветственных()
Если Комиссия = 1 Тогда
ДоступностьСостава = 1;
Иначе
ДоступностьСостава = 0;
КонецЕсли;
Форма.РамкаСостав.Доступность(ДоступностьСостава);
Для А = 1 По 3 Цикл
Форма.ПолучитьАтрибут("ЧленКомиссии"+А).Доступность(ДоступностьСостава);
Форма.ПолучитьАтрибут("КнОчЧленКомиссии"+А).Доступность(ДоступностьСостава);
КонецЦикла;
КонецПроцедуры

//___________________________________________
Процедура ВыбратьНазначениеИспользования()
Перем ВыбНазначение;
Если СписокНазначений.ВыбратьЗначение(ВыбНазначение, , , , 1) = 1 Тогда
НазначениеИспользования = ВыбНазначение;
КонецЕсли;
КонецПроцедуры

//___________________________________________
Процедура Сформировать()
Если ПустоеЗначение(Док) = 1 Тогда
Предупреждение("Не укзан документ ""Требование-накладная""!");
Возврат;
КонецЕсли;

Если Док.Проведен() = 0 Тогда
Сообщить("Для непроведенного документа графы ""Цена"" и ""Сумма"" не заполняются.");
КонецЕсли;

СтрокаКомиссии = "";
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Если Комиссия = 1 Тогда
ЕстьКомиссия = 0;
СтрокаКомиссии = "Комиссия в составе: ";
Для А = 1 По 3 Цикл
ДолжностьЧленаКомиссии = "";
ЧленКомиссии = ЗначениеИзСтрокиВнутр(Шаблон("[ЗначениеВСтрокуВнутр(ЧленКомиссии"+А+")]"));
Если ПустоеЗначение(ЧленКомиссии) = 0 Тогда
ЕстьКомиссия = 1;
Если ПустоеЗначение(ЧленКомиссии.Должность) = 0 Тогда
ДолжностьЧленаКомиссии = СокрЛП(ЧленКомиссии.Должность);
КонецЕсли;
СтрокаКомиссии=СтрокаКомиссии+ДолжностьЧленаКомиссии + " "+ФИО(ЧленКомиссии) + ", ";
КонецЕсли;
КонецЦикла;
СтрокаКомиссии=СтрокаКомиссии+" подтверждает использование по назначению следующих материалов:";
Если ЕстьКомиссия = 0 Тогда
Предупреждение("Не указан ни один член комиссии!");
Возврат;
КонецЕсли;
КонецЕсли;

СохранитьЗначение("АктТМЦКомиссия",Комиссия);
СохранитьЗначение("АктТМЦЧлен1",ЧленКомиссии1);
СохранитьЗначение("АктТМЦЧлен2",ЧленКомиссии2);
СохранитьЗначение("АктТМЦЧлен3",ЧленКомиссии3);

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

Таб.ВывестиСекцию("Шапка");

// Печать строк документа.
Док.ВыбратьСтроки();
Ном=0;
ИтогоСумма = 0;
Пока Док.ПолучитьСтроку()=1 Цикл
Ном=Ном+1;
Наименование = Док.Номенклатура.Наименование;
ЕдиницаИзмерения = Док.Номенклатура.ЕдиницаИзмерения;
Количество = Док.Количество;
Сумма = Док.Сумма;
ИтогоСумма = ИтогоСумма + Сумма;
Если Количество <> 0 Тогда
Цена = Сумма/Количество;
Иначе
Цена = 0;
КонецЕсли;
Таб.ВывестиСекцию("Строка");
КонецЦикла;

Таб.ВывестиСекцию("Итог");

Если Комиссия = 1 Тогда
Для А = 1 По 3 Цикл
ДолжностьЧленаКомиссии = "";
ЧленКомиссии = ЗначениеИзСтрокиВнутр(Шаблон("[ЗначениеВСтрокуВнутр(ЧленКомиссии"+А+")]"));
Если ПустоеЗначение(ЧленКомиссии) = 0 Тогда
ЕстьКомиссия = 1;
Если ПустоеЗначение(ЧленКомиссии.Должность) = 0 Тогда
ДолжностьЧленаКомиссии = СокрЛП(ЧленКомиссии.Должность);
КонецЕсли;
СтрокаКомисии=СтрокаКомисии+ДолжностьЧленаКомиссии + " "+ФИО(ЧленКомиссии);
Таб.ВывестиСекцию("ЧленКомиссии");
КонецЕсли;
КонецЦикла;
Иначе
Таб.ВывестиСекцию("Подвал");
КонецЕсли;

Таб.Опции(0, 0, 0, 0,"ОпцииПечатиАктаСписанияТМЦ", "ОкноАктаСписанияТМЦ");
Таб.ПовторятьПриПечатиСтроки(9, 10 );
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(1,,,10,5,10,10,,,1,,);
Таб.Показать("Акт на списание ТМЦ","");
КонецПроцедуры // Печать()

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

СписокНазначений = ВосстановитьЗначение("АктТМЦСписокНазначений");
Если ТипЗначенияСтр(СписокНазначений) = "СписокЗначений" Тогда
НазначениеИспользования = СписокНазначений.ПолучитьЗначение(1);
Иначе
СписокНазначений = СоздатьОбъект("СписокЗначений");
КонецЕсли;

Комиссия = ВосстановитьЗначение("АктТМЦКомиссия");
Если ПустоеЗначение(Комиссия) = 1 Тогда
Комиссия = 1;
КонецЕсли;
ЧленКомиссии1 = ВосстановитьЗначение("АктТМЦЧлен1");
ЧленКомиссии2 = ВосстановитьЗначение("АктТМЦЧлен2");
ЧленКомиссии3 = ВосстановитьЗначение("АктТМЦЧлен3");