Имя: Пароль:
1C
1C 7.7
v7: Как вытащить в отчет минусовые суммы с активного счета
0 sevensword
 
19.03.14
19:02
Добрый вечер всем! нужна помощь
есть А счет 62.1
при развороте оборотки выходит
Итого развернутое    
сальдо на начало  дт  12,433,826.09      кт   1,140,430.24                сальдо на конец  дт 11,735,657.78      кт   6,287,438.99
нужно вытащить в отчет кредитовые остатки
т.е все данные в оборотке со знаком минус
попробывал

    би=создатьобъект("БухгалтерскиеИтоги");
    би.использоватьсубконто(ВидыСубконто.Фирмы,спис_фирм,1);
    
    би.выполнитьзапрос(НачДата,КонДата,"62.1");
    
    би.выбратьсубконто(ВидыСубконто.Фирмы);
    пока  би.получитьсубконто(ВидыСубконто.Фирмы)=1 цикл
        _нач_кт621=_нач_кт621+би.СНК("С");
        _кон_кт621=_кон_кт621+(би.СКК("С");
    конеццикла;
ну тут понятно счет А поотому и не выходят, вопрос что делать?
1 el-gamberro
 
19.03.14
19:06
А откуда на активном счете хранение в кредите?? Данные должны храниться в дебите со знаком минус. А то что в (0) явно похоже на активно-пассивный счет.
2 wertyu
 
19.03.14
19:09
не СНК, СКК и т.п., а развернутое сальдо
3 sevensword
 
19.03.14
19:21
попробывал     _нач_кт621=_нач_кт621+би.СНкРС("С");
        _кон_кт621=_кон_кт621+би.СКкРС("С");
нулевые суммы выдает
4 Злопчинский
 
19.03.14
21:26
на активном счете - задай нужные субконты для БИ. сделай по ним выборку
БИ.СКД() - даст нужный результат
5 sevensword
 
20.03.14
08:25
пробую так выводит цифры которые не сходятся с обороткой, что не правильно?
би=создатьобъект("БухгалтерскиеИтоги");
    би.использоватьсубконто(ВидыСубконто.Фирмы,спис_фирм,2);
        БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1, 1);
        би.выполнитьзапрос(НачДата,КонДата,"62.1");  
            би.включатьсубсчета(-1,-1);
  би.ВыбратьСчета(,,,1);
  Пока би.ПолучитьСчет()=1 Цикл
    би.ВыбратьСубконто(,,,,1);
    Пока би.ПолучитьСубконто()=1 Цикл //контрагент  

        _нач_кт621=_нач_кт621+би.Сндрс("С");
          
    
конеццикла;    
конеццикла;
6 sevensword
 
20.03.14
10:34
итог
    би=создатьобъект("БухгалтерскиеИтоги");
би.использоватьсубконто(ВидыСубконто.Фирмы,спис_фирм,2);
би.использоватьсубконто(ВидыСубконто.Контрагенты,,1);
би.выполнитьзапрос(НачДата,КонДата,"62.1");
        
    _к=0;
    _д=0;
    би.выбратьсубконто(ВидыСубконто.Контрагенты);

    Пока би.получитьсубконто(2)=1 Цикл  
    
        если би.Скд("С") < 0 тогда
         _к=_к+би.Скд("С");
    /
        если би.СНд("С") < 0 тогда
        _д=_д+би.Снд("С");    
    конецесли;
    конецесли;
    КонецЦикла;
7 Злопчинский
 
20.03.14
12:48
(6) я рад, что ты тупо наконец применил СНД, а не лез в какие-то дебри
.
8 sevensword
 
20.03.14
14:48
вот вот, сам себе проблем придумал
всем спасибо за помощь
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс