Имя: Пароль:
1C
1С v8
Расходная накладная типовая с общим количеством
0 maxi0n
 
12.12.14
13:59
Добрый день помогите допилить расходную накладную в с 1с 8.2 Комплексная автоматизация на подобие как эта http://infostart.ru/public/192634/. Чтобы считала колонку количества
1 ДенисЧ
 
12.12.14
14:00
Сколько?
2 Oleg_ka
 
12.12.14
14:16
(1)А чего СП уже не торгуешь что-ли? Предложи ТС-у
3 maxi0n
 
12.12.14
14:23
Подскажите как можно сделать у меня не получилось
4 Oleg_ka
 
12.12.14
14:30
Ну, давай я тебя плохому научу.
Выгружаешь результат запрос в таблицу значений. А потом берешь  Итог() от колонки Количество.
И еще заводишь переменную и цикле её увеличиваешь.
И "контрольным выстрелом" делаешь конструкцию как отсюда
http://helpme1c.ru/itogi-v-zaprosax-v-1s-8-v-primerax
5 maxi0n
 
12.12.14
14:40
(4) Структуру отчет все знают:
ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
        ОбластьКодов  = Макет.ПолучитьОбласть("Строка|КолонкаКодов");
        ОбластьТовар  = Макет.ПолучитьОбласть("Строка|Товар");
        ОбластьМест  = Макет.ПолучитьОбласть("Строка|Мест");
        ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные1");
        ОбластьСкидок = Макет.ПолучитьОбласть("Строка|Скидка");
        ОбластьСуммы  = Макет.ПолучитьОбласть("Строка|Сумма");
        
        Сумма    = 0;
        СуммаНДС = 0;
        ВсегоСкидок    = 0;
        ВсегоБезСкидок = 0;
        ВсегоКолво = 0; //------
        КоэфКурса = ?( СуммыВРублях, ?(Шапка.КратностьВзаиморасчетов=0,1,Шапка.КурсВзаиморасчетов / Шапка.КратностьВзаиморасчетов), 1);

Для каждого ВыборкаСтрокТовары из ЗапросТовары Цикл
            
            Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
                Продолжить;
            КонецЕсли;
            
            Количество = ОбластьДанных.Параметры.Количество = ВыборкаСтрокТовары.Количество;   //---------
            ОбластьДанных.Параметры.Количество=Количество;//-------------------------
            
            ОбластьНомера.Параметры.НомерСтроки = ЗапросТовары.Индекс(ВыборкаСтрокТовары) + 1;
            ТабДокумент.Вывести(ОбластьНомера);

Если СуммыВРублях Тогда
                Сумма          = Сумма       + СуммаРуб;
                СуммаНДС       = СуммаНДС    + Окр( ВыборкаСтрокТовары.СуммаНДС * КоэфКурса, 2, 1);
            Иначе
                Сумма          = Сумма       + ВыборкаСтрокТовары.Сумма;
                СуммаНДС       = СуммаНДС    + ВыборкаСтрокТовары.СуммаНДС;
            КонецЕсли;
            ВсегоСкидок    = ВсегоСкидок + Скидка;
            ВсегоБезСкидок = Сумма       + ВсегоСкидок;
            ВсегоКолво=ВсегоКолво+Количество;   //---------------------

// Вывести Итого
        ОбластьНомера = Макет.ПолучитьОбласть("Итого|НомерСтроки");
        ОбластьКодов  = Макет.ПолучитьОбласть("Итого|КолонкаКодов");
        ОбластьТовар  = Макет.ПолучитьОбласть("Итого|Товар");
        ОбластьМест  = Макет.ПолучитьОбласть("Итого|Мест");
        ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные1");
        ОбластьСкидок = Макет.ПолучитьОбласть("Итого|Скидка");
        ОбластьСуммы  = Макет.ПолучитьОбласть("Итого|Сумма");
        
        ТабДокумент.Вывести(ОбластьНомера);
        Если ВыводитьКоды Тогда
            ТабДокумент.Присоединить(ОбластьКодов);
        КонецЕсли;
        ТабДокумент.Присоединить(ОбластьТовар);
        Если флВыводитьМест Тогда
            ТабДокумент.Присоединить(ОбластьМест);
        КонецЕсли;
        ОбластьДанных.Параметры.ВсегоКолво = ВсегоКолво;  ///-----------------
        ТабДокумент.Присоединить(ОбластьДанных);
6 maxi0n
 
12.12.14
14:41
У меня почему то не выводит общее количество может я что не правильно делаю
7 Ник второй
 
12.12.14
14:48
(6) Ты что то не правильно делаешь.
8 maxi0n
 
12.12.14
14:53
(7)Где //---------- Это добовлял
9 vicof
 
12.12.14
15:39
Количество = ОбластьДанных.Параметры.Количество = ВыборкаСтрокТовары.Количество;
и чо, ты количеству истину или ложь присваиваешь?
10 capllary
 
12.12.14
15:47
(5) Перепиши на:

Количество = ВыборкаСтрокТовары.Количество;
ОбластьДанных.Параметры.Количество = Количество;


Или сразу:

ОбластьДанных.Параметры.Количество = ВыборкаСтрокТовары.Количество;
11 maxi0n
 
12.12.14
15:52
(10) Спасибо заработало, стал складывать