Имя: Пароль:
1C
1C 7.7
v7: Итог по приходу и расходу
0 mirror1982
 
16.01.12
23:16
Вывожу начальный остаток по ресурсу на нач. период, затем перебираю движения регистра за выбранный период заполняю таблицу приход, расход. А как узнать без перебора движений сколько было прихода и расхода?

        НачальныйОстаток=Рег.СводныйОстаток(Номенклатура,,,,,"Количество");  
        КонечныйОстаток=0;
        Приход=0;
        Расход=0;
        Таб.ВывестиСекцию("Строка1");
        Рег.ВыбратьДвижения(Начало,Конец);      
        НачальныйОстаток1=НачальныйОстаток;  
        сч=0;          
        Приход1=0;
        Расход1=0;
        Пока Рег.ПолучитьДвижение()=1 Цикл
             сч=сч+1;
             Если сч=1 Тогда
                    НачальныйОстаток1=НачальныйОстаток1;  
                    Иначе
                          НачальныйОстаток1=НачальныйОстаток1+Приход1-Расход1;
             КонецЕсли;
             Если Рег.Приход=1 Тогда
                    Приход1=Рег.Количество;
                    Иначе
                         Расход1=Рег.Количество;
             КонецЕсли;
             КонечныйОстаток1=НачальныйОстаток1+Приход1-Расход1;
             Документ=Рег.ТекущийДокумент();  
             Расшифровка(,);
             Таб.ВывестиСекцию("Строка2");
        КонецЦикла;
1 filh
 
16.01.12
23:18
Запросом?
2 mirror1982
 
16.01.12
23:19
(1) без запроса!
3 filh
 
16.01.12
23:29
(2) А что так?
4 Ёпрст
 
16.01.12
23:42
сч=сч+1;
              Если сч=1 Тогда
                     НачальныйОстаток1=НачальныйОстаток1;  
                     Иначе
                           НачальныйОстаток1=НачальныйОстаток1+Приход1-Расход1;
              КонецЕсли;


Это че за бред ?
5 Ёпрст
 
16.01.12
23:43
первое движение не надо учитывать ? :)))