Имя: Пароль:
1C
 
Обращение к процедуре объекта как к функции (Свернуть)
0 JuixyJes
 
23.08.19
17:34
Если Объект.Услуга.Количество() > 0 Тогда
            Для каждого стр из Объект.Услуга Цикл
                Если стр.Наименование =  ВыбСтрока.Услуга Тогда
                    Стр.Количество = Стр.Количество + 1;
                    Стр.Сумма = Стр.Цена * Стр.Количество;
                Иначе
                    НСТР = Объект.Услуга.Добавить();
                    НСТР.Наименование = ВыбСтрока.Услуга;
                    НСТР.Цена = ВыбСтрока.Цена;
                    НСТР.Количество =  1;
                    НСТР.Сумма = НСТР.Цена*НСТР.Количество;
                    Объект.Услуга.Загрузить(Объект.Услуга.Выгрузить().Свернуть("Наименование, Цена", "Количество, Сумма"));
                КонецЕсли;
            КонецЦикла;
        Иначе
            НСТР = Объект.Услуга.Добавить();
            НСТР.Наименование = ВыбСтрока.Услуга;
            НСТР.Цена = ВыбСтрока.Цена;
            НСТР.Количество = 1;
            НСТР.Сумма = НСТР.Цена*НСТР.Количество;
        КонецЕсли;
1 JuixyJes
 
23.08.19
17:35
Помогите, ловлю такую вот ошибку
2 sqr4
 
23.08.19
17:39
Объект.Услуга.Загрузить(Объект.Услуга.Выгрузить().Свернуть("Наименование, Цена", "Количество, Сумма"));
Разложи по шагам
3 Fragster
 
гуру
23.08.19
17:41
Свернуть не возвращает значения
4 JuixyJes
 
23.08.19
17:42
Выгрузка = Объект.Услуга.Выгрузить();
Св = Выгрузка.Свернуть("Наименование, Цена", "Количество, Сумма");
Загрузка = Объект.Услуга.Загрузить(Св); (2)
5 RomanYS
 
23.08.19
17:43
А в алгоритм какахами кидаться можно, или вопрос только по ошибке?
6 JuixyJes
 
23.08.19
17:43
(5) только по ошибке
7 sqr4
 
23.08.19
17:43
Св = Выгрузка.Свернуть("Наименование, Цена", "Количество, Сумма");
Неправильно
8 sqr4
 
23.08.19
17:44
Выргузка.Свернуть(
Загрузка = Объект.Услуга.Загрузить(Выргузка);
9 hhhh
 
23.08.19
17:44
(4) Загрузка = Объект.Услуга.Загрузить(Выгрузка); (2)
10 RomanYS
 
23.08.19
17:45
(4)
Выгрузка = Объект.Услуга.Выгрузить();
Выгрузка.Свернуть("Наименование, Цена", "Количество, Сумма");
Загрузка = Объект.Услуга.Загрузить(Выгрузка);

(6) но алгоритм абсолютно не рабочий
11 JuixyJes
 
23.08.19
17:47
(10) я так полагаю это тоже не сработает
12 RomanYS
 
23.08.19
17:47
(6) ждем тему почему это неправильно добавляет количество))
13 RomanYS
 
23.08.19
17:48
(11) Этот код исправляет ошибку из заголовка
14 JuixyJes
 
23.08.19
17:49
Не исправляет, если ту строку заменить кодом, ничего не изменится
15 JuixyJes
 
23.08.19
17:53
убрала "загрузка ="
16 JuixyJes
 
23.08.19
17:53
все работает, всем спасибо.
17 RomanYS
 
23.08.19
17:54
(16) затести свой код хотя бы на двух строках и смотри (12)
18 JuixyJes
 
23.08.19
17:56
НСТР = Объект.Услуга.Добавить();
            НСТР.Наименование = ВыбСтрока.Услуга;
            НСТР.Цена = ВыбСтрока.Цена;
            НСТР.Количество =  1;
            НСТР.Сумма = НСТР.Цена*НСТР.Количество;
            Выгрузка = Объект.Услуга.Выгрузить();
            Выгрузка.Свернуть("Наименование, Цена", "Количество, Сумма");
            Объект.Услуга.Загрузить(Выгрузка);
19 JuixyJes
 
23.08.19
17:57
это все что теперь есть в коде из того что было
20 sqr4
 
23.08.19
17:57
(17)
наименование1 150 1 150
наименование1 150 2 300
наименование1 200 2 400

Итого
наименование1 150 3 450
наименование1 200 2 400

Чего не так?
21 RomanYS
 
23.08.19
18:01
(18) ок
(20) код в (0) прибавляет не одну единицу, а количество равное числу строк в ТЧ
22 mikecool
 
23.08.19
21:24
(0) тебе фотки точно надо каждый день в купальниках менять с такими ошибками...