Имя: Пароль:
1C
 
Как реализовать суммирование по дням в отчете за определенный период?
0 Ольга
 
21.12.05
13:07
отчет формируется через выборку приходных кассовых ордеров (запросы и регистр не используются), выборка документов за период (период задается пользователем), как в этом периоде, сделать "уточнее" и выводить не только итоговую сумму за период, но и суммы за каждый день?
1 LOD
 
21.12.05
13:08
Поставь условие на день и выводи отиг по дням
2 Парижская фанера
 
21.12.05
13:08
(0) Запрос и группировка день.
3 LOD
 
21.12.05
13:09
(1) + отиг=итог
4 Ольга
 
21.12.05
13:09
там нет запроса(
5 LOD
 
21.12.05
13:09
(2) Тебе же сказали, что запросами не умеют пользоваться
6 LOD
 
21.12.05
13:10
(4) А чем (1) ответ не понравился ?
7 Ольга
 
21.12.05
13:10
уточни пожалуйста, условия на день как поставить? ну строчку примерную напиши плиз
8 Парижская фанера
 
21.12.05
13:12
(5) А что мешает запрос к документу сделать?
9 Демогоргон
 
21.12.05
13:13
(8) Знания
10 Демогоргон
 
21.12.05
13:14
(0) Что за кон-я?
11 Парижская фанера
 
21.12.05
13:15
(7) В цикле копить сумму в переменной и обнулять при следующей дате. Паралельно накапливать общую.
12 LOD
 
21.12.05
13:17
(7) Сорри, но я не смогу до тебя это довести (слишком долго, а у меня нет столько времени)
13 Ольга
 
21.12.05
13:17
V7,
(7)как узанть что следующая дата наступила?
14 LOD
 
21.12.05
13:18
(13) Сравнить с предидущей
15 Парижская фанера
 
21.12.05
13:19
(13) Храни текущую и сравнивай с той которая в текущем документе. Если <> переприсваивай.
16 Ольга
 
21.12.05
13:20
пасип)
17 Демогоргон
 
21.12.05
13:21
Вот без запроса если уж так нужно:

Док = СоздатьОбъект("Документ. ...");
СуммаПоДням = 0;
ПредДата = НачДата;
Док. ВыбратьДокументы(НачДата, КонДата);
Пока ДОк.ПолучитьДокумент()=1 Цикл
Если ПредДата <> Док.ДатаДок тогда
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  ПредДата = Док.ДатаДок;
КонецЕсли;
СуммаПоДням = СуммаПоДням+СуммаДокумента();
КонецЦикла;
18 Парижская фанера
 
21.12.05
13:24
(17) Фигня какая-то... Так только общую сумму получишь, а в сообщить(СуммаПоДням) - выводишь по нарастаюшей. А где сумма чисто за день?
19 Демогоргон
 
21.12.05
13:27
ССори
20 Демогоргон
 
21.12.05
13:27
Док = СоздатьОбъект("Документ. ...");
СуммаПоДням = 0;
ПредДата = НачДата;
Док. ВыбратьДокументы(НачДата, КонДата);
Пока ДОк.ПолучитьДокумент()=1 Цикл
Если ПредДата <> Док.ДатаДок тогда
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  ПредДата = Док.ДатаДок;
  СуммаПоДням = 0;
КонецЕсли;
СуммаПоДням = СуммаПоДням+СуммаДокумента();
КонецЦикла
21 Парижская фанера
 
21.12.05
13:29
(20) Опять фигня... Общей суммы не будет.
22 Демогоргон
 
21.12.05
13:30
(21) пояснение - СуммаДокумента() - это результат суммы документа
23 Демогоргон
 
21.12.05
13:31
Просто влом писать было
24 Демогоргон
 
21.12.05
13:32
Да и не знаю какая конфигруа. Всего скорре Док.Итог("Сумма") или просто Док.Сумма
25 Парижская фанера
 
21.12.05
13:32
(22) Общей суммы за все дни не будет.
26 Демогоргон
 
21.12.05
13:35
Док = СоздатьОбъект("Документ. ...");
СуммаПоДням = 0;
ОбщаяНаСуммаПоНаВсемДняНа = 0;
ПредДата = НачДата;
Док. ВыбратьДокументы(НачДата, КонДата);
Пока ДОк.ПолучитьДокумент()=1 Цикл
Если ПредДата <> Док.ДатаДок тогда
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  ПредДата = Док.ДатаДок;
  СуммаПоДням = 0;
КонецЕсли;
СуммаПоДням = СуммаПоДням+СуммаДокумента();
ОбщаяНаСуммаПоНаВсемДняНа = ОбщаяНаСуммаПоНаВсемДняНа + 1;
КонецЦикла
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  сообщить(ОбщаяНаСуммаПоНаВсемДняНа);

Должен же задавающий вопрос иногда думать то сам? Курить так сказать ответ?
27 Cheater дубль2
 
21.12.05
13:38
(26) Он(18,21,25) просто издевается...
28 Демогоргон
 
21.12.05
13:39
Док = СоздатьОбъект("Документ. ...");
СуммаПоДням = 0;
ОбщаяНаСуммаПоНаВсемДняНа = 0;
ПредДата = НачДата;
Док. ВыбратьДокументы(НачДата, КонДата);
Пока ДОк.ПолучитьДокумент()=1 Цикл
Если ПредДата <> Док.ДатаДок тогда
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  ПредДата = Док.ДатаДок;
  СуммаПоДням = 0;
КонецЕсли;
СуммаПоДням = СуммаПоДням+СуммаДокумента();
ОбщаяНаСуммаПоНаВсемДняНа = ОбщаяНаСуммаПоНаВсемДняНа +СуммаДокумента();
КонецЦикла
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  сообщить(ОбщаяНаСуммаПоНаВсемДняНа);

Всё на..., лечу на ...
29 Демогоргон
 
21.12.05
13:40
ВОт так даже лучше на...

Док = СоздатьОбъект("Документ. ...");
СуммаПоДням = 0;
ОбщаяНаСуммаПоНаВсемДняНа = 0;
ПредДата = НачДата;
Док. ВыбратьДокументы(НачДата, КонДата);
Пока ДОк.ПолучитьДокумент()=1 Цикл
Если ПредДата <> Док.ДатаДок тогда
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  ОбщаяНаСуммаПоНаВсемДняНа = ОбщаяНаСуммаПоНаВсемДняНа +СуммаПоДням();
  ПредДата = Док.ДатаДок;
  СуммаПоДням = 0;
КонецЕсли;
СуммаПоДням = СуммаПоДням+СуммаДокумента();
КонецЦикла
  ОбщаяНаСуммаПоНаВсемДняНа = ОбщаяНаСуммаПоНаВсемДняНа +СуммаПоДням();
  сообщить(СуммаПоДням);
  сообщить(ПредДата);
  сообщить(ОбщаяНаСуммаПоНаВсемДняНа);
30 Cheater дубль2
 
21.12.05
13:41
(28) А Ольга еще в (16) всё скурила
31 Cheater дубль2
 
21.12.05
13:42
(29) не сказал бы...
32 Cheater дубль2
 
21.12.05
13:43
+(31) сорь, не туда посмотрел.
33 Ольга
 
21.12.05
13:44
я тут, просто молча продолжаю скуривать
34 Демогоргон
 
21.12.05
13:45
(33) Я о уж думал что сам с собой разговариваю. Получилось?
35 Ольга
 
21.12.05
13:46
уху,спасип огоромное))))
36 Демогоргон
 
21.12.05
13:50
Пожалуйста