:: View topic - ��

through

#1: ��  Author: ewgen, Location: ��

Posted: 25 Nov 2005 15:53
—
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)

#2: Author: itman, Location: �� .�.

Posted: 25 Nov 2005 16:38
—

Code:

_ACC->(ORDSETFOCUS("TNUM"))

� �� ??

�� 01-28 �� tnum.

#3: Author: ewgen, Location: ��

Posted: 25 Nov 2005 16:40
—
�� salary\bases_14.dbf - �� upper(tnum), �� . ��

#4: Author: itman, Location: �� .�.

Posted: 25 Nov 2005 17:01
—
�� tag_name
� � �� index �� , �� .

#5: Author: ewgen, Location: ��

Posted: 27 Nov 2005 09:20
—

Quote:

�� tag_name
� � �� index �� , ��

��! �� !

-> �� -4

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1