1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Базы данных и администрирование", создана пользователем Isabela, 17 июл 2008.

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

    Isabela Гость

    Репутация:
    0
    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 Гость

    Репутация:
    0
    Попробуй так
    Код:
    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 Гость

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

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