Имя: Пароль:
1C
1C 7.7
v7: Помощь с Отчетом
0 bestship
 
02.09.15
09:48
Господа!
Сделал простой отчет (для вас простой :) ), но ... помогите сделать сумму в Табличной части по Строке.
Картинка желаемого результата здесь: http://savepic.net/7210574.htm
Код здесь: https://cloud.mail.ru/public/McBe/5nyGtmYDu
1 aka AMIGO
 
02.09.15
09:56
еще не мешало-бы картинку исходной Таблицы отчета..
2 Neg
 
02.09.15
09:58
сохрани как внешний отчет и положи на файлообменик.
3 mehfk
 
02.09.15
09:58
(0) Утром деньги - вечером стулья.
4 Андрей_Андреич
 
naïve
02.09.15
10:01
(3) Бог подаст
5 aka AMIGO
 
02.09.15
10:01
(3) да ладно тебе.. Почему-бы и не помочь человеку?!
6 mehfk
 
02.09.15
10:02
Кому?
7 mehfk
 
02.09.15
10:04
(5) Встречный вопрос: где все те люди, которым на мисте помог автор?
8 bestship
 
02.09.15
10:05
9 bestship
 
02.09.15
10:06
(4) ВАМ!?! Вряд ли
10 aka AMIGO
 
02.09.15
10:08
(7) начинают , обычно, не с ответов, а с вопросов.
Кроме того: http://pics.rsh.ru/img/AF_zndjpsgj.png в личке - Кабул
К кому там можно обратиться?
11 bestship
 
02.09.15
10:15
(10) Спасибо за понимание.
12 Дотошный
 
02.09.15
10:16
А тот факт, что ВсегоСуммаАФГ в тексте модуля прикрыта комментарием? Это нормально?
13 Андрей_Андреич
 
naïve
02.09.15
10:16
Пока Запрос.Группировка(1) = 1 Цикл
    // Заполнение полей Контрагент  
    Контрагент = Запрос.Контрагент;    
        
    //Таб.ВывестиСекцию("Контрагент");
    
    Пока Запрос.Группировка(2) = 1 Цикл
        // Заполнение полей Документы  
        Документы = Запрос.Документы;
            Если Документы.Вид() = "Реализация" Тогда
                Сумма = Запрос.Сумма;    
            ИначеЕсли Документы.Вид() = "ВозвратОтПокупателя" Тогда
                Сумма = Запрос.Сумма*(-1);
            КонецЕсли;         
        Валюта = Запрос.Валюта;
        Курс = Запрос.Курс;
        
        СуммаАФГ = Сумма*Курс;       
        Таб.ВывестиСекцию("Документы");      

        ВсегоСуммаАФГ = СуммаАФГ+ВсегоСуммаАФГ; //накопленным итогом    
    
        Тотал = СуммаАФГ+Тотал;
    КонецЦикла;
        
    //ВсегоСуммаАФГ = СуммаАФГ; //по последней строке
    Таб.ВывестиСекцию("Контрагент");
        ВсегоСуммаАФГ =0;
КонецЦикла;
14 bestship
 
02.09.15
10:22
(13) Андрей Андреевич, Результат =0
15 Дотошный
 
02.09.15
10:23
(14) Не верю ))
17 Андрей_Андреич
 
naïve
02.09.15
10:25
(16) "СуммаАФГ = СуммаКурс;  " это что?
18 aka AMIGO
 
02.09.15
10:25
это сработали тэги мисты.. счас выложу в файлообменник
19 aka AMIGO
 
02.09.15
10:30
(0) попробуй, если сработает - посмотри, в чём отличие
https://yadi.sk/d/TXeFcFF2ipEw6
20 bestship
 
02.09.15
10:30
(16) Так тоже =0 (((((
21 bestship
 
02.09.15
10:31
(19) сейчас загружу, сравню
22 aka AMIGO
 
02.09.15
10:31
(20) там ошибка кода, движок мисты не позволяет правильно отразить код
23 bestship
 
02.09.15
10:37
(22) Файл сработал!!! СПАСИБО!!!
Но сравнил код, они идентичны, но в файле работает, а просто исправлением нет. Чудеса.
СПАСИБО!!!
24 aka AMIGO
 
02.09.15
10:42
(23) не совсем идентичны, посмотри места расположения
ВсегоСуммаАФГ=0;//здесь место первого присвоения по контрагкнту

и

ВсегоСуммаАФГ = СуммаАФГ+ВсегоСуммаАФГ;//накопленным итогом

здесь комменты сняты

ЗЫ. на здоровье :)