home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b015 / 7.ddi / DT.PRG < prev    next >
Encoding:
Text File  |  1993-05-03  |  905 b   |  62 lines
  1. dime d(17)
  2. sele a
  3. USE QQ
  4. COPY STRU TO QQ2.DBF
  5. tj='(jc10<>jc11 .or. jc12<>vvkm2).and. jc4=3'
  6. sort on jc11,JC10,jc3 to qq1.dbf for &TJ
  7. use
  8. sele b
  9. use qq1
  10. do while !eof()
  11. aa=0
  12. k1=vvkm
  13.   t0=jc10
  14.   t1=jc11
  15.   t2=jc12
  16.   k2=vvkm2
  17.   mk2=kkm2
  18.   cc=jc3
  19.   jc12=k2 
  20.   sele c
  21.   use qq2
  22.   if jc11<>t1
  23.     zap
  24.     tj1='jc10=0.and.jc11=t1.and.jc12=t2'
  25.     append from qq.dbf for &tj1
  26.     go top
  27.     aa=0
  28.   endif
  29.   do while !eof()
  30.     k3=km3
  31.     mk3=kkm3
  32.     vk3=vvkm3
  33.     z14=ss
  34.     z17=zd
  35.     sele a
  36.     use qq
  37.     go top
  38.     locate for vvkm=k1 .and.vvkm2=k2 
  39.     replace  jc11 with jc10,jc12 with vvkm2
  40.     scat to d
  41.     d(5)=k3
  42.     d(6)=mk3
  43.     d(8)=cc+k3
  44.     d(9)=1
  45.     d(10)=0
  46.     d(12)=k2
  47.     d(14)=z14
  48.     d(16)=vk3
  49.     d(17)=z17
  50.     go bott
  51.     append blank
  52.     gather from d
  53.     use
  54.     sele c
  55.     skip
  56.     aa=aa+1
  57.   enddo   
  58.   sele b
  59.   skip
  60. enddo
  61.   
  62.