*public x3,x2
x3=0
sele c
USE QQSQZ.DBF alia qq
index on bgd_no to qqsqz-sy
SELE B
USE HWCKZ.DBF
*ZAP
*APPEND FROM HWCKZ
COPY TO DQDZ3.DBF FOR date()>=lj_date+60 .AND. Dzbq_flag="BH" fiel cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no
USE DQDZ3.DBF
index on bgd_no to dqdz3-sy
update on bgd_no from qq replace cwfzr with '123' rand
copy to dqdz for cwfzr<>'123'
*Sele b
use dqdz.dbf
*x3=recc()
*x2=date()
*IF RECC()=0
* wait windows "ÎÞµ½ÆÚµ¥Ö¤ÐÅÏ¢!"
*ELSE
* do form dqdzcx
*endif
*sele dqdz8
if len(alltrim(thisform.text6.value))=0 and len(alltrim(thisform.text7.value))=0
*copy to dqdz8 field cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no
sele cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no from dqdz into table dqdz8.dbf
else
if len(alltrim(thisform.text6.value))<>0
if len(alltrim(thisform.text7.value))<>0
cd1='%'+alltrim(thisform.text6.value)+'%'
nm1='%'+alltrim(thisform.text7.value)+'%'
*copy to dqdz8 for cpcode like cd1 .and. cpname like nm1 field cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no
sele cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no from dqdz where cpcode like cd1 and cpname like nm1 into table dqdz8.dbf
else
cd1='%'+alltrim(thisform.text6.value)+'%'
*copy to dqdz8 for cpcode like cd1 field cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no
sele cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no from dqdz where cpcode like cd1 into table dqdz8.dbf
endif
else
if len(alltrim(thisform.text7.value))<>0
nm1='%'+alltrim(thisform.text7.value)+'%'
*copy to dqdz8 for cpname like nm1 field cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no
sele cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no from dqdz where cpname like nm1 into table dqdz8.dbf
endif
endif
endif
*sele cpcode,nsrdj_no,cpname,cwfzr,bsy,tel,sb_ym,sb_no,bgd_no,lj_date,hxd_no,qnt,yb_amt,rmb_amt,inv_no from dqdz where .t. &wh01 into table dqdz8.dbf
sele dqdz8
*use dqdz8
x3=recc()
thisform.label5.caption=alltr(str(x3))+" Ìõ"
sum rmb_amt,yb_amt to x1,x2
thisform.label14.caption=alltr(str(x1))
thisform.label15.caption=alltr(str(x2))
go top
*thisform.label6.caption=alltr(dtoc(date()))
thisform.label6.caption=alltrim(str(year(date())))+'Äê'+alltrim(str(month(date())))+'ÔÂ'+alltrim(str(day(date())))+'ÈÕ'
this.refresh
x1=cpname
x2=sb_ym
thisform.grid1.setfocus
*ENDIF
*thisform.text1.value=x3
*thisform.text2.value=x2
thisform.grid1.columncount=15