*- - - -d(ñ)b- - - -*
   sele carwkwk
   index on lees+num to wknum    &&b 
jtxt1=0    &&έpXG󪺵
jtxt2=0    &&bJ
jtxt3=0    &&ñb
jtxt4=0    &&
jtxt5=0    &&|B
jtxt6=0    &&bJB
jtxt7=0    &&J
if jleesk<>space(3)
   Count for lees=jleesk .or. num=jnumk to jtxt1
   Count for lees=jleesk .and. ntx_2 <> 0 .or. num=jnumk .and. ntx_2 <> 0  to jtxt2
   jtxt3=jtxt1-jtxt2
    go top
    Sum insm for lees=jleesk .or. num=jnumk to jtxt5
    Sum ntx_2 for lees=jleesk .or. num=jnumk to jtxt6
    Sum ntx_3 for lees=jleesk .or. num=jnumk to jtxt7
    jtxt4=jtxt5-(jtxt6+jtxt7)
    Set filter to lees=jleesk .or. num=jnumk
    go top
else
    count for num=jnumk to jtxt1  &&έpXG󪺵
   count for num=jnumk .and. ntx_2 <> 0 to jtxt2  &&έpXG󪺵
  jtxt3=jtxt1-jtxt2
    go top
    Sum insm for num=jnumk to jtxt5
    Sum ntx_2 for num=jnumk to jtxt6
    Sum ntx_3 for num=jnumk to jtxt7
     jtxt4=jtxt5-(jtxt6+jtxt7)
    set filter to num=jnumk
    go top
endif
     Thisform.txt3.Value=jtxt3     &&ñb
     Thisform.txt5.Value=jtxt5     &&|B
     Thisform.txt2.Value=jtxt2     &&bJ
     Thisform.txt6.Value=jtxt6     &&bJB
     Thisform.txt4.Value=jtxt4     &&
     Thisform.txt7.Value=jtxt7     &&J
    
     Thisform.txt5a.Value=jtxt5     &&|B
     Thisform.txt6a.Value=jtxt6     &&bJB
     Thisform.txt4a.Value=jtxt4     &&
     Thisform.txt7a.Value=jtxt7     &&J
     *Thisform.txt4.Value=jtxt4   
     *Thisform.txt2.Value=jtxt2      	     			
Thisform.Refresh()					&&  sܪWU󤧸
*-------------------------------------------------------------------------------------------------------------
