| View previous topic :: View next topic |
| Author |
Message |
ewgen
Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым
|
 Posted: 25 Nov 2005 15:53 Post subject: Помогите разобраться почему не работатет скоп |
 |
|
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 |
|
 |
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 25 Nov 2005 16:38 Post subject: |
|
|
| Code: | | _ACC->(ORDSETFOCUS("TNUM")) |
а есть такой индекс??
Следует выбрать 01-28 где параметр первый tnum. |
|
| Back to top |
|
|
ewgen
Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым
|
| Posted: 25 Nov 2005 16:40 Post subject: |
|
|
| Посмотрел в salary\bases_14.dbf - там есть индекс upper(tnum), поэтому и написал. Правильн |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 25 Nov 2005 17:01 Post subject: |
|
|
Нет там индексы в поле tag_name
а в поле index уже выражение, по которому строится этот индекс. |
|
| Back to top |
|
|
ewgen
Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым
|
| Posted: 27 Nov 2005 09:20 Post subject: |
|
|
| Quote: | Нет там индексы в поле tag_name
а в поле index уже выражение, по которому строится этот индекс |
Заработало! Огромное спасибо!  |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
