Имя: Пароль:
1C
1C 7.7
v7: БухИтоги не формируются
0 mirror1982
 
02.08.16
10:32
В ОС показывает сальдо по счету МХ, а в переборе нет, в чем может быть дело?:

спрН - номенклатура
спрС- места хранения    
     СпрН.ВыбратьЭлементы();                                        
Пока СпрН.ПолучитьЭлемент()=1 Цикл                            
     СпрС.ВыбратьЭлементы();                                        
     Пока СпрС.ПолучитьЭлемент()=1 Цикл                            
      Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура,спрН.ТекущийЭлемент(),1,1);
                     Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,спрС.ТекущийЭлемент(),1,1);
                     Ит.ВыполнитьЗапрос(ДатаВыгрузки,ДатаВыгрузки,СчетПоКоду("МХ"),,,3,,"К");    
                   КолвоДебета1=Ит.СНД(3);
                   КолвоКредита1=Ит.СНК(3);    
                     Если (КолвоДебета1=0)И(КолвоКредита1=0) Тогда Продолжить; КонецЕсли;
                   Сообщить(КолвоДебета1);
                     Сообщить(КолвоКредита1);
              КонецЦикла;
         КонецЦикла;
1 lubitelxml
 
02.08.16
10:33
отладчиком пройди
2 mirror1982
 
02.08.16
10:36
УСН 1.3
3 mirror1982
 
02.08.16
10:40
(1) проходил там 10 складов и 2000 позиций номенклатуры
4 lubitelxml
 
02.08.16
10:42
(3) и в чем тогда проблема?
5 HawkEye
 
02.08.16
10:42
(0)  

Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура);
                    Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения);
                     Ит.ВыполнитьЗапрос(ДатаВыгрузки,ДатаВыгрузки,СчетПоКоду("МХ"));

ИТ.ВыбратьСубконто(1);
пока ИТ.ПолучитьСубконто(1) = 1 Цикл
Сообщить(СокрЛП(Ит.Субконто(1)) +  " Общий остаток: " + ИТ.СКД("К"));
ИТ.выбратьСубконто(2)
пока ИТ.ПолучитьСубконто(2) = 1 Цикл
Сообщить(" на складе: " + СокрЛП(Ит.Субконто(2)) +  " остаток: " + ИТ.СКД("К"));    
                
конецЦикла
конецЦикла;


результат сюда давай
6 mirror1982
 
02.08.16
10:52
(5) все работает спасибо!