Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Помогите разобраться с кодом / 5 сообщений из 5, страница 1 из 1
13.08.2008, 14:35
    #35485380
Wolferz
Wolferz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться с кодом
Что делает этот кусок кода!!!

s:$g(priz)="" x=tt1.FNZ.Name
s:$g(priz)=1 x=tt1.FNZ.Cod
s:$g(priz)=2 x=dd_"|"_tt1.FNZ.Cod
s:$g(priz)=3 x=tt1.FNZ.Cod_"|"_tt1.FNZ.Name
s:$g(priz)=4 x=tt1.FNZ.Cod_"|"_tt1.FNZ.TOPER.Cod

Рассмотрю все предложения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2008, 14:46
    #35485428
Ptn
Ptn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться с кодом
Ну типо многоступенчатого IF без IF.

priz - есть признак - поле x заполняется для 5-ти значений этого признака своим особым образом

тоже самое (по результату) что и
Код: plaintext
1.
2.
3.
4.
5.
if $g(priz)="" { set x=tt1.FNZ.Name}
elseif $g(priz)= 1  { set x=tt1.FNZ.Cod}
elseif $g(priz)= 2  { set x=dd_"|"_tt1.FNZ.Cod}
elseif $g(priz)= 3  { set x=tt1.FNZ.Cod_"|"_tt1.FNZ.Name}
elseif $g(priz)= 4  { set x=tt1.FNZ.Cod_"|"_tt1.FNZ.TOPER.Cod}

dd - какая то левая переменная, tt1 - открытый объект
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2008, 14:52
    #35485444
Wolferz
Wolferz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться с кодом
dd это берется типо от сюда я так думаю

s (x,dd)="",tt=##class(off.KA).%OpenId(ka) i tt="" Q ""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2008, 14:58
    #35485463
Wolferz
Wolferz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться с кодом
нашол как записываются значения в dd

s kom="s dd=$o("_glob_"("_ka_",""FNZ"","""_dt_"""),-1)" x kom q:dd="" ""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2008, 15:52
    #35485658
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться с кодом
Я бы так написал...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
...
 s x=$$Value(priz)
...
 q
Value(Case) ; Вернуть значение для каждого случая
 s Case=$g(Case)
 q:Case="" tt1.FNZ.Name
 q:Case= 1  tt1.FNZ.Cod
 q:Case= 2  dd_"|"_tt1.FNZ.Cod
 q:Case= 3  tt1.FNZ.Cod_"|"_tt1.FNZ.Name
 q:Case= 4  tt1.FNZ.Cod_"|"_tt1.FNZ.TOPER.Cod
 q ""
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Помогите разобраться с кодом / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]