Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Колонка Цена и цена с НДС          
kot488 Подменю пользователя
сообщение 19.02.16, 11:41
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 205
Спасибо сказали: 3 раз
Рейтинг: 3.6

Есть у меня две утп, одна старая одна с последними упдейтами.
Старую беру за основу и переношу все дописки в новую. Имеется две колонки цена с ндс и цена без ндс, вроде все перенес правильно, колонка Цена с НДС рассчитывается от Цены без НДС, но колонку без ндс не подтягивает. И нет из чего рассчитать.


Вот код

Процедура ПриОткрытии()

    ПоказатьСпрятатьПанельОсновногоИзображения();
    УстановитьВидимостьОстатковНаСкладах();

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

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

КонецПроцедуры

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 20.04.24, 4:52
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!