(
3) обычные, УПП
(
4) велкам:
////////////////////////////////////////////////////////////////////////////////
// ПЕРЕМЕННЫЕ МОДУЛЯ
Перем мОбновлятьВладельца Экспорт;
// Хранит текущую дату документа - для проверки перехода документа в другой период установки номера
Перем мТекущаяДатаДокумента;
// Хранит текущее значение учетной политики, организация является плательщиком ЕНВД
Перем мОрганизацияЯвляетсяПлательщикомЕНВД;
// Хранит текущее значение организации для контроля учетной политики, организация является плательщиком ЕНВД
Перем мТекущаяОрганизация;
// Хранит валюту взаиморасчетов, установленную в текущем договоре взаиморасчетов,
// используется для определения необходимости пересчетов при изменении договора.
Перем мТекущаяВалютаВзаиморасчетов;
// Хранит текущий договор контрагента
// используется для восстановления старого договора в случае некорректного выбора нового
Перем мТекущийДоговорКонтрагента;
Перем мВидДоговора;
Перем мПоДокументамРасчетов;
Перем мОтражатьВРегламентированномУчете;
Перем мРасчетыВУЕ;
Перем мВедениеВзаиморасчетов;
Перем мКачество;
// Устанавливается в значение "Истина", если пользователю можно менять цену
// в документе
Перем мМожноМенятьЦенуВДокументе;
//Используется для определения необходимости заполнения счетов в документе
Перем мСклад;
Перем мКолонкиТовары, мКолонкиВозвратнаяТара, мКолонкиУслуги, мКолонкиДокументы; //
Перем мРазрешитьНулевыеЦеныВОпте, мРазрешитьНулевыеЦеныВРознице;
// Хранит информацию о сумме без скидки документа.
Перем мРассчитыватьАвтоматическиеСкидки Экспорт;
Перем мМинимальныеЦены Экспорт;
Перем мСписокФильтров Экспорт;
// Хранит суммарное количество товаров в табличной части Товары
Перем мТекущееКоличествоТоваров;
// Автоотметка СкладОредра без учета заполненности ТЧ.
Перем мАвтоОтметкаСклада;
Перем мФормаСоставНабора, мТекущаяСтрокаНабор;
// Хранит дерево кнопок подменю заполнение ТЧ
Перем мКнопкиЗаполненияТЧ;
// Предыдущие значения реквизитов
Перем мСтароеЗначениеСделки, мСтароеЗначениеСклада;
Перем ПоказыватьВДокументахСчетаУчета;
Перем мТерминалы;
Перем мУчетнаяПолитика;
// Хранит курс редактируемой строки табличной части "Предоплата"
Перем мКурсСтрокиДокументаРасчетов;
Перем мПересчитыватьСкидку;
Перем мСтруктураПараметровДляПолученияДоговора;
// Хранит вохможность выписки счета-фактуру: при настройке учетной политики
// "Начислять НДС по отгрузке без перехода права собственности" и при УСН
Перем мВыписыватьСчетФактуру;
// Содержит значение функциональной опции "ИспользоватьОбменЭД"
Перем мИспользоватьОбменЭД;
...
Процедура ПриОткрытии()
...
// Запомнить текущие значения реквизитов формы.
мТекущаяДатаДокумента = Дата;
мТекущаяВалютаВзаиморасчетов = ДоговорКонтрагента.ВалютаВзаиморасчетов;
...
//Запомним автоотметку поля шапки Склад
мАвтоОтметкаСклада = ЭлементыФормы.Склад.АвтоОтметкаНезаполненного;
мВидДоговора = ДоговорКонтрагента.ВидДоговора;
мПоДокументамРасчетов = ДоговорКонтрагента.ВестиПоДокументамРасчетовСКонтрагентом;
мРасчетыВУЕ = ДоговорКонтрагента.РасчетыВУсловныхЕдиницах;
мВедениеВзаиморасчетов = ДоговорКонтрагента.ВедениеВзаиморасчетов;
ИзменитьСоставПодменюВыбораВидаОперации();
...
мСклад = Склад;
// Сохраним текущее значение сделки и склада
мСтароеЗначениеСделки = Сделка;
мСтароеЗначениеСклада = Склад;
мМинимальныеЦены = Новый ТаблицаЗначений;
мМинимальныеЦены.Колонки.Добавить("Номенклатура");
мМинимальныеЦены.Колонки.Добавить("ХарактеристикаНоменклатуры");
мМинимальныеЦены.Колонки.Добавить("ЕдиницаИзмерения");
мМинимальныеЦены.Колонки.Добавить("Цена");
мСписокФильтров = УправлениеДопПравамиПользователей.ПравоНеОтпускатьТоварСЦенойНижеОпределенногоТипа();
...
КонецПроцедуры // ПриОткрытии()
...
////////////////////////////////////////////////////////////////////////////////
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
мОбновлятьВладельца = Ложь;
мКолонкиТовары = ЭлементыФормы.Товары.Колонки;
мКолонкиУслуги = ЭлементыФормы.Услуги.Колонки;
мКолонкиВозвратнаяТара = ЭлементыФормы.ВозвратнаяТара.Колонки;
мКолонкиДокументы = ЭлементыФормы.ДокументыРасчетовСКонтрагентом.Колонки;
мРазрешитьНулевыеЦеныВОпте = УправлениеДопПравамиПользователей.РазрешитьНулевыеЦеныВОпте();
мРазрешитьНулевыеЦеныВРознице = УправлениеДопПравамиПользователей.РазрешитьНулевыеЦеныВРознице();
мТекущееКоличествоТоваров = Товары.Итог("Количество");
мВыписыватьСчетФактуру = ложь;
мТерминалы = ПолучитьСерверТО().ПолучитьСписокУстройств(
Перечисления.ВидыТорговогоОборудования.ТерминалСбораДанных);
мИспользоватьОбменЭД = ПолучитьФункциональнуюОпцию("ИспользоватьОбменЭД");
///////////////
Перем мКолонкиТовары, мКолонкиВозвратнаяТара, мКолонкиУслуги, мКолонкиДокументы; // - эти в конце заданы
мВидДоговора, мПоДокументамРасчетов - в ПриОткрытии()