Есть у меня две утп, одна старая одна с последними упдейтами.
Старую беру за основу и переношу все дописки в новую. Имеется две колонки цена с ндс и цена без ндс, вроде все перенес правильно, колонка Цена с НДС рассчитывается от Цены без НДС, но колонку без ндс не подтягивает. И нет из чего рассчитать.
Вот код
Процедура ПриОткрытии()
ПоказатьСпрятатьПанельОсновногоИзображения();
УстановитьВидимостьОстатковНаСкладах();
ПолучитьСерверТО().ПодключитьКлиента(ЭтаФорма);
//Восстанавливаем значения флажков и колонок
Если ВосстановитьЗначение("ФлажокЦенаСНДС")<> Неопределено Тогда
Если ВосстановитьЗначение("ФлажокЦенаСНДС") Тогда
ЭлементыФормы.Список.Колонки.ЦенаСНДС.Видимость = Истина;
ЭлементыФормы.ФлажокЦенаСНДС.Значение = Истина;
Иначе
ЭлементыФормы.Список.Колонки.ЦенаСНДС.Видимость = Ложь;
ЭлементыФормы.ФлажокЦенаСНДС.Значение = Ложь;
КонецЕсли;
КонецЕсли;
Если ВосстановитьЗначение("ФлажокЦенаБезНДС")<> Неопределено Тогда
Если ВосстановитьЗначение("ФлажокЦенаБезНДС") Тогда
ЭлементыФормы.Список.Колонки.ЦенаБезНДС.Видимость = Истина;
ЭлементыФормы.ФлажокЦенаБезНДС.Значение = Истина;
Иначе
ЭлементыФормы.Список.Колонки.ЦенаБезНДС.Видимость = Ложь;
ЭлементыФормы.ФлажокЦенаБезНДС.Значение = Ложь;
КонецЕсли;
КонецЕсли;
Если ВосстановитьЗначение("ФлажокОстаток")<> Неопределено Тогда
Если ВосстановитьЗначение("ФлажокОстаток") Тогда
ЭлементыФормы.Список.Колонки.Остаток.Видимость = Истина;
ЭлементыФормы.ФлажокОстаток.Значение = Истина;
Иначе
ЭлементыФормы.Список.Колонки.Остаток.Видимость = Ложь;
ЭлементыФормы.ФлажокОстаток.Значение = Ложь;
КонецЕсли;
КонецЕсли;
Если ВосстановитьЗначение("ФлажокРезерв2")<> Неопределено Тогда
Если ВосстановитьЗначение("ФлажокРезерв2") Тогда
ЭлементыФормы.Список.Колонки.Резерв2.Видимость = Истина;
ЭлементыФормы.ФлажокРезерв2.Значение = Истина;
Иначе
ЭлементыФормы.Список.Колонки.Резерв2.Видимость = Ложь;
ЭлементыФормы.ФлажокРезерв2.Значение = Ложь;
КонецЕсли;
КонецЕсли;
Если ВосстановитьЗначение("ФлажокРезерв")<> Неопределено Тогда
Если ВосстановитьЗначение("ФлажокРезерв") Тогда
ЭлементыФормы.Список.Колонки.Резерв.Видимость = Истина;
ЭлементыФормы.ФлажокРезерв.Значение = Истина
Иначе
ЭлементыФормы.Список.Колонки.Резерв.Видимость = Ложь;
ЭлементыФормы.ФлажокРезерв.Значение = Ложь;
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ПриОткрытии()
Процедура СписокПриПолученииДанных(Элемент, ОформленияСтрок)
// Вставить содержимое обработчика.
Если ЭлементыФормы.ФлажокОстаток.Значение или ЭлементыФормы.ФлажокЦенаСНДС.Значение Тогда
Для Каждого Строка Из ОформленияСтрок Цикл
РезПоиска = Строка.ДанныеСтроки.Ссылка;
Если ЗначениеЗаполнено(РезПоиска) Тогда
Если не РезПоиска.ЭтоГруппа Тогда
Если ЭлементыФормы.ФлажокОстаток.Значение = Истина Тогда
Остатки = РегистрыНакопления.ПартииТоваровНаСкладах;
Фильтр = Новый Структура;
Фильтр.Вставить("Номенклатура",РезПоиска);
ТабОстатков = Остатки.Остатки(,Фильтр,
"Номенклатура", "Количество");
Строка.Ячейки.Остаток.Значение = 0;
Для Каждого СтрОст Из ТабОстатков Цикл
Строка.Ячейки.Остаток.Значение = СтрОст.Количество;
Прервать
КонецЦикла;
КонецЕсли;
//Если ЭлементыФормы.ФлажокРезерв2.Значение = Истина Тогда
// Остатки = РегистрыНакопления.Резерв2;
// Фильтр = Новый Структура;
// Фильтр.Вставить("Номенклатура",РезПоиска);
// ТабОстатков = Остатки.Остатки(,Фильтр,
// "Номенклатура", "Количество");
// Строка.Ячейки.Резерв2.Значение = 0;
// Для Каждого СтрОст Из ТабОстатков Цикл
// Строка.Ячейки.Резерв2.Значение = СтрОст.Количество;
// Прервать
// КонецЦикла;
//КонецЕсли;
//Если ЭлементыФормы.ФлажокРезерв.Значение = Истина Тогда
// Остатки = РегистрыНакопления.ДополнительныйРегистрРезерва;
// Фильтр = Новый Структура;
// Фильтр.Вставить("Номенклатура",РезПоиска);
// ТабОстатков = Остатки.Остатки(,Фильтр,
// "Номенклатура", "Количество");
// Строка.Ячейки.Резерв.Значение = 0;
// Для Каждого СтрОст Из ТабОстатков Цикл
// Строка.Ячейки.Резерв.Значение = СтрОст.Количество;
// Прервать
// КонецЦикла;
//КонецЕсли;
Если (ЭлементыФормы.ФлажокЦенаБезНДС.Значение = Истина) ИЛИ (ЭлементыФормы.ФлажокЦенаСНДС.Значение = Истина) Тогда
//ВалютаЦены = Неопределено;
//ЕдиницаЦены = Неопределено;
//ЦенаПечати = Ценообразование.ПолучитьЦенуНоменклатуры(РезПоиска,, Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Цена1"),, ЕдиницаЦены, ВалютаЦены);
Строка.Ячейки.ЦенаСНДС.Значение = Строка.ДанныеСтроки.Ссылка.Цена*1.2;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры