Имя: Пароль:
1C
1C 7.7
v7: ТекущийДокумент в регистре
0 botman4
 
27.09.16
10:09
Подскажите пож.


    Запрос = СоздатьОбъект("Запрос");
    ТекЗапроса="
    |ПЕРИОД С ДатаНачала По ДатаКонца;
    |Валюта = Регистр.Касса_Т.Валюта;
    |Сумма  = Регистр.Касса_Т.Сумма;
    |ДокТ   = Регистр.Касса_Т.ТекущийДокумент;    
    |Функция НОст    = НачОст(Сумма);
    |Функция ПриходТ = Приход(Сумма);
    |Функция РасходТ = Расход(Сумма);
    |Функция КОст    = КонОст(Сумма);
    |Группировка Валюта;
        |Группировка ДокТ;
    |";  
    Если Запрос.Выполнить(ТекЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

        Пока Запрос.Группировка("Валюта") = 1 Цикл
        Сообщить(Запрос.ДокТ); ///
    КонецЦикла;

не показывает документ.....
если выгружать в ТЗ - то там видны документы...
подскажите почему не показывает текущий документ?
СПАСИБО.
1 botman4
 
27.09.16
10:11
Пока Запрос.Группировка("Валюта") = 1 Цикл
        Пока Запрос.Группировка("ДокТ") = 1 Цикл
                    Сообщить(Запрос.ДокТ);
        КонецЦикла;
    КонецЦикла;

вроде сработало...
2 Остап Сулейманович
 
27.09.16
10:12
(0)
Пока Запрос.Группировка("Валюта") = 1 Цикл
    Пока Запрос.Группировка("ДокТ") = 1 Цикл
        Сообщить(Запрос.ДокТ);
    КонецЦикла;
КонецЦикла;