Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Помогите разобраться почему не работатет скоп

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
ewgen



Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым

PostPosted: 25 Nov 2005 15:53    Post subject: Помогите разобраться почему не работатет скоп Reply with quote

PRIVATE aSet,aSetKey,NST,NST1

NST:=0
NST1:=0

aSet:=SaveSet()
aSetKey:=SaveSetKey()

NETUSE("_ACC",LoadPath()+"\SALARY\ACCOUNTS.DBF",,.F.)
_ACC->(ORDSETFOCUS("TNUM"))
_ACC->( SetScope("UPPER(TNUM)",'001349'))
_ACC->( DBGOTOP() )
While(_ACC->(!EOF()))
IF _ACC->TYPE=="+"
IF _ACC->INOUT=="ЗР1".OR._ACC->INOUT=="ТАР"
NST:=NST+_ACC->ENDSUM
ENDIF
IF _ACC->INOUT=="НДР".OR._ACC->INOUT=="РК7"
NST1:=NST1+_ACC->ENDSUM
ENDIF
ENDIF
_ACC->(dbSkip())
EndDo
_ACC->( SetScope() )
_ACC->(dbCloseArea())

RestSetKey(aSetKey)
RestSet(aSet)
Back to top
View user's profile Send private message Send e-mail
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 25 Nov 2005 16:38    Post subject: Reply with quote

Code:
_ACC->(ORDSETFOCUS("TNUM"))

а есть такой индекс??

Следует выбрать 01-28 где параметр первый tnum.
Back to top
View user's profile Send private message Send e-mail
ewgen



Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым

PostPosted: 25 Nov 2005 16:40    Post subject: Reply with quote

Посмотрел в salary\bases_14.dbf - там есть индекс upper(tnum), поэтому и написал. Правильн
Back to top
View user's profile Send private message Send e-mail
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 25 Nov 2005 17:01    Post subject: Reply with quote

Нет там индексы в поле tag_name
а в поле index уже выражение, по которому строится этот индекс.
Back to top
View user's profile Send private message Send e-mail
ewgen



Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым

PostPosted: 27 Nov 2005 09:20    Post subject: Reply with quote

Quote:
Нет там индексы в поле tag_name
а в поле index уже выражение, по которому строится этот индекс

Заработало! Огромное спасибо!
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru