Имя: Пароль:
1C
1C 7.7
v7: Сумировать значение дока
0 work92
 
05.01.13
12:23
Есть В табличной части 3 строки и нужно получить общую сумму  этих строк
1 work92
 
05.01.13
12:24
Док=СоздатьОбъект("Документ.Новый2");    
    Таб=СоздатьОбъект("Таблица") ;
     Таб.ИсходнаяТаблица("Таблица");
     
      Док.ВыбратьДокументы();
      Док.ПолучитьДокумент();
      Док.ВыбратьСтроки();
      Пока Док.ПолучитьСтроку()=1 Цикл
         Если Док.Имя=852 Тогда
         Имя=Док.Имя;
       С=Док.Сумма;
       ИТСумма=0;
        ИТСумма=СУмма+Док.Сумма;  
     
       СообЩИТЬ(ДОК.имя);
     Таб.Вывестисекцию("Строка");
     
         КонецЕсли;
      КонецЦикла;
  Таб.Показать();
2 yanejsh
 
05.01.13
12:25
сумма строк получается через итог
3 saasa
 
05.01.13
12:26
Итог(<?>)
Синтаксис:
Итог(<ИмяРеквизита>)
Назначение:
Возвращает сумму значений реквизита по всем строкам табличной части документа.
Параметры:
<ИмяРеквизита> - имя реквизита табличной части документа.
Замечание:
Метод  можно использовать только для реквизитов табличной части документов с установленным свойством 'Итог по колонке'.
4 work92
 
05.01.13
12:26
не строк а чисел
ИТСумма=0;
        ИТСумма=СУмма+Док.Сумма;
5 work92
 
05.01.13
12:28
пример
1 ------Иванов---------5
2--------Петров--------1
3---------Петухов-------2

ИТСумма=должно получится 8
6 Mikeware
 
05.01.13
12:29
забавно...
7 saasa
 
05.01.13
12:29
(6)а чо делать, такие вермена :)
8 Mikeware
 
05.01.13
12:32
(7)O tempora! O mores! :-)
не, ну вот как люди учились, когда форумов не было, а? :-)
9 aka AMIGO
 
05.01.13
12:33
(4) во-первых
      ИТСумма=0; - поставь перед циклом
во-вторых

ИТСумма=ИТСУмма+Док.Сумма;
10 Mikeware
 
05.01.13
12:35
(9) а как тебе
Если Док.Имя=852
? :-)
11 viktor_vv
 
05.01.13
12:36
(8) Это было ужасно :).
12 aka AMIGO
 
05.01.13
12:36
(8) на курсах повышения квалификации :)
(10) вау! я проморгал жемчужное зерно :)
13 Mikeware
 
05.01.13
12:37
(12) йо! а где такие курсы были?
14 aka AMIGO
 
05.01.13
12:38
(13) я проходил такие курсы при киевском заводе ВУМ, когда в 1969 завод купил первую вычислительную машину Мир-1 :)
есть корочки, что я наладчик машин :)
15 viktor_vv
 
05.01.13
12:39
Там их еще есть.

      Док.ВыбратьДокументы();
      Док.ПолучитьДокумент();

Получится только по первому доку в выборке.
16 Mikeware
 
05.01.13
12:40
(14) у меня тоже какие-то корочки есть с "минск-32" :-)
17 aka AMIGO
 
05.01.13
12:44
(15) это уже мелкие детали, отлавливаются отладчиком :)
(16) а у меня нету.. :((
:) на минске-32 только программу писал, в машинных кодах.. да и считал - в диссертацию генконструктору :)
18 Mikeware
 
05.01.13
12:46
(17) ЯСК - "Язык Символического Кодирования"?
русскоязычный асм :-) прикольно было...
19 aka AMIGO
 
05.01.13
12:49
(18) он самый! :)
ЗЫ. да простит нас ТС, за малость оффтопа.. по-моему на все его вопросы, явные и не заданные, ответ уже есть.. только вдумчиво ветку почитать..
20 Академик_
Келдыш
 
05.01.13
13:13
Начинаю понимать за что 120 тыщ каждый месяц получаю.
21 Сияющий Асинхраль
 
05.01.13
13:36
(20) вот что значит опыт :-), а тс, думаю, на сотне прозябает :-)
22 monsterZE
 
05.01.13
13:59
(21) эх, сотня.. =) а у кого-то все еще печальнее..
23 Vol71
 
05.01.13
14:01
(0)из дбф уже загрузил?
24 Vol71
 
05.01.13
14:03
ТС а у тебя код вообще как работает?
25 PALESIA
 
05.01.13
19:13
пятнично, улыбнуло неоднократно)
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн