scsj.prg

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

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 NIAN = '1998'
 YUE = '12'
 ENDIF 
 CLOSE DATABASES 
 DO FORM .\src\form\scsj TO NRTVALUE
 IF NRTVALUE = 1
 DO SCSJA
 ENDIF 
 CLOSE DATABASES 
 RETURN 

PROCEDURE scsja
 I_NIAN = INT(VAL(NIAN))
 I_YUE = INT(VAL(YUE))
 DO FORM \xbbjs\src\form\rqsd1 TO LNIANYUE
 IF  .NOT. LNIANYUE
 RETURN 
 ENDIF 
 RELEASE I_NIAN , I_YUE
 M_BH = '00'
 DO FORM .\src\form\gong2
 IF M_BH = '00'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 CLOSE DATABASES 
 USE LIB\BZL.DAT
 LOCATE FOR BH = M_BH
 M_BM = ALLTRIM(BM)
 CLOSE DATABASES 
 USE LIB\XMBAK\SJK.DAT ORDER SJK
 SEEK M_BH
 LL = NIAN + YUE
 OL = .T.
 SCAN FOR VAL(SJ) > VAL(LL) AND BH = M_BH
 OL = .F.
 EXIT 
 ENDSCAN 
 IF OL = .T.
 OLL = .T.
 SEEK M_BH
 SCAN FOR SJ = LL AND BH = M_BH
 OLL = .F.
 EXIT 
 ENDSCAN 
 IF OLL = .T.
 REPLACE BZ WITH .F. FOR BH = M_BH
 APPEND BLANK
 REPLACE BH WITH M_BH , SJ WITH LL , BZ WITH .T.
 ELSE 
 REPLACE BZ WITH .F. FOR BH = M_BH
 REPLACE BZ WITH .T. FOR BH = M_BH AND SJ = LL
 ENDIF 
 ELSE 
 MSGTTL = '生成历史明细'
 MESSGTXT = '输入的日期比上次输入的时间早!'
  MESSAGEBOX(MESSGTXT,64,MSGTTL)
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 USE 
 WAIT WINDOW NOWAIT '请稍等......'
 CL_NIAN = RIGHT(NIAN,2)
  USE LIB\XM&M_BH..DAT
  IF FILE(".\LIB\XMBAK\XM&M_BH&cl_nian&YUE..DAT")
  Dele FILE .\LIB\XMBAK\XM&M_BH&cl_nian&Yue..DAT
 ENDIF 
  COPY TO LIB\XMBAK\XM&M_BH&cl_nian&Yue..DAT
 USE 
  USE LIB\DP&M_BH..DAT
  IF FILE("LIB\XMBAK\DP&M_BH&cl_nian&YUE..DAT")
  Dele FILE LIB\XMBAK\DP&M_BH&cl_nian&Yue..DAT
 ENDIF 
  COPY TO LIB\XMBAK\DP&M_BH&cl_nian&Yue..DAT
  USE LIB\DP&M_BH.A.DAT
  IF FILE("LIB\XMBAK\DP&M_BH&cl_nian&YUE..DAA")
  Dele FILE LIB\XMBAK\DP&M_BH&cl_nian&Yue..DAA
 ENDIF 
  COPY TO LIB\XMBAK\DP&M_BH&cl_nian&Yue..DAA
 USE 
 CLOSE DATABASES 
 MSGTTL = '生成历史明细'
 MESSGTXT = '处理完毕 !!!'
  MESSAGEBOX(MESSGTXT,64,MSGTTL)
 RETURN 
ENDPROC
*------*