Liren Large Software Subsidy 5/05.iso/a/a056/4.ddi/MAIN/YQMIS016.PRG

Text File | 1993-11-01 | 3.4 KB | 220 lines

*******************************************************
* ╬─╝■├√│╞: YQMIS016
* │╠╨≥╔Φ╝╞: └ε▒■╥╗
* ▒α│╠╚╒╞┌: 93.11.01   20:07:29
*******************************************************
set date ansi
set safe off
close data
set color to w/1,,
clear
do smggp with '╟δ  ╔╘  ║≥ !',10,34
set color to w/1,,
sele A
use GZZK alia A
index on ╡Ñ╬╗ to GZZK uniq
sele B
use GZTJ alia B
priv oflbds
oflbds='╡Ñ╬╗'
set proc to YQMIS016
sele 1
copy to otj.ols
close inde
sele 2
zap
appe from otj.ols
dele file otj.ols
set stat on
@ 23,0 clear to 24,79
do smggp with '╒²╘┌╜°╨╨═│╝╞,╟δ╔╘║≥!!',10,24
@ 23,0 clear to 24,79
do qh with '','╗∙▒╛╣ñ╫╩','╗∙▒╛╣ñ╫╩'
@ 23,0 clear to 24,79
do qjls with '','╚╦╩²'
@ 23,0 clear to 24,79
do qh with '','╙ª╖ó║╧╝╞','╙ª╖ó║╧╝╞'
@ 23,0 clear to 24,79
do qh with '','╖┐╫Γ║╧╝╞','╖┐╫Γ'
@ 23,0 clear to 24,79
do qh with '','╦«╖╤║╧╝╞','╦«╖╤'
@ 23,0 clear to 24,79
do qh with '','╜▒╜≡║╧╝╞','╜▒╜≡'
@ 23,0 clear to 24,79
do qh with '','╩╡╖ó╜≡╢ε','╩╡╖ó╜≡╢ε'
@ 23,0 clear to 24,79
do qh with '','╡τ╖╤║╧╝╞','╡τ╖╤'
set stat off
return
*****************
* ╟≤╝╟┬╝╕÷╩²    *
*****************
proc qjls
para otj,ojgzd
if len(trim(otj))=0
otj='.t.'
endif
priv qjls,ofl
if len(oflbds)=0
sele 1
count to qjls for &otj
sele 2
repl &ojgzd with qjls
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
count to qjls for &otj
sele 2
repl &ojgzd with qjls
skip
enddo
endif
return
*****************
* ╟≤║═          *
*****************
proc qh
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
sum &otjzd to q for &otj
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
sum &otjzd to q for &otj
sele 2
repl &ojgzd with q
skip
enddo
endif
return
*****************
* ╟≤╞╜╛∙╓╡      *
*****************
proc qpjz
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
aver &otjzd to q for &otj
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
aver &otjzd to q for &otj
sele 2
repl &ojgzd with q
skip
enddo
endif
return
*****************
* ╟≤╫ε┤≤╓╡      *
*****************
proc qzdz
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
goto top
q=-999999999
do while .not.eof()
if &otj
q=iif(q<&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
goto top
q=-999999999
do while .not.eof()
if &otj
q=iif(q<&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
skip
enddo
endif
return
*****************
* ╟≤╫ε╨í╓╡      *
*****************
proc qzxz
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
goto top
q=999999999
do while .not.eof()
if &otj
q=iif(q>&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
goto top
q=999999999
do while .not.eof()
if &otj
q=iif(q>&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
skip
enddo
endif
return

*******************************************************
* ▒α│╠╚╒╞┌: 93.11.01   20:07:30
*******************************************************