English
FYJZ.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：4k
源码类别：
企业管理
开发平台：
VFP
- CLOS ALL
- SET PATH TO C:
- IF .NOT. FILE('pzk.dbf') .OR. .NOT. FILE('mxk.dbf') .OR. .NOT. FILE('zzk.dbf')
- ?? CHR(7)
- @ 11, 40 SAY '凭证尚未入帐,无法结转费用!'
- i = INKEY(0)
- SET PATH TO cw
- @ 11, 40 SAY '鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍' COLOR W+/N
- RETU
- ENDI
- SET PATH TO cw
- USE pzk
- pd = jzbz
- USE
- IF pd='1'
- ?? CHR(7)
- @ 11, 45 SAY '本月已结帐!'
- i = INKEY(0)
- @ 11, 45 SAY '鞍鞍鞍鞍鞍鞍鞍' COLOR W+/N
- RETU
- ENDI
- USE pzk
- LOCA ALL FOR shy='系统生成'
- IF .NOT. EOF()
- SET COLOR TO W/N
- @ 12, 42, 16, 72 BOX '鞍鞍鞍鞍鞍鞍'
- SET COLOR TO W+/BG
- @ 11, 40 CLEAR TO 15, 70
- @ 11, 40 TO 15, 70 DOUBLE
- @ 12, 46 SAY '费用已经结转!再次进行凭'
- @ 13, 42 SAY '证输入或凭证修改时,上次的结'
- @ 14, 42 SAY '转费用作废!'
- i = INKEY(0)
- USE
- SET COLOR TO W+/N
- @ 11, 38, 16, 72 BOX '鞍鞍鞍鞍鞍鞍鞍'
- RETU
- ENDI
- USE mxk
- LOCA ALL FOR zy='本月合计'
- IF EOF()
- SET COLOR TO W/N
- @ 12, 47, 15, 72 BOX '鞍鞍鞍鞍鞍鞍'
- SET COLOR TO W+/BG
- @ 11, 45 CLEAR TO 14, 70
- @ 11, 45 TO 14, 70 DOUBLE
- @ 12, 46 SAY '凭证尚未入帐!请将凭证入'
- @ 13, 46 SAY '入帐后再进行费用结转!'
- i = INKEY(0)
- SET COLOR TO W+/N
- @ 11, 40, 15, 72 BOX '鞍鞍鞍鞍鞍鞍'
- USE
- RETU
- ENDI
- USE
- SET COLOR TO W/N
- @ 12, 44, 14, 72 BOX '鞍鞍鞍鞍鞍鞍'
- SET COLOR TO W+/BG, GR+/R
- @ 10, 42 CLEAR TO 13, 69
- @ 10, 42 TO 13, 68 DOUBLE
- pd = 'Y'
- @ 11, 44 SAY '是否采用自动结转成本?'
- @ 12, 49 SAY 'Y=是,其他=否:' GET pd PICTURE 'x'
- READ
- IF pd='Y' .OR. pd='y'
- DO cbjs
- ENDI
- HIDE POPUP pop3
- CLOS ALL
- SET COLOR TO N/G
- CLEA
- SET COLOR TO N/W
- @ 1, 2 CLEAR TO 23, 77
- SET COLOR TO W/N
- @ 11, 14 CLEAR TO 15, 69
- SET COLOR TO N/B
- @ 9, 10 CLEAR TO 13, 65
- SET COLOR TO R+/B
- @ 5, 27 SAY ' 结 转 费 用'
- SET COLOR TO W+/B
- ?? CHR(7)
- @ 9, 30 SAY '注 意'
- @ 11, 17 SAY '1. 结转费用期间,请勿中断计算机;请勿关机!'
- @ 12, 17 SAY '2. 建议您使用不间断电源(UPS).'
- @ 17, 30 SAY ' 请等候......'
- COPY FILE mxk.dbf TO mxkk%%.dbf
- USE mxkk%%.dbf
- DELE ALL FOR zy<>'期末及累计'
- PACK
- SELE 1
- USE pzk
- SET INDEX TO pz
- REIN
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '501'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '507'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '511'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '517'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '521'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '531'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '541'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '545'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '551'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '555'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '557'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '561'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '550'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '571'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '575'
- DO fyjz-1
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- pd = '560'
- DO fyjz-2
- pd = 0
- SELE 1
- REPL shy WITH '系统生成', lry WITH '系统生成', ssl WITH 0, fsl WITH 0 ALL FOR zy='结转利润'
- USE
- SELE 2
- USE
- SELE 3
- USE
- DO pzrz
- IF ryf=1
- USE mxk
- REPL jje WITH jje-dje, dje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='322' .AND. zy='期末及累计'
- REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='321' .AND. zy='期末及累计'
- REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='585' .AND. zy='期末及累计'
- USE zzk
- REPL jje WITH jje-dje, dje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='322' .AND. zy='期末及累计'
- REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='321' .AND. zy='期末及累计'
- REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='585' .AND. zy='期末及累计'
- USE
- ENDI
- RETU
- *
