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

Тема в разделе "1C и всё что с ней связано", создана пользователем Isabela, 17 июл 2008.

Статус темы:
Закрыта.
  1. Isabela

    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) и проч. есть, а суммы нет
    Может туплю, конечно, но понять не могу, в чем ошибка
     
  2. kaa

    kaa Гость

    Попробуй так
    Код (Text):
    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;
    И еще стоит проверить , учитываются ли суммы по второму субконто :(
     
  3. Isabela

    Isabela Гость

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

Поделиться этой страницей