Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Помогите с кусочком кода. / 4 сообщений из 4, страница 1 из 1
03.02.2006, 17:10
    #33522779
гостья-)
гостья-)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с кусочком кода.
есть примерно такой код в Делфи. Впрочем и не в Делфи он не работает.

Form1.VisM1.P1:='BLABLA';
Form1.VisM1.P2:=123465;
Form1.VisM1.Execute('s P0=$order(^SP("Zakaz","Tabl",0,P0,P1,P2))');
ShowMessage(Form1.VisM1.P0);

Мне нужно получить P0, зная только P1 и P2.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2006, 17:26
    #33522827
Sergo Gromov
Sergo Gromov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с кусочком кода.
Первое найденное значение получится, если соотв.строку поменять на эту:

Form1.VisM1.Execute('s P0="" F S P0=$order(^SP("Zakaz","Tabl",0,P0)) Q:P0="" Q:$date(^SP("Zakaz","Tabl",0,P0,P1,P2))');
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2006, 17:35
    #33522850
Sergo Gromov
Sergo Gromov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с кусочком кода.
Только вместо "$date" надо "$data"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2006, 10:12
    #33527671
gr_vl
gr_vl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с кусочком кода.
Код: plaintext
гм только чтобы выполнить код надо вставить код и флаг выполнить незамедлительно

Form1.Vism1.Code :='s P0=$order(^SP("Zakaz","Tabl",0,P0,P1,P2))';
Form1.VisM1.ExecFlag :=1;

Код: plaintext
1.
тогда получим нечто в виде
проверенно неоднократно не в одной программе при наличии на клиенте активх Vism и связи с каше сервером все работает

авторForm1.VisM1.P1:='BLABLA';
Form1.VisM1.P2:=123465;
Form1.Vism1.Code :='s P0=$order(^SP("Zakaz","Tabl",0,P0,P1,P2))';
Form1.VisM1.ExecFlag :=1;

ShowMessage(Form1.VisM1.P0);
Ну при желании можно и обработку ошибок куда уж бекз них то ....
Григорий Чех
"АО Норд" Донецк Украина
chech@aonord.donetsk.ua
icq:118106001
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Помогите с кусочком кода. / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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