Что-то не пойму почему хранимая процедура возвращает пусто...

Есть такая процедурка/// ФИО гражданина
/// <table>
/// <tr>
/// <td><b>Urn</b></td>
/// <td>Urn гражданина</td>
/// </tr>
/// <tr>
/// <td><b>Date</b></td>
/// <td>На какую дату</td>
/// </tr>
/// <tr>
/// <td><b>Type</b></td>
/// <td>0-Ф|И|О, 1-фамилия, 2-имя, 3-отчество, 4-фамилия и инициалы, 5-инициалы и фамилия</td>
/// </tr>
/// </table>
ClassMethod name(Urn As %String, Date As %Date, Type As %Integer) As %String [ SqlProc ]
{
  s:$g(Date)="" Date=+$h
  s Type=$g(Type)
  s sql="Select * "
  s sql=sql_" From soi_arh_data_cls.name as a"
  s sql=sql_" Where a.parent in ("
  s sql=sql_"    Select b.urn"
  s sql=sql_"    From soi_arh_data.name as b"
  s sql=sql_"    Where b.citizen=?"
  s sql=sql_" )"
  s sql=sql_" And a.Dat<=?"
  s sql=sql_" Order by Dat desc"
  s o=##class(%ResultSet.SQL).%Prepare(sql,.err,"",Urn,Date)
  s ^tmp(Urn)=o
  s name=""
  s dlm="|"
  if o.%Next() {
    s ^tmp(Urn,1)=o.%Get("surname")
    s $p(name,dlm)=o.%Get("surname")
    s $p(name,dlm,2)=o.%Get("name")
    s $p(name,dlm,3)=o.%Get("patronymic")
  }
  k o
  q:Type=0 name
  q:Type>3 $$nameShort(Type-3)
  q:Type $p(name,dlm,Type)
  q $tr(name,dlm," ")
nameShort(Type) // Фимилия + инициалы
  s str=$p(name,dlm)
  s str1=""
  s val=$p(name,dlm,2)
  s:val'="" str1=$e(val)_"."
  s val=$p(name,dlm,3)
  s:val'="" str1=str1_$e(val)_"."
  i Type=1 s:str1'="" str=str_" "_str1
  i Type=2 s:str1'="" str=str1_" "_str
  q str
}

Нормально работает с командной строки



А в запросе возвращает пустоту (см.картинку)Select 
   soi_arh_data.citizen_name(urn) as fio,
   *
From soi_arh_data.citizen
----------
Cache for Windows (x86-64) 2010.2.3 (Build 702) Tue Feb 15 2011 14:20:27 EST
Cache for Windows (x86-64) 2012.1.1 (Build 602) Wed Mar 7 2012 22:36:34 EST

Делал тестовую запись в глобал ^tmp - запрос выполняется


Но в if o.%Next() {
    s ^tmp(Urn,1)=o.%Get("surname")
    s $p(name,dlm)=o.%Get("surname")
    s $p(name,dlm,2)=o.%Get("name")
    s $p(name,dlm,3)=o.%Get("patronymic")
 }
уже не попадает...

Почему тогда с командной строки все работает как надо?

Потестил сейчас из портала - работает!

Значит дело все в связке Cache+Delphi... Это там процедурка возвращает пусто...

Блок А.Н.Возможно, режим даты стоит не такой. Исключите дату из запроса и проверьте.
О, спасибо.
В запросе используется хоролог...

Блок А.Н. , да, это дата.

А как сделать универсальный вариант по дате? Дабы работала в связке Cache+Delphi и просто Cache?

Параметр чёле вводить...

Блок А.Н.Он как-то переключается через какие-то ZU.
Попробуйте еще
d $system.SQL.SetSelectMode(...)
А что из этого
дока0 LOGICAL
1 ODBC
2 DISPLAY
Нужно для использования хоролога?

Блок А.Н.Logical
Ясно.

Блок А.Н.В портале же есть селектор ;-)
Дык я там и не бываю...

Ymka2007пришел к такому решению:
все что на клиенте, неважно каком, перевожу в хоролог
а запрос формирую так: "... where TONUMBER(date)=:dateParam"
Так у меня хранимая процедура будет выполняться не только на клиенте но и в "Каше"...

servitещё проверьте формат получаемого параметра Date : возможно, в одном случае он приходит в виде 62900, а в другом - "2013-03-19".
В моём примере дата не передаётся вообще... Она там явно присваивается




От того и непонятки...

servitЕсли запустите метод из терминала, то


А я думал нужно как параметр передавать

servitДля чего это: Date As %Date, Type As %Integer?
Где?

servitДля чего это: Date As %Date, Type As %Integer?
А! Понял...
Это на тот случай если дату таки передадут. Но впримерах выше я специально её не передаю.

Вот так работает!





Помогло.

Осталось проверить как передаётся дата и переделать её в хоролог, если нужно.

Спасибо всем за помощь!!!

servitпроверьте формат получаемого параметра Date : возможно, в одном случае он приходит в виде 62900, а в другом - "2013-03-19".
Только два варианта возможны? Или их больше?

servitБольше.
Фигово...
Придется параметр вводить - формат даты...

servitНе нужно.
Достаточно передавать дату в требуемом формате и проверять её валидность перед использованием.
Я не могу контролировать что сунут в ту хранимую процедуру... Да и проверять на валидность не всегда можно.
Пример
02/01/20013
Это 2-е января или 1-е февраля?

servitВ таком случае передавайте дату как строку, т. е. Date As %String, в ODBC-формате, а в коде делайте её приведение $zdh("2013-03-01",3) с обработкой ошибок.
Лады, спасибо.

На этом пока остановлюсь...
P.S.
Модерам: Зря разукрашиваете код в сообщениях... При копировании все эти цветовые потроха мешают. А копировать с экрана - отсутствуют правильные отступы, да и шрифт для программ не подходящий...

Блок А.Н.Сомневаюсь, что им настолько нечего делать
Раскрашивает код движок форума, к которому у них нет доступа.
Напрасно сомневаешся...
Посмотри моё первое сообщение в теме - это не расскараска движка. То рука модера!

Шваров ЕвгенийДа, и почему не используете %SQL.Statement ? Он удобнее6 быстрее работает и %SelectMode свойство есть.
Даже не знаю что и ответить...

Шваров ЕвгенийОн удобнее
Не совсем понял про удобство... Можно использовать более удобно чем


Тогда как еще удобнее?

Шваров Евгенийбыстрее работает
А тут-то в чем быстрота проявляется?

servitМожно менять режим выборки или на уровне всего процесса (для %ResultSet.SQL) или на уровне конкретного объекта %SQL.Statement .
Про режим я понял... А вот про какой-то "объект" не совсем. И в аглицком я не силён...