dy_jgb.prg

不错的用电管理系统,用VFP6.0做的.大家可以下来看看哦

******************************************
* 程序名称：应收电费报表汇总(DY_JGB.PRG) *
* 编 制 人：唐国春                       *
* 代码长度：1185行                       *
* 完成日期：1999年04月18日               *
* 修改日期：2002年01月31日               *
******************************************

SET TALK OFF
SET NOTIFY OFF
SET CURSOR ON
SET EXACT OFF
SET BORDER TO SINGLE
SET ESCA OFF
SET SAFETY OFF

CLOSE DATABASES

PUBLIC ksh,zdlx,zdwidth,zddecwidth,foundflag,rq1,rq2,s,dytitle

SELE 0
USE TIME
TIME=TIME->rq
rq1=substr(time,1,4)
rq2=substr(time,5,2)
SELE 0
USE YSDH
COPY TO TMP1 FOR BS2=TIME->rq
SELE 0
USE TMP1
SELE 0
USE SUM_001
ZAP
SELE 0
USE KSK


SS='RWSJ\RW'+SUBSTR(TIME,3,4)
SSBAK='RWSJ\JGB'+SUBSTR(TIME,3,4)+'.DBF'
SSS=SS+'.DBF'

IF FILE ("&SSS")
    SELE 1
    USE &SSS  && RW****.DBF
    GO TOP
    DO WHILE .NOT. EOF()
        SELE 1
        if .not. empty(gds)
			BB=csy
            B0=QH
            B1=DD
            B2=JZDF
            B3=DLJJ
            B4=SXJJ
            B5=SZFJ
            B6=JQJJ
			B12=Nwwh
            B7=JBDF
            B8=CJFJ
            B9=B7+B8
            B10=GDS
            SELE KSK
            LOCA FOR ALLTRIM(A2)=ALLTRIM(B10)
            B11=A1
            SELE TMP1
            APPE BLANK
            REPL XM WITH BB,A1 WITH B0,A2 WITH B1,A3 WITH B2,A4 WITH B3,A5 WITH B4,A6 WITH B5,;
            A7 WITH B6,A8 WITH B7,A9 WITH B8,A10 WITH B9,BS1 WITH B11,BS2 WITH TIME,Nwwh with B12
		endif
        SELE 1
        SKIP
    ENDDO
ENDIF


SELE tmp1
***************************生成个人库**********************

SELE 0
USE GR
ZAP
SELE tmp1
GO TOP

DO WHILE .NOT. EOF()
	SELE tmp1
	S=ALLT(XM)
	S1=ALLT(BS1)
	SELE GR
	LOCA FOR ALLT(XM)=S
	IF .NOT. FOUND()
		INSERT INTO GR (XM,GDS) VALUE (S,S1)
	ENDIF
	SELE TMP1
	SKIP
ENDDO

SELE GR
set order to tag xm
***********************************************************
GO TOP

DO WHILE .NOT. EOF()
    NAME=ALLT(GR.XM)
    BBB=ALLT(GR.GDS)
    SELE TMP1
    LOCATE FOR ALLT(XM)==NAME AND BS2=TIME 
    IF FOUND()
        SUM A2,A3,A4,A5,A6,A7,A8,A9,A10,NWWH;
            FOR ALLT(XM)==NAME AND BS2=TIME TO DD1,D1,D2,D3,D4,;
            D5,DF,CJ,JE,NW
        DD=DD1
        SELE SUM_001
        APPE BLANK
        REPL A1 WITH NAME,A2 WITH DD,A3 WITH D1,A4 WITH D2, A5 WITH D3,;
             A6 WITH D4,A7 WITH D5,A8 WITH DF,A9 WITH CJ,A10 WITH JE,NWWH with NW,BS1 WITH BBB
	ENDIF
    SELE GR
    SKIP
ENDDO

SELE TMP1
SUM A2,A3,A4,A5,A6,A7,A8,A9,A10,NWWH;
    FOR EMPTY(XM) AND BS2=TIME TO DD1,D1,D2,D3,D4,;
    D5,DF,CJ,JE,NW
DD=DD1
SELE SUM_001
if dd<>0 .or. d1<>0 .or. d2<>0 .or. d3<>0 .or. d4<>0 .or. d5<>0 .or. df<>0 .or. cj<>0 .or. je<>0 .or. nw<>0
	APPE BLANK
	REPL A1 WITH '(其他)',A2 WITH DD,A3 WITH D1,A4 WITH D2, A5 WITH D3,;
	     A6 WITH D4,A7 WITH D5,A8 WITH DF,A9 WITH CJ,A10 WITH JE,NWWH with NW,BS1 WITH '99'
endif

SELE SUM_001
IF EOF()
	=MESSAGEBOX('还没有提取生成'+RQ1+'年'+RQ2+'月的电费数据资料！'+CHR(13)+CHR(13)+'请先提取生成电费数据资料！',0+16,'错误')
	dele file("&ssbak")
	close database
	return
ELSE
	COPY TO &SSBAK
	s='sum_001.dbf'
	dytitle='(应收报表[新格式])'
	DO FORM dy_JGB
ENDIF