Имя: Пароль:
1C
1C 7.7
v7: Бухгалтерские итоги
0 holyguest
 
04.09.14
10:41
Добрый день! Помогите, пожалуйста, разобраться. Скорее всего я просто не понимаю чего-то в механизме формирования Бух. Итогов. Проблема такая: мне нужно получить бух итоги по счёту развернутые по одному субконто и отобранные по второму. Второе субконто - подразделения. В цикле, перебирая справочник подразделений, я пытаюсь получить итоги по всем подразделениям по очереди, но, в итоге, получаю только по первому. По остальным не выбирается. Код:
П р о ц е д у р а   В ы п о л н и т ь ( )  

    

     Б у х г а л т е р с к и е И т о г и   =   С о з д а т ь О б ъ е к т ( " Б у х г а л т е р с к и е И т о г и " ) ;

     Б у х г а л т е р с к и е И т о г и . И с п о л ь з о в а т ь Р а з д е л и т е л ь У ч е т а ( " " ) ;

     Б у х г а л т е р с к и е И т о г и . В к л ю ч а т ь С у б с ч е т а ( 0 ) ;

    

     С ч е т   =   С ч е т П о К о д у ( " 4 4 . 1 " ) ;

     Е с л и   С ч е т . К о л и ч е с т в о С у б к о н т о ( )   < >   2   Т о г д а

             С о о б щ и т ь ( " У   с ч ё т а   4 4 . 1   и з м е н и л о с ь   к о л и ч е с т в о   с у б к о н т о .   В н е с и т е   с о о т в е т с т в у ю щ и е   и з м е н е н и я   в   п р о ц е д у р у   в ы г р у з к и " ) ;

          В о з в р а т ;

     И н а ч е

          Н а з н а ч и т ь С ч е т ( В и д С у б к о н т о 1 ,   С ч е т ,   1 ) ;

          Н а з н а ч и т ь С ч е т ( В и д С у б к о н т о 2 ,   С ч е т ,   2 ) ;

     К о н е ц Е с л и ;

    

     Б у х г а л т е р с к и е И т о г и . И с п о л ь з о в а т ь С у б к о н т о ( В и д С у б к о н т о 1 , , 1 , 0 ) ;

    

     С п р а в о ч н и к П о д р а з д е л е н и й   =   С о з д а т ь О б ъ е к т ( " С п р а в о ч н и к . П о д р а з д е л е н и я " ) ;

    

     Е с л и   С п р а в о ч н и к П о д р а з д е л е н и й . В ы б р а т ь Э л е м е н т ы ( )   =   0   Т о г д а

             С о о б щ и т ь ( " О т с у т с т в у ю т   э л е м е н т ы   в   с п р а в о ч н и к е   п о д р а з д е л е н и й ! " ) ;

          В о з в р а т ;

     К о н е ц Е с л и ;

    

     П о к а   С п р а в о ч н и к П о д р а з д е л е н и й . П о л у ч и т ь Э л е м е н т ( ) = 1   Ц и к л

         

             П о д р а з д е л е н и е   =   С п р а в о ч н и к П о д р а з д е л е н и й . Т е к у щ и й Э л е м е н т ( ) ;

         

          Е с л и   ( П о д р а з д е л е н и е . П о м е т к а У д а л е н и я ( )   =   1 )   и л и   ( П о д р а з д е л е н и е . К о д   =   " 1 4 " )   Т о г д а

                  П р о д о л ж и т ь ;

          К о н е ц Е с л и ;                                                                                                                                  

         

          С о о б щ и т ь ( П о д р а з д е л е н и е . Н а и м е н о в а н и е ) ;  



          Б у х г а л т е р с к и е И т о г и . И с п о л ь з о в а т ь С у б к о н т о ( В и д С у б к о н т о 2 ,   П о д р а з д е л е н и е ,   2 ,   0 ) ;

         

          Е с л и   Б у х г а л т е р с к и е И т о г и . В ы п о л н и т ь З а п р о с ( Н а ч а л о П е р и о д а ,   К о н е ц П е р и о д а ,   С ч е т )   =   0   Т о г д а

                  В о з в р а т ;

          К о н е ц Е с л и ;  



          Е с л и   Б у х г а л т е р с к и е И т о г и . В ы б р а т ь С у б к о н т о ( 0 )   =   1   Т о г д а

                  С о о б щ и т ь ( " Е с т ь   э л е м е н т ы " ) ;

          И н а ч е

               С о о б щ и т ь ( " Н е т   э л е м е н т о в " ) ;

          К о н е ц Е с л и ; ;      

         

          П о к а   Б у х г а л т е р с к и е И т о г и . П о л у ч и т ь С у б к о н т о ( ) = 1   Ц и к л          

               С о о б щ и т ь ( Б у х г а л т е р с к и е И т о г и . П р е д с т а в л е н и е С у б к о н т о ( )   +   " :   "   +   Б у х г а л т е р с к и е И т о г и . Д О ( ) )

          К о н е ц Ц и к л а ;

     К о н е ц Ц и к л а ;

К о н е ц П р о ц е д у р ы  

Результаты:

А д м и н и с т р а ц и я

Е с т ь   э л е м е н т ы

А м о р т и з а ц и я   о с н о в н ы х   с р е д с т в :   0

А Р Е Н Д А :   2 1 0 0 0 0

Г С М     и   з а п ч а с т и   н а   а в т о м о б и л ь :   1 0 4 5 0

И Н К А С С А Ц И Я :   0

Н а л о г и   и   с б о р ы :   0

О Б О Р У Д О В А Н И Е :   0

О П Л А Т А   Т Р У Д А :   2 7 3 3 4 6 . 3 8

О Р Г Т Е Х Н И К А :   4 5 6 0

О Х Р А Н А :   0

П о т е р и   т о в а р о в   и   т е х н о л о г и ч е с к и е   о т х о д ы :   0

П Р О Ч И Е   Р А С Х О Д Ы :   1 3 2 0

Р а с х о д ы   з а   р е г и с т р а ц и ю   а в т о м о б и л я :   0

Р а с х о д ы   н а     К О М А Н Д И Р О В К И :   0

Р а с х о д ы   н а   б е н з и н :   0

Р а с х о д ы   н а   К А Н Ц Е Л Я Р С К И Е   т о в а р ы :   1 5 3 1 9 . 2 3

Р а с х о д ы   н а   м е б е л ь :   0

Р а с х о д ы   н а   о б с л у ж и в а н и е   а в т о м о б и л я :   0

Р а с х о д ы   н а   п о д г о т о в к у   и   п е р е п о д г о т о в к у   к а д р о в :   0

Р а с х о д ы   н а   П О Д П И С К У ,   к о н с у л ь т а н т :   1 1 9 7 9 . 5

Р а с х о д ы   н а   п о ч т о в ы е ,   т е л е ф о н н ы е   ,   т е л е г р а ф н ы е   у с , :   0

Р а с х о д ы   н а   р е м о н т   о с н о в н ы х   с р е д с т в   а р е н д о в а н н ы х :   0

Р Е К Л А М А     (   п о   н о р м а т и в у ) :   1 1 2 5 0

Т р а н с п о р т н ы е   р а с х о д ы :   0

У С Л У Г И   С В Я З И :   5 2 6 4 . 0 8

Х О З .   Н У Ж Д Ы :   7 3 2 7 . 1 1
Подразделение 2

Н е т   э л е м е н т о в

Подразделение 3

Н е т   э л е м е н т о в

Подразделение 4

Н е т   э л е м е н т о в
  Подразделение 5

Н е т   э л е м е н т о в

Подразделение 6

Н е т   э л е м е н т о в

Подразделение 7

Н е т   э л е м е н т о в

Подразделение 8

Н е т   э л е м е н т о в

Подразделение 9

Н е т   э л е м е н т о в

Подразделение 10

Н е т   э л е м е н т о в

Подразделение 11

Н е т   э л е м е н т о в

Подразделение 12

Н е т   э л е м е н т о в

Подразделение 13

Н е т   э л е м е н т о в

Подразделение 14

Н е т   э л е м е н т о в

Подразделение 15

Н е т   э л е м е н т о в


P.S.:
1С v7.7 Сетевая (7.70.027)
Бух. учёт, редакция 4.5 (7.70.479)
1 Ненавижу 1С
 
гуру
04.09.14
10:43
Это че за ХУЛИСТИНГ?
2 holyguest
 
04.09.14
10:49
Пардон, подскажите как вставить код, чтобы отображался корректно
3 holyguest
 
04.09.14
13:10
Подскажите, как удалить тему или отредактировать сообщение? Действительно руко*опо вышло.
4 zak555
 
04.09.14
13:28
Е с л и   Б у х г а л т е р с к и е И т о г и . В ы б р а т ь С у б к о н т о ( 1 )   =   1   Т о г д а
5 Chai Nic
 
04.09.14
13:31
Очень советую в методах ВыбратьСубконто и ПолучитьСубконто указывать не номер субконто, а вид (когда он явно определен). От многих ошибок избавляет.
6 zak555
 
04.09.14
13:32
(5) лучше цифры
7 ADirks
 
04.09.14
13:40
(6) кому лучше?
8 Эльниньо
 
04.09.14
14:50
Что за тег воткнул в начале?
Тоже так хочу.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан