• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

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

Isabela

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

Попробуй так
Код:
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

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!