ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Помогите с кусочком кода.
4 сообщений из 4, страница 1 из 1
Помогите с кусочком кода.
    #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:10
| Ответить | Цитировать | Написать  
Помогите с кусочком кода.
    #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:26
| Ответить | Цитировать | Написать  
Помогите с кусочком кода.
    #33522850
Sergo Gromov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergo Gromov
Гость
Только вместо "$date" надо "$data"
...
Рейтинг: 0 / 0
03.02.2006, 17:35
| Ответить | Цитировать | Написать  
Помогите с кусочком кода.
    #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
07.02.2006, 10:12
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Помогите с кусочком кода.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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