Замена алиасного имени

User

Сообщений: 435 Регистрация: 06.12.2007

Пермский край, Верещагино

13.12.2009 14:41:34

Здравствуйте!
БЭСТ 4
Вызываю программу пользователя из книги учета хоз.операций.
Файл PLAN_SCH.DBF доступен с алиаcным именем PLAN
dbpush("PLAN","CODE")
PLAN->(ordsetfocus("CODE"))
......
dbpop()
Можно ли в программе поменять его алиасное имя на другое.
NETUSE применять нельзя, он уже открыт
Если можно,то как?
С уважением Габов Алексей

itman

Administrator

Сообщений: 1004 Регистрация: 15.11.2007

БЭСТ-5 v3.4 SP крайний

13.12.2009 16:43:53

Почему нельзя то, можно открыть с другим алиасом.
Ничего страшного не случится. При этом можно dbpush() использовать без параметров.
Затем по схеме: netuse + действие + dbclosearea и dbpop() return результат если надо.

С уважением,
Ильин Евгений

nordk

User

Сообщений: 5589 Регистрация: 22.11.2007

Санкт-Петербург, ООО "Динамика"

14.12.2009 01:18:01

Цитата
gabov пишет: NETUSE применять нельзя, он уже открыт

Это заблуждения:

Сделайте программу

FUNCTION TEST()
Local aSet:=SaveSet()
NETUSE("plan1",LoadPath()+"PLAN_SCH.dbf")
NETUSE("plan2",LoadPath()+"PLAN_SCH.dbf")
NETUSE("plan3",LoadPath()+"PLAN_SCH.dbf")
NETUSE("plan4",LoadPath()+"PLAN_SCH.dbf")
ALTD()
plan4->( DBCLOSEAREA() )
plan3->( DBCLOSEAREA() )
plan2->( DBCLOSEAREA() )
plan1->( DBCLOSEAREA() )

RestSet(aSet)
RETURN NIL

Посмотрите в отладчике - Вы увидите 4 алиаса на одну и туже таблицу.
В каждом Вы если хотите можете сместить курсор или установить нужный индекс.

Самое главное. ИМЕННО свои алиас правильнее открывать а не DBPUSH() !!!!
Особенно если кодируешь не профессионально, а делаешь просто небольшие плагинчики...

gabov User Сообщений: 435 Регистрация: 06.12.2007 Пермский край, Верещагино	#4 08.01.2010 07:08:32 Здравствуйте! Выражения aSet:=SaveSet() и RestSet(aSet) ,видимо, и стали "ключевыми" для решения данного а. А связку aSetKey:=SaveSetKey() и RestSetKey(aSetKey) в каких случаях надо применять? Заранее спасибо .Габов Алексей.

itman

Administrator

Сообщений: 1004 Регистрация: 15.11.2007

БЭСТ-5 v3.4 SP крайний

08.01.2010 14:33:26

Цитата
gabov пишет: Здравствуйте! Выражения aSet:=SaveSet() и RestSet(aSet) ,видимо, и стали "ключевыми" для решения данного а. А связку aSetKey:=SaveSetKey() и RestSetKey(aSetKey) в каких случаях надо применять? Заранее спасибо .Габов Алексей.

Без saveset алиасы будут работать так же.
Setkey используется в случаях, если в пользовательском коде есть обработка нажатия клавиш.

С уважением,
Ильин Евгений

nordk

User

Сообщений: 5589 Регистрация: 22.11.2007

Санкт-Петербург, ООО "Динамика"

11.01.2010 08:37:17

Цитата
gabov пишет: связку aSetKey:=SaveSetKey() и RestSetKey(aSetKey)

Эту связку лучше всегда применять.
Дело в том, что даже если в Вашей программе нет обработки функциональных клавиш, но длительность ее выполнения будет значительной, то определенные ранее горячие клавиши при случайном нажатии могут привести к "непоняткам".
Данная связка не применяется при программировании в новых окнах и работать не будет.

Форум