Отчет Комиссионерам

@Snegur · Регистрация: 18.06.2014

Студворк — интернет-сервис помощи студентам

Всем привет .... компания наша дает под реализацию товар магазину
мы им поставили на прилавок например масло по 100 рублей потом пришло еще масло по 101 и 102 рублю мы им еще дали(масло одно и тоже только цена меняется )
потом сказали они нам что продали масло по 100 и 101 рублю мы списываем начиная с первого то есть вначале 100 потом 101 ... но когда записываешь цены он бывает берет среднее значение например 100.5 поставит как сделать чтобы он правильно цену писал

@Snegur · 25.11.2015, 13:58 **[ТС]**

пытался сделать , чтобы он одну и туже дату не записывал вообщем как сделать ,чтобы он группировал по дате товар ,когда была реализация как в оригинале, а не просто тупо все подряд добавлял

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Процедура КоманднаяПанельТоварыДобавить(Кнопка)
 
    ФормаВыбора = Документы.РеализацияТоваровУслуг.ПолучитьФормуВыбора();
    ФормаВыбора.Заголовок = "Выберите документ передачи на комиссию для заполнения отчета комиссионера";
    ФормаВыбора.РежимВыбора = Истина;
 
    ФормаВыбора.Отбор.ДокументыПоДоговоруКонтрагента.Значение = ДоговорКонтрагента;
    ФормаВыбора.Отбор.ДокументыПоДоговоруКонтрагента.Использование = Истина;
 
    Реализация = ФормаВыбора.ОткрытьМодально();
    номерок=Реализация.Номер;
 
    Если НЕ ЗначениеЗаполнено(Реализация) Тогда
        Возврат;
    КонецЕсли;
    значение= истина ;
          
       данные=элементыформы.ПокупателиТовары.ТекущиеДанные;
     попытка
   если данные.датасф = Реализация.дата тогда  
значение= ложь ;//иначе значение= истина ; 
конецесли; исключение конецпопытки;
       если значение = истина тогда
    ///////////////////////////////////
    Запрос = Новый Запрос;
            Запрос.Текст =
     "ВЫБРАТЬ
     |  РеализацияТоваровУслуг.Номер,
     |  РеализацияТоваровУслуг.Дата,
     |  РеализацияТоваровУслуг.Контрагент
     |ИЗ
     |  Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
     |ГДЕ
     |  РеализацияТоваровУслуг.Номер = &номерок"  ;
        Запрос.УстановитьПараметр("номерок",номерок);
        Выборка = Запрос.Выполнить().Выбрать();    
        Пока Выборка.Следующий() Цикл
             СтрокаТабличнойЧасти1 = Покупатели.добавить();
             СтрокаТабличнойЧасти1.Покупатель =выборка.Контрагент ;
             СтрокаТабличнойЧасти1.ДатаСФ =выборка.дата ;
         конеццикла;
     конецесли;    
     ///////////////////////////////////////
         
     Запрос = Новый Запрос;
            Запрос.Текст =
                             "ВЫБРАТЬ
                             |  РеализацияТоваровУслуг.Ссылка,
                             |  РеализацияТоваровУслуг.Номер,
                             |  РеализацияТоваровУслугТовары.Номенклатура,
                             |  РеализацияТоваровУслугТовары.СерияНоменклатуры,
                             |  РеализацияТоваровУслугТовары.Цена,
                             |  РеализацияТоваровУслугТовары.Количество,
                             |  РеализацияТоваровУслугТовары.ЕдиницаИзмерения,
                             |  РеализацияТоваровУслугТовары.Коэффициент,
                             |  РеализацияТоваровУслуг.Контрагент КАК Контрагент,
                             |  РеализацияТоваровУслуг.Дата
                             |ИЗ
                             |  Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
                             |      ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
                             |      ПО РеализацияТоваровУслугТовары.Ссылка = РеализацияТоваровУслуг.Ссылка
                             |ГДЕ
                             |  РеализацияТоваровУслуг.Номер = &номерок";
                             
                                 Запрос.УстановитьПараметр("номерок",номерок);
            Выборка = Запрос.Выполнить().Выбрать();    
            Пока Выборка.Следующий() Цикл
                 СтрокаТабличнойЧасти = Товары.добавить();        
            СтрокаТабличнойЧасти.Номенклатура = выборка.Номенклатура;
            СтрокаТабличнойЧасти.СерияНоменклатуры =  выборка.СерияНоменклатуры;
            СтрокаТабличнойЧасти.Количество =   выборка.Количество;
            СтрокаТабличнойЧасти.ЕдиницаИзмерения = выборка.ЕдиницаИзмерения;
            СтрокаТабличнойЧасти.Коэффициент     =   выборка.Коэффициент;
            СтрокаТабличнойЧасти.Цена       =     выборка.Цена;
            СтрокаТабличнойЧасти.Сумма = выборка.Количество*выборка.цена;
            СтрокаТабличнойЧасти.СуммаПередачи = СтрокаТабличнойЧасти.Сумма;
            СтрокаТабличнойЧасти.ЦенаПередачи  = СтрокаТабличнойЧасти.Цена;  
            СтрокаТабличнойЧасти.СуммаВознаграждения = ПроцентКомиссионногоВознаграждения / 100
                                                * СтрокаТабличнойЧасти.Сумма;
            СтрокаТабличнойЧасти.СуммаНДСВознаграждения = УчетНДС.РассчитатьСуммуНДС(СтрокаТабличнойЧасти.СуммаВознаграждения,
                                                                        УчитыватьНДС, СуммаВключаетНДС,
                                                                        УчетНДС.ПолучитьСтавкуНДС(СтавкаНДСВознаграждения));
 
 
                              Конеццикла;
КонецПроцедуры

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@Snegur 1 / 1 / 1 Регистрация: 18.06.2014 Сообщений: 715

	1C 8.x Отчет Комиссионерам 19.11.2015, 09:03. Показов 1704. Ответов 20 Метки нет (Все метки) Всем привет .... компания наша дает под реализацию товар магазину мы им поставили на прилавок например масло по 100 рублей потом пришло еще масло по 101 и 102 рублю мы им еще дали(масло одно и тоже только цена меняется ) потом сказали они нам что продали масло по 100 и 101 рублю мы списываем начиная с первого то есть вначале 100 потом 101 ... но когда записываешь цены он бывает берет среднее значение например 100.5 поставит как сделать чтобы он правильно цену писал 0