View previous topic :: View next topic |
Author |
Message |
Anj
Joined: 03 Dec 2002 Posts: 13
|
Posted: 31 Jan 2003 11:52 Post subject: Спец.функции |
|
|
В спецфункции использовал функции DBUseArea(), DBSelectArea()
работало все хорошо, у заказчик выдало ошибку
"внутренняя ошибка БЭСТ 1003 перменная schet_r неопределена"
(у заказчика ADS). заменяю на DBopenbase() и Select() соответственно все проходит хорошо. Подскажите кто-нибудь, пожалуйста, какими функциями и командами надо пользоваться в спецфункциях? Надоело уже тыкаться как слепому котенку.
Или эта информация засекречена разработчиками? (шутка). |
|
Back to top |
|
|
Павлова Наталья
Joined: 08 Jan 2002 Posts: 814 Location: Наталья Павлова
|
Posted: 03 Feb 2003 14:00 Post subject: |
|
|
Первый набор функций - это функции CLIPPER и они должны работать безусловно правильно.
DBOpenBase - функция БЭСТ-4 и она работает правильно.
В fileeval Select() не переключает селекты, а только возвращает номер активного SELECTа.
Необходим анализ текста программ. |
|
Back to top |
|
|
k_serg
Joined: 30 May 2002 Posts: 5
|
Posted: 04 Feb 2003 05:26 Post subject: Спец.функции |
|
|
А каким образом переходить из области в область в xmod
Private AVars1,ak1,recn1,n1,n,co,so
sayscreen(temp->agentcode,1,1)
sayscreen(str(temp->sumout,14,2),2,2)
n:=0
if aPars[3]>0
DBPUSH()
SayAndWait(LoadPath()+aPars[1])
dbOpenBase({{'aaa',LoadPath()+"forspic\"+aPars[1]+".dbf"}})
SELECT("AAA")
aaa->(DBGOTOP())
SayAndWait(aaa->agent)
do while .not.(aaa->(eof()))
SayAndWait("aaa->agent="+aaa->agent+"temp->agentcode="+temp-agentcode)
if aaa->agent=temp->agentcode
n:=temp->sumout1
endif
aaa->(dbskip())
enddo
aaa->(DBCloseBase())
dbpop()
endif |
|
Back to top |
|
|
|