📄 n-zz.zrg
字号:
DF2=VAL(STR(ROUND(((VAL(DD)+GSBS)*DDDJ),2),10,2))
DF6=VAL(STR(ROUND(((VAL(DD)+GSBS)*FJDJ1),2),10,2))
DF3=VAL(STR(ROUND(((VAL(DD)+GSBS)*FJDJ2+(VAL(DD)+GSBS)*FJDJ3),2),10,2))
DF4=VAL(STR(ROUND(((VAL(DD)+GSBS)*FJDJ4+(VAL(DD)+GSBS)*FJDJ5),2),10,2))
DF5=VAL(STR(ROUND(((VAL(DD)+GSBS)*DDDJ*FJDJ6*1/100+(VAL(DD)+GSBS)*FJDJ7),2),10,2))
DF1=DF2+DF3+DF4+DF5+DF6
REPLACE DF WITH DF1
ENDIF
@2,0 SAY "月"+STR(DL3,8,1)
SYDL1=DL3*VAL(BL)+GSBS
REPLACE SYDL WITH SYDL1
@2,10 SAY "实"+STR(SYDL,8)
@3,11 SAY " "
@ 3,11 SAY DF
WAIT " "
CLEAR
REPLACE ZBBZ WITH "4"
RETURN
ENDPRO
***表坏子程序*****
PROCEDURE F
SELECT A
CLEAR
@0,0 SAY "1.电表烧"
@1,0 SAY "2.电表停"
@2,0 SAY "3.电表反转"
WAIT " " TO KEY3
DO CASE
CASE ASC(KEY3)=49
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "烧,回车键确认;1键退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "5"
RETURN
ENDCASE
CASE ASC(KEY3)=50
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "停,回车键确认;1键退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "6"
RETURN
ENDCASE
CASE ASC(KEY3)=51
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "反转,回车键确认;1退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "7"
RETURN
ENDCASE
ENDCASE
ENDPRO
*****欠费催费子程序****
PROCEDURE G
SELECT A
SET MODE TO 1
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "催,回车键确认;1键退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "8"
RETURN
ENDCASE
ENDPRO
*****欠费拆表子程序****
PROCEDURE L
SELECT A
SET MODE TO 1
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "拆,回车键确认;1键退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "9"
RETURN
ENDCASE
ENDPRO
*******表不见******
PROCEDURE H
SET MODE TO 1
CLEAR
@0,0 SAY "1.拆房表不见"
@1,0 SAY "2.有卡无表"
@2,0 SAY "3.表位过高"
WAIT " " TO KEY3
DO CASE
CASE ASC(KEY3)=49
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY "该户拆房表不见"
@3,0 SAY "回车键确认;1键退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "3"
RETURN
ENDCASE
CASE ASC(KEY3)=50
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY "该户有卡无表!"
@3,0 SAY "回车键确认;1键退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "B"
RETURN
ENDCASE
CASE ASC(KEY3)=51
CLEAR
@0,0 SAY HH+"号"
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY "该户表位过高!"
@3,0 SAY "回车键确认;1键退出"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
RETURN
CASE ASC(KEY4)=13
REPLACE ZBBZ WITH "C"
RETURN
ENDCASE
ENDCASE
ENDPRO
**********不计算的输机程序******
PROCEDURE I
SELECT A
SET MODE TO 1
CLEAR
@ 0,0 SAY HH
@ 0,9 SAY "号"
@ 0,12 SAY "厂号:"+CH
@ 1,0 SAY HM
@ 2,0 SAY DZ
*****SYBZ判断子程序*****
SYBZ=ZBBZ
REPLACE ZBBZ WITH "N"
IF SYBZ="1"
@2,0 SAY "该户上月换表!"
ENDIF
IF SYBZ="2"
@2,0 SAY "该户上月估抄!"
ENDIF
IF SYBZ="3"
@2,0 SAY "该户表不见!"
ENDIF
IF SYBZ="4"
@2,0 SAY "该户上月私自移表!"
ENDIF
IF SYBZ="5"
@2,0 SAY "该户上月表烧!"
ENDIF
IF SYBZ="6"
@2,0 SAY "该户上月表停!"
ENDIF
IF SYBZ="7"
@2,0 SAY "该户上月表反转!"
ENDIF
IF SYBZ="8"
@2,0 SAY "该户上月已催费!"
ENDIF
IF SYBZ="9"
@2,0 SAY "该户上月欠费拆表!"
ENDIF
@ 3,0 SAY "码" GET CM2
@3,12 SAY CM1
READ
REPLACE ZBBZ WITH "0"
CLEAR
return
ENDPRO
*********自动审核程序********
PROCEDURE J
RR=RECCOUNT()
NUM=RECNO()
IF (CM2<CM1) AND (BW<9) AND (ZBBZ<>"N")
@1,0 SAY " "
@1,0 SAY "请看清楚,可能有误!"
WAIT " "
ENDIF
RETURN
ENDPRO
*********列出未抄表的程序**********
PROCEDURE K
SELECT A
RR=RECCOUNT()
NUM=RECNO()
CLEAR
GO TOP
N=0
DO WHILE NUM<=RR .OR. N=5
IF ZBBZ="N"
@N,0 SAY HH
@N,12 SAY CH
N=N+1
IF N=4
WAIT " " TO KEY1
DO CASE
CASE ASC(KEY1)=49 .OR. ASC(KEY1)=13
N=0
CLEAR
CASE ASC(KEY2)=24
RETURN
CLEAR
EXIT
ENDCASE
ENDIF
SKIP
ENDIF
IF ZBBZ<>"N"
SKIP
ENDIF
ENDDO
RETURN
ENDPRO
****主菜单*****
START
SELECT A
RR = RECCOUNT( )
NUM=RECNO()
LOCATE FOR CM2=0
IF EOF()
GO TOP
ENDIF
num=recno()
GO NUM
jqh=series()
CLEAR
@0,0 SAY " 兴安县供电公司"
@1,0 say "***** "+jqh+" ******"
@2,0 SAY " 客户服务中心"
@3,0 say " (微机班)"
wait""
clear
DO WHILE .T.
HH1=HH
CH1=CH
BH1=BH
clear
@0,2 SAY "①. 区户号查询"
@1,2 SAY "②. 厂号查询"
@2,2 SAY "③. 表号查询"
@3,2 SAY "④. 列出未抄表"
WAIT " " TO KEY2
DO CASE
CASE ASC(KEY2)=14
IF NUM<RR
SKIP 1
NUM=RECNO()
ENDIF
CASE ASC(KEY2)=17
IF RECNO()<>1
SKIP -1
NUM=RECNO()
ENDIF
CASE ASC(KEY2)=24
NUM=RECNO()
GO NUM
EXIT
CASE ASC(KEY2)=49
CLEAR
@0,1 SAY "区户号:" GET HH1
READ
IF VAL(HH1)=0
EXIT
ENDIF
LOCATE FOR HH=HH1
IF EOF()
@ 1,1 SAY HH1+"没找到!"
WAIT
go num
LOOP
ENDIF
CLEAR
CASE ASC(KEY2)=50
CLEAR
@0,1 SAY "厂号:" GET CH1
READ
IF VAL(CH1)=0
EXIT
ENDIF
LOCATE FOR CH=CH1
IF EOF()
@ 1,1 SAY CH1+"没找到!"
WAIT
go num
LOOP
ENDIF
CLEAR
CASE ASC(KEY2)=51
CLEAR
@0,1 SAY "表号:" GET BH1
READ
IF VAL(BH1)=0
EXIT
ENDIF
LOCATE FOR BH=BH1
IF EOF()
@ 1,1 SAY BH1+"没找到!"
WAIT
go num
LOOP
ENDIF
CLEAR
CASE ASC(KEY2)=52
CLEAR
DO K
CLEAR
ENDCASE
RR=RECCOUNT()
NUM=RECNO()
GO NUM
DO WHILE .T.
clear
@0,0 SAY HH
@0,12 SAY "厂号:"+CH
@1,0 SAY HM
@2,0 SAY DZ
@3,0 SAY "1.抄表 2.处理 3.输机"
WAIT " " TO KEY1
DO CASE
CASE ASC(KEY1)=14
IF NUM<RR
SKIP 1
NUM=RECNO()
ENDIF
CASE ASC(KEY1)=17
IF RECNO()<>1
SKIP -1
NUM=RECNO()
ENDIF
CASE ASC(KEY1)=24
NUM=RECNO()
GO NUM
EXIT
CASE ASC(KEY1)=49 .OR. ASC(KEY1)=13
CLEAR
NUM=RECNO()
GO NUM
DO M
DO J
skip
CASE ASC(KEY1)=50
CLEAR
@0,0 SAY "1.换表"
@0,10 SAY "2.锁门估抄"
@1,0 SAY "3.表不见"
@1,10 SAY "4.私自移表"
@2,0 SAY "5.表坏"
@3,0 SAY "6.欠费催费"
@3,10 SAY "7.欠费拆表"
WAIT " " TO KEY3
DO CASE
CASE ASC(KEY3)=49
DO C
DO J
SKIP
CASE ASC(KEY3)=52
DO E
SKIP
CASE ASC(KEY3)=50
DO D
SKIP
CASE ASC(KEY3)=53
DO F
SKIP
CASE ASC(KEY3)=54
DO G
SKIP
CASE ASC(KEY3)=55
DO L
SKIP
CASE ASC(KEY3)=51
DO H
SKIP
ENDCASE
*****输机********
CASE ASC(KEY1)=51
CLEAR
@2,0 SAY "是否需要计算电费?(1/2)"
@3,0 SAY "1.计算 2.不计算"
WAIT " " TO KEY4
DO CASE
CASE ASC(KEY4)=49
FLAG=1
DO WHILE FLAG=1
NUM=RECNO()
GO NUM
DO A
DO J
IF CM2=0
FLAG=0
SKIP -1
ENDIF
SKIP
ENDDO
CASE ASC(KEY4)=50
FLAG=1
DO WHILE FLAG=1
NUM=RECNO()
GO NUM
DO I
DO J
IF CM2=0
FLAG=0
SKIP -1
ENDIF
SKIP
ENDDO
ENDCASE
ENDCASE
ENDDO
ENDDO
ENDSTART⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -