Куда девается сумма ?

  • Автор темы Isabela
  • Дата начала
Статус
Закрыто для дальнейших ответов.
I

Isabela

Гость
#1
BTotal = CreateObject("БухгалтерскиеИтоги");

if EmptyValue(Товары) = 1 then
BTotal.UseSubConto("Номенклатура",,1);
else
BTotal.UseSubConto("Номенклатура",Товары,1);
endif;
if EmptyValue(ВыбСклад) = 1 then
BTotal.UseSubConto("МестаХранения",,1);
else
BTotal.UseSubConto("МестаХранения",Склад,1);
endif;
if BTotal.DoQuery(Date1,Date2,"41") = 0 then
Return
endif;
BTotal.SelectSubconto();
While BTotal.GetSubconto() = 1 do
КолвоК = BTotal.СКД(3);
СуммаК = BTotal.СКД();
КолвоН = BTotal.СНД(3);
СуммаН = BTotal.СНД();
КолвоДО = BTotal.ДО(3);
СуммаДО = BTotal.ДО();
КолвоКО = BTotal.КО(3);
СуммаКО = BTotal.КО();
enddo;
//Товары - список значений, Склад - элемент справочника "МестаХранения"

Если Склад не выбран. то и сальдо, и обороты показываются, а если выбран - BTotal.СНД(3) и проч. есть, а суммы нет
Может туплю, конечно, но понять не могу, в чем ошибка
 
K

kaa

Гость
#2
Попробуй так
Код:
BTotal.SelectSubconto(1);
While BTotal.GetSubconto(1) = 1 do 
BTotal.SelectSubconto(2);
While BTotal.GetSubconto(2) = 1 do 
КолвоК = BTotal.СКД(3); 
СуммаК = BTotal.СКД();
КолвоН = BTotal.СНД(3); 
СуммаН = BTotal.СНД();
КолвоДО = BTotal.ДО(3); 
СуммаДО = BTotal.ДО();
КолвоКО = BTotal.КО(3); 
СуммаКО = BTotal.КО();
enddo;
enddo;
И еще стоит проверить , учитываются ли суммы по второму субконто :(
 
I

Isabela

Гость
#3
И еще стоит проверить , учитываются ли суммы по второму субконто
Спасибо, kaa !
Действительно, в счете 41.1 не стояла птица на "Учитывать сумму". После ее простановки все ожило. Даже нет необходимости двойного цикла по субконто.
Лови плюсик !
 
Статус
Закрыто для дальнейших ответов.