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