xtcsh.prg

使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用社会计报表系统

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: XTCSH.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 WAIT WINDOW AT 15 , 35 NOCLEAR NOWAIT '请稍候......'
 LL = NIAN + YUE
 SJOK = .T.
 USE IN 0 LIB\BZL.DAT
 USE IN 0 LIB\XMBAK\SJK.DAT
 SELECT BZL
 SCAN 
    M_BH = BH
    IF  .NOT. USED('sjk')
       USE IN 0 LIB\XMBAK\SJK.DAT
    ENDIF 
    SELECT SJK
    SELECT * WHERE BH = M_BH INTO CURSOR SJKA FROM LIB\XMBAK\SJK.DAT
    SELECT SJKA
    LOCATE FOR VAL(SJ) > VAL(LL)
    IF  .NOT. EOF()
       IF RECNO() > 1
          SKIP -1
          MMSJ = SJ
          M_SJ = RIGHT(SJ,4)
          IF  .NOT. BOF()
             IF BZ = .F.
                DO LLSC
                IF SJOK = .F.
                   EXIT 
                ENDIF 
                SELECT SJK
                REPLACE BZ WITH .F. FOR BH = M_BH
                REPLACE BZ WITH .T. FOR BH = M_BH AND SJ = MMSJ
             ENDIF 
          ENDIF 
       ELSE 
          MMSJ = SJ
          M_SJ = RIGHT(SJ,4)
          IF BZ = .F.
             DO LLSC
             IF SJOK = .F.
                EXIT 
             ENDIF 
             SELECT SJK
             REPLACE BZ WITH .F. FOR BH = M_BH
             REPLACE BZ WITH .T. FOR BH = M_BH AND SJ = MMSJ
          ENDIF 
       ENDIF 
    ELSE 
       IF RECCOUNT() <> 0
          GO BOTTOM
          IF BZ = .F.
             MMSJ = SJ
             M_SJ = RIGHT(SJ,4)
             DO LLSC
             IF SJOK = .F.
                EXIT 
             ENDIF 
             SELECT SJK
             REPLACE BZ WITH .F. FOR BH = M_BH
             REPLACE BZ WITH .T. FOR BH = M_BH AND SJ = MMSJ
          ENDIF 
       ENDIF 
    ENDIF 
    USE 
    SELECT BZL
 ENDSCAN 
 CLOSE DATABASES 
 WAIT CLEAR
 RETURN 

PROCEDURE LLSC
  if file("LIB\XMBAK\XM&M_BH&M_SJ..DAT") 
  USE LIB\XMBAK\XM&M_BH&M_SJ..DAT IN 0
  SELECT xm&m_bh&m_sj
  IF FILE("LIB\XM&M_BH..DAT")
  DELE FILE LIB\XM&M_BH..DAT
 ENDIF 
  COPY TO LIB\XM&M_BH..DAT
 USE 
 SJOK = .T.
 ELSE 
 ENDIF 
  IF FILE("LIB\XMBAK\DP&M_BH&M_SJ..DAT")
  USE LIB\XMBAK\DP&M_BH&M_SJ..DAT IN 0
  SELECT DP&m_bh&m_sj
  IF FILE("LIB\DP&M_BH..DAT")
  DELE FILE LIB\DP&M_BH..DAT
 ENDIF 
  COPY TO LIB\DP&M_BH..DAT
 USE 
 SJOK = .T.
 ELSE 
 ENDIF 
  IF FILE("LIB\XMBAK\DP&M_BH&M_SJ..DAA")
  USE LIB\XMBAK\DP&M_BH&M_SJ..DAA IN 21
 SELECT 21
  IF FILE("LIB\DP&M_BH.A.DAT")
  DELE FILE LIB\DP&M_BH.A.DAT
 ENDIF 
  COPY TO LIB\DP&M_BH.A.DAT
 USE IN 21
 SJOK = .T.
 ELSE 
 ENDIF 
ENDPROC
*------*