Цитата(Zaval @ 15.02.12, 16:04) необходимо зарегистрироваться для просмотра ссылки
Це і справді весело...
ТіС, у якому це буде реалізовано, стане "виробничніший, ніж ПУБ"
З чим саме проблема?
Дякую
//*****************************************************************************
Перем СтараяДата;
Перем НачальнаяДатаДокумента; // Для контроля даты документа
Перем ОстаткиТоваров, РезервыТоваров, ОбщРег;
Перем ТекстВалюты;
//*****************************************************************************
Функция ЗаголовокФормы()
Перем Заголовок, Название;
Заголовок = "Переработка продукции";
Название = "Переработка продукции №";
Заголовок = Заголовок + глЗаголовок(Контекст);
Форма.Заголовок(Заголовок);
Возврат Название;
КонецФункции //ЗаголовокФормы
//===============================
Функция УстДоступность()
Форма.ТекстВалюты.Заголовок(глСтрокаВалюты(Контекст));
Возврат "";
КонецФункции
//******************************************************************************
Процедура ИзмДата()
глПриИзмененииДатыДокумента(Контекст, СтараяДата);
КонецПроцедуры
// ===============================
Процедура ИзмВалюта()
Дата_Курса = ДатаДок;
Курс=глКурсДляВалюты(Валюта,Дата_Курса);
КонецПроцедуры //ИзмВалюта
//*****************************************************************************
Процедура ВыборФирмы()
// по кнопке редактирования параметров фирмы в докумнете
Перем КонтекстДокумента;
КонтекстДокумента = глВзятьКонтекст(Контекст);
ОткрытьФормуМодально("Обработка.ИнформацияОфирме", КонтекстДокумента);
КонецПроцедуры
// ===============================
Процедура НовыйНормыВыхода()
Если Продукция.Выбран() = 1 Тогда
ОткрытьФорму("Документ.НормыВыхода",Продукция);
КонецЕсли;
КонецПроцедуры
// ===============================
Процедура ИзмПродукция()
Если Продукция.Выбран()=0 Тогда
Возврат;
КонецЕсли;
НормыВыхода = Продукция.НормыВыхода.Получить(ДатаДок);
ЕдПродукции = Продукция.ЕдиницаПоУмолчанию;
КоэффициентПродукции = ЕдПродукции.Коэффициент;
Валюта = Продукция.ВалютаУчета;
ИзмВалюта();
КонецПроцедуры //ИзмПродукция
//*****************************************************************************
Процедура Заполнить()
Если ПустоеЗначение(НормыВыхода)=0 Тогда
УдалитьСтроки();
ДокОснования = НормыВыхода;
ДокОснования.ВыбратьСтроки();
Пока ДокОснования.ПолучитьСтроку()=1 Цикл
НоваяСтрока();
Товар=ДокОснования.Элемент;
Единица=ДокОснования.Ед;
Коэффициент=ДокОснования.Коэффициент;
Попытка
Количество=ДокОснования.Кво*КвоПродукции*КоэффициентПродукции/ДокОснования.КвоПродукции*ДокОснования.КоэффициентПродукции;
Исключение
КонецПопытки;
ПроцентСтоимости = ДокОснования.ПроцентСтоимости;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
//*****************************************************************************
Процедура ВыборОснования()
Заполнить();
КонецПроцедуры
//*****************************************************************************
// Предопределенные процедуры
//*****************************************************************************
Процедура ПриНачалеВыбораЗначения(Рекв,Флаг)
Флаг=0;
Если (Рекв="Фирма") Тогда
ВыборФирмы();
Иначе
Флаг=1;
КонецЕсли;
КонецПроцедуры
//******************************************************************************
Процедура ВводНового(Скопирован) // предопределенная процедура
глЗаполнитьШапку(Контекст);
ДатаДок=РабочаяДата();
Валюта = Гривня;
КонецПроцедуры
// ===============================
Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
Ном=1;
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
//Услуги печатаются в акте
Если Товар.ВидТовара=Перечисление.ВидыТоваров.Услуга Тогда
Продолжить;
КонецЕсли;
Таб.ВывестиСекцию("Строка");
Ном = Ном+1;
КонецЦикла;
Таб.ВывестиСекцию("Дно");
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,,);
Таб.Показать("ПЕЧАТЬ: ПереработкаПродукции","");
КонецПроцедуры
//******************************************************************************
Процедура ПриНачалеРедактированияСтроки()
КонецПроцедуры
//******************************************************************************
Процедура ПриРедактированииНовойСтроки()
КонецПроцедуры
//******************************************************************************
Процедура ПриОткрытии() // предопределенная процедура
НачальнаяДатаДокумента = ДатаДок;
глПроверкаДатыДок(Контекст,"Открытие");
//Если Форма.ТолькоПросмотр()=1 Тогда
// Форма.кнОК.Доступность(0);
// Форма.кнПровести.Доступность(0);
// Форма.кнЗаполнить.Доступность(0);
// Форма.КнопкаПоУмолчанию("кнЗакрыть");
//Иначе
Форма.КнопкаПоУмолчанию("кнОК");
//КонецЕсли;
глУстановкаРеквизитаТип(Контекст);
СтараяДата = ДатаДок;
КонецПроцедуры // ПриОткрытии
//*****************************************************************************
Процедура ПриЗаписи() //Предопределенная процедура
глПроверкаДатыДок(Контекст,"Запись");
Если глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента)=1 Тогда
СтатусВозврата(0);
Иначе
ЗаголовокФормы();
КонецЕсли;
КонецПроцедуры
Коли виводиш на друк то в стовпці ціна показується "ПечЦена". також замість сум "ПечСумма"
пише таку помилку
Цитата
Переменная не определена (ПечЦена)
ПечСумма<<?>>
Переменная не определена (ПечСумма)
я так думаю що я щось забув в модулю